Routine: IBDF14A

Package	Total	Call Graph
Automated Information Collection System	2	^IBDF14 $$ACLN^IBDFCNOF
Registration	1	$$PRIM^VASITE
VA Fileman	1	^DIR

Package

Total

Call Graph

Automated Information Collection System

^IBDF14 $$ACLN^IBDFCNOF

Registration

$$PRIM^VASITE

VA Fileman

^DIR

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF14

Package

Total

Caller Graph

Automated Information Collection System

IBDF14

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	; -- hold screen
CLINICS	; -- get a list of clinics with setups defined
REPORTS	; -- prints the clinic's reports
FORMS	; -- prints the clinic's encounter forms to the report
HEADER	; -- writes the report header
PRINT	; -- Main print driver for output
EXCLUDE	; -- prints the division reports excluded from clinic

Name	Field # of Occurrence
^DIR	PAUSE+3
^IBDF14	%+1
$$ACLN^IBDFCNOF	PRINT+8
$$PRIM^VASITE	CLINICS+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?9,"Division: ",DIVIS,! Line Location: PRINT+6
Function Call: WRITE	Prompt: " (Clinic Currently Inactive)" Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"No clinics found for division '",DIVIS,"'",! Line Location: PRINT+13
Function Call: WRITE	Prompt: !,?5,"BASIC DEFAULT FORM: ..........................",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+3
Function Call: WRITE	Prompt: !,?5,"FORM WITH NO PRE-PRINTED PATIENT DATA: .......",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+4
Function Call: WRITE	Prompt: !,?5,"SUPPLEMENTAL FORM - PATIENT WITH PRIOR VISITS: ",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+6
Function Call: WRITE	Prompt: !,?5,"SUPPLEMENTAL FORM - FIRST TIME PATIENT: ......",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+8
Function Call: WRITE	Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+10
Function Call: WRITE	Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+12
Function Call: WRITE	Prompt: !,?5,"SUPPLEMENTAL FORM - ALL PATIENTS: ............",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+14
Function Call: WRITE	Prompt: !,?5,"RESERVED FOR FUTURE USE: .....................",$P($G(^IBE(357,FORM,0)),"^") Line Location: FORMS+16
Function Call: WRITE	Prompt: !!,?5,"REPORTS",?50,"PRINT CONDITION",!,?5,"=======",?50,"===============" Line Location: REPORTS+3
Function Call: WRITE	Prompt: !!,?5,"EXCLUDED REPORTS",!,?5,"================" Line Location: EXCLUDE+3
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"AICS Print Manager Clinic Setup Report",?IOM-32,IBHDT," PAGE ",PAGE Line Location: HEADER+3
Function Call: WRITE	Prompt: !,"For Division: ",DIVIS Line Location: HEADER+4
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HEADER+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Routine Call	DIR Line Location: PAUSE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	CLINICS+8
^IBE(357 - [#357]	FORMS+3, FORMS+4, FORMS+6, FORMS+8, FORMS+10, FORMS+12, FORMS+14, FORMS+16
^IBE(357.6 - [#357.6]	REPORTS+8, EXCLUDE+8
^IBE(357.92 - [#357.92]	REPORTS+8
^SC - [#44]	CLINICS+4, CLINICS+5
^SD(409.95 - [#409.95]	CLINICS+2, CLINICS+3, FORMS+1, REPORTS+1, REPORTS+4, REPORTS+6, EXCLUDE+1, EXCLUDE+4, EXCLUDE+6
^TMP($J	CLINICS+9*, PRINT+3, PRINT+4

Name	Line Occurrences
CLINICS	%+2
EXCLUDE	PRINT+11
FORMS	PRINT+9
HEADER	PRINT+6, PRINT+7, PRINT+13, FORMS+2, FORMS+5, FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15 , REPORTS+2, REPORTS+5, EXCLUDE+2, EXCLUDE+5
PAUSE	PRINT+14, HEADER+1
PRINT	%+2
REPORTS	PRINT+10

Name	Field # of Occurrence
^(	PRINT+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CLINIC	CLINICS+2, CLINICS+3, CLINICS+4, CLINICS+5, CLINICS+9, PRINT+4, PRINT+8
>> CNT	CLINICS+1*
>> CNT(	CLINICS+9*, PRINT+13
>> COND	REPORTS+7, REPORTS+8
DIR	PAUSE+1~
DIR(0	PAUSE+3*
>> DIVIS	CLINICS+5, CLINICS+6, CLINICS+7, CLINICS+8, CLINICS+9, PRINT+3, PRINT+4, PRINT+6, PRINT+13, HEADER+4
>> FORM	FORMS+3, FORMS+4, FORMS+6, FORMS+8, FORMS+10, FORMS+12, FORMS+14, FORMS+16
>> IBHDT	HEADER+3
>> IBQUIT	PRINT+3, PRINT+4, PRINT+6, PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+14, FORMS+2, FORMS+5 , FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15, REPORTS+2, REPORTS+4, REPORTS+5, EXCLUDE+2, EXCLUDE+4 , EXCLUDE+5, HEADER+1, PAUSE+3*
>> INTRFACE	REPORTS+7, REPORTS+8, EXCLUDE+7, EXCLUDE+8
IOF	PRINT+1, HEADER+2
IOM	HEADER+3, HEADER+5
IOSL	PRINT+7, FORMS+2, FORMS+5, FORMS+7, FORMS+9, FORMS+11, FORMS+13, FORMS+15, REPORTS+2, REPORTS+5 , EXCLUDE+2, EXCLUDE+5, PAUSE+2
IOST	PRINT+1, PRINT+14, HEADER+1
>> MULTI	CLINICS+6
>> NAME	CLINICS+4, CLINICS+9, PRINT+4, PRINT+8
>> NEWDIV	PRINT+2, PRINT+3, PRINT+6*
>> NODE	FORMS+1, FORMS+3, FORMS+4, FORMS+6, FORMS+8, FORMS+10, FORMS+12, FORMS+14, FORMS+16, REPORTS+6 , REPORTS+7, EXCLUDE+6*, EXCLUDE+7
>> PAGE	HEADER+1, HEADER+2, HEADER+3, HEADER+6*
>> REPORT	REPORTS+4, REPORTS+6, EXCLUDE+4, EXCLUDE+6
>> SETUP	CLINICS+3, CLINICS+9, PRINT+4, PRINT+5, FORMS+1, REPORTS+1, REPORTS+4, REPORTS+6, EXCLUDE+1, EXCLUDE+4 , EXCLUDE+6
>> VAUTD	%+1, CLINICS+7, PRINT+13
>> VAUTD(	CLINICS+7
X	PAUSE+1~
Y	PAUSE+1~, PAUSE+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF14A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: