Routine: APCLSRT

Package	Total	Call Graph
VA Fileman	3	YN^DICN EN1^DIP ^DIR
Kernel	2	^%ZIS ^%ZISC
Patient Care Component Reports	1	CHKVARS^APCLSRT2

Entry Points

External References

Name	Field # of Occurrence
^%ZIS	EXIT+4
^%ZISC	EXIT+3
CHKVARS^APCLSRT2	EN
YN^DICN	OK1+13
EN1^DIP	DIP
^DIR	TITLE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Navigation not defined for the File! Notify programmer!",!! Line Location: CHKNAV+1
Function Call: WRITE	Prompt: !!?80-$L(APCLX)\2,APCLX Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
Function Call: WRITE	Prompt: !,"The ",@APCLRVON,APCLRPT,@APCLRVOF Line Location: HEAD+4
Function Call: WRITE	Prompt: " report can be sorted by one or more" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,"of the following attributes. " Line Location: HEAD+6
Function Call: WRITE	Prompt: "'<<===' indicates a mandatory selection.",! Line Location: HEAD+7
Function Call: WRITE	Prompt: ! Line Location: MENU+2
Function Call: WRITE	Prompt: !!?6,"Your choice (1",$S((J-1)>1:"-"_(J-1),1:""),"): " Line Location: CHOICE+2
Function Call: READ	Timeout: DTIME Variable: APCLZZ Line Location: CHOICE+3
Function Call: WRITE	Prompt: !!?6,$C(7),"Type ",$S((J-1)>1:"a number from 1",1:"number 1: "),$S((J-1)>1:"-"_(J-1)_":",1:"") Line Location: CHOICE+5
Function Call: WRITE	Prompt: ! Line Location: CHOICE+5
Function Call: WRITE	Prompt: !!,"Within ",APCLSNA,", want to sort by another attribute" Line Location: OK1+12
Function Call: WRITE	Prompt: !!! Line Location: OK1+16
Function Call: WRITE	Prompt: $J(J,3),") ",X Line Location: M2+1
Function Call: WRITE	Prompt: " <<===" Line Location: M2+1
Function Call: WRITE	Prompt: !!,$C(7),"You must also sort by" Line Location: CHECK+2
Function Call: WRITE	Prompt: !!,"End of report. Strike <CR> to continue" Line Location: EOR+1
Routine Call	DIR Line Location: TITLE+1
Routine Call	%ZIS Line Location: EXIT+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLSRT - [#9001003.5]	CHKNAV+1, CHKNAV+2, MENU+1, OK1+1, M1+1
^APCLSRT("B"	MENU+1
^DIC - [#1]	OK1+2

Label References

Name	Line Occurrences
@(	OK1+6
CHECK	OK1+15
CHKNAV	OK1+3
CHOICE	EN1, CHOICE+5, CHOICE+7
EN1	OK1+16
EXIT	EN+1, EN1
HEAD	EN1
M1	MENU+1
M2	CHOICE
MENU	EN+2
OK	CHOICE+1, CHOICE+6, OK1+15
PRINT	OK1+9, OK1+10, OK1+11, OK1+15
TITLE	PRINT+1

Naked Globals

Name	Field # of Occurrence
^(	M1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OK1+13*, EXIT!
%APCL	EXIT+1!, M2!
%APCL(	OK, M2+1*
%APCLB	EXIT+1!
%APCLB(	OK+1!, M1+2*, M2+1
%DT	EXIT!
%Y	OK1+14, OK1+15, EXIT!
APCLBEGD	EXIT!
APCLCST	EXIT+2!
APCLCSTG	OK*, EXIT+2!, CHECK
APCLDIC	OK1+2*, EXIT!, PRNT
APCLDM	EXIT!
APCLFILE	CHKNAV+1, CHKNAV+2, OK1+2, EXIT!
APCLFORC	HEAD+2!, OK1+9!, OK1+15, EXIT+2!, CHECK+1*
APCLI	EXIT!
APCLMAN	EXIT+2!, M2+1*
APCLMAND	EXIT+2!, M2+1*, CHECK, CHECK+1
APCLMANN	EXIT+2!, M2+1*
APCLN	OK1+16, EXIT!, CHECK+1
APCLNAV	CHKNAV+2*, OK1+5, OK1+7!, EXIT+2!
APCLPS	EXIT+2!
APCLPTMP	MENU+1, EXIT!, M1+1
APCLQUIT	EN+1, CHKNAV+1, CHOICE+4, OK1+3, OK1+8, OK1+14, EXIT!, TITLE+2, PRINT+2
APCLREC	OK1+1*, OK1+6, OK1+7!, EXIT+2!
APCLRPT	HEAD+4, EXIT!
APCLRVOF	HEAD+4, EXIT+1!
APCLRVON	HEAD+4, EXIT+1!
APCLSET	EXIT!
APCLSNA	OK*, OK+1, OK1+12, EXIT+1!
APCLSNO	OK*, EXIT+1!
APCLSRT	EXIT+2!, M2+1*, M2+2!
APCLTRM	EXIT+1!, EXIT+2!
APCLX	HEAD+2!, EXIT+2!, EOR+1
APCLY	EXIT+2!
APCLZ	EXIT!, M2, M2+1, M2+2!
APCLZZ	CHOICE+1, CHOICE+3, CHOICE+4, CHOICE+5, CHOICE+6, OK, EXIT!, CHECK+1*
B	EXIT!
BY	OK1, OK1+5, OK1+10*, EXIT!
BY1	EXIT!
BY2	EXIT!
DHD	EXIT!, TITLE+3*
DIC	EXIT!, PRNT*
DIOEND	EXIT!, PRT1*
DIR	EXIT!, TITLE+1!
DIR("?"	TITLE+1*
DIR("A"	TITLE+1*
DIR("B"	TITLE+1*
DIR(0	TITLE+1*
DTIME	CHOICE+3
DUOUT	EXIT!, TITLE+2
FLDS	EXIT!
FR	EXIT!
I	MENU, OK1+11, OK1+16, EXIT!, M1+2*
IOF	HEAD+1, EXIT+5, EOR+2
>> IOP	EXIT+4*
IOST	EOR+1
J	CHOICE+1, CHOICE+2, CHOICE+5, CHOICE+6, OK+1, OK1+4!, EXIT!, M2+1*
P	EXIT!
TO	EXIT!
U	CHKNAV+2, CHOICE+3, CHOICE+4, OK, OK1+6, OK1+14, M1+2, M2+1, CHECK
X	CHKNAV+1, CHKNAV+2, MENU, MENU+1, OK, OK+1, OK1+1, EXIT!, M1+2, M2+1 , TITLE+3
Y	MENU+1, EXIT!, M1+1, M1+2, M2+1
Z	OK, OK+1!, EXIT!, M1~, M1+1, M1+2, M2+1*
>> ZTQUEUED	EXIT+4

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLSRT

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OK1
HEAD	;
EN
OK
TITLE	;
PRNT
MENU
M1
CHOICE
EN1
PRT1
EXIT
M2
PRINT	;
CHKNAV	;check for navigation string for file and sort field
DIP
CHECK
EOR	;