HCFA 1500 MENTIONS

IB20PT5 FT         ; Update called routine for form type HCFA 1500 FT+2       S IBFT="HCFA 1500" S IBFTI=$O(^IBE(353,"B",IBFT,0)) I +IBFTI S DIE="            ^IBE(353,",DA=IBFTI,DR="1.01////EN^IBCF2" D ^DIE K DIE,DR,DA IBCBB2 IBCBB2      ;ALB/ARH - CONTINUATION OF EDIT CHECKS ROUTINE (HCFA 1500) ;04/14/92 EN+11       D F^IBCEF("N-HCFA 1500 MODIFIERS",,,IBIFN) ;Get modifiers EN+29       ; HCFA 1500: dxs associated with procs must be defined dxs for the b            ill EN+42       D F^IBCEF("N-HCFA 1500 SERVICES (PRINT)",,,IBIFN) ;Get charge lines IBCBB9 PARTB       ; MEDICARE specific edit checks for PART B claims (HCFA 1500) PARTB+6     . D F^IBCEF("N-HCFA 1500 SERVICE LINE (EDI)",,,IBIFN) IBCE837 FIND        ; Find/sort by HCFA 1500/UB92, test/live, ins ID # & div IBCECOB4 SCR+11      S X=$$SETFLD^VALM1("  "_$$TYPE^IBJTLA1($P(IBCMT,U,5))_"/"_$P("UB-82^            HCFA 1500^UB-92",U,+$P(IBCMT,U,6)),X,"BTYPE") IBCECSA5 MRALLA+11   D F^IBCEF("N-"_$S(IBFORM:"UB92",1:"HCFA 1500")_" SERVICE LINE (EDI)" ,"IBZDATA",,+IBREC) IBCEF SERVDT+6   G:$$INPAT^IBCEF(IBIFN,1)!($$FT^IBCEF(IBIFN)'=3) SERVDTQ ;Inpatient c            laim or billed on a HCFA 1500 IBCEF1 REQ+6       ;                         HCFA 1500/inpatient the data would be requ            ired REQ+8       ;                          HCFA 1500/inpatient, the data would not b            e CIADDR+1    ; FORM = 1 for HCFA 1500, 2 for UB-92 IBCEF11 BOX24D(A,IB) ; Returns the lines for boxes 19-24 of the HCFA 1500 display OUTPT+1     ;                 HCFA 1500 box 24.  Output is in IBXDATA(n) IBCEF2 ALLPAYID+21 . ; RPRNT = HCFA 1500 Rx bills ALLPAYID+30 . ; Rx bills on HCFA 1500 IBCEF3 MPG+1       ;        for either HCFA 1500 or UB92 MPG+7       ;   HCFA 1500:       LINES 1-5,7-43,57 from col 1 to 49, 58-63 NONSERV+1   ;  24 of HCFA 1500 PG(VAL,LNCT) ;Set next pg for HCFA 1500 lines B24+8       I IBIFN D F^IBCEF("N-HCFA 1500 SERVICE"_$S(IBSUB["24":"S (PRINT",1:" LINE (EDI")_")",,,IBIFN) IBCEF7 GETNMEL+24 ; FORMTYP: Form type 1=UB92,2=HCFA 1500 PSPRV+8     ;  4th digit: 0 if HCFA 1500 bill IBCEF71 ISINSUR+10  ;IB399FRM - form type (0=unknwn/both,1=UB92,2=HCFA 1500) to PRACT+9     . S IBFRMTYP=+$P($G(^IBA(IBFX,IB3559,0)),"^",4) ;form type (0=both,1            =UB92,2=HCFA 1500) IBCEF72 IBCEF72+7   ;IBFRMTYP 0=unknwn/both,1=UB92,2=HCFA 1500 IBCEF73 IBCEF73+5   ;IBFRM 0-both, 1=UB92,2=HCFA 1500 CHSEC+20    ;IBFRM 0-both, 1=UB92,2=HCFA 1500 CHCKSUB+19  ;IBFRM 0-both, 1=UB92,2=HCFA 1500 CHSUB+10    ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OPR2+5      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP1+5       ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OPR3+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP2+4       ;IBFRM 0-both, 1=UB92,2=HCFA 1500 SUB1+5      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OPR4+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP9+4       ;IBFRM 0-both, 1=UB92,2=HCFA 1500 SUB2+5     ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP3+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OPR5+4     ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OPR8+4     ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP4+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP8+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP6+4      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 OP7+5      ;IBFRM 0-both, 1=UB92,2=HCFA 1500 CHCKPRV1+3 ;IBFRM 0-both, 1=UB92,2=HCFA 1500 IBCEF74 PROVINF+25. I $G(IBINSTP)="O","34"[$G(IBPRTYP),"ST"[$G(IBCURR),$G(IBFRMTYP)=2, $$MCRONBIL^IBEFUNC(IB399) S IB355OV=$$MCR24K^IBCEU3(IB399)_"^12" ;Ca lculate MEDICARE (WNR) specific provider qualifier and ID for HCFA 1 500 secondary claims PROVINF+30. I IBFRMTYP=2,$P($G(^DIC(36,IBINSCO,3)),U,11),$P(IBALLSSN,U,IBPRTYP           )'="",IBSSNIEN D  ; Force SSN as secondary id for HCFA 1500 IBCEM03 SUB1+18. S DIR("A",1)="     YOU HAVE SELECTED BILL #: "_$P(IB399,U)_"  ("_            $S($$INPAT^IBCEF(IBIFN):"INPATIENT",1:"OUTPATIENT")_"/"_$S($$FT^IBCE F(IBIFN)=3:"UB92",1:"HCFA 1500")_" FORMAT)" IBCEMRAA PROC+9     ; based on the Bill's Form Type 3=UB92  ; 2=HCFA 1500 PROC+11. I FRMTYP=2 D F^IBCEF("N-HCFA 1500 SERVICE LINE (EDI)","IBZDATA",,I           BIFN) Q PRNTMRA+3   ; Print Part B - HCFA 1500 IBCEMRAB IBCEMRAB+6 ;  This routine prints MRA Report for HCFA 1500 (Part B) Form Type HDR+53     ; On HCFA 1500 Form Type reports, If Medicare WNR is Primary or Seco ndary, then set Performing Provider ID IBCEMSR1 DETAILS+7  D CHKP Q:IBQ  W !?7,"Primary UB92 MRA Requests",?67,"Primary HCFA 15            00 MRA Requests" SUMMARY+6  D CHKP Q:IBQ  W !?7,"Primary UB92 MRA Requests",?67,"Primary HCFA 15            00 MRA Requests" SECONDRY+1 D CHKP Q:IBQ  W !?7,"Secondary UB92 claims",?67,"Secondary HCFA 1500             claims" IBCEMU2 MRACALC+15 S FRMTYP=$$FT^IBCEF(IBIFN)       ;Form Type 2=HCFA 1500; 3=UB92 MRACALC+28 ; Handle HCFA 1500 Form Type Next: IBCEOB1 FINDLN+76  ; At this point, we can assume the claim is HCFA 1500 format FINDLN+77  I '$D(IBZDATA) D F^IBCEF("N-HCFA 1500 SERVICE LINE (EDI)","IBZDATA",            ,IBIFN) IBCEP4 BLD+11     .. S IBQ=IBQ_" "_$E($P("Both form types^UB92 Only^HCFA 1500 Only",U ,$P(IB0,U,4)+1)_$J("",15),1,15)_" "_$E($P("Inpt/Outpt^Inpt Only^Out            pt Only^RX Only",U,+$P(IB0,U,5)+1)_$J("",10),1,10) IBCEP5C COMBOK+27  .. S IBSPEC=$S($G(IBSPEC)'="":IBSPEC_" ",1:"")_$P($S(IBD=4:"UB92^HC            FA 1500",1:"INPT^OUTPT"),U,X0)_" ONLY" COMBOK+28. I $D(X1(0)) S IBSPEC=$S($G(IBSPEC)'="":IBSPEC_" ",1:"")_$S(IBD=4:            "BOTH UB92 and HCFA 1500 form type  AND  BOTH INPT and OUTPT care ty            pe",1:"BOTH INPT and OUTPT care type  AND  BOTH UB92 and HCFA 1500 f            orm type") COMBOK+40. S X0=$S($D(IBD(4)):"UB-92^HCFA 1500",1:"INPT^OUTPT") IBCEP7 FACFLDS+17 S DIR("A")="FORM TYPE APPLIED TO: ",DIR(0)=$S($P(IBPARAM,U,3)'=1:"35            5.92,.04A",1:"SA^1:UB92;2:HCFA 1500") FACFLDS+18 S:$P(IBPARAM,U,3)=1&$G(IBDA) DIR("B")=$P("UB92^HCFA 1500",U,+$P($G(^            IBA(355.92,IBDA,0)),U,4)) IBCEP9 5+3        S DIR(0)="355.9,.04r",DIR("B")="BOTH UB92 AND HCFA 1500 FORMS" IBCEPTC EN+3       ; IBFORM = form type to limit selection to U=UB92,H=HCFA 1500,B=BOTH Q2         S DIR(0)="SA^H:HCFA 1500;U:UB92;B:Both",DIR("B")="Both" IBCEQ1A RPTOUT+24  ... D WRT(1,"  "_$E($P("BOTH^UB92^HCFA 1500",U,$P(IBX,U,4)+1)_$J(""            ,9),1,9)_"  "_$E($P(IBX,U,15)_$J("",23),1,23)_" "_$E(IBPNM_$J("",28) ,1,28)_" "_$E(IBPNUM,1,11)) HDR1+37    .. S Z0="*"_$J("",13)_"APPLIED TO A HCFA 1500 FORM TYPE." D WRT(1,Z0           _$J("",78-$L(Z0))_"*",IBCONT) IBCEU PRVOK+10   ;  OUTPATIENT/HCFA 1500 : RENDERING(3), SUPERVISING(5) PRVOK+11   ;  INPATIENT/HCFA 1500  : RENDERING(3), SUPERVISING(5) PRVOK+18   S IBUB92=($$FT^IBCEF(IBIFN)=3) ; 1 if UB-92 ; 0 if HCFA 1500 NEEDPRV+19. ; if a HCFA 1500 bill, rendering is required PSRV+3     D F^IBCEF("N-HCFA 1500 PROCEDURES",,,IBIFN) IBCEU0 PREOBTOT+6 ; Form Type 2=HCFA 1500; 3=UB92 PREOBTOT+9 ; For bills w/HCFA 1500 Form Type, total up Pt Resp amount from top IBCEU3 IBCEU3     ;ALB/TMP - EDI UTILITIES FOR HCFA 1500 ;30-NOV-99 BOX19(IBIFN) ; Returns the text that should print in box 19 of the HCFA 1500 NPRT       K IBXDATA D F^IBCEF("N-HCFA 1500 BOX 19 RAW DATA",,,IBIFN) ASK19(IBIFN) ; Ask to display HCFA 1500 box 19 data for current IBIFN ASK19+2    S DIR(0)="YA",DIR("B")="NO",DIR("A")="DISPLAY THE FULL HCFA 1500 BOX             19?: " MCR24K(IBIFN) ;Function returns MEDICARE id# for professional (HCFA 1500) box 24 k for bill IBIFN if appropriate IBCEU4 BOX82NM+12. I Z=4,$$FT^IBCEF(IBIFN)=2 S Z=3   ; Find rendering for HCFA 1500 IBCEU5 IBCEU5     ;ALB/TMP - EDI UTILITIES (continued) FOR HCFA 1500 ;13-DEC-99 FTPRV(IBIFN,NOASK) ; If form type changes from UB92 to HCFA 1500 or vice FTPRV+2    ; form type (ATTENDING = UB92, RENDERING = HCFA 1500) SPECIFIC+4 W !,"This bill is ",$S(IBFT=3:"UB-92",1:"HCFA 1500"),"/",$S($$INPAT^            IBCEF(IBIFN):"Inpatient",1:"Outpatient") HLPTXT+4   ;;RENDERING: HCFA 1500 (both inpatient and outpatient): REQUIRED HLPTXT+6   ;;           Data will appear in form locator 24 of the HCFA 1500. HLPTXT+8   ;;    NOTE: There can be only one rendering provider per HCFA 1500 HLPTXT+9   ;;          claim form, so there may be multiple HCFA 1500's for a HLPTXT+11   ;;          than one provider. For example, there will be 2 HCFA 15 00's HLPTXT+14  ;;          would be the rendering provider on the HCFA 1500 that HLPTXT+16  ;;          would be the rendering provider on the HCFA 1500 that HLPTXT+41  ;;    NOTE: Not applicable for HCFA 1500 form type as this would be HLPTXT+43   ;;                             the HCFA 1500. HLPTXT+54  ;;REFERRING: HCFA 1500 (both inpatient and outpatient): OPTIONAL HLPTXT+57  ;;           the HCFA 1500. HLPTXT+60  ;;SUPERVISING: HCFA 1500 (both inpatient and outpatient): OPTIONAL INSFT(IBIFN) ; Returns 1 if form type is UB92, 0 if HCFA 1500 IBCF IBCF       ;ALB/RLW - task HCFA 1500 ;12-JUN-92 EN5        ;queue HCFA 1500 Rx Addendum to Follow-up (AR) printer, IBIFN must b            e defined - no longer used IBCF2 IBCF2      ;ALB/ARH - HCFA 1500 19-90 DATA (gather demographics) ;12-JUN-93 EN         ;begin gathering data for printing of HCFA 1500 NAME31+1   ;   formatted to print in Box 31 on the HCFA 1500. Max length is 21 DATE31(IBDT,IBIFN) ; Returns date to print in box 31 of HCFA 1500 IBCF21 IBCF21     ;ALB/ARH - HCFA 1500 19-90 DATA (gather insurance, cc) ;12-JUN-93 IBCF22 IBCF22     ;ALB/ARH - HCFA 1500 19-90 DATA (gather other data) ;12-JUN-93 EVENT+1    ;   HCFA 1500 IBCF23 IBCF23     ;ALB/ARH - HCFA 1500 19-90 DATA (block 24, procs and charges) ;12-JU N-93 IBCF23A IBCF23A    ;ALB/ARH - HCFA 1500 19-90 DATA - Split from IBCF23 ;12-JUN-93 PRC        ; Extract procedure data for HCFA 1500 IBCF2P IBCF2P     ;ALB/ARH - PRINT HCFA 1500 12-90 FORM ; 17-JUL-93 IBCF2TP IBCF2TP    ;ALB/RLW - HCFA 1500 12-90 TEST PATTERN ; 1-JAN-92 ZIS+5      I $D(IO("Q")) K IO("Q") S ZTRTN="PRINT^IBCF2TP",ZTDESC="IB - TEST HC            FA 1500 PRINT" D ^%ZTLOAD K ZTSK D HOME^%ZIS G Q IBCFP IBCFP+7    I +$P(IBPAR1,U,22),$P($G(^IBE(353,+$$FNT^IBCU3("HCFA 1500"),0)),U,2) ="" W !,"Default printer in billing not defined for the HCFA 1500, n           one will print!",! IBCFP1 SORT       ;sort authorized bills by form type and requested sort order (notice             bill addendums only print for HCFA 1500's) SORT+15. ; Print Bill Addendums only for HCFA 1500's SORT+16. I $$FTN^IBCU3(XIBFT)'["HCFA 1500" Q IBCIADD1 INIT1+29   D F^IBCEF("N-HCFA 1500 SERVICES (PRINT)",,,IBIFN) IBCISC 0+4        ; Check the bill form type to make sure it's a HCFA 1500. 0+6        . W !!?5,"ClaimsManager is only available for HCFA 1500 claims." IBCIUT1 CM+2       ; sure CM is running and that the bill is a HCFA 1500 form type bill . CK1(IBIFN) ;checks to see if it's a HCFA 1500 claim form CK1+1      ;returns 0 if HCFA 1500, returns 1 if any other form type LITMS+3    D F^IBCEF("N-HCFA 1500 SERVICES (PRINT)",,,IBIFN) DIAG+6     D F^IBCEF("N-HCFA 1500 SERVICES (PRINT)",,,IBIFN) IBCIUT4 SNTMSG+8   I IBCISNT=7 S IBCISMG="to delete the lines on this bill which is no            longer a HCFA 1500." IBCRBC1 RX+4       ; - on HCFA 1500, the site parameter Default Rx Refill CPT (350.9,1.            3) is added as the CPT to all Rx RC entries IBCSC8H IBCSC8H    ;ALB/ARH - MCCR SCREEN 8 (BILL SPECIFIC INFO) HCFA 1500 ;4/21/92 IBCSC8H+3  ; HCFA 1500 screen 8 IBCSCH M+8        I $$FT^IBCEF(IBIFN)=2 W !,?5,"Enter '?HCFA' to view how block 24 wil            l print on a HCFA 1500." BL24(IBIFN,IBNOSHOW) ; display block 24 of HCFA 1500 BL24+10    W @IOF,!,"Example of diagnoses, procedures and charges printing on t            he HCFA 1500" IBCU1 RVCPRC(IBIFN,IBD0) ; returns 1 if CHAMPVA rate type + 2 if HCFA 1500, 0 otherwis e IBCU7 ADDTNL+6   S DIR("B")="NO",DIR("A")="EDIT HCFA 1500 SPECIAL PROGRAM FIELDS and            BOX 19?: ",DIR("A",1)=" ",DIR(0)="YA" IBCU71 DISPDX     ;  - display diagnosis codes available for associated dx (HCFA 1500) NO LONGER USED? IBCVA1 ALLPROC+4  ;  IBPROC(prnt order,"AUX")="AUX" node of 'CP' entry for HCFA 1500 f            orms IBEPAR 4+5        W ?47,"HCFA 1500 Addr Col : " W $S($P(IBEPAR(1),U,27)]"":$P(IBEPAR(1            ),"^",27),1:IBU) IBJPS2 BLD2+27    S IBLN=$$SET("HCFA 1500 Addr Col",$P(IBPD1,U,27),IBLN,IBLR,IBSEL) IBJTBA RX         ;RX refill info for HCFA 1500 TPJI display PROS       ;prosthetic info for HCFA 1500 TPJI display IBJTCA1 BLD+40. D F^IBCEF("N-HCFA 1500 BOX 19",,,IBIFN) IBXPAR2 1          S DW="1;27",DV="NJ2,0",DU="",DLB="HCFA 1500 ADDRESS COLUMN",DIFLD=1. 27 IBYOENV IBYOENV+17 F Z="N-BALANCE DUE","N-CURR INSURANCE CO STREET","N-CURR INSURANCE C            O CITY","N-CURR INSURANCE CO STATE","N-CURR INSURANCE CO ZIP CODE","            N-UB92 ADMISSION DATE","N-STATE CODE FOR ACCIDENT","N-HCFA 1500 BOX            19 (LINE 2)" D FAC1+26. S DIR("?",2)="the UB-92 in form locator 1 and in Box 33 of the HCF           A 1500." IBYOPOS1 ADDFORMS   ; Add the local forms for HCFA 1500 and UB92 if they don't ADDFORMS+3  ; HCFA 1500 and UB-92 ADDFORMS+10 .. S IBFORMNM=$S(IBFORM=2:"HCFA 1500",1:"UB-92") IBYOPRE ENT5+3     S Z1="N-BALANCE DUE^N-CURR INSURANCE CO STREET^N-CURR INSURANCE CO C            ITY^N-CURR INSURANCE CO STATE^N-CURR INSURANCE CO ZIP CODE^N-UB92 AD            MISSION DATE^N-STATE CODE FOR ACCIDENT^N-HCFA 1500 BOX 19 (LINE 2)^N            -SPACER FOR 81 COLUMN UB-92" ENT5+12    S DA=+$O(^IBA(364.5,"B","N-HCFA 1500 BOX 19 (LINE 1)",0)) ENT5+13    I DA S DIE="^IBA(364.5,",DR=".01////N-HCFA 1500 BOX 19;.08///@" D ^D            IE ENT5+25     S DA=+$O(^IBA(364.5,"B","N-HCFA 1500 EIN FLAG (BOX 25)",0)) IBYPPCC IBYPPCC     ;ALB/TMP - IB*2*52 POST INSTALL:  UPDATE HCFA 1500 ; 30-APR-1997 IBYSA IBYSA       ;ALB/ARH - IB*2.0*122 POST INIT:  HCFA 1500 DATE LENGTHS ; 10-OCT-19            98 POST+4      D HDATES ; update width of HCFA 1500 date fields HDATES      ; update width of HCFA 1500 date fields to 10 characters to accomoda            te 4 digit years HDATES+3    S IBA(1)="       Expand HCFA 1500 Date fields to 10 characters (364.            6)",IBA(2)=" " HDATES+32   D MSG(" "),MSG("       "_IBCNT_" HCFA 1500 date fields updated (364.            6)") IBYSB1 POSQ        S IBA(1)="      * "_$J(IBCNT,3)_"  HCFA 1500 Place of Service Codes            added (353.1)" ZIBCEU4 BOX82NM+9   . I Z=4,$$FT^IBCEF(IBIFN)=2 S Z=3 ; Find rendering for HCFA 1500 ZQ232A RPTOUT+25  ... D WRT(1,"  "_$E($P("BOTH^UB92^HCFA 1500",U,$P(IBX,U,4)+1)_$J(""            ,9),1,9)_"  "_$E($P(IBX,U,15)_$J("",23),1,23)_" "_$E(IBPNM_$J("",28) ,1,28)_" "_$E(IBPNUM,1,11)) HDR1+37    .. S Z0="*"_$J("",13)_"APPLIED TO A HCFA 1500 FORM TYPE." D WRT(1,Z0           _$J("",78-$L(Z0))_"*",IBCONT)