Routine: IBDFDE4

Information

IBDFDE4 ;ALB/AAS - AICS Manual Data Entry, process multiple choice fields ; 29-APR-96IOIN

Source Information

Source file <IBDFDE4.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Automated Information Collection System	5	^IBDFDE ($$PARTLST,SEL)^IBDFDE41 CHK^IBDFDE42 COMPLST^IBDFDE5 OBJLST^IBDFRPC1
Kernel	2	ENDR^%ZISS $$UP^XLFSTR
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFDE2

Entry Points

Name	Comments	DBIA/ICR reference
MULT(RESULT,IBDF)	; -- Procedure ; -- Manual Data entry routine for Multiple Choice Fields ; Input : Result := call by reference, used to output results ; IBDF("IEN") := pointer to hand print file (359.94) ; IBDF("PI") := pointer to input package interface ; IBDF("DFN") := pointer to patient ; IBDF("CLINIC") := pointer to hospital location
OVER	; -- ask or re-ask for selection(s) from list
ASKYNQ
ASKYN(DIR)	; -- input dir
TEST	;
MULTQ	;
MCOVER	;

External References

Name	Field # of Occurrence
ENDR^%ZISS	MULT+11
^DIR	OVER+14, ASKYN+2
^IBDFDE	%
$$PARTLST^IBDFDE41	OVER+37, OVER+42, OVER+43
SEL^IBDFDE41	OVER+30, OVER+34, OVER+35, OVER+40
CHK^IBDFDE42	OVER+18, OVER+30, OVER+34, OVER+35, OVER+40
COMPLST^IBDFDE5	MULT+17
OBJLST^IBDFRPC1	MULT+14
$$UP^XLFSTR	MULT+20, OVER+16, OVER+20, ASKYN+5, ASKYN+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Deleted!" Line Location: OVER+17
Function Call: WRITE	Prompt: $E(X,$L(GOTO)+1,$L(X)) Line Location: OVER+23
Function Call: WRITE	Prompt: " ?? ",$C(7),"Not Found" Line Location: OVER+47
Function Call: WRITE	Prompt: $E(X,$L(GOTO)+1,$L(X)) Line Location: ASKYN+11
Routine Call	DIR Line Location: OVER+14 ASKYN+2

Name	Line Occurrences (* Changed, ! Killed)
^TMP("IB"	MULTQ+4!
^TMP("IBD-ASK"	MULT+20*, OVER+22, OVER+23, ASKYN+9, ASKYN+11
^TMP("IBD-LCODE"	MULTQ+3!
^TMP("IBD-LST"	MULT+13, MULT+15*, MULT+18, MULT+19, MULT+21, MULTQ+1!
^TMP("IBD-LTEXT"	MULTQ+2!

Name	Line Occurrences
ASKYNQ	ASKYN+3, ASKYN+6, ASKYN+7
MCOVER	OVER+18, OVER+19, OVER+30, OVER+34, OVER+35, OVER+40
MULT	TEST+11
MULTQ	MULT+18, OVER+25
OVER	OVER+47, MCOVER+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	MULT+10~, MULT+12, OVER+16, OVER+17, OVER+18, OVER+19, OVER+20, OVER+30, OVER+34, OVER+35 , OVER+37, OVER+40, OVER+41, OVER+42, OVER+43, OVER+44, OVER+47, ASKYN+1~, ASKYN+3, ASKYN+5 , ASKYN+6, ASKYN+7, ASKYN+8, ASKYNQ
>> ARRAY	OVER+33*, OVER+34, OVER+35, OVER+37, OVER+40, OVER+42, OVER+43, OVER+45
ASKOTHER	MULTQ+5!
CHOICE	MULT+10~, MULT+14, MULT+15, MULT+16!
DIR	MULT+10~, OVER+14!, ASKYN~, ASKYN+4!
DIR("?"	OVER+1, OVER+2, OVER+3, OVER+4, OVER+6, OVER+7
DIR("??"	OVER+9*
DIR("A"	OVER+13*
DIR("B"	ASKYN+3
DIR(0	OVER+11, OVER+12
DIRUT	MULT+10~, OVER+17, OVER+25, ASKYN+13
DISPTXT	MULT+10~
DTOUT	MULT+10~
DUOUT	MULT+10~
>> GOTO	OVER+20, OVER+21, OVER+22, OVER+23, ASKYN+8, ASKYN+9, ASKYN+11
HDR	MULT+10~
I	MULT+10~
>> IBDASK	MULT+19*, MULT+20, OVER+1, OVER+2, OVER+3, OVER+4, OVER+12, OVER+13
>> IBDEFLT(	OVER+15, OVER+17
IBDF	MULT~, MULT+14, TEST+11
IBDF("APPT"	TEST+2*
IBDF("CLINIC"	TEST+3*
IBDF("DFN"	TEST+4*
IBDF("FORM"	TEST+5*
IBDF("FRMDEF"	TEST+6*
IBDF("GOTO"	OVER+23, ASKYN+11
IBDF("IBDF"	MULT+20, TEST+7*
IBDF("IEN"	MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, MULTQ+1, MULTQ+2, MULTQ+3, TEST+8*
IBDF("OTHER"	MULTQ+5!
IBDF("PI"	MULT+13, MULT+15, MULT+18, MULT+19, MULT+21, OVER+15, OVER+17, MULTQ+1, MULTQ+2, MULTQ+3 , TEST+10*
IBDF("TYPE"	TEST+9*
>> IBDFMIEN	MULT+13, MULT+15, MULT+18, MULT+19, MULT+20, MULT+21, OVER+22, OVER+23, MULTQ+1, MULTQ+2 , MULTQ+3, ASKYN+9, ASKYN+11, TEST+1*
>> IBDPI(	OVER+17!
>> IBDREDIT	OVER+23, ASKYN+3, ASKYN+11
>> IBDSEL(	OVER+17!
IBDX	MULT+10~
>> IBQUIT	MULT+12, OVER+24, OVER+25, ASKYN+12, ASKYN+13*
>> IOINHI	OVER+1, OVER+2, OVER+3, OVER+4
>> IOINORM	OVER+1, OVER+2, OVER+3, OVER+4
J	MULT+10~
>> NEXT	OVER+40*, OVER+41, OVER+42, OVER+43, OVER+44, OVER+45
>> NEXT1	OVER+43*
>> NUMBER(	OVER+30
OVER	MULT+10~, MULT+12, OVER+21, MCOVER+1
QLFR	MULT+10~, MULT+12*
RESULT	MULT~, TEST+11
>> RULE	MULT+21*, OVER+1, OVER+2, OVER+3, OVER+4
>> SELAST	OVER+17
>> SELECT	OVER+26, OVER+30, OVER+34, OVER+35, OVER+37, OVER+40, OVER+42, OVER+43, OVER+45*
X	MULT+10~, MULT+11, OVER+22, OVER+23, ASKYN+1~, ASKYN+9*, ASKYN+11
Y	MULT+10~, OVER+15*, OVER+16, ASKYN+3, ASKYN+5

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: