Routine: SCRPW9

Package	Total	Call Graph
Scheduling	4	($$XY,SUBT,TITL)^SCRPW50 ($$STX,EXIT,STOP)^SCRPW8 DETAIL^SCRPW9 $$GETOE^SDOE
VA Fileman	4	^%DT C^%DTC ^DIC ^DIR
Kernel	1	EN^XUTMDEVQ
Registration	1	$$PRIM^VASITE

Package	Total	Caller Graph
Scheduling	2	SCRPW8 SCRPW9

Entry Points

External References

Name	Field # of Occurrence
^%DT	FDT, LDT
C^%DTC	LDT
^DIC	DET1, ZDIV+2
^DIR	UHDR, DETAIL+1, DETAIL+3, DET1+5, DHDR, ASK+1, ASK+3
$$XY^SCRPW50	UHDR+2, DHDR+2
SUBT^SCRPW50	PARM+2, ASK
TITL^SCRPW50	PARM+1
$$STX^SCRPW8	UNP2
EXIT^SCRPW8	FDT, LDT, ASK+1, ASK+2, ASK+3, QUE+1
STOP^SCRPW8	UHDR+1, DHDR+1
DETAIL^SCRPW9	ASK+2
$$GETOE^SDOE	UNP1+1
$$PRIM^VASITE	ZDIV+1
EN^XUTMDEVQ	QUE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No 'action required'/not accepted unique patients identified." Line Location: UNARL+2
Function Call: WRITE	Prompt: !!,SDARCT," 'action required'/not accepted unique patient",$S(SDARCT=1:"",1:"s")," identified." Line Location: UNARL+4
Function Call: WRITE	Prompt: !,$E(SDPNAM,1,18),?20,SDSSN Line Location: UNP+0
Function Call: WRITE	Prompt: ! Condition for execution: SDI Line Location: UNP+1
Function Call: WRITE	Prompt: ?31,Y Line Location: UNP+1
Function Call: WRITE	Prompt: ! Condition for execution: SDII Line Location: UNP2+1
Function Call: WRITE	Prompt: ?44,$E(SDCL,1,17),?63,$E(SDST,1,17) Line Location: UNP2+1
Function Call: WRITE	Prompt: $$XY^SCRPW50(IOF,1,0),SDLINE,!?8,"<> LIST OF 'ACTION REQUIRED'/NOT ACCEPTED UNIQUE PATIENTS <>",!?(66-$L(SDDNAM)\2),"For station: ",SDDNAM Line Location: UHDR+2
Function Call: WRITE	Prompt: !,SDLINE,!,"For encounter dates ",SDDTPF," to ",SDDTPL,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE,! Line Location: UHDR+3
Function Call: WRITE	Prompt: ! Line Location: DETAIL+1
Function Call: WRITE	Prompt: !!!,$C(7)," WARNING: Selection high activity areas will result in lengthy output!",! Line Location: DETAIL+2
Function Call: WRITE	Prompt: ! Line Location: DET1+0
Function Call: WRITE	Prompt: ! Line Location: DET1+5
Function Call: WRITE	Prompt: ! Line Location: ZDIV+2
Function Call: WRITE	Prompt: $C(7)," Required for patient detail!" Line Location: ZDIV+3
Function Call: WRITE	Prompt: !,"No records found in this category." Line Location: DPRT+5
Function Call: WRITE	Prompt: !!,SDCT," uniques identified." Line Location: U+2
Function Call: WRITE	Prompt: !,$E(SDPNAM,1,18),?21,SDSSN Line Location: U1+0
Function Call: WRITE	Prompt: !!,SDCT," visits identified." Line Location: V+2
Function Call: WRITE	Prompt: ! Condition for execution: SDI Line Location: V1+1
Function Call: WRITE	Prompt: ?32,Y Line Location: V1+1
Function Call: WRITE	Prompt: !!,SDCT," encounters identified." Line Location: E+2
Function Call: WRITE	Prompt: !,$E(SDPNAM,1,18),?21,SDSSN Line Location: E1+0
Function Call: WRITE	Prompt: ! Condition for execution: SDI Line Location: E2+0
Function Call: WRITE	Prompt: ?32,$P(Y,":",1,2),?50,SDHL Line Location: E2+0
Function Call: WRITE	Prompt: !?(80-$L(SDH(I))\2),SDH(I) Line Location: DHDR+2
Function Call: WRITE	Prompt: !,SDLINE,!,"For date range: ",SDDTPF," to ",SDDTPL,!,"Date printed: ",SDPNOW,?(74-$L(SDPAGE)),"Page: ",SDPAGE,!,SDLINE,! Line Location: DHDR+3
Function Call: WRITE	Prompt: ! Line Location: FDT+0
Function Call: WRITE	Prompt: " ",Y,! Line Location: FDT+0
Function Call: WRITE	Prompt: ! Line Location: FDT+1
Function Call: WRITE	Prompt: " ",Y,! Line Location: LDT+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending date must be after beginning date!",! Line Location: LDT+1
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK+2
Function Call: WRITE	Prompt: ! Line Location: ASK+3
Routine Call	DIC Line Location: DET1 ZDIV+2
Routine Call	DIR Line Location: UHDR DETAIL+1 DETAIL+3 DET1+5 DHDR ASK+1 ASK+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DG(40.8 - [#40.8]	Classic Fileman Calls
^SD(409.63 - [#409.63]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	UNP+1, V1+1, E2, FDT, FDT+1, LDT, LDT+2
^DG(40.8 - [#40.8]	ZDIV+1
^DG(43 - [#43]	ZDIV+1
^SC - [#44]	UNP2, E2
^SCE("ADFN"	UNP1, UNP1+1
^SD(409.63 - [#409.63]	UNP2, DPRT+3
^TMP(	UNARL+2, UNARL+3, UNP, UNP+1, UHDR+4, DPRT+5, U+1, U1, V+1, V1 , E+1, E1+1, E2

Label References

Name	Line Occurrences
@(	DPRT+6
ASK	LDT
DHDR	DPRT+5, U1, V1, V1+1, E1, E2
E1	E+1
E2	E1+1
FDT	FDT+1
LDT	FDT, LDT+1, LDT+2
U1	U+1
UHDR	UNARL+2, UNARL+4, UNP, UNP+1, UNP2+1
UNP	UNARL+3
UNP1	UNP+1
UNP2	UNP1+1
V1	V+1
ZDIV	DETAIL+4, DET1+1, ZDIV+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PARM+2~, FDT*
%DT("A"	FDT, LDT
%DT(0	FDT*
>> DFN	UNARL+3, UNP, UNP+1, UNP1, UNP1+1, U+1, U1, V+1, V1, E+1 , E1+1, E2
DIC	DET1!, ZDIV+2!, PARM+2~
DIC("A"	DET1, ZDIV+2
DIC("S"	DET1*
DIC(0	DET1, ZDIV+2
DIR	UHDR~, DETAIL+1!, DETAIL+3!, DET1+1!, DHDR~, PARM+2~, ASK+1!, ASK+3!
DIR("?"	ASK+1*
DIR("A"	DETAIL+1, DETAIL+3, DET1+1, ASK+1, ASK+3*
DIR("B"	DETAIL+1, ASK+1, ASK+3*
DIR(0	UHDR, DETAIL+1, DETAIL+3, DET1+2, DET1+3, DET1+4, DHDR, ASK+1, ASK+3*
DT	LDT
>> DTOUT	DETAIL+1, DETAIL+3, DET1, DET1+5, ZDIV+2, FDT, LDT, ASK+1, ASK+3
>> DUOUT	DETAIL+1, DETAIL+3, DET1, DET1+5, ZDIV+2, ASK+1, ASK+3
>> I	DHDR+2*
IOF	UHDR+2, DHDR+2
IOSL	UNARL+4, UNP, UNP+1, UNP2+1, U1, V1, V1+1, E1, E2
IOST	UHDR, DHDR
>> SDARCT	UNARL+3, UNARL+4, UNP+1
SDCL	UNP2~*, UNP2+1
>> SDCLGR	ASK+1*
>> SDCT	DPRT+6, U+2, U1, V+2, V1+1, E+2, E2
>> SDDNAM	UHDR+2
>> SDDT	UNP+1, UNP1, V1, V1+1, E1+1*, E2
SDDT1	UNP1~*, UNP1+1
>> SDDTF	FDT, FDT+1, LDT+1
>> SDDTL	LDT, LDT+2
>> SDDTPF	UHDR+3, DHDR+3, FDT, FDT+1
>> SDDTPL	UHDR+3, DHDR+3, LDT, LDT+2
SDH	DPRT+2!
SDH(	DHDR+2
SDH(1	DPRT+2*
SDH(2	DPRT+2*
SDH(3	DPRT+3*
SDH(4	DPRT+4*
>> SDHL	E2*
>> SDI	UNP+1, V1, V1+1, E1+1, E2, QUE
SDII	UNP1~, UNP2+1
>> SDLINE	UHDR+2, UHDR+3, DHDR+2, DHDR+3
>> SDOE	UNP1+1, UNP2, E1+1, E2
>> SDOE0	UNP1+1*, UNP2
>> SDOUT	UNARL+2, UNARL+3, UNARL+4, UNP, UNP+1, UNP1, UNP1+1, UNP2+1, UHDR, UHDR+1 , DPRT+5, U+1, U+2, U1, V+1, V+2, V1, V1+1, E+1, E+2 , E1, E1+1, E2, DHDR, DHDR+1
>> SDPAGE	UNARL+2, UHDR+3, DPRT+2, DHDR+3
>> SDPNAM	UNARL+3, UNP, UNP+1, U+1, U1, V+1, V1, E+1, E1, E1+1 , E2
>> SDPNOW	UHDR+3, DHDR+3
SDS1	UNARL~, UNARL+2, UNARL+3, UNP, UNP+1, UHDR+4, DPRT~, DPRT+5, U+1, U1 , V+1, V1, E+1, E1+1, E2
SDS2	UNARL~, UNARL+2, UNARL+3, UNP, UNP+1, UHDR+4, DPRT~, DPRT+5, U+1, U1 , V+1, V1, E+1, E1+1, E2
>> SDSSN	UNP, UNP+1, U1, V+1, V1, E+1, E1, E1+1, E2
SDST	UNP2~*, UNP2+1
>> SDUL	ASK+3*
SDZ	DETAIL+1!
SDZ(0	DETAIL+1, DETAIL+2, DETAIL+3, DET1, DET1+5, ZDIV+2, ASK+2
SDZ(1	DETAIL+4*, DPRT+2, DPRT+6
SDZ(2	DET1+1*, DET1+4, DPRT+3, DPRT+4
SDZ(3	DET1+6*
SDZ(4	ZDIV+1, ZDIV+4, DPRT+2
U	UNP1+1, UNP2, DET1+1, ZDIV+1, ZDIV+4, DPRT+3, E2, FDT, LDT
>> X	FDT, LDT
>> X1	LDT*
>> X2	LDT*
>> Y	UNP+1, UHDR, DETAIL+2, DETAIL+4, DET1, DET1+1, DET1+6, ZDIV+3, ZDIV+4, V1+1 , E2, DHDR, FDT, FDT+1, LDT*, LDT+1, LDT+2, ASK+1, ASK+3
>> ZTDESC	QUE*, QUE+1
>> ZTRTN	QUE*, QUE+1
>> ZTSAVE	QUE+1
>> ZTSAVE(	QUE*

Customize PDF page

Package: Scheduling

Routine: SCRPW9

Information

Source Information

Call Graph

Call Graph Total: 10

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:

Marked Items

Name	Comments	DBIA/ICR reference
PARM	;Prompt for report parameters
ZDIV	;Get division for detail
U1
DHDR
FDT
DPRT(SDS1,SDS2)	;Detail print
UNARL(SDS1,SDS2)	;Print list of 'action required'/not accepted uniques
V1
UHDR
LDT
ASK
TXS	;All transmission statuses
E2
UNP
E	;Print encounters
UNP1
U	;Print uniques
V	;Print visits
DET1
E1
DETAIL	;Ask questions for detail of encounters or uniques for a division
QUE
UNP2