Routine: SCRPW41

Call Graph Total: 18

Package	Total	Call Graph
Scheduling	8	$$DIVA^SCRPW17 BLD^SCRPW21 ($$DIR,DISP0)^SCRPW23 ASK^SCRPW41 (,$$DSV,EXIT,EXIT1)^SCRPW42 (PDIS,SCAT)^SCRPW43 (SUBT,TITL)^SCRPW50 $$GETOE^SDOE
VA Fileman	4	^%DT NOW^%DTC ^DIC ^DIR
Registration	3	^DGPMSTAT WARD^DGPMUTL (DEM,ELIG)^VADPT
Kernel	2	$$S^%ZTLOAD EN^XUTMDEVQ
Uncategorized	1	$$AUTHL^FBUTL

Package

Total

Call Graph

$$DIVA^SCRPW17 BLD^SCRPW21 ($$DIR,DISP0)^SCRPW23 ASK^SCRPW41 (,$$DSV,EXIT,EXIT1)^SCRPW42 (PDIS,SCAT)^SCRPW43 (SUBT,TITL)^SCRPW50 $$GETOE^SDOE

VA Fileman

^%DT NOW^%DTC ^DIC ^DIR

Registration

^DGPMSTAT WARD^DGPMUTL (DEM,ELIG)^VADPT

Kernel

$$S^%ZTLOAD EN^XUTMDEVQ

Uncategorized

$$AUTHL^FBUTL

Package	Total	Caller Graph
Scheduling	2	SCRPW41 SCRPW43

Package

Total

Caller Graph

Scheduling

SCRPW41 SCRPW43

Entry Points

Name	Comments	DBIA/ICR reference
STAT	;Prompt for encounter statuses to include
SET	;Set TMP global
ASK1	;Prompt for 'Means Test/Eligibility/Enrollment Report' parameters
EDT1
STOP	;Check for stop task request
VET()	;Vet? Alive? Eligible?
SORT(SDACR)	;Return sort value
START	;Print report
PF()	;Prompt for page feed
EVAL(SDBD,SDED)	;Evaluate last activity
EDT
ASK	;Ask for sort elements
WARD(SDT)	;Get ward for date/time

External References

Name	Field # of Occurrence
^%DT	SCRPW41+8, EDT, ASK1+5, EDT1
NOW^%DTC	START+1, START+4
$$S^%ZTLOAD	STOP+1
^DGPMSTAT	WARD+2
WARD^DGPMUTL	EVAL+18
^DIC	STAT+4
^DIR	EDT+9, PF+1, EDT1+5, EDT1+8
$$AUTHL^FBUTL	EVAL+13
$$DIVA^SCRPW17	ASK1+3
BLD^SCRPW21	EDT+3, START+1, EDT1+9
$$DIR^SCRPW23	ASK+2, ASK+3
DISP0^SCRPW23	STAT+7
ASK^SCRPW41	EDT1+10
^SCRPW42	START+4
$$DSV^SCRPW42	SET+7
EXIT^SCRPW42	SCRPW41+8, EDT, EDT+5, EDT+9, EDT+11, START+4
EXIT1^SCRPW42	ASK1+3, ASK1+5, EDT1, EDT1+5, EDT1+8, STAT+5, STAT+7
PDIS^SCRPW43	STAT+5
SCAT^SCRPW43	EDT1+8
SUBT^SCRPW50	SCRPW41+7, EDT+3, EDT+5, ASK+1, ASK1+4, EDT1+3, EDT1+6, EDT1+9, STAT+1
TITL^SCRPW50	SCRPW41+3, ASK1+2
$$GETOE^SDOE	EVAL+8
DEM^VADPT	VET+1
ELIG^VADPT	VET+2
EN^XUTMDEVQ	EDT+11, STAT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will return a list of veterans that are not deceased who had",!,"activity during a date range specified by the user, and have not been seen" Line Location: SCRPW41+4
Function Call: WRITE	Prompt: !,"since. Activity is determined by an examination of Fee Basis, inpatient and",!,"outpatient care (including future appointments). Once the scheduling" Line Location: SCRPW41+5
Function Call: WRITE	Prompt: !,"replacement application has been implemented at your site, this report will",!,"no longer be accurate." Line Location: SCRPW41+6
Function Call: WRITE	Prompt: ! Line Location: SCRPW41+8
Function Call: WRITE	Prompt: ! Line Location: EDT+0
Function Call: WRITE	Prompt: !!,$C(7),"End date cannot be before begin date!",! Line Location: EDT+1
Function Call: WRITE	Prompt: !!,"Veterans not seen since the date range: ",SD("PBDT")," to ",SD("PEDT"),!!,"Output sort elements: " Line Location: EDT+5
Function Call: WRITE	Prompt: "(NONE SELECTED)" Line Location: EDT+6
Function Call: WRITE	Prompt: ! Condition for execution: SDI>1 Line Location: EDT+7
Function Call: WRITE	Prompt: ?(19+(3*SDI)) Line Location: EDT+7
Function Call: WRITE	Prompt: $E($P(SDX,U,2),1,SDL)_$S($P(SDX,U,3):" <pagefeed>",1:"") Line Location: EDT+7
Function Call: WRITE	Prompt: !!,"This report requires 132 column output.",! Line Location: EDT+10
Function Call: WRITE	Prompt: ! Line Location: PF+1
Function Call: WRITE	Prompt: ! Line Location: ASK1+5
Function Call: WRITE	Prompt: ! Line Location: EDT1+0
Function Call: WRITE	Prompt: !!,$C(7),"End date cannot be before begin date!",! Line Location: EDT1+1
Function Call: WRITE	Prompt: !!,"Choose as many of the following statuses",!,"as you wish to include in the report:",! Line Location: STAT+2
Function Call: WRITE	Prompt: !?10,"CHECKED IN",!?10,"CHECKED OUT",!?10,"NO ACTION TAKEN",!?10,"INPATIENT APPOINTMENT",!?10,"NON-COUNT",!?10,"ACTION REQUIRED",! Line Location: STAT+3
Function Call: WRITE	Prompt: !!,"This report requires 132 column output." Condition for execution: $P(SD("FMT",1),U)="D" Line Location: STAT+7
Function Call: WRITE	Prompt: ! Line Location: STAT+7
Routine Call	DIC Line Location: STAT+4
Routine Call	DIR Line Location: EDT+9 PF+1 EDT1+5 EDT1+8

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCRPW41+8, EDT+2, START+4, ASK1+5, EDT1+2
^DGPM - [#405]	EVAL+16
^DGPM("APRD"	EVAL+16, EVAL+18
^DIC(42 - [#42]	EVAL+17, WARD+2
^DPT - [#2]	START+3, EVAL+9, EVAL+10, SET+1
^SC - [#44]	EVAL+8, EVAL+9
^SCE("ADFN"	EVAL+8
^SDV("ADT"	EVAL+11
^TMP("SCRPW"	START+1!, SET+3, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10*, SORT+3

Name	Line Occurrences
$$EVAL	START+3
$$PF	ASK+4
$$SORT	SET+2
$$VET	START+3
ASK	EDT+4, ASK+3
EDT	EDT+1
EDT1	EDT1+1
SET	START+3
STAT	EDT1+5
STOP	START+3
WARD	EVAL+19, EVAL+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	START+1, START+4
%DT	SCRPW41+2~, SCRPW41+8, ASK1+1~, ASK1+5
%DT("A"	SCRPW41+8, EDT, ASK1+5, EDT1
%DT(0	ASK1+5*
D0	EVAL+18~*
>> DFN	START+1, START+3, EVAL+8, EVAL+9, EVAL+10, EVAL+11, EVAL+13, EVAL+16, EVAL+18, SET+1 , SET+3, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SORT+3
DG1	WARD+2~
DGA1	WARD+2~
DGT	WARD+2~*
DGXFR0	WARD+2~
DIC	STAT+3~*
DIC("A"	STAT+4*
DIC("B"	STAT+3*, STAT+4!
DIC("S"	STAT+4*
DIC(0	STAT+3*
DIR	SCRPW41+2~, EDT+9!, ASK+2, ASK+3, PF+1~, ASK1+1~, EDT1+4!, EDT1+7!
DIR("?"	EDT+3, EDT+9, PF+1, EDT1+4, EDT1+7, EDT1+9
DIR("A"	EDT+4, EDT+9, ASK+3, PF+1, EDT1+4, EDT1+7, EDT1+10*
DIR("B"	EDT+9, PF+1, EDT1+5*
DIR(0	EDT+9, ASK+2!, ASK+3!, PF+1, EDT1+4, EDT1+7
>> DTOUT	EDT+9, PF+1, EDT1+5, EDT1+8, STAT+4
>> DUOUT	EDT+9, PF+1, EDT1+5, EDT1+8, STAT+4
I	STAT+3~, STAT+4*
>> S1	ASK+2*, ASK+3, ASK+4
>> S2	ASK+3*, ASK+4
SD	SCRPW41+2!, ASK1+1~
SD("BDT"	SCRPW41+8, EDT+1, START+3, ASK1+5, EDT1+1
SD("EDT"	EDT+2, START+3, EDT1+2
SD("FMT"	EDT1+5, EDT1+8, STAT+7
SD("PAGE"	EDT+3, PF+2, EDT1+9*
SD("PBDT"	SCRPW41+8*, EDT+5
SD("PEDT"	EDT+2*, EDT+5
SD("SORT"	EDT+3, EDT+6, EDT+7, ASK+4, SET+2, SET+3, SET+4, SET+5, SET+6, SET+8 , SET+9, SET+10, ASK1+1, EDT1+9
SD("STAT"	STAT+2!, STAT+4*, STAT+5
>> SD0	SET+1*
SDACR	SORT~, SORT+3
SDACT	SORT+2~, SORT+3*
SDBD	EVAL~, EVAL+13, EVAL+22
SDDIV	ASK1+1~, ASK1+3
SDDT	EVAL+7~
SDDT(	EVAL+8, EVAL+9, EVAL+11, EVAL+15, EVAL+17, EVAL+18, EVAL+21, WARD+2*
SDDT(9999999	EVAL+10*, EVAL+21
SDED	EVAL~, EVAL+22
>> SDFEE	START+2, EVAL+14
>> SDI	EDT+4, EDT+7, ASK+1, ASK+4, PF+2, SET+2, EDT1+10
>> SDL	EDT+7*
>> SDLINE	START+4*
>> SDNOW	START+1*, EVAL+20
SDNUL	EDT+2, EDT+4, ASK+2, ASK+3, ASK1+1~, EDT1+9, EDT1+10
SDOE0	SORT+2~, SORT+3*
SDOUT	EDT+2, EDT+4, EDT+5, ASK+2, ASK+3, PF+1, START+1, START+3, START+4, STOP+1 , ASK1+1~*, EDT1+8, EDT1+10, STAT+5
>> SDPAGE	START+4*
>> SDPG	START+4*
>> SDPNAM	SET+1*, SET+3, SET+4, SET+5, SET+6, SET+8, SET+9, SET+10
>> SDPNOW	START+4*
SDS	SET+2~
SDS(	SET+2*
SDS(1	SET+4, SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
SDS(2	SET+5, SET+6, SET+7, SET+8, SET+9, SET+10
SDS(3	SET+6, SET+7, SET+8, SET+9, SET+10
SDS(4	SET+7, SET+8, SET+9, SET+10
SDS(5	SET+9, SET+10
SDS(6	SET+10
>> SDSSN	SET+1*
>> SDSTOP	START+1, START+3
SDT	WARD~, WARD+2
>> SDTOT	START+4*
>> SDUI	SET+7*, SET+8, SET+9, SET+10
SDX	EDT+3, EDT+4, EDT+7, ASK+1, ASK+4, PF+1, START+3, EVAL+7~, EVAL+8, EVAL+9 , EVAL+10, EVAL+11, EVAL+16, EVAL+17, EVAL+18, EVAL+19, EVAL+21, EVAL+22, SET+1, SET+3 , SET+4, SET+5, SET+6, SET+8, SET+9, SET+10, SORT+2~, SORT+4, EDT1+9*, EDT1+10
SDX(	EVAL+15, SORT+4
SDX(""	SORT+4
SDXX	EVAL+7~, EVAL+13*, EVAL+14, EVAL+15
SDY	EVAL+7~, EVAL+8, EVAL+9, EVAL+16*, EVAL+17, EVAL+18
SDZ	ASK+1~
>> T	EDT+4, START+1, SORT+3, EDT1+10*
U	EDT+7, ASK+3, ASK+4, START+3, EVAL+8, EVAL+9, EVAL+17, EVAL+18, EVAL+21, EVAL+22 , WARD+2, SET+1, SET+2, SORT+3, SORT+4, ASK1+5, EDT1+2, EDT1+5, EDT1+8, STAT+4 , STAT+7
>> VADM(6	VET+1
>> VAEL(4	VET+2
>> VAEL(5	VET+3
X	EVAL+18~, ASK1+1~, STAT+4
Y	SCRPW41+8, EDT, EDT+1, EDT+2, EDT+9, PF+2, START+4*, ASK1+1~, ASK1+5, EDT1 , EDT1+1, EDT1+2, EDT1+5, EDT1+8, STAT+4
Y(0	EDT1+5, EDT1+8
>> ZTQUEUED	STOP+1
ZTSAVE	EDT+10~, EDT+11, STAT+6~, STAT+7
ZTSAVE("SD("	EDT+10, STAT+6
ZTSAVE("SDDIV"	STAT+6*
ZTSAVE("SDDIV("	STAT+6*
>> ZTSTOP	STOP+1*

Customize PDF page

Package: Scheduling

Routine: SCRPW41

Information

Source Information