Routine: IBDFDE2

Information

IBDFDE2 ;ALB/AAS - AICS Data Entry, process selection lists ; 24-FEB-96

Source Information

Source file <IBDFDE2.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Automated Information Collection System	7	^IBDFDE ($$OTHER,$$PARTLST,DEFAULT,SEL)^IBDFDE21 (CHK,RULES)^IBDFDE22 MULT^IBDFDE4 COMPLST^IBDFDE5 OBJLST^IBDFRPC1 $$PRDEF^IBDFRPC3
Kernel	2	ENDR^%ZISS $$UP^XLFSTR
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Automated Information Collection System	3	IBDFDE21 IBDFDE22 IBDFDE41

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Required variables not defined for this list:",!,"Form =",$G(IBDFMIEN),!,"Interface = ",$G(IBDF("PI")),!,"List = ",$G(IBDF("IEN")) Line Location: LIST+25
Function Call: WRITE	Prompt: !!,IOINHI,"Using Default Provider: ",IOINORM Line Location: OVER+18
Function Call: WRITE	Prompt: " Deleted!" Line Location: OVER+29
Function Call: WRITE	Prompt: $E(X,$L(GOTO)+1,$L(X)) Line Location: OVER+35
Function Call: WRITE	Prompt: " ?? ",$C(7),"Not Found" Line Location: OVER+74
Routine Call	DIR Line Location: OVER+26

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

Local Variables

Legend:

>>	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

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: