©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBCF3 ;ALB/BGA -UB92 HCFA-1450 (gather demographics) ;19-AUG-93
Source file <IBCF3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;This routine gathers demographics for printing of ub92 form.
|
|
| PAT | ; patient info
|
|
| 21 | ; discharge hour: ptf (45,70), non-va (399,16), 99
|
|
| 22 | ;
|
|
| 19 | ; type of admission if outpatient leave blank
|
|
| DATE(X) | ;returns date in form format MMDDYY
|
|
| DEV | ||
| TIME(X) | ;returns hour stripped from date
|
|
| Q | ||
| 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
|
|
| EXIT | ||
| 20 | ; source of admission
|
|
| DATEY(X) | ;returns date in form format MMDDYYYY
|
| 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+22, PAT+1, 22+4 |
| ^DGPT - [#45] | PAT+9, 21+1 |
| ^DIC(36 - [#36] | EN+8 |
| ^DIC(5 - [#5] | EN+14 |
| ^IBE(350.9 - [#350.9] | EN+12, EN+20 |
| ^TMP($J | EXIT! |
| Name | Line Occurrences |
|---|---|
| $$DATE | EN+23, PAT+11 |
| $$DATEY | PAT+4 |
| $$TIME | PAT+11, 21+2 |
| EN | DEV+5 |
| EXIT | EN+6 |
| Q | DEV+2, DEV+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %ZIS | DEV* |
| >> %ZIS("A" | DEV* |
| >> %ZIS("B" | DEV+1* |
| 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 | EXIT! |
| IBCBCOMM | EXIT! |
| IBCBILL | EN+6*, EN+17, EN+18, PAT+2, PAT+9, PAT+10, 21+1, 21+2, EXIT! |
| IBCINSN | EN+8*, EN+9, EXIT! |
| IBCU2 | EN+7*, EN+24, EXIT! |
| IBCUF3 | EN+7*, EN+15, EN+25, EXIT! |
| IBCUF31 | EN+7*, EXIT! |
| IBFL | EXIT! |
| IBFL( | SPLIT+4*, SPLIT+5*, SPLIT+6* |
| IBFL(0 | EN+9*, EN+10* |
| IBFL(1 | EN+13*, EN+14*, EN+16* |
| 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+18* |
| IBFL(5 | EN+20* |
| IBFL(6 | EN+23* |
| IBFL(7 | EN+24* |
| IBFL(8 | EN+24* |
| IBI | EXIT! |
| >> IBIFN | DEV+1, EN+6, EN+7, EN+8, EN+22, PAT+1, 22+4, 22+5 |
| IBINPAT | PAT+9*, 19+1, 20+1, 21+1, EXIT! |
| IBJ | EXIT! |
| IBMAIL1 | EXIT! |
| IBPG | EXIT! |
| IBPMAILN | PAT+1*, EXIT! |
| >> IBPNT | EN+4*, EN+10 |
| IBSIGN | EN+20*, EXIT! |
| IBSTATE | EN+22*, EN+23, 19+1, 20+1, EXIT! |
| IBX | EN+12*, EN+13, EN+14, EN+15*, EN+16, EN+25*, PAT+6*, PAT+7, PAT+9*, PAT+10* , PAT+11, 21+1*, 21+2*, EXIT!, SPLIT+3~ |
| IBY | EXIT! |
| IBYY | 22+4*! |
| IO | DEV+5 |
| IO("Q" | DEV+3! |
| LINES | SPLIT~, SPLIT+3, SPLIT+4, SPLIT+5, SPLIT+6 |
| MAXCH | SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5, SPLIT+6 |
| >> POP | DEV+2 |
| STRG | SPLIT~, SPLIT+3*, SPLIT+4, SPLIT+5*, SPLIT+6* |
| U | EN+8, EN+9, EN+13, EN+14, EN+15, EN+16, EN+17, EN+18, EN+20, EN+23 , EN+24, EN+25, 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+3* |
| >> ZTQUEUED | Q |
| >> ZTRTN | DEV+3* |
| >> ZTSAVE("DFN" | DEV+3* |
| >> ZTSAVE("DG*" | DEV+3* |
| >> ZTSAVE("IB*" | DEV+3* |