Routine: IBDF1B

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Automated Information Collection System	2	^IBDF1B1 ($$STARTDIV,CLNCSTRT,DISP,SEARCH,SORTBY,TERMSTRT)^IBDF1BA
VA Fileman	2	^DIC ^DIR
Registration	1	(DIVISION,FIRST)^VAUTOMA

Package

Total

Call Graph

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Automated Information Collection System

^IBDF1B1 ($$STARTDIV,CLNCSTRT,DISP,SEARCH,SORTBY,TERMSTRT)^IBDF1BA

VA Fileman

^DIC ^DIR

Registration

(DIVISION,FIRST)^VAUTOMA

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF PRINT ENCOUNTER FORMS
Integrated Billing	1	IBDF PRINT ENCOUNTER FORMS

Package

Total

Caller Graph

Automated Information Collection System

IBDF PRINT ENCOUNTER FORMS

Integrated Billing

IBDF PRINT ENCOUNTER FORMS

Entry Points

Name	Comments	DBIA/ICR reference
C	;print all appointments for a clinic - find division then clinic, print all/some clinics for all/some divisions
EN	;
END
ADDONS	;add-ons only?
SELECTBY	;select by patient or clinic?
P	;print by patient - get patient then appointment(s) for date
ENDC
APPTDATE	;print forms for appointments on what date?
EXIT	;
ERRORTRP	;the error trap
REPRINT	;for prior job that partially completed?

External References

Name	Field # of Occurrence
^%ZIS	END+2
HOME^%ZIS	EN+8, END+3
^%ZISC	EXIT+4
^%ZTLOAD	END+3
^DIC	P+3
^DIR	REPRINT+5, ADDONS+3, SELECTBY+3, C+8, APPTDATE+4
^IBDF1B1	END+5
$$STARTDIV^IBDF1BA	REPRINT+9
CLNCSTRT^IBDF1BA	REPRINT+12
DISP^IBDF1BA	P+3
SEARCH^IBDF1BA	P+3
SORTBY^IBDF1BA	EN+11
TERMSTRT^IBDF1BA	REPRINT+11
DIVISION^VAUTOMA	C+18
FIRST^VAUTOMA	C+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7)," Encounter Forms require a page size of 80 lines and 132 columns. " Line Location: END+1
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued Task="_ZTSK,1:"Request Canceled") Line Location: END+3
Function Call: WRITE	Prompt: !,"Do you want to print forms for a particular patient or for entire clinics?",! Line Location: SELECTBY+1
Function Call: WRITE	Prompt: !!,"Now you can select individual divisions and clinics." Line Location: C+16
Function Call: WRITE	Prompt: !!,"If you want to print forms for all clinics in the divisions you have",!,"chosen (for those clinics with forms defined) then select ALL." Line Location: C+20
Function Call: WRITE	Prompt: !!,"Otherwise, select the particular clinics you want.",! Line Location: C+21
Routine Call	%ZIS Line Location: EN+8 END+3
Routine Call	DIC Line Location: P+3
Routine Call	DIR Line Location: REPRINT+5 ADDONS+3 SELECTBY+3 C+8 APPTDATE+4
Routine Call	%ZIS Line Location: END+2

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERRORTRP+2
^%ZOSF("TRAP"	EN+5
^DG(43 - [#43]	C+18
^IBD(357.99 - [#357.99]	C+10, C+11
^TMP("DFN"	EXIT+1!
^TMP("IB"	EN+7!, EXIT+1!, ERRORTRP+1!
^TMP("IBDF"	EN+7!, EN+17, END, EXIT+1!, C+10, C+11, C+23, C+24, C+25*, ERRORTRP+1!
^TMP("RPT"	EXIT+1!

Name	Line Occurrences
@(	EN+14, ERRORTRP+2
ADDONS	EN+21
APPTDATE	EN+12
ENDC	C+13, C+18, C+22
EXIT	END, END+2, END+3
REPRINT	EN+22
SELECTBY	EN+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	END+2!
%ZIS	END+2!*
%ZIS("A"	END+2*
D0	EXIT+3!
DA	EXIT+3!
DFN	P+1~, P+3*
DIC	P+3!, C+22!, ENDC!
DIC("S"	C+19*
DIC(0	P+3*
DIR	REPRINT+5!, ADDONS+3!, SELECTBY+2!, SELECTBY+3!, C+6!, C+12!, APPTDATE+1!, APPTDATE+4!
DIR("?"	REPRINT+4, ADDONS+2, C+7, APPTDATE+2, APPTDATE+3*
DIR("A"	REPRINT+3, ADDONS+1, SELECTBY+2, C+7, C+8, APPTDATE+1
DIR("B"	REPRINT+4, ADDONS+2, SELECTBY+2, APPTDATE+1
DIR(0	REPRINT+3, ADDONS+1, SELECTBY+2, C+7, APPTDATE+1*
DIROUT	EXIT+3!
DIRUT	EXIT+3!, REPRINT+5, ADDONS+3, SELECTBY+3, C+8, APPTDATE+4
DTOUT	EXIT+3!
DUOUT	EXIT+3!
GROUPS	C+2~, C+5, C+9, C+10, C+11
GROUPS(	C+8*, C+9
GROUPS(0	C+13
IBADDONS	EN+1~, EN+2, ADDONS+4
IBCLN	C+10, C+25, ENDC!
IBDIV	C+11, C+24, ENDC!
IBDT	EN+1~, APPTDATE+5*
IBNM	P+1~, P+3*
IBREPRNT	EN+1~, EN+2, REPRINT+6, REPRINT+9, REPRINT+11
IBSRT	EN+1~, EN+10*, REPRINT+7, REPRINT+12
IBSTRTDV	EN+1~, EN+2, REPRINT+9
IBTMP	P+1~
IBTYPE	EXIT+3!
IEN	C+2~, C+10, C+11
IO	END+4
IO("Q"	END+3!
IOP	END+2!
>> POP	END+2
QUIT	EN+1~, EN+2, EN+10, EN+11, EN+12, EN+20, EN+21, EN+22, END, REPRINT+5 , REPRINT+6, ADDONS+3, SELECTBY+3, APPTDATE+4
SELECTBY	EN+1~, EN+10, EN+11, EN+14, EN+20, SELECTBY+4*
VAUTC	C+22, C+23, C+24, C+25, ENDC!
VAUTC(	C+25
VAUTD	C+18*, C+23, C+24, ENDC!
VAUTD(	C+24
VAUTNI	C+22*, ENDC!
VAUTSTR	C+22*, ENDC!
VAUTVB	C+22*, ENDC!
X	EN+1~, EN+5*, EXIT+3!
Y	EXIT+3!, REPRINT+5, REPRINT+6, ADDONS+3, ADDONS+4, SELECTBY+4, P+3, C+8, C+18, APPTDATE+5
>> ZTDESC	END+3*
>> ZTQUEUED	EXIT+2
>> ZTREQ	EXIT+2*
>> ZTRTN	END+3*
>> ZTSAVE("IB*"	END+3*
>> ZTSAVE("^TMP(""IBDF"",$J,"	END+3*
>> ZTSK	END+3

Customize PDF page

Package: Automated Information Collection System

Routine: IBDF1B

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: