IBDFDE2 ;ALB/AAS - AICS Data Entry, process selection lists ; 24-FEB-96
Source file <IBDFDE2.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Automated Information Collection System | 3 | IBDFDE21 IBDFDE22 IBDFDE41 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CHOICE(I) | ; -- return ^tmp(ibd-lst,ibdfmien,ibdf(pi),ibdf(ien),i) | |
| VSTQ | ; -- kill array for dynamic lists | |
| OVER | ; -- ask or re-ask for selection(s) from list | |
| LIST(RESULT,IBDF,IBDASK) | ; -- Procedure ; -- Manual Data entry routine for Visit Type input ; Input : Result := call by reference, used to output results ; IBDF("IEN") := pointer to selection list (357.2) ; IBDF("PI") := pointer to input package interface ; IBDF("DFN") := pointer to patient (required for dynamic lists only) ; IBDF("CLINIC") := pointer to hospital location (required for dyamic lists only) | |
| VSTOVER | 
| Name | Field # of Occurrence | 
|---|---|
| ENDR^%ZISS | LIST+20 | 
| ^DIR | OVER+26 | 
| ^IBDFDE | % | 
| $$OTHER^IBDFDE21 | OVER+73, VSTOVER+1 | 
| $$PARTLST^IBDFDE21 | OVER+47, OVER+53, OVER+54, OVER+63, OVER+68, OVER+69 | 
| DEFAULT^IBDFDE21 | LIST+40 | 
| SEL^IBDFDE21 | OVER+15, OVER+41, OVER+44, OVER+45, OVER+51, OVER+60, OVER+61, OVER+66, OVER+73, VSTOVER+1 | 
| CHK^IBDFDE22 | LIST+37, OVER+15, OVER+30, OVER+41, OVER+44, OVER+45, OVER+51, OVER+60, OVER+61, OVER+66 , OVER+73, VSTOVER+1 | 
| RULES^IBDFDE22 | LIST+35 | 
| MULT^IBDFDE4 | LIST+22 | 
| COMPLST^IBDFDE5 | LIST+28 | 
| OBJLST^IBDFRPC1 | LIST+28 | 
| $$PRDEF^IBDFRPC3 | OVER+18, OVER+21 | 
| $$UP^XLFSTR | LIST+30, OVER+28, OVER+32 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^IBE(357.6 - [#357.6] | VSTQ+1 | 
| ^TMP("IB" | VSTQ+2! | 
| ^TMP("IBD-ASK" | LIST+30*, OVER+34, OVER+35 | 
| ^TMP("IBD-LCODE" | VSTQ+1! | 
| ^TMP("IBD-LST" | CHOICE+1, VSTQ+1! | 
| ^TMP("IBD-LTEXT" | VSTQ+1! | 
| ^TMP("IBD-PI-CNT" | OVER+25 | 
| Name | Line Occurrences | 
|---|---|
| $$CHOICE | LIST+28, LIST+32, OVER+18, OVER+21 | 
| OVER | OVER+74, VSTOVER | 
| VSTOVER | OVER+15, OVER+30, OVER+31, OVER+41, OVER+44, OVER+45, OVER+51, OVER+60, OVER+61, OVER+66 , OVER+73 | 
| VSTQ | LIST+22, LIST+25, LIST+32, LIST+37, OVER+37 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| ANS | LIST+19~, LIST+21*, LIST+37*, OVER+18*, OVER+28*, OVER+29, OVER+30, OVER+31, OVER+32, OVER+41 , OVER+44, OVER+45, OVER+47, OVER+50, OVER+60, OVER+61, OVER+63, OVER+66, OVER+67, OVER+68 , OVER+69, OVER+70, OVER+73, OVER+74 | 
| >> ANS1 | OVER+50*, OVER+51, OVER+52, OVER+53, OVER+54, OVER+55 | 
| ARRAY | LIST+19~, OVER+43*, OVER+44, OVER+45, OVER+47, OVER+51, OVER+53, OVER+54, OVER+56, OVER+59* , OVER+60, OVER+61, OVER+63, OVER+66, OVER+68, OVER+69, OVER+71 | 
| ASKOTHER | VSTOVER+1, VSTQ+3! | 
| CHOICE | LIST+19~ | 
| CNTH | LIST+19~, OVER+2*, OVER+3*, OVER+4*, OVER+5*, OVER+6*, OVER+8* | 
| CODE | LIST+19~ | 
| DA | LIST+19~ | 
| DIC | LIST+19~ | 
| DIE | LIST+19~ | 
| DIR | LIST+19~, OVER+26! | 
| DIR("?" | OVER+3*, OVER+4*, OVER+5*, OVER+6*, OVER+8*, OVER+9*, OVER+10* | 
| DIR("??" | OVER+12* | 
| DIR("A" | OVER+24*, OVER+25* | 
| DIR("B" | OVER+21* | 
| DIR(0 | OVER+23* | 
| DIRUT | LIST+19~, OVER+29, OVER+37 | 
| DISPTXT | LIST+19~ | 
| DR | LIST+19~ | 
| DTOUT | LIST+19~ | 
| DUOUT | LIST+19~ | 
| >> GOTO | OVER+32*, OVER+33, OVER+34, OVER+35 | 
| HDR | LIST+19~ | 
| I | CHOICE~, CHOICE+1, LIST+19~, OVER+2*, OVER+3, OVER+4, OVER+5, OVER+6 | 
| IBDASK | LIST~, LIST+30, OVER+3, OVER+4, OVER+5, OVER+6, OVER+24 | 
| IBDEFLT | LIST+19~ | 
| IBDEFLT( | OVER+27, OVER+29 | 
| IBDF | LIST~, LIST+22, LIST+28 | 
| IBDF("CLINIC" | OVER+18, OVER+21 | 
| IBDF("DYNAMIC" | VSTQ+1* | 
| IBDF("GOTO" | OVER+35* | 
| IBDF("IBDF" | LIST+30 | 
| IBDF("IEN" | CHOICE+1, LIST+25, LIST+27 | 
| IBDF("OTHER" | OVER+10, VSTQ+3! | 
| IBDF("PAGE" | OVER+25 | 
| IBDF("PI" | CHOICE+1, LIST+25, LIST+27, LIST+32, LIST+40, OVER+15, OVER+18, OVER+20, OVER+25, OVER+27 , OVER+29, VSTQ+1 | 
| IBDF("PROVIDE | R PI" , LIST+32, OVER+15, OVER+19, VSTQ+1 | 
| IBDF("PROVIDER" | OVER+17 | 
| IBDF("TYPE" | LIST+22 | 
| >> IBDFMIEN | CHOICE+1, LIST+25, LIST+27, LIST+30, OVER+34, OVER+35, VSTQ+1 | 
| IBDP | LIST+19~ | 
| >> IBDPI( | LIST+40, OVER+18, OVER+20, OVER+29! | 
| IBDREDIT | LIST+37~, OVER+18, OVER+35* | 
| >> IBDSEL( | OVER+29! | 
| >> IBQUIT | LIST+21*, OVER+36*, OVER+37* | 
| IOINHI | LIST+19~, OVER+3, OVER+4, OVER+5, OVER+6, OVER+18 | 
| IOINORM | LIST+19~, OVER+3, OVER+4, OVER+5, OVER+6, OVER+18 | 
| J | LIST+19~ | 
| NEXT | LIST+19~, OVER+51*, OVER+52, OVER+53, OVER+54, OVER+55, OVER+56, OVER+66*, OVER+67, OVER+68 , OVER+69, OVER+70, OVER+71 | 
| NEXT1 | LIST+19~, OVER+54*, OVER+69* | 
| NUMBER | LIST+19~ | 
| NUMBER( | OVER+41 | 
| OVER | LIST+19~, LIST+37, OVER+1*, OVER+33*, VSTOVER | 
| PICK | LIST+19~ | 
| QLFR | LIST+19~ | 
| QLFR( | OVER+3, OVER+4, OVER+5, OVER+6 | 
| RESULT | LIST~, LIST+22 | 
| ROW | LIST+19~ | 
| RULE | LIST+19~ | 
| RULE( | OVER+2, OVER+3, OVER+4, OVER+5, OVER+6 | 
| >> SEL | OVER+73*, VSTOVER+1* | 
| SELAST | LIST+19~, OVER+29, VSTOVER! | 
| SELECT | LIST+19~, OVER+15, OVER+16*, OVER+18*, OVER+38*, OVER+41*, OVER+44*, OVER+45, OVER+47*, OVER+51 , OVER+53*, OVER+54*, OVER+56*, OVER+60*, OVER+61, OVER+63*, OVER+66, OVER+68*, OVER+69*, OVER+71* | 
| TEXT | LIST+19~ | 
| TEXTU | LIST+19~ | 
| VAR | LIST+19~, LIST+27*, LIST+28 | 
| X | LIST+19~, LIST+20*, OVER+34*, OVER+35 | 
| Y | LIST+19~, OVER+27*, OVER+28 |