Routine: APCLVL4

Package	Total	Call Graph
Patient Care Component Reports	3	^APCLVL5 SHOW^APCLVLS DIRQ^APCLVLS1
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
VA Fileman	2	^DIE ^DIR
Kernel	1	DISP^XQORM1

Package	Total	Caller Graph
Patient Care Component Reports	7	APCLFPC APCLFPR APCLGV APCLRPL APCLTEN APCLVL APCLVL3
IHS Designated Provider	1	BDPNODP
Referred Care Information System	1	BMCPXTEN

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; -- header code
EXITR	;EP - exit report called from protocol entry
BACK	;go back to listman
EXPND	; -- expand code
REM	;EP - remove a selected item - called from protocol entry
SELECTS	;select screen items
SELECTR	;sort select
HELP	; -- help code
T(Z,Y)	;
INIT	; -- init variables and list array
SELECTP	;print select - get columns
EN	; -- main entry point for APCL VGEN SELECT ITEMS
HDRR	;sort header
HDRS	;
HDRP	;print selection header
SELECTST	;print help text for this item
Q	;EP - quit selections
ADD	;EP - add an item to the selected list - called from a protocol
REMX	;
ADDX	;
EXIT	; -- exit code
SELECTR1	;

External References

Name	Field # of Occurrence
^APCLVL5	EN+2
SHOW^APCLVLS	SELECTS+9
DIRQ^APCLVLS1	ADD+2
^DIE	SELECTR1+5, SELECTR1+11
^DIR	ADD+2, ADDX+1, SELECTR+1, SELECTP+3, SELECTP+16, REM+2, REMX+1, HELP+5
EN^VALM	EN+4
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+5
FULL^VALM1	ADD+5, HELP+1
DISP^XQORM1	HELP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+3
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+4
Function Call: WRITE	Prompt: !,^APCLVSTS(APCLCRIT,11,X,0) Line Location: SELECTST+1
Function Call: WRITE	Prompt: ! Line Location: SELECTST+2
Function Call: WRITE	Prompt: ! Line Location: SELECTR+1
Function Call: WRITE	Prompt: !,"exiting" Line Location: SELECTR1+1
Function Call: WRITE	Prompt: !!,"No sort criteria selected ... will sort by "_$S(APCLPTVS="P":"Patient Name",1:"Visit Date")_"." Line Location: SELECTR1+3
Function Call: WRITE	Prompt: !!,"No sub-totalling will be done.",!! Line Location: SELECTR1+6
Function Call: WRITE	Prompt: !!?15,"Total Report width (including column margins - 2 spaces): ",APCLTCW Line Location: SELECTP+10
Function Call: WRITE	Prompt: !!,"No items have been selected.",! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+4
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+5
Function Call: WRITE	Prompt: !,APCLC," is not a valid choice" Line Location: REM+7
Function Call: WRITE	Prompt: !,"Item ",APCLC," ",$P(^APCLVSTS(APCLCRIT,0),U)," has not been selected.",! Line Location: REM+9
Function Call: READ	Timeout: "visits",1:"patients"),", Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Enter an S to Select an Item, and R to remove a selected item, Q to Quit",!,"the selection process. To exit the report, enter an E.",!,"Hit a Q to select all ",$S(APCLPTVS="V":"visits",1:"patients"),", bypassing all screens.",! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Line Location: HELP+4
Routine Call	VALM Line Location: EN+4
Routine Call	DIE Line Location: SELECTR1+5 SELECTR1+11
Routine Call	DIR Line Location: ADD+2 ADDX+1 SELECTR+1 SELECTP+3 SELECTP+16 REM+2 REMX+1 HELP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLVRPT - [#9001003.8]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	SELECTS+3!, SELECTS+6, SELECTS+7, SELECTP+6, SELECTP+7, SELECTP+9, SELECTP+12, SELECTP+18*, REM+11!, REM+12!
^APCLVSTS - [#9001003.7]	INIT+4, SELECTS+2, SELECTS+3, SELECTS+5, SELECTS+6, SELECTST+1, SELECTR1+11, SELECTP+3, SELECTP+4, SELECTP+13 , SELECTP+15, REM+9, REM+13, T+2, T+3

Label References

Name	Line Occurrences
$$T	INIT+7, INIT+8, INIT+9
@(	HDR+2, ADD+6, SELECTS+6
ADDX	ADD+3, ADD+4
BACK	ADDX+2, REMX+2, HELP+6
HDR	BACK+4
INIT	BACK+3
REMX	REM+1, REM+4, REM+5
SELECTR	ADD+1
SELECTR1	Q+1
SELECTST	SELECTS+5

Naked Globals

Name	Field # of Occurrence
^(0	INIT+4, SELECTP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLANS	SELECTS+1, SELECTP+1, REM+6*
>> APCLANSW	SELECTR1+2*, SELECTR1+3, SELECTR1+6
>> APCLC	SELECTS+1, SELECTS+4, SELECTS+7, SELECTP+1, SELECTP+9, REM+6*, REM+7, REM+8, REM+9, REM+10
>> APCLCNT	SELECTS+6*
APCLCNTL	EN+6!, HDR+1, HDR+2, INIT+4, INIT+7, INIT+8, INIT+9, ADD+1, ADD+6, REM+11 , REM+12, Q+1
>> APCLCRIT	SELECTS+1, SELECTS+2, SELECTS+3, SELECTS+5, SELECTS+6, SELECTS+7, SELECTST+1, SELECTP+1, SELECTP+3, SELECTP+4 , SELECTP+7, SELECTP+9, SELECTP+12, SELECTP+13, SELECTP+15, REM+8*, REM+9, REM+11, REM+12, REM+13
APCLCSEL	EN+3!, EN+6!, REM+1
APCLCSEL(	INIT+7, INIT+8, INIT+9, SELECTS+7, SELECTP+9, REM+9, REM+10!
>> APCLCTYP	SELECTR+1, SELECTR1+3, SELECTR1+6, SELECTR1+7*, SELECTP+2, SELECTP+5, SELECTP+10
APCLCUT	EN+6!, INIT+5*, INIT+8, INIT+9
APCLDISP	EN+6!, INIT+1!, INIT+10!, EXIT+1!
APCLDISP(	INIT+6, INIT+7, INIT+8, INIT+9*
APCLHIGH	EN+6!, INIT+1!, INIT+4*, INIT+5, ADD+2, SELECTR+1
>> APCLI	SELECTS+1, SELECTP+1, REM+6*
APCLLIST	EN+6!, INIT+1!
APCLLIST(	INIT+7, INIT+8, INIT+9*
APCLLIST("IDX"	INIT+7*
>> APCLLMOR	EN+1*, EN+2, INIT+2, INIT+3
>> APCLPCNT	SELECTP+1*, SELECTP+9, SELECTP+18
>> APCLPTVS	HDRS+1, HDRS+2, HDRS+4, HDRR+3, HDRR+4, INIT+4, ADD+2, SELECTR+1, SELECTR1+3, SELECTR1+4 , SELECTR1+9, SELECTR1+10, HELP+3
>> APCLQUIT	SELECTR1+1, EXITR+1
>> APCLRPT	SELECTS+3, SELECTS+6, SELECTS+7, SELECTR1+5, SELECTR1+11, SELECTP+6, SELECTP+7, SELECTP+9, SELECTP+12, SELECTP+18 , REM+11, REM+12
APCLSEL	EN+6!, INIT+1!
APCLSEL(	INIT+4*, INIT+6, INIT+8, INIT+9, SELECTS+1, SELECTR1+11, SELECTP+1, REM+7, REM+8, T+2 , T+3
>> APCLSORT	SELECTR1+3, SELECTR1+4, SELECTR1+5, SELECTR1+9, SELECTR1+10, SELECTR1+11*
>> APCLSORV	SELECTR1+3, SELECTR1+4, SELECTR1+9, SELECTR1+10, SELECTR1+11*
>> APCLTCW	SELECTP+7, SELECTP+9, SELECTP+10
>> APCLTEXT	SELECTS+2*, SELECTS+4
>> APCLVAR	SELECTS+3*
>> APCLXREF	INIT+2, INIT+3, INIT+4
>> APCLZZ	INIT+7, INIT+8, INIT+9*
C	EN+6!, INIT+6, INIT+7, INIT+8, INIT+9, INIT+11
DA	ADDX+1!, SELECTR1+5!, SELECTR1+11!, SELECTP+16!, REM+2!, REMX+1!, HELP+5!
DIE	SELECTR1+5!, SELECTR1+11!
DIR	ADD+2!, ADDX+1!, SELECTR+1!, SELECTP+3!, SELECTP+16!, REM+2!, REMX+1!, HELP+5!, BACK+5!
DIR("A"	ADD+2, ADDX+1, SELECTR+1, SELECTP+3, SELECTP+16, REM+2, REMX+1, HELP+5
DIR("B"	SELECTP+3, SELECTP+16
DIR(0	ADD+2, ADDX+1, SELECTR+1, SELECTP+3, SELECTP+16, REM+2, REMX+1, HELP+5
>> DIRUT	ADD+2, ADD+4, SELECTP+3, SELECTP+4, SELECTP+17, REM+2*, REM+5
DIU	SELECTR1+5!, SELECTR1+11!
DIV	SELECTR1+5!, SELECTR1+11!
DIW	SELECTR1+5!, SELECTR1+11!
DIY	SELECTR1+5!, SELECTR1+11!
DR	SELECTR1+5!, SELECTR1+11!
>> DUOUT	ADD+2, SELECTR1+1, SELECTP+3, REM+2
I	EN+6!, INIT+6*, INIT+7, INIT+8, BACK+6!
IOF	ADD+5, HELP+2
>> IORVOFF	HDRS+1, HDRP+1, HDRR+2
>> IORVON	HDRS+1, HDRP+1, HDRR+2
J	EN+6!, INIT+6, INIT+8, INIT+9
K	EN+6!, INIT+6, INIT+9
T	T+1~, T+2, T+3, T+4
U	INIT+4, SELECTS+2, SELECTS+3, SELECTS+6, SELECTR1+11, SELECTP+3, SELECTP+4, SELECTP+7, SELECTP+9, SELECTP+13 , SELECTP+15, SELECTP+18, REM+9, REM+13, T+2, T+3
>> VALMBCK	BACK+2*
VALMCC	EXIT+2!
VALMCNT	EN+7!, INIT+11*
VALMHDR	EN+7!, EXIT+2!
VALMHDR(1	HDRS+1, HDRP+1, HDRR+1*
VALMHDR(2	HDRS+2, HDRP+2, HDRR+2*
VALMHDR(3	HDRS+3, HDRP+3, HDRR+3*
VALMHDR(4	HDRS+4, HDRP+4, HDRR+4*
X	EN+6!, INIT+4, SELECTST+1~, SELECTP+7, REM+12, HELP+4*, BACK+6!
Y	INIT+4, ADD+3, SELECTS+1, SELECTR1+2, SELECTR1+11, SELECTP+1, SELECTP+4, SELECTP+5, SELECTP+7, SELECTP+9 , SELECTP+17, SELECTP+18, REM+4, REM+6, T~, T+3, Q+1*, BACK+6!
Z	T~, T+2, T+3, BACK+6!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVL4

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: