IBDFDE2 ;ALB/AAS - AICS Data Entry, process selection lists ;02/24/96
Source file <IBDFDE2.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 |
---|---|---|
Automated Information Collection System | 4 | IBDFDE21 IBDFDE22 IBDFDE41 ^IBE(357.6 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHOICE(I) | ; -- return ^tmp(ibd-lst,ibdfmien,ibdf(pi),ibdf(ien),i)
|
|
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 dynamic lists only) |
|
OVER | ; -- ask or re-ask for selection(s) from list
|
|
VSTOVER | ||
VSTQ | ; -- kill array for dynamic lists
|
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 |
>> | 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! |
>> IBDPTPRI | OVER+18 |
IBDREDIT | LIST+37~, OVER+18, OVER+35* |
>> IBDSEL( | OVER+29! |
IBNAQLFR | OVER+15!, OVER+18* |
>> 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 |