Routine: APCLVL5

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

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLVL4

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+8
Function Call: WRITE	Prompt: !,"No Group selected." Line Location: ADD+10
Function Call: WRITE	Prompt: !,"Not a valid GROUP." Line Location: ADD+12
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+3
Routine Call	DIE Line Location: SELECTR1+5 SELECTR1+11
Routine Call	DIR Line Location: ADD+8 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)
^APCLGENG - [#9001201]	INIT+8, INIT+10, ADD+12
^APCLGENG("O"	INIT+7
^APCLVRPT - [#9001003.8]	INIT+6, SELECTS+3!, SELECTS+6, SELECTS+7, SELECTP+6, SELECTP+7, SELECTP+9, SELECTP+12, SELECTP+18*, REM+11! , REM+12!
^APCLVSTS - [#9001003.7]	INIT+6, INIT+13, 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
@(	HDR+2, SELECTS+6
BACK	ADD+9, ADD+16, REMX+2, HELP+6
HDR	BACK+4
INIT	BACK+3
REMX	REM+1, REM+4, REM+5
SELECTR1	Q+1
SELECTST	SELECTS+5

Naked Globals

Name	Field # of Occurrence
^(0	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+2, EN+5!, HDR+1, HDR+2, INIT+4, INIT+13, ADD+2, 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+1!, EN+5!, INIT+3, REM+1
APCLCSEL(	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+5!
APCLDISP	EN+5!, EXIT+1!
APCLGIEN	ADD+7, ADD+10!, ADD+11, ADD+12*
APCLGRP	INIT+1!
APCLGRP(	INIT+5, INIT+6, INIT+10, INIT+13
APCLGRP("IDX"	INIT+10*, ADD+11
APCLHIGH	EN+5!, SELECTR+1
>> APCLI	SELECTS+1, SELECTP+1, REM+6*
>> APCLITEM	INIT+2, INIT+9, INIT+10, ADD+8
APCLLIST	EN+5!
APCLP	ADD+10*!, ADD+11, ADD+12!
>> APCLPCNT	SELECTP+1*, SELECTP+9, SELECTP+18
>> APCLPTVS	HDRS+1, HDRS+2, HDRR+2, HDRR+3, INIT+8, SELECTR+1, SELECTR1+3, SELECTR1+4, SELECTR1+9, SELECTR1+10 , HELP+3
>> APCLQUIT	SELECTR1+1, EXITR+1
>> APCLRPT	INIT+6, 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+5!
APCLSEL(	SELECTS+1, SELECTR1+11, SELECTP+1, REM+7, REM+8, T+2, T+3
>> APCLSORG	INIT+13
>> APCLSORT	EN+2, INIT+13, ADD+2, SELECTR1+3, SELECTR1+4, SELECTR1+5, SELECTR1+9, SELECTR1+10, SELECTR1+11, Q+1
>> APCLSORV	EN+2, 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*
C	EN+5!, INIT+2, INIT+5, INIT+6, INIT+9, INIT+10, INIT+13*, INIT+14
DA	SELECTR1+5!, SELECTR1+11!, SELECTP+16!, REM+2!, REMX+1!, HELP+5!
DIE	SELECTR1+5!, SELECTR1+11!
DIR	ADD+8!, SELECTR+1!, SELECTP+3!, SELECTP+16!, REM+2!, REMX+1!, HELP+5!, BACK+5!
DIR("A"	ADD+8, SELECTR+1, SELECTP+3, SELECTP+16, REM+2, REMX+1, HELP+5*
DIR("B"	SELECTP+3, SELECTP+16
DIR(0	ADD+8, SELECTR+1, SELECTP+3, SELECTP+16, REM+2, REMX+1, HELP+5*
>> DIRUT	ADD+9, 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	SELECTR1+1, SELECTP+3, REM+2
I	EN+5!, BACK+6!
IOF	HELP+2
>> IORVOFF	HDRS+1, HDRP+1, HDRR+1
>> IORVON	HDRS+1, HDRP+1, HDRR+1
J	EN+5!
K	EN+5!
>> N	INIT+4*, INIT+6
T	T+1~, T+2, T+3, T+4
U	INIT+6, INIT+8, INIT+10, INIT+13, 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+6!, INIT+14*
VALMHDR	EN+6!, 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*
VALMY	ADD+10!
X	EN+5!, INIT+7, ADD+11, SELECTST+1~, SELECTP+7, REM+12, HELP+4, BACK+6!
XQORNOD	ADD+10!
Y	INIT+7, INIT+8, INIT+10, INIT+13, ADD+10, ADD+11, 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	INIT+6*, T~, T+2, T+3, BACK+6!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVL5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: