Routine: IBDFDE0

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Scheduling	6	$$INP^SDAM2 $$CLINIC^SDAMU ($$AO,$$EC,$$IR,$$MST,$$SC)^SDCO22 $$COMDT^SDCOU $$EX^SDCOU2 $$REQ^SDM1A
Automated Information Collection System	1	^IBDFDE
Kernel	1	($$FMADD,$$FMTE)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	7	IBDFDE IBDFDE1 IBDFDE3 IBDFDE7 IBDFDE8 IBDFFT IBDFN

Package

Total

Caller Graph

Automated Information Collection System

IBDFDE IBDFDE1 IBDFDE3 IBDFDE7 IBDFDE8 IBDFFT IBDFN

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; -- display the old way
ASKDT(QUES,DEFLT,PARAM,EARLY,LATEST,EXHELP)	; -- ask date questions
ASKYN(QUES,DEFLT,EXHELP)	; -- ask yes/no question
WRITEQ
EXCL(CL,DAT)	; -- are clinic stop codes exempt from classifications ; -- 1=yes, 0=no ; original logic from exoe^sdcou2 except uses clinic stops rather ; than outpatient encounter stops
WRITE(SDOE,CNT)	; -- print checkout interview
LIST	; -- display with a list
REQQ
EXCLQ
REQ(DFN,APPT,CLINIC,SDOE,IBDC)	; is checkout interview required for this appt.
CHKOUTQ
CHKOUT(SDOE)	; -- ask check out questions ; -- assumes forms are always for an appointment ; does not require provider, cpt, or diag. to input data ; acts same as input from scanned form.

External References

Name	Field # of Occurrence
^DIR	ASKYN+3, ASKDT+7
^IBDFDE	%
$$INP^SDAM2	REQ+2
$$CLINIC^SDAMU	REQ+3
$$AO^SDCO22	CHKOUT+36
$$EC^SDCO22	CHKOUT+44
$$IR^SDCO22	CHKOUT+40
$$MST^SDCO22	CHKOUT+49
$$SC^SDCO22	CHKOUT+30
$$COMDT^SDCOU	REQ+6
$$EX^SDCOU2	EXCL+7, EXCL+9
$$REQ^SDM1A	REQ+4
$$FMADD^XLFDT	CHKOUT+25
$$FMTE^XLFDT	CHKOUT+24, DISP+1, LIST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,">>> Check out interview..." Line Location: CHKOUT+6
Function Call: WRITE	Prompt: "not available at this time." Line Location: CHKOUT+9
Function Call: WRITE	Prompt: $S(X=0:"no questions.",X=-2:"not required",X=-3:"already completed today",1:"already complete.") Line Location: CHKOUT+16
Function Call: WRITE	Prompt: "required." Line Location: CHKOUT+17
Function Call: WRITE	Prompt: " Checkout Deleted!" Line Location: CHKOUT+26
Function Call: WRITE	Prompt: " Deleted!" Line Location: CHKOUT+31
Function Call: WRITE	Prompt: " Deleted!" Line Location: CHKOUT+37
Function Call: WRITE	Prompt: " Deleted!" Line Location: CHKOUT+41
Function Call: WRITE	Prompt: " Deleted!" Line Location: CHKOUT+45
Function Call: WRITE	Prompt: " Deleted!" Line Location: CHKOUT+50
Function Call: WRITE	Prompt: "no questions." Line Location: CHKOUT+53
Function Call: WRITE	Prompt: !!,"Required information missing." Line Location: CHKOUTQ+0
Function Call: WRITE	Prompt: !?3,"Check out interview..." Line Location: WRITE+1
Function Call: WRITE	Prompt: $S(X=0:"no questions.",1:"already complete.") Line Location: WRITE+3
Function Call: WRITE	Prompt: "required." Line Location: WRITE+4
Function Call: WRITE	Prompt: !," Checkout Date: ",$$FMTE^XLFDT(IBDCO("CO")) Line Location: DISP+1
Function Call: WRITE	Prompt: !," Treatment for SC Condition: ",$S(IBDCO("SC")=1:"YES",1:"NO") Line Location: DISP+2
Function Call: WRITE	Prompt: !," Agent Orange Exposure: ",$S(IBDCO("AO")=1:"YES",1:"NO") Line Location: DISP+3
Function Call: WRITE	Prompt: !," Ionizing Radiation Exposure: ",$S(IBDCO("IR")=1:"YES",1:"NO") Line Location: DISP+4
Function Call: WRITE	Prompt: !," Environmental Contaminants: ",$S(IBDCO("EC")=1:"YES",1:"NO") Line Location: DISP+5
Function Call: WRITE	Prompt: !," MST: ",$S(IBDCO("MST")=1:"YES",1:"NO") Line Location: DISP+6
Function Call: WRITE	Prompt: !?3,CNT,?7,"Checkout Date ",?31,$$FMTE^XLFDT(IBDCO("CO")) Line Location: LIST+1
Function Call: WRITE	Prompt: !?3,CNT,?7,"SC Condition ",?31,$S(IBDCO("SC")=1:"YES",1:"NO") Line Location: LIST+2
Function Call: WRITE	Prompt: !?3,CNT,?7,"Agent Orange ",?31,$S(IBDCO("AO")=1:"YES",1:"NO") Line Location: LIST+3
Function Call: WRITE	Prompt: !?3,CNT,?7,"Ionizing Radiation ",?31,$S(IBDCO("IR")=1:"YES",1:"NO") Line Location: LIST+4
Function Call: WRITE	Prompt: !?3,CNT,?7,"Env. Contaminants ",?31,$S(IBDCO("EC")=1:"YES",1:"NO") Line Location: LIST+5
Function Call: WRITE	Prompt: !?3,CNT,?7,"MST ",?31,$S(IBDCO("MST")=1:"YES",1:"NO") Line Location: LIST+6
Routine Call	DIR Line Location: ASKYN+3 ASKDT+7

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	EXCL+6

Label References

Name	Line Occurrences
$$ASKDT	CHKOUT+25
$$ASKYN	CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, CHKOUT+49
$$EXCL	REQ+5
$$REQ	CHKOUT+15, WRITE+2
CHKOUTQ	CHKOUT+9, CHKOUT+16, CHKOUT+26, CHKOUT+27, CHKOUT+32, CHKOUT+34, CHKOUT+38, CHKOUT+42, CHKOUT+46, CHKOUT+51
LIST	WRITE+7
REQQ	REQ+2, REQ+3, REQ+4, REQ+5, REQ+6, REQ+7
WRITEQ	WRITE+3, WRITE+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPT	REQ~, REQ+2, REQ+4, REQ+5
CL	EXCL~, EXCL+6
CLINIC	REQ~, REQ+3, REQ+5
CNT	WRITE~, WRITE+7, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6
DAT	EXCL~, EXCL+7, EXCL+9
DEFLT	ASKYN~, ASKYN+3, ASKDT~, ASKDT+4
DFN	CHKOUT+15, CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, CHKOUT+49, REQ~, REQ+2, WRITE+2
DIR	ASKYN+1~, ASKDT+1~
DIR("?"	ASKDT+6*
DIR("??"	ASKYN+2, ASKDT+5
DIR("A"	ASKYN+3, ASKDT+3
DIR("B"	ASKYN+3, ASKDT+4
DIR(0	ASKYN+3, ASKDT+2
DIRUT	ASKYN+1~, ASKYN+4, ASKDT+1~, ASKDT+8
DT	CHKOUT+9, CHKOUT+25, REQ+7
DTOUT	ASKYN+1~, ASKYN+5, ASKDT+1~, ASKDT+9
DUOUT	ASKYN+1~, ASKYN+5, ASKDT+1~, ASKDT+9
EARLY	ASKDT~, ASKDT+2
EXHELP	ASKYN~, ASKYN+2, ASKDT~, ASKDT+5
EXMPT	EXCL+5~, EXCL+8, EXCL+9, EXCLQ
IBDC	REQ~, REQ+7
>> IBDCKOUT	CHKOUT+15
IBDCO	CHKOUT+26!, CHKOUT+53, WRITE+5
IBDCO("AO"	CHKOUT+36*, CHKOUT+37!, CHKOUT+38!, DISP+3, LIST+3
IBDCO("CO"	CHKOUT+23, CHKOUT+24, CHKOUT+25, CHKOUT+26, CHKOUT+27!, DISP+1, LIST+1
IBDCO("EC"	CHKOUT+44*, CHKOUT+45!, CHKOUT+46!, DISP+5, LIST+5
IBDCO("IR"	CHKOUT+40*, CHKOUT+41!, CHKOUT+42!, DISP+4, LIST+4
IBDCO("MST"	CHKOUT+49*, CHKOUT+50!, CHKOUT+51!, DISP+6, LIST+6
IBDCO("SC"	CHKOUT+30*, CHKOUT+31!, CHKOUT+32!, CHKOUT+34, DISP+2, LIST+2
>> IBDF("AO"	CHKOUT+36
>> IBDF("APPT"	CHKOUT+9, CHKOUT+15, CHKOUT+25, WRITE+2
>> IBDF("CLINIC"	CHKOUT+15, WRITE+2
>> IBDF("EC"	CHKOUT+44
>> IBDF("IR"	CHKOUT+40
>> IBDF("MST"	CHKOUT+49
>> IBDF("SC"	CHKOUT+30
IBDPRE	CHKOUT+23*, CHKOUT+27, CHKOUTQ+1!
IBDY	REQ+1~, REQ+5, REQ+6, REQ+7, REQ+8*, REQQ+1
>> IBQUIT	CHKOUT+5, CHKOUT+27, CHKOUT+32, CHKOUT+38, CHKOUT+42, CHKOUT+46, CHKOUT+51, CHKOUTQ, ASKYN+5, ASKDT+9*
LATEST	ASKDT~, ASKDT+2
PARAM	ASKDT~, ASKDT+2
QUES	ASKYN~, ASKYN+3, ASKDT~, ASKDT+3
SC1	EXCL+5~, EXCL+6*, EXCL+7
SC2	EXCL+5~, EXCL+6*, EXCL+9
SDFN	CHKOUTQ+1!, REQQ!
SDOE	CHKOUT~, CHKOUT+15, CHKOUT+30, CHKOUT+36, CHKOUT+40, CHKOUT+44, CHKOUT+49, REQ~, REQ+6, WRITE~ , WRITE+2
X	CHKOUT+15, CHKOUT+16, CHKOUT+24, CHKOUT+25, ASKDT+1~, WRITE+2*, WRITE+3
Y	ASKYN+4, ASKYN+5, ASKYN+6, ASKDT+1~, ASKDT+8, ASKDT+9, ASKDT+10

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFDE0

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: