IBCF3 ;ALB/BGA -UB92 HCFA-1450 (gather demographics) ;19-AUG-93
Source file <IBCF3.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 |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 5 | IBCF3 IBCF31 IBCF32 IBCFP1 ^IBA(364.7 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DEV | ;
|
|
| Q | ||
| EN | ;This routine gathers demographics for printing of ub92 form.
|
|
| PAT | ; patient info
|
|
| 19 | ; type of admission if outpatient leave blank
|
|
| 20 | ; source of admission
|
|
| 21 | ; discharge hour: ptf (45,70), non-va (399,16), 99
|
|
| 22 | ;
|
|
| EXIT | ||
| DATE(X) | ;returns date in form format MMDDYY
|
|
| DATEY(X) | ;returns date in form format MMDDYYYY
|
|
| TIME(X) | ;returns hour stripped from date
|
|
| SPLIT(FLN,LINES,MAXCH,STRG) | ;sets the string broken into lines that will fit in the FL block, in IBFL(FLN,x)=strg where max x=LINES
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | DEV+10 |
| HOME^%ZIS | DEV+11 |
| ^%ZISC | Q |
| ^%ZTLOAD | DEV+11 |
| ^DIE | 22+4 |
| BSTAT^IBCDC | 22+5 |
| ENFMT^IBCF | DEV+4 |
| $$DATE^IBCF2 | DATE+1, DATEY+1 |
| SPLIT^IBCF3 | EN+16, EN+26 |
| ^IBCF31 | 22+1 |
| ^IBCF32 | 22+1 |
| ^IBCF33 | 22+1 |
| ^IBCF3P | 22+1 |
| $$BILLDEV^IBCU3 | DEV+9 |
| $$FTN^IBCU3 | DEV+2 |
| $$BN1^PRCAFN | EN+17 |
| DEM^VADPT | PAT+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | EN+6, EN+7, EN+8, EN+23, PAT+1, 22+4 |
| ^DGCR(399.1 - [#399.1] | EN+19 |
| ^DGPT - [#45] | PAT+9, 21+1 |
| ^DIC(36 - [#36] | EN+8 |
| ^DIC(5 - [#5] | EN+14 |
| ^IBE(350.9 - [#350.9] | EN+12, EN+21 |
| ^IBE(353 - [#353] | DEV+2 |
| ^TMP($J | EXIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV+8* |
| >> %ZIS("A" | DEV+8* |
| >> %ZIS("B" | DEV+9* |
| CNT | SPLIT+3~*, SPLIT+4*, SPLIT+5*, SPLIT+6* |
| DA | 22+4*! |
| >> DFN | PAT+2* |
| DIC | 22+4*! |
| DIE | 22+4*! |
| DR | 22+4*! |
| FLN | SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6 |
| IB | DEV+2, EXIT! |
| IBCBCOMM | EXIT! |
| IBCBILL | EN+6*, EN+19, PAT+2, PAT+9, PAT+10, 21+1, 21+2, EXIT! |
| IBCINSN | EN+8*, EN+9, EXIT! |
| IBCU2 | EN+7*, EN+25, EXIT! |
| IBCUF3 | EN+7*, EN+16, EN+26, EXIT! |
| IBCUF31 | EN+7*, EXIT! |
| IBF | DEV+1~, DEV+2*, DEV+3*, DEV+4 |
| IBFL | EXIT! |
| IBFL( | SPLIT+4*, SPLIT+5*, SPLIT+6* |
| IBFL(0 | EN+9*, EN+10* |
| IBFL(1 | EN+13*, EN+14*, EN+15* |
| IBFL(12 | PAT+3* |
| IBFL(13 | PAT+1* |
| IBFL(14 | PAT+4* |
| IBFL(15 | PAT+3* |
| IBFL(16 | PAT+7* |
| IBFL(17 | PAT+11* |
| IBFL(18 | PAT+11* |
| IBFL(19 | 19+1* |
| IBFL(20 | 20+1* |
| IBFL(21 | 21+1*, 21+2* |
| IBFL(3 | EN+17* |
| IBFL(4 | EN+19* |
| IBFL(5 | EN+21* |
| IBFL(6 | EN+24* |
| IBFL(7 | EN+25* |
| IBFL(8 | EN+25* |
| IBFT | DEV+2*, DEV+5! |
| IBI | EXIT! |
| >> IBIFN | DEV+4, DEV+9, EN+6, EN+7, EN+8, EN+17, EN+23, PAT+1, 22+4, 22+5 |
| IBINPAT | PAT+9*, 19+1, 20+1, 21+1, EXIT! |
| IBJ | EXIT! |
| IBMAIL1 | EXIT! |
| IBNOCHG | EXIT! |
| IBPG | EXIT! |
| IBPMAILN | PAT+1*, EXIT! |
| >> IBPNT | EN+4*, EN+10 |
| IBSIGN | EN+21*, EXIT! |
| IBSTATE | EN+23*, EN+24, 19+1, 20+1, EXIT! |
| IBX | EN+12*, EN+13, EN+14, EN+15, EN+16*, EN+26*, PAT+6*, PAT+7, PAT+9*, PAT+10* , PAT+11, 21+1*, 21+2*, EXIT!, SPLIT+3~ |
| >> IBXIEN | EXIT+1 |
| IBY | EXIT! |
| IBYY | 22+4*! |
| IO | DEV+13 |
| IO("Q" | DEV+11! |
| LINES | SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6 |
| MAXCH | SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5, SPLIT+6 |
| >> POP | DEV+10 |
| STRG | SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5*, SPLIT+6* |
| U | DEV+2, EN+8, EN+9, EN+13, EN+14, EN+15, EN+16, EN+19, EN+21, EN+24 , EN+25, EN+26, PAT+1, PAT+2, PAT+3, PAT+6, PAT+9, PAT+10, 19+1, 20+1 , 21+1, 21+2, 22+4 |
| VA | EXIT! |
| VADM | EXIT! |
| VADM(1 | PAT+3 |
| VADM(10 | PAT+6 |
| VADM(3 | PAT+4 |
| VADM(5 | PAT+3 |
| VAERR | EXIT! |
| X | EXIT!, DATE~, DATE+1, DATEY~, DATEY+1, TIME~, TIME+1*, TIME+2 |
| Y | EXIT! |
| >> ZTDESC | DEV+11* |
| >> ZTQUEUED | Q |
| >> ZTRTN | DEV+11* |
| >> ZTSAVE("DFN" | DEV+11* |
| >> ZTSAVE("DG*" | DEV+11* |
| >> ZTSAVE("IB*" | DEV+11* |
