©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
IBDFCMP ;ALB/MAF - AICS list of components on a form ; 29-JUL-96
Source file <IBDFCMP.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | EN^VALM ($$LOWER,$$SETSTR,FULL,PAUSE)^VALM1 CNTRL^VALM10 EN^VALM2 |
| Kernel | 3 | HOME^%ZIS ^%ZISC DISP^XQORM1 |
| VA Fileman | 3 | DT^DICRW EN^DIQ ^DIR |
| Automated Information Collection System | 1 | FRMLSTI^IBDFRPC |
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDF EF FORM COMPONENTS IBDFCMP1 |
| Integrated Billing | 1 | IBDF EF FORM COMPONENTS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TMP | ; -- Set up Array
|
|
| LISTOB | ; -- list items available for input on a form
|
|
| END | ||
| HELP | ; -- help code
|
|
| NUL | ; -- NULL MESSAGE
|
|
| HDR | ; -- print patient header
|
|
| START | ||
| INIT | ;
|
|
| EXIT | ; -- exit code
|
|
| STRTQ | ||
| INIT1 | ||
| EXP | ; -- Expand Action
|
|
| DQ | ; -- entry point to list contents of one form,
; Input IBDFIFN := pointer to Encounter Form (357) |
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | %+2 |
| ^%ZISC | END+3 |
| DT^DICRW | %+1 |
| EN^DIQ | EXP+8 |
| ^DIR | %+8 |
| FRMLSTI^IBDFRPC | DQ+4 |
| EN^VALM | START |
| $$LOWER^VALM1 | LISTOB+23, LISTOB+26, LISTOB+29, LISTOB+32 |
| $$SETSTR^VALM1 | LISTOB+17, LISTOB+20, LISTOB+21, LISTOB+23, LISTOB+25, LISTOB+26, LISTOB+28, LISTOB+29, LISTOB+31, LISTOB+32 , LISTOB+34, HDR+4, HDR+7, HDR+10, HDR+14 |
| FULL^VALM1 | EXP+1 |
| PAUSE^VALM1 | EXP+8 |
| CNTRL^VALM10 | LISTOB+21 |
| EN^VALM2 | EXP+3 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(357.1 - [#357.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357 - [#357] | HDR+2, HDR+3, HDR+5, HDR+6, HDR+8, HDR+9, HDR+11, HDR+13 |
| ^IBE(357.1 - [#357.1] | LISTOB+8 |
| ^TMP("FORM-OBJ" | DQ+4*, DQ+5, LISTOB+3, LISTOB+4, EXIT+2!, END+2! |
| ^TMP("FORMIDX" | TMP+3*, EXIT+2!, NUL+1*, END+2! |
| ^TMP("FORMOBJ" | TMP+2*, EXIT+2!, NUL+1*, END+2! |
| Name | Line Occurrences |
|---|---|
| DQ | INIT1+1 |
| END | %+6, STRTQ |
| LISTOB | DQ+6 |
| NUL | DQ+5 |
| TMP | LISTOB+17, LISTOB+21, LISTOB+28, LISTOB+34 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CHOICE | END+1! |
| DA | %+8!, END+1!, EXP+8*, EXP+9! |
| DIC | %+8!, END+1!, EXP+8*, EXP+9! |
| DIE | END+1! |
| DIR | %~, %+8!, END+1! |
| DIR("?" | %+7* |
| DIR("A" | %+8* |
| DIR(0 | %+8* |
| DIRUT | %~, %+9, END+1! |
| DR | %+8!, END+1!, EXP+8*, EXP+9! |
| DT | %+1 |
| DTOUT | %~, END+1! |
| DUOUT | %~, END+1! |
| DUZ(0 | EXP+7 |
| I | %~, LISTOB+3*, LISTOB+4, END+1! |
| IBBLOCK | EXIT+1! |
| IBBLOCK( | LISTOB+22*, EXP+5 |
| IBDCAT | EXIT+1! |
| IBDCNT | INIT1*, LISTOB+22, TMP+1*, TMP+2, TMP+3, EXIT+1! |
| IBDCNT1 | INIT1*, LISTOB+16*, LISTOB+19, LISTOB+22, TMP+2, EXIT+1! |
| IBDCO | END+1! |
| IBDF | %~, EXIT+1!, END+1! |
| IBDF("BCOL" | LISTOB+7*, LISTOB+27 |
| IBDF("BLK" | LISTOB+8*, TMP+3 |
| IBDF("BNAME" | LISTOB+8*, LISTOB+21 |
| IBDF("BNODE" | LISTOB+8*, LISTOB+9, LISTOB+10, LISTOB+11 |
| IBDF("BROW" | LISTOB+7*, LISTOB+24 |
| IBDF("HT" | LISTOB+9*, LISTOB+33 |
| IBDF("IEN" | LISTOB+6* |
| IBDF("PI" | LISTOB+5* |
| IBDF("TKO" | LISTOB+11* |
| IBDF("TYPE" | LISTOB+5* |
| IBDF("VITAL" | LISTOB+6* |
| IBDF("WDTH" | LISTOB+10*, LISTOB+30 |
| IBDFALL | %~, DQ+4* |
| IBDFFLAG | LISTOB+12*, LISTOB+13, LISTOB+15*, EXIT+1! |
| IBDFIFN | %+10*, DQ+4, DQ+5, LISTOB+3, LISTOB+4, LISTOB+22, TMP+3, EXIT+1!, HDR+2, HDR+3 , HDR+5, HDR+6, HDR+8, HDR+9, HDR+11, HDR+13, END+1! |
| IBDFNODE | EXIT+1! |
| IBDFOBJ | EXIT+1! |
| IBDFOLDB | LISTOB+1~, LISTOB+2*, LISTOB+12, LISTOB+15* |
| IBDFSNOD | EXIT+1! |
| IBDNAME | EXIT+1! |
| IBDNME | EXIT+1! |
| IBDNODE | EXIT+1! |
| IBDNUM | EXIT+1! |
| IBDOBJ | DQ+4!, LISTOB+4*, LISTOB+5, LISTOB+6, LISTOB+7, LISTOB+8, LISTOB+12, LISTOB+15, LISTOB+22, EXIT+1! |
| IBDOBJ1 | EXIT+1! |
| IBDOJB | %~ |
| IBDPAG | %~, END+1! |
| IBDPDT | %~ |
| IBDPI | END+1! |
| IBDSEL | END+1! |
| IBDTYPE | EXIT+1! |
| IBDVAL | LISTOB+19*, LISTOB+20, LISTOB+24*, LISTOB+25, LISTOB+27*, LISTOB+28, LISTOB+30*, LISTOB+31, LISTOB+33*, LISTOB+34 , EXIT+1!, HDR+3*, HDR+4, HDR+6*, HDR+7, HDR+9*, HDR+10, HDR+13*, HDR+14 |
| IBFASTXT | EXIT+1! |
| IBQUIT | %~, STRTQ, DQ+3*, LISTOB+3, EXIT+1! |
| >> IOINHI | LISTOB+21 |
| >> IOINORM | LISTOB+21 |
| J | %~, END+1! |
| QLFR | %~ |
| RESULT | END+1! |
| RULE | %~ |
| TEXT | END+1! |
| TEXTU | END+1! |
| U | EXP+8 |
| VALMAT | EXP+2~, EXP+5*, EXP+7, EXP+8 |
| >> VALMBCK | %+9*, EXP+10* |
| VALMCNT | INIT1*, LISTOB+21, TMP+1*, TMP+2, TMP+3, EXIT+1! |
| VALMEVL | START! |
| >> VALMHDR(1 | HDR+4* |
| >> VALMHDR(2 | HDR+7* |
| >> VALMHDR(3 | HDR+10* |
| >> VALMHDR(4 | HDR+14* |
| VALMI | EXP+2~, EXP+3*, EXP+4*, EXP+5 |
| >> VALMQUIT | %+9* |
| VALMY | EXP+2~ |
| VALMY( | EXP+4 |
| X | %~, LISTOB+14*, LISTOB+17*, LISTOB+18*, LISTOB+20*, LISTOB+21*, LISTOB+23*, LISTOB+25*, LISTOB+26*, LISTOB+28* , LISTOB+29*, LISTOB+31*, LISTOB+32*, LISTOB+34*, TMP+2, HELP+1*, HDR+2*, HDR+4, HDR+5*, HDR+7 , HDR+8*, HDR+10, HDR+11*, HDR+12*, HDR+14, END+1! |
| >> XQORNOD(0 | EXP+3 |
| XQORS | START! |
| Y | %~, %+10, END+1! |
| >> ZTQUEUED | END |
| >> ZTREQ | END* |
| ZTSK | END+1! |