IBTUTL1 ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ;21-JUN-93
Source file <IBTUTL1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPT(DFN,IBETYP,IBTDT,ENCTR,IBRMARK,IBVSIT) | ; -- add outpatient care entries
; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date ; enctr := pointer to opt. encounter file (optional) ; ibrmark := text of reason not billable (optional) ; ibvsit := pointer to visit file (optional) |
|
| OPTQ | ||
| REFILL(DFN,IBETYP,IBTDT,IBRXN,IBRXN1,IBRMARK,IBEABD,IBSCROI) | ; -- add refill
; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date (refill date) ; ibrxn := pointer to 52 ; ibrxn1 := refill multiple entry ; ibrmark := non billable reason if unsure ; ibeabd := optional, can specify an earliest auto bill date ; ibscroi := special consent roi |
|
| REFILLQ | ||
| PRO(DFN,IBTDT,IBPRO,IBRMARK) | ; -- add prosthetic entries
; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date |
|
| PROQ | ||
| PT(DFN) | ; -- format patient name - last 4 for output
|
|
| PTQ | ||
| PRODATA(IBDA) | ; -- return data from prosthetics file
|
|
| DIQ | ||
| PRODAQ | ||
| OPTSCRN | ; -- add outpatient care entries with user feedback
; called from OPT^IBTUTL1 which has following inputs ; -- input dfn := patient pointer to 2 ; ibetyp := pointer to type entry in 356.6 ; ibtdt := episode date ; enctr := pointer to opt. encounter file (optional) ; ibrmark := text of reason not billable (optional) ; ibvsit := pointer to visit file (optional) |
|
| OPTSCRNQ |
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | OPTSCRN+17 |
| MSG^DIALOG | OPTSCRN+37, OPTSCRN+69 |
| FIND^DIC | OPTSCRN+53 |
| ^DIE | OPT+25, REFILL+20, PRO+15, OPTSCRN+87 |
| EN^DIQ1 | DIQ+2 |
| ^DIR | OPTSCRN+42, OPTSCRN+74 |
| $$INSURED^IBCNS1 | OPT+23, REFILL+17, PRO+13, OPTSCRN+85 |
| $$EABD^IBTUTL | OPT+23, REFILL+17, PRO+13, OPTSCRN+85 |
| $$FNDHCSR^IBTUTL | OPT+27 |
| ADDT^IBTUTL | OPT+19, REFILL+13, PRO+9, OPTSCRN+81 |
| HCSRCPY^IBTUTL | OPT+27 |
| PID^VADPT | PT+2 |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^SCE - [#409.68] | FIND^DIC |
| ^RMPR(660 - [#660] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PT+3, OPTSCRN+28 |
| ^IBE(356.6 - [#356.6] | OPT+15, PRO+7, OPTSCRN+13, OPTSCRN+31 |
| ^IBT(356 - [#356] | OPT+16, OPT+18, OPT+22, OPT+26, REFILL+12, REFILL+16, REFILL+21, PRO+8, PRO+12, PRO+16 , OPTSCRN+12, OPTSCRN+15, OPTSCRN+25, OPTSCRN+26, OPTSCRN+78, OPTSCRN+84, OPTSCRN+88 |
| ^RMPR(660 - [#660] | PRODATA+4 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PT+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | OPTSCRN+9~, OPTSCRN+16*, OPTSCRN+32, OPTSCRN+33*, OPTSCRN+35, OPTSCRN+36, OPTSCRN+38, OPTSCRN+41, OPTSCRN+47~, OPTSCRN+55* , OPTSCRN+70, OPTSCRN+73 |
| DA | OPT+8~, OPT+20*, OPT+25!, REFILL+10~, REFILL+15*, REFILL+20!, PRO+5~, PRO+11*, PRO+15!, PRODATA+1~ , DIQ+1*, OPTSCRN+82*, OPTSCRN+87! |
| DFN | OPT~, OPT+16, OPT+18, OPT+23, OPT+27, REFILL~, REFILL+17, PRO~, PRO+13, PT~ , PT+1, PT+3, OPTSCRN+12, OPTSCRN+15, OPTSCRN+25, OPTSCRN+28, OPTSCRN+50, OPTSCRN+78, OPTSCRN+85 |
| DIC | OPT+8~, REFILL+10~, PRO+5~, PRODATA+1~, DIQ* |
| DIE | OPT+8~, OPT+20*, OPT+25!, REFILL+10~, REFILL+15*, REFILL+20!, PRO+5~, PRO+11*, PRO+15!, PRODATA+1~ , OPTSCRN+82*, OPTSCRN+87! |
| DIOUT | OPTSCRN+48~ |
| >> DIQ | DIQ+1* |
| >> DIQ(0 | DIQ+1* |
| DIR | OPTSCRN+9~, OPTSCRN+47~ |
| DIR("?" | OPTSCRN+40*, OPTSCRN+41*, OPTSCRN+72*, OPTSCRN+73* |
| DIR("A" | OPTSCRN+39*, OPTSCRN+71* |
| DIR(0 | OPTSCRN+38*, OPTSCRN+70* |
| DIROUT | OPTSCRN+9~, OPTSCRN+43, OPTSCRN+48~, OPTSCRN+75 |
| DIRUT | OPTSCRN+9~, OPTSCRN+43, OPTSCRN+75 |
| DR | OPT+8~, OPT+23*, OPT+24*, OPT+25!, REFILL+10~, REFILL+17*, REFILL+18*, REFILL+19*, REFILL+20!, PRO+5~ , PRO+13*, PRO+14*, PRO+15!, PRODATA+1~, DIQ*, OPTSCRN+85*, OPTSCRN+86*, OPTSCRN+87! |
| DTOUT | OPTSCRN+9~, OPTSCRN+43, OPTSCRN+48~, OPTSCRN+75 |
| DUOUT | OPTSCRN+9~, OPTSCRN+43, OPTSCRN+48~, OPTSCRN+75 |
| DUZ | OPT+23, REFILL+17, PRO+13, OPTSCRN+85 |
| ENCTR | OPT~, OPT+18, OPT+23, OPTSCRN+12*, OPTSCRN+44*, OPTSCRN+46, OPTSCRN+54*, OPTSCRN+77*, OPTSCRN+78, OPTSCRN+85 |
| >> HCSRIEN | OPT+27* |
| IB3560 | OPTSCRN+9~, OPTSCRN+26*, OPTSCRN+27, OPTSCRN+29, OPTSCRN+30 |
| IBACT | OPTSCRN+9~, OPTSCRN+30*, OPTSCRN+32 |
| IBDA | PRODATA~, PRODATA+3, PRODATA+4, DIQ+1 |
| IBDA0 | PRODATA+1~, PRODATA+4*, PRODATA+5 |
| IBDATA | OPTSCRN+47~, OPTSCRN+66*, OPTSCRN+67 |
| IBDATA1 | OPTSCRN+47~, OPTSCRN+64*, OPTSCRN+66 |
| IBDATA2 | OPTSCRN+47~, OPTSCRN+65*, OPTSCRN+66 |
| IBDATE | OPTSCRN+9~, OPTSCRN+17*, OPTSCRN+32 |
| >> IBDUZ | REFILL+17 |
| IBEABD | REFILL~, REFILL+17 |
| IBENC | OPTSCRN+9~, OPTSCRN+29*, OPTSCRN+32, OPTSCRN+33 |
| IBERR | OPTSCRN+47~, OPTSCRN+52*, OPTSCRN+53 |
| IBETYP | OPT~, OPT+15*, OPT+16, OPT+23, OPT+27, REFILL~, REFILL+17, PRO+5~, PRO+7*, PRO+13 , OPTSCRN+13*, OPTSCRN+15, OPTSCRN+25, OPTSCRN+31, OPTSCRN+85 |
| IBETYPNM | OPTSCRN+9~, OPTSCRN+31*, OPTSCRN+32 |
| IBID | OPTSCRN+10~, OPTSCRN+27*, OPTSCRN+32 |
| IBMSG | OPTSCRN+47~, OPTSCRN+51*, OPTSCRN+53 |
| IBPATNM | OPTSCRN+10~, OPTSCRN+28*, OPTSCRN+32 |
| IBPRO | PRO~, PRO+8, PRO+13 |
| IBQUIT | OPTSCRN+10~, OPTSCRN+14*, OPTSCRN+43*, OPTSCRN+45, OPTSCRN+75*, OPTSCRN+79 |
| IBRMARK | OPT~, OPT+24, REFILL~, REFILL+18, PRO~, PRO+14, OPTSCRN+86 |
| IBRMPR | PRODATA+2! |
| IBRXN | REFILL~, REFILL+12, REFILL+17 |
| IBRXN1 | REFILL~, REFILL+12, REFILL+17 |
| IBSCRN | OPT+8~, OPT+9*, OPT+11, OPT+14*, OPTSCRN+47~, OPTSCRN+50*, OPTSCRN+53 |
| IBSCROI | REFILL~, REFILL+19 |
| >> IBTALK | OPT+12 |
| IBTDT | OPT~, OPT+13, OPT+16, OPT+23, OPT+27, REFILL~, REFILL+17, PRO~, PRO+13, OPTSCRN+15 , OPTSCRN+17, OPTSCRN+25, OPTSCRN+49, OPTSCRN+64, OPTSCRN+65, OPTSCRN+85 |
| IBTMP | OPTSCRN+47~ |
| IBTMP("ENC" | OPTSCRN+54, OPTSCRN+55, OPTSCRN+62, OPTSCRN+64, OPTSCRN+65, OPTSCRN+68, OPTSCRN+77 |
| >> IBTRN | OPT+16*, OPT+18*, OPT+20, OPT+21, OPT+22, OPT+26, OPT+27, REFILL+12*, REFILL+14, REFILL+15 , REFILL+16, REFILL+21, PRO+8*, PRO+10, PRO+11, PRO+12, PRO+16, OPTSCRN+15*, OPTSCRN+78*, OPTSCRN+80 , OPTSCRN+82, OPTSCRN+83, OPTSCRN+84, OPTSCRN+88 |
| IBVSIT | OPT~, OPT+23, OPTSCRN+85 |
| LINE | OPTSCRN+10~, OPTSCRN+16*, OPTSCRN+18*, OPTSCRN+19*, OPTSCRN+20*, OPTSCRN+21*, OPTSCRN+22*, OPTSCRN+23*, OPTSCRN+24*, OPTSCRN+32 , OPTSCRN+34*, OPTSCRN+36, OPTSCRN+47~, OPTSCRN+56*, OPTSCRN+57*, OPTSCRN+58*, OPTSCRN+59*, OPTSCRN+60*, OPTSCRN+61*, OPTSCRN+63* , OPTSCRN+67, OPTSCRN+68 |
| TEMP | OPTSCRN+10~, OPTSCRN+16* |
| TEMP( | OPTSCRN+33*, OPTSCRN+44 |
| TMP | OPTSCRN+10~, OPTSCRN+16*, OPTSCRN+47~ |
| TMP("DIMSG" | OPTSCRN+18*, OPTSCRN+19*, OPTSCRN+20*, OPTSCRN+21*, OPTSCRN+22*, OPTSCRN+23*, OPTSCRN+24*, OPTSCRN+32*, OPTSCRN+36*, OPTSCRN+57* , OPTSCRN+58*, OPTSCRN+59*, OPTSCRN+60*, OPTSCRN+61*, OPTSCRN+67*, OPTSCRN+68* |
| U | OPTSCRN+27, OPTSCRN+28, OPTSCRN+29, OPTSCRN+30, OPTSCRN+31, OPTSCRN+44 |
| >> VA("BID" | PT+3 |
| >> VA("PID" | PT+2 |
| X | OPT+8~, OPT+16*, REFILL+10~, REFILL+12*, PRO+5~, PRO+8*, OPTSCRN+15, OPTSCRN+16*, OPTSCRN+25*, OPTSCRN+26 , OPTSCRN+33, OPTSCRN+44*, OPTSCRN+47~, OPTSCRN+53, OPTSCRN+56*, OPTSCRN+62*, OPTSCRN+64, OPTSCRN+65, OPTSCRN+67 |
| X(1 | OPTSCRN+49* |
| Y | OPT+8~, REFILL+10~, PRO+5~, PT+1*, PT+3*, PTQ, OPTSCRN+17*, OPTSCRN+44, OPTSCRN+76, OPTSCRN+77 |
| >> ZTQUEUED | OPT+11 |
