Routine: IBDFDE21

Package	Total	Call Graph
Automated Information Collection System	6	(,PAUSE)^IBDFDE $$LEX^IBDFDE1 $$CHOICE^IBDFDE2 MOD^IBDFDE23 TESTICD^IBDFN7 $$PRDEF^IBDFRPC3
Lexicon Utility	2	CONFIG^GMPTSET CONFIG^LEXSET
VA Fileman	2	^DIC ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Automated Information Collection System	2	IBDFDE IBDFDE2

Entry Points

Name	Comments	DBIA/ICR reference
OTHER(IBDX)	; -- allow input of an additional item
HELP	; --
PREVSEL	; -- List previous selections
QLFR(RULE,QLFR)	; -- ask Qualifier from array, impose rules
SEL(SEL)	; -- Build results array
PARTLQ
DEFAULT	; -- compute default answer
QLFRQ
READQ
ONEQLFR	; -- parse qualifiers
LST	; -- List previous selections and selections to choose from.
ASKNUM
READ	; -- get input from list
PARTLST(ARY,NEXT,ANS)	; -- input has more than one match, prompt for which one
OTHQ
SEL1	; -- build selections
OVER1	;
DEFPROV	; -- find default provider, not on form

External References

Name	Field # of Occurrence
^DIC	OTHER+15
^DIR	OTHER+29
CONFIG^GMPTSET	OTHER+8
^IBDFDE	%
PAUSE^IBDFDE	LST+15
$$LEX^IBDFDE1	SEL1+5, PREVSEL+9
$$CHOICE^IBDFDE2	SEL1+2, LST+8, LST+11, PARTLST+7
MOD^IBDFDE23	SEL1+37, SEL1+38
TESTICD^IBDFN7	SEL1+14
$$PRDEF^IBDFRPC3	DEFPROV+4
CONFIG^LEXSET	OTHER+7
$$UP^XLFSTR	ONEQLFR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),IOINHI,"Warning: The ICD9 Diagnosis associated with this problem needs to be updated!",IOINORM Line Location: SEL1+13
Function Call: WRITE	Prompt: !,$C(7),IOINHI,"Warning: The ICD9 code associated with this problem is inactive.",IOINORM Line Location: SEL1+15
Function Call: WRITE	Prompt: !,"This is a valid icd9 code" Line Location: SEL1+16
Function Call: WRITE	Prompt: " ",IBDQ Line Location: QLFR+5
Function Call: WRITE	Prompt: " ",IBDQ Line Location: QLFR+12
Function Call: WRITE	Prompt: !,IOINHI,"Using Default Qualifier: "_X(ANS),IOINORM,! Line Location: QLFR+14
Function Call: WRITE	Prompt: !,IOINHI," Select a Qualifier",IOINORM Line Location: OVER1+2
Function Call: WRITE	Prompt: !?6,I,?10,X(I) Line Location: OVER1+3
Function Call: WRITE	Prompt: !," Choose 1-",CNT,": " Line Location: OVER1+4
Function Call: WRITE	Prompt: " ",X(ANS) Line Location: OVER1+12
Function Call: WRITE	Prompt: !,"'"_ANS_"' IS NOT A VALID SELECTION, RE-ENTER" Line Location: ONEQLFR+3
Function Call: WRITE	Prompt: " ",X(ANS) Line Location: ONEQLFR+4
Function Call: WRITE	Prompt: " ",X2(ANS) Line Location: ONEQLFR+7
Function Call: WRITE	Prompt: " Ambiguous answer, enter the number." Line Location: ONEQLFR+8
Function Call: WRITE	Prompt: $E(X1(ANS,1),2,99) Line Location: ONEQLFR+8
Function Call: WRITE	Prompt: !!,"Choose from: " Line Location: LST+9
Function Call: WRITE	Prompt: !?16,IOINHI,$P(CHOICE,"^"),IOINORM Line Location: LST+12
Function Call: WRITE	Prompt: $C(13),$J("",55),$C(13) Line Location: LST+15
Function Call: WRITE	Prompt: ! Line Location: PREVSEL+11
Function Call: WRITE	Prompt: " ",$P(^VA(200,+SEL,0),"^")," PRIMARY",! Line Location: DEFPROV+12
Function Call: WRITE	Prompt: !,"You must choose a data qualifier for this item. Enter a number from 1-",CNT,!,"Or enter the first letter, or enter the full name. Enter more than one",!,"qualifier separated by commas (ie 1,2 or P,A).",! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,$C(7),"WARNING: Item selected not from Encounter Form." Line Location: OTHER+18
Function Call: WRITE	Prompt: ! Line Location: OTHER+20
Function Call: WRITE	Prompt: "...Entry of Narrative Required!",! Line Location: OTHER+22
Function Call: WRITE	Prompt: !," Choose 1-",J,": " Line Location: ASKNUM+1
Function Call: WRITE	Prompt: !,"Enter a number from 1 - ",J Line Location: ASKNUM+3
Function Call: WRITE	Prompt: ! Line Location: ASKNUM+7
Function Call: WRITE	Prompt: !," Choose 1-",CNT,": " Line Location: READ+3
Function Call: WRITE	Prompt: !,"Enter a number from 1 - ",CNT," or return to see more." Line Location: READ+5
Function Call: WRITE	Prompt: $C(7),! Line Location: READ+7
Function Call: WRITE	Prompt: ! Line Location: READ+9
Routine Call	DIC Line Location: OTHER+15
Routine Call	DIR Line Location: OTHER+29

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	OTHER+7, OTHER+8
^IBE(357.6 - [#357.6]	SEL1+5, SEL1+11, PREVSEL+9, DEFAULT+3, DEFPROV+2
^ICD9 - [#80]	SEL1+31, OTHER+26
^ICD9("BA"	SEL1+29
^LEX	OTHER+7
^TMP("IBD-LST"	LST+10
^VA(200 - [#200]	DEFPROV+8, DEFPROV+12, OTHER+20

Label References

Name	Line Occurrences
$$QLFR	SEL+4
ASKNUM	ASKNUM+3, ASKNUM+5, ASKNUM+6
HELP	OVER1+8
ONEQLFR	OVER1+16
OTHQ	OTHER+11, OTHER+15, OTHER+20, OTHER+29
OVER1	OVER1+6, OVER1+8, OVER1+9, OVER1+14
PARTLQ	ASKNUM, ASKNUM+2
PREVSEL	LST+4, DEFAULT+9
QLFRQ	QLFR+5, QLFR+12, OVER1+1, OVER1+5
READ	READ+5, READ+7, READ+8
READQ	READ+2, READ+4
SEL1	SEL+6, SEL+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	QLFR+1~, QLFR+14, OVER1+4, OVER1+5, OVER1+6, OVER1+8, OVER1+9, OVER1+10, OVER1+11, OVER1+12 , OVER1+14, OVER1+15, OVER1+16, ONEQLFR+1, ONEQLFR+2, ONEQLFR+3, ONEQLFR+4, ONEQLFR+6, ONEQLFR+7, ONEQLFR+8 , PARTLST~, PARTLST+5
>> ANS1	OVER1+15*, OVER1+16, ONEQLFR+6
ANS2	PARTLST+1~, ASKNUM+1, ASKNUM+2, ASKNUM+3, ASKNUM+4, ASKNUM+5, ASKNUM+6, ASKNUM+8, READ+1~, READ+3* , READ+4, READ+5, READ+6*, READ+7
ARY	PARTLST~, PARTLST+5, PARTLST+6, PARTLST+7
CHOICE	SEL1+2, SEL1+3, SEL1+4, SEL1+5, SEL1+7, SEL1+12, SEL1+22, SEL1+24, SEL1+33, LST+11* , LST+12, LST+14, PARTLST+1~, PARTLST+7*, PARTLST+8
CNT	QLFR+1~, QLFR+2, QLFR+9, QLFR+12, OVER1+1, OVER1+3, OVER1+4, OVER1+10, LST+1~, LST+7* , LST+13, LST+14, LST+15, PREVSEL+1~, PREVSEL+2, PREVSEL+7, PREVSEL+8, DEFAULT+1~, DEFAULT+2, DEFAULT+7* , HELP+1, READ+2, READ+3, READ+5, READ+7, READ+8
DA	OTHER+1~
DIC	OTHER+1~, OTHER+14*, OTHER+16!
DIC("A"	OTHER+13*
DIC("S"	OTHER+14*
DIC(0	OTHER+12*
DIE	OTHER+1~
DIR	OTHER+1~, OTHER+29!
DIR("A"	OTHER+29*
DIR("B"	DEFAULT+8, OTHER+24, OTHER+26, OTHER+27, OTHER+28*
DIR(0	OTHER+29*
DIRUT	OTHER+1~, OTHER+29
DISPTXT	SEL1+4, SEL1+5, SEL1+7, SEL1+22~, SEL1+32, SEL1+33
DR	OTHER+1~
DSPTXT	SEL+1~
DTIME	OVER1+4, ASKNUM+1, READ+3
DUOUT	OTHER+1~
GMPTSHOW	OTHER+1~
GMPTSUB	OTHER+1~
GMPTUN	OTHER+1~
I	SEL1+22~, SEL1+24, QLFR+1~, OVER1+3, LST+1~, LST+10, LST+11, LST+13, LST+15, PREVSEL+1~ , PREVSEL+5, PREVSEL+6, PREVSEL+9, PREVSEL+10, OTHER+1~, PARTLST+1~
IBD	OVER1+16*, PARTLST+1~
IBD(	PARTLST+7*, ASKNUM+6, ASKNUM+8
>> IBDASK	SEL1+37, SEL1+38, OTHER+13
>> IBDEFLT(	DEFAULT+8*
>> IBDF("CLINIC"	DEFPROV+4
>> IBDF("IEN"	SEL1+7, SEL1+33, LST+10, PREVSEL+6, DEFAULT+6
>> IBDF("LEXICON"	OTHER+6
>> IBDF("OTHER"	OTHER+11, OTHER+14, OTHER+23
>> IBDF("PI"	SEL1+5, SEL1+7, SEL1+8, SEL1+11, SEL1+33, SEL1+34, LST+10, PREVSEL+5, PREVSEL+6, PREVSEL+9 , PREVSEL+10, DEFAULT+3, DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFPROV+2*, DEFPROV+3, DEFPROV+8, DEFPROV+9, OTHER+20
>> IBDF("PROVIDE	R PI" , DEFPROV+6*, OTHER+20
>> IBDF("PROVIDER"	DEFPROV+4, DEFPROV+10, DEFPROV+11
IBDFILE	OTHER+1~, OTHER+23*, OTHER+24, OTHER+26, OTHER+27, OTHER+28, OTHER+32
>> IBDFMIEN	LST+10
IBDI	QLFR+1~, QLFR+7, QLFR+8
IBDLEX	OTHER+1~, OTHER+6, OTHER+7, OTHER+8
>> IBDPI(	SEL1+8, SEL1+34, PREVSEL+5, PREVSEL+6, PREVSEL+9, PREVSEL+10, DEFAULT+5, DEFAULT+6, DEFAULT+8, DEFPROV+3 , DEFPROV+9*
IBDQ	QLFR+1~, QLFR+2, QLFR+5, QLFR+12, QLFR+14, OVER1+5, OVER1+12, OVER1+16, OVER1+17, QLFRQ , ONEQLFR+4, ONEQLFR+6, ONEQLFR+7
IBDQ1	QLFR+1~, OVER1+15, OVER1+16, OVER1+17, OVER1+18!
IBDQL	SEL+1~, SEL+4*, SEL+5, SEL+6, SEL+8
IBDQLFR	SEL+1~, SEL+6, SEL+8, SEL1+7, SEL1+19, SEL1+21
IBDQUAL	SEL1+20~, SEL1+21*, SEL1+33
>> IBDSEL(	DEFPROV+8*, DEFPROV+9
>> IBDSEL(0	DEFPROV+7*
IBDX	SEL+1~, SEL1+1, SEL1+7, SEL1+8, SEL1+23, SEL1+33, SEL1+34, DEFPROV+1~, DEFPROV+7, DEFPROV+8 , DEFPROV+9, OTHER~, OTHER+5, OTHER+12
IBDXCD	SEL1+22~, SEL1+24*, SEL1+25, SEL1+33
>> IBNAQLFR	QLFR+14
IBQUIT	SEL+1~, SEL+2, SEL+5, OVER1+5, LST+1~, LST+7, LST+10, LST+15, READ+4
>> IOINHI	SEL1+13, SEL1+15, QLFR+14, OVER1+2, LST+12, PREVSEL+8
>> IOINORM	SEL1+13, SEL1+15, QLFR+14, OVER1+2, LST+12, PREVSEL+8
J	OTHER+1~, PARTLST+1~, PARTLST+5, PARTLST+7, PARTLST+8, ASKNUM, ASKNUM+1, ASKNUM+3, ASKNUM+5
K	PARTLST+1~, PARTLST+5*, PARTLST+6, PARTLST+7
N	PARTLST+1~, PARTLST+6*, PARTLST+7
NAME	DEFAULT+1~, DEFAULT+3*, DEFAULT+4
NARR	OTHER+1~, OTHER+30*, OTHER+32
NEXT	PARTLST~, PARTLST+3*, PARTLST+5
NUM	QLFR+1~, QLFR+11, LST+1~, LST+8, LST+15
>> NUMBER(	LST+13*, READ+8
OVER	QLFR+1~, OVER1+7, OVER1+9, OVER1+10, OVER1+11, OVER1+14, OVER1+16, ONEQLFR+3, ONEQLFR+8, ONEQLFR+9
PIECE	DEFAULT+1~, DEFAULT+4*, DEFAULT+8
QCNT	SEL+1~, SEL+8, SEL1+5, QLFR+1~, OVER1+15, OVER1+16*, OVER1+18!
QLFR	SEL+4, QLFR~
QLFR(	QLFR+5, QLFR+8
QLFR(0	QLFR+5
>> RESULT(	SEL1+7, SEL1+8, SEL1+33, SEL1+34
>> RESULT(0	SEL1+1, SEL1+23
RULE	SEL+4, QLFR~, QLFR+5
SEL	SEL~, SEL1+2, SEL1+3, DEFAULT+1~, DEFAULT+2, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFPROV+1~, DEFPROV+4* , DEFPROV+5, DEFPROV+8, DEFPROV+12, OTHER+1~, OTHER+17, OTHER+32, PARTLST+1~, PARTLST+2, ASKNUM+2, ASKNUM+8 , PARTLQ
SELAST	DEFAULT+1~, DEFAULT+2, DEFAULT+7, DEFAULT+8
SELX	OTHER+1~, OTHER+10, OTHER+20, OTHER+32*, OTHQ
X	SEL1+12~, SEL1+13, SEL1+15, SEL1+25~, SEL1+27!, SEL1+28, SEL1+29, SEL1+30, SEL1+31, QLFR+1~ , QLFR+8, QLFR+9, QLFR+10, QLFR+11, OTHER+1~, OTHER+7, OTHER+8, OTHER+12
X(	QLFR+9*, QLFR+12, QLFR+14, OVER1+3, OVER1+11, OVER1+12, ONEQLFR+3, ONEQLFR+4
X1	QLFR+1~
X1(	QLFR+10, QLFR+11, ONEQLFR+6, ONEQLFR+8
X2	QLFR+1~
X2(	QLFR+9*, ONEQLFR+7
XTLKGLB	OTHER+1~
XTLKHLP	OTHER+1~
XTLKKSCH	OTHER+1~
XTLKSAY	OTHER+1~
Y	SEL1+25~, SEL1+27, SEL1+30, SEL1+31*, SEL1+32, OTHER+1~, OTHER+15, OTHER+17, OTHER+20, OTHER+26 , OTHER+30
Y(0	OTHER+24, OTHER+26, OTHER+27, OTHER+28

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE21

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: