Routine: APCLVL

Package	Total	Call Graph
Patient Care Component Reports	6	DEMOCHK^APCLUTL (ADD,INFORM)^APCLVL01 (XIT,XIT1)^APCLVL1 (COUNT,SAVE,TITLE)^APCLVL3 ^APCLVL4 (SHOW,SHOWP,SHOWR)^APCLVLS
VA Fileman	5	DD^%DT C^%DTC ^DIC ^DIK ^DIR
IHS VA Utilities	1	^XBDBQUE
Kernel	1	HOME^%ZIS
PCC Medical Query	1	EN3^AMQQ

Package	Total	Caller Graph
Patient Care Component Reports	7	APCLFPC APCLFPR APCLGV APCLRPL APCLTEN APCLVLP2 APCLVLP8
IHS Designated Provider	1	BDPNODP
PCC Medical Query	1	AMQQCMP0
Referred Care Information System	1	BMCPXTEN

Entry Points

Name	Comments	DBIA/ICR reference
BD	;EP - CALLED FROM QMAN get beginning date
PP13
PP12
PP11
D13
DEMO	;
SETPDIR	;
PQ0	;
VRSTAT1	;which status
PS0	;
PS1	;EP
ORDER	;EP - called from qman
D11
PR	;get cms register and statuses
PS	;--- process report when search template used
PP	;patient lister
PQ	;qman
D12
BROWSE	;
PRSTAT1	;which status
TITLE	;
VRSTAT	;get status
PRSTAT	;get status
COUNT	;count only or detailed report
ZIS	;call to XBDBQUE
ED	;get ending date
SCREEN	;
N	;
VP	;visit/pt search template
START	;
PP1	;if patient, no prev defined report used
VS	;
XIT	;
VV	;visit/visit search template
ADD	;
SAVE	;
VR	;get cms register and statuses
XIT1	;
GETDATES	;
DEL	;EP DELETE LOG ENTRY IF ONE EXISTS AND USER "^" OUT
D1	;if visit, no prev defined report used
TYPE	;--- get type of report (patient, date range or search template)
PS12
PS13

External References

Name	Field # of Occurrence
DD^%DT	ED+5
C^%DTC	ED+5
HOME^%ZIS	START+1
EN3^AMQQ	PQ0+11
DEMOCHK^APCLUTL	DEMO+1
ADD^APCLVL01	ADD+1
INFORM^APCLVL01	TYPE+1
XIT^APCLVL1	XIT+1
XIT1^APCLVL1	XIT1+1
COUNT^APCLVL3	COUNT+1
SAVE^APCLVL3	SAVE+1
TITLE^APCLVL3	TITLE+1
^APCLVL4	SCREEN+2
SHOW^APCLVLS	DEMO+6
SHOWP^APCLVLS	DEMO+6
SHOWR^APCLVLS	DEMO+6
^DIC	PS0+1, PR+3, VV+1, VP+1, VR+3
^DIK	DEL+1
^DIR	ORDER+7, N+7, PQ0+2, PQ0+6, PRSTAT+2, PRSTAT1+1, VRSTAT+2, VRSTAT1+1, BD+1, ED+1 , DEMO+10
^XBDBQUE	DEMO+16, BROWSE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+2
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"USER NOT SET IN DUZ - NOTIFY SITE MANAGER!!",!! Line Location: START+3
Function Call: WRITE	Prompt: !!,"When the list of items for selection, print and sort are displayed to you" Line Location: ORDER+2
Function Call: WRITE	Prompt: !,"in list manager, would you like them sorted alphabetically or in a pre-defined" Line Location: ORDER+3
Function Call: WRITE	Prompt: !,"order. The pre-defined order is set by the software and is how the list has" Line Location: ORDER+4
Function Call: WRITE	Prompt: !,"historically been displayed." Line Location: ORDER+5
Function Call: WRITE	Prompt: ! Line Location: ORDER+6
Function Call: WRITE	Prompt: ! Line Location: PQ0+1
Function Call: WRITE	Prompt: !!,"That SEARCH TEMPLATE already exists!!" Line Location: PQ0+5
Function Call: WRITE	Prompt: ! Line Location: PR+2
Function Call: WRITE	Prompt: !,"No register selected." Line Location: PR+4
Function Call: WRITE	Prompt: !!,"You are not an authorized user of the ",$P(^ACM(41.1,+Y,0),U)," register" Line Location: PR+5
Function Call: WRITE	Prompt: ! Line Location: VV+1
Function Call: WRITE	Prompt: ! Line Location: VP+1
Function Call: WRITE	Prompt: ! Line Location: VR+2
Function Call: WRITE	Prompt: !,"No register selected." Line Location: VR+4
Function Call: WRITE	Prompt: !!,"You are not an authorized user of the ",$P(^ACM(41.1,APCLCMSR,0),U)," register" Line Location: VR+5
Function Call: WRITE	Prompt: !!?((80-$L(APCLLHDR))/2),APCLLHDR Line Location: GETDATES+1
Function Call: WRITE	Prompt: !!,"This is a required response. Remember, if you are using a Search Template of",!,"Visits, the Date Range entered here must correspond to the date range" Line Location: GETDATES+2
Function Call: WRITE	Prompt: !,"used to generate the template or be a subset of that date range.",! Line Location: GETDATES+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	%ZIS Line Location: START+1
Routine Call	DIC Line Location: PS0+1 PR+3 VV+1 VP+1 VR+3
Routine Call	DIR Line Location: ORDER+7 N+7 PQ0+2 PQ0+6 PRSTAT+2 PRSTAT1+1 VRSTAT+2 VRSTAT1+1 BD+1 ED+1 DEMO+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLVRPT - [#9001003.8]	Classic Fileman Calls
^ACM(41.1 - [#9002241.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41.1 - [#9002241.1]	PR+5, VR+5
^APCLVRPT - [#9001003.8]	PP11!, PP12!, PS12!, D11!, D12!, DEL+1
^DIBT("B"	PQ0+5

Label References

Name	Line Occurrences
@(	N+10
ADD	PP+1, PS1+1, ED+6
BD	ORDER+11, ORDER+12, ED+2, ED+3
BROWSE	DEMO+14
COUNT	PP12, PS12, D12
D1	ED+7
D11	D12
D12	D13
DEL	PP+1, PP11, BD+2, ED+6, D11
PP1	PP+2
PP11	PP12
PP12	PP13
PR	PR+5, VR+5
PS	PS1+1, PS12
PS0	PS+2
PS1	ORDER+13, PQ0+13, PRSTAT+4, PRSTAT1+4
PS12	PS13
SAVE	PP13+1, D13+1
SCREEN	PP11, D11
SETPDIR	N+6
TITLE	PP+3, PP13, PS13, ED+8, D13
TYPE	PP+1, PP+3, PP11, BD+2, ED+8
VS	VV+4, VP+4, VRSTAT+4, VRSTAT1+4, ED+6, D11
XIT	ORDER+8, N+8, DEMO+2, DEMO+13, DEMO+14, DEMO+17
XIT1	DEMO+7
ZIS	PP+4, PP13+1, PS13+1, ED+9, D13+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AMQQEN3	PQ0+4*, PQ0+12, PQ0+13
>> AMQQFILE	ORDER+11, ORDER+12, ORDER+13
>> AMQQND	PQ0+10*
>> APCLBD	BD+3*, ED+1, ED+5
>> APCLBDD	ED+5*
>> APCLBQC	DEMO+8
>> APCLCAND	PP+2, ED+7
>> APCLCMSR	PR+1, PR+6, VR+1, VR+5, VR+6
APCLCMSS	PR+1, PRSTAT+1!, PRSTAT+4!, VR+1, VRSTAT+1!, VRSTAT+4!
APCLCMSS(	PRSTAT1+3, VRSTAT1+3
>> APCLCNTL	SCREEN+1*
>> APCLCTYP	DEMO+9
>> APCLD	ED+5*
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDONE	DEMO+5*
>> APCLED	ED+4*, ED+5
>> APCLEDD	ED+5*
>> APCLLHDR	GETDATES+1*
>> APCLLMOR	ORDER+1, ORDER+9
APCLOPT	DEMO+3!, DEMO+12*, DEMO+14
>> APCLPCNT	N+1*
>> APCLPTCT	N+1*
>> APCLPTVS	N+4, N+5, N+6, N+7, N+9
>> APCLQMAN	PS+1, PQ+2*
APCLQUIT	START+4!, PP+1!, PP+3!, PP11!, PP12!, PP13!, PS+3, PS1+1, PS12!, PS13! , PS0+2, PQ+1!, PQ0+5, PQ0+7, PQ0+8, PQ0+12, PR+4, PRSTAT+3, VV+2, VP+2 , VR+4, VRSTAT+3, ED+6!, ED+8!, D11!, D12!, D13!, DEMO+11*, DEMO+13
>> APCLRPT	PP11, PP12, PS12, D11, D12, DEL+1
>> APCLSEAT	ORDER+11, ORDER+12, ORDER+13, PS0+3, PQ0+13, VV+3, VP+3
>> APCLTCW	PP12, PS12, D12, DEMO+4
APCLTYPE	ORDER+12, ORDER+13, N+2!, N+9, N+10, PQ0+13
D	ORDER+7!
DA	ORDER+7!, PS0+1!, PRSTAT+2!, PRSTAT1+1!, VV+1!, VP+1!, VRSTAT+2!, VRSTAT1+1!, DEMO+10!, DEL+1*!
DIC	PS0+1!, PR+3, VV+1!, VP+1!, VR+3*, DEL+1!
DIC("A"	PS0+1, PR+3, VV+1, VP+1, VR+3*
DIC("S"	PS0+1, VV+1, VP+1*
DIC(0	PS0+1, PR+3, VV+1, VP+1, VR+3*
DICR	PS0+1!, VV+1!, VP+1!
DIK	DEL+1*!
DIR	N+3!, N+7!, PQ0+2!, PQ0+6!, PRSTAT+2!, PRSTAT1+1!, VRSTAT+2!, VRSTAT1+1!, BD+1!, ED+1! , DEMO+10!
DIR("?"	SETPDIR+1, SETPDIR+2, SETPDIR+3, SETPDIR+4, SETPDIR+5, SETPDIR+6, SETPDIR+7, SETPDIR+8, SETPDIR+9, SETPDIR+10 , SETPDIR+11, SETPDIR+12
DIR("A"	ORDER+7, N+7, PQ0+2, PQ0+6, PRSTAT+2, PRSTAT1+1, VRSTAT+2, VRSTAT1+1, BD+1, ED+1 , DEMO+10*
DIR("B"	ORDER+7, N+5, PQ0+6, PRSTAT+2, VRSTAT+2, DEMO+10
DIR(0	ORDER+7, N+4, N+5, PQ0+2, PQ0+6, PRSTAT+2, PRSTAT1+1, VRSTAT+2, VRSTAT1+1, BD+1 , ED+1, DEMO+10
>> DIRUT	ORDER+8, N+7, N+8, PQ0+2, PQ0+3, PQ0+6, PQ0+7, PRSTAT+3, PRSTAT1+2, VRSTAT+3 , VRSTAT1+2, BD+1, BD+2, ED+1*, ED+2, DEMO+11
DR	PS0+1!, VV+1!, VP+1!
>> DUOUT	N+7, PQ0+2, PQ0+6, BD+1, ED+1
DUZ	START+3, PR+5, VR+5
DUZ(2	START+2
IOF	START+1
IOM	DEMO+4
U	PR+5, VR+5, DEL+1
X	N+3!, BD+1!, ED+1!, ED+5
>> X1	ED+5*
>> X2	ED+5*
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+15*
>> XBRC	DEMO+15, BROWSE+2
>> XBRP	DEMO+15, BROWSE+1
>> XBRX	DEMO+15, BROWSE+2
Y	ORDER+9, N+3!, N+9, PS0+2, PS0+3, PQ0+4, PQ0+5, PQ0+8, PR+4, PR+5 , PR+6, PRSTAT+4, PRSTAT1+3, VV+2, VV+3, VP+2, VP+3, VR+4, VR+5, VR+6 , VRSTAT+4, VRSTAT1+3, BD+1!, BD+3, ED+1!, ED+3, ED+4, ED+5*, DEMO+12

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVL

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: