Routine: SCRPW45

Package	Total	Call Graph
Scheduling	6	$$DIVA^SCRPW17 BLD^SCRPW21 $$DIR^SCRPW23 PDIS^SCRPW46 EXIT^SCRPW47 (SUBT,TITL)^SCRPW50
VA Fileman	3	^%DT ^DIC ^DIR
DRG Grouper	2	$$ICDDX^ICDCODE $$CPT^ICPTCOD
Kernel	1	EN^XUTMDEVQ

Package	Total	Caller Graph
Scheduling	1	SCRPW47

Entry Points

External References

Name	Field # of Occurrence
^%DT	SCRPW45+6, EDT
^DIC	LIST+1, RANGE+1, R2
^DIR	EDT+7, EDT+8, PAR+4, CRI1+4, PFD
$$ICDDX^ICDCODE	LIST+4, RANGE+4, R2+2
$$CPT^ICPTCOD	LIST+4, RANGE+4, R2+2
$$DIVA^SCRPW17	SCRPW45+4
BLD^SCRPW21	EDT+9
$$DIR^SCRPW23	APF+3, APF+4
PDIS^SCRPW46	EDT+10
EXIT^SCRPW47	EXIT
SUBT^SCRPW50	SCRPW45+5, EDT+5, PAR+2, CRI+1, APF+1
TITL^SCRPW50	SCRPW45+3
EN^XUTMDEVQ	QUE+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SCRPW45+6
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: ! Line Location: EDT+7
Function Call: WRITE	Prompt: ! Line Location: EDT+8
Function Call: WRITE	Prompt: ! Line Location: QUE+1
Function Call: WRITE	Prompt: ! Line Location: PAR+4
Function Call: WRITE	Prompt: ! Line Location: LIST+0
Function Call: WRITE	Prompt: ! Line Location: RANGE+0
Function Call: WRITE	Prompt: ! Line Location: R2+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending value must collate after beginning value!",! Line Location: R2+4
Function Call: WRITE	Prompt: !!," Specify letter combinations that represent how the search elements selected",!," above will be applied in evaluating patient activity (eg. ""ABC"" or ""ABC'D""):" Line Location: CRI+2
Function Call: WRITE	Prompt: ! Line Location: CRI1+4
Function Call: WRITE	Prompt: $C(7)," ?? Invalid!" Line Location: CRI1+6
Function Call: WRITE	Prompt: $C(7),"No criteria selected!" Line Location: CRI1+8
Function Call: WRITE	Prompt: $C(7)," ?? The value ""'&"" is incorrect syntax!" Line Location: CRI1+9
Function Call: WRITE	Prompt: $C(7)," ?? Character ""'"" appears redundantly!" Line Location: CRI1+10
Function Call: WRITE	Prompt: $C(7)," ?? Character ""&"" appears redundantly!" Line Location: CRI1+11
Function Call: WRITE	Prompt: $C(7),"No criteria selected!" Line Location: CRI1+12
Function Call: WRITE	Prompt: $C(7)," ?? Element '"_SDC_"' appears redundantly!" Line Location: CRI1+14
Function Call: WRITE	Prompt: $C(7)," ?? Character '"_SDC_"' is not recognized!" Line Location: CRI1+15
Function Call: WRITE	Prompt: !?4,SDTX(SDIII) Line Location: CRI1+19
Function Call: WRITE	Prompt: !,"deleted..." Line Location: PFD+1
Routine Call	DIC Line Location: LIST+1 RANGE+1 R2
Routine Call	DIR Line Location: EDT+7 EDT+8 PAR+4 CRI1+4 PFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	SCRPW45+6, EDT+2
^TMP("SCRPW"	APF+6

Label References

Name	Line Occurrences
$$STR1	STR+4
APF	EDT+9
CRI	EDT+3
CRI1	CRI+3, CRI1+6, CRI1+8, CRI1+9, CRI1+10, CRI1+11, CRI1+12, CRI1+18
EDT	EDT+1
EXIT	SCRPW45+4, SCRPW45+6, EDT, EDT+3, EDT+4, EDT+7, EDT+8, EDT+10
INCR	MOVE, MOVE1, MOVE2, MOVE2+2, MOVE2+3
LIST	PAR+6
MOVE	WRAP+11, MOVE, MOVE2, MOVE2+1, MOVE2+2, MOVE2+3, MOVE3+1
PAR	EDT+2, PAR+7
PFD	APF+5
PIX	WRAP+11
POX	WRAP+10, INCR
R2	R2+4
RANGE	PAR+6
STR	CRI1+19
WRAP	STR+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	SCRPW45+2~, SCRPW45+6*
%DT("A"	SCRPW45+6, EDT
%DT(0	SCRPW45+6*
DIC	PAR+6~*
DIC("A"	RANGE, RANGE+5
DIC(0	PAR+6*
DIR	SCRPW45+2~, EDT+6!, EDT+8!, PAR+3!, CRI1!, APF+2!, APF+3, APF+4!, PFD~
DIR("?"	EDT+6, PAR+4, CRI1+1, CRI1+2, CRI1+3, APF+2
DIR("A"	EDT+6, EDT+8, PAR+3, CRI1, APF+2, APF+4, PFD*
DIR("B"	EDT+6, EDT+8, PFD*
DIR(0	EDT+6, EDT+8, PAR+3, CRI1, PFD*
>> DTOUT	EDT+7, EDT+8, PAR+4, LIST+1, RANGE+1, R2, CRI1+4, PFD
>> DUOUT	EDT+7, EDT+8, PAR+4, LIST+1, RANGE+1, R2, CRI1+4, PFD
IOM	WRAP+10
>> S1	RANGE+5, R2+4, APF+3, APF+4, APF+5, APF+6, PFD+1*
>> S2	R2+3, R2+4, R2+5, APF+4, APF+5, APF+6, PFD+1*
SD	SCRPW45+2~
SD("BDT"	SCRPW45+6*, EDT+1
SD("EDT"	EDT+2*
SD("LIST"	PAR+7*
SD("PBDT"	SCRPW45+6*
SD("PEDT"	EDT+2*
>> SDAPF(	APF+6*
>> SDAPF("PF"	PFD+1!
>> SDAPF("PFX"	APF+5, APF+6*, PFD+1
>> SDAPF("SDX"	PFD+1!
>> SDBAD	CRI1+13, CRI1+14, CRI1+15*, CRI1+18
>> SDC	CRI1+7, CRI1+13, CRI1+14, CRI1+15, CRI1+16
SDCRI	SCRPW45+2~, EDT+4
SDCRI(	CRI1+19*
>> SDD	EDT+7*, APF+3, APF+4
SDDIV	SCRPW45+2~, SCRPW45+4
SDEXE	STR+3~
>> SDFMT	EDT+7*
SDI	EDT+2, QUE, PAR+1, STR+3~, STR+4*
>> SDII	CRI+3*, CRI1, CRI1+19
>> SDIII	CRI1+13, CRI1+19
SDITX	WRAP~, WRAP+10
SDITX(	WRAP+11
SDITX(""	WRAP+10
SDIXE	WRAP~
SDIXE(	PIX
SDLAST	WRAP+9~, WRAP+10*, WRAP+11
SDLTH	STR+5, WRAP~, WRAP+10, MOVE, MOVE1, MOVE2, MOVE2+2, MOVE2+3
>> SDNUL	EDT+2, EDT+3, EDT+9, PAR+5, PAR+6, LIST, LIST+2, RANGE+2, R2+1, CRI+3 , CRI1+5, APF+3, APF+4
SDOTX	WRAP~, WRAP+10!
SDOTX(	MOVE, MOVE+1, MOVE1, MOVE2, MOVE2+1, MOVE2+3, MOVE3+1, INCR*
SDOTX(1	WRAP+10*
>> SDOUT	EDT+2, EDT+3, EDT+4, EDT+9, EDT+10, PAR+4, LIST, LIST+1, RANGE+1, R2 , CRI+3, CRI1+4*, APF+3, APF+4
SDOXE	STR+5, WRAP~
SDOXE(	POX
SDOXE(2	STR+5*
SDPAR	SCRPW45+2~, EDT+3
SDPAR(	PAR+7, LIST+5, RANGE+5, R2+1!, R2+5, CRI1+15, STR1+3
>> SDR	CRI1+13*, CRI1+14
>> SDRESP	CRI1+13*
>> SDS1	APF+6*
>> SDS2	APF+6*
>> SDSEL	PAR+6, PAR+7, LIST+4, LIST+5, RANGE, RANGE+4, RANGE+5, R2+2, R2+3, APF+5 , APF+6, PFD+1
>> SDSEL(0	PAR+6*, PAR+7
SDSTR	CRI1+13, CRI1+16, CRI1+19*, STR~, STR+4, STR+5
SDTX	CRI1+19, STR~, STR+5
SDTX(	CRI1+19
SDTX(1	CRI1+19
SDTXB	WRAP+9~, MOVE3!
SDTXB(	MOVE3*, MOVE3+1
SDTXB(998	MOVE3+1
SDUI	WRAP+9~, WRAP+10, WRAP+11, PIX
SDUII	WRAP+9~, WRAP+10, POX, MOVE, MOVE+1, MOVE1, MOVE2, MOVE2+1, MOVE2+3, MOVE3+1 , INCR
SDUIII	WRAP+9~, MOVE3, MOVE3+1
SDUIV	WRAP+9~, MOVE3+1*
SDUJC	WRAP~, WRAP+10*, WRAP+11
>> SDVAR	PAR+1*, PAR+2, PAR+3, PAR+4, PAR+7, LIST+5, RANGE+5, R2+1, R2+5
SDX	STR+3~, STR+5, STR1~, STR1+2, STR1+3
SDX(	STR+4*
>> T	EDT+9*, APF+6
U	EDT+7, PAR+7, LIST+5, RANGE+5, R2+3, R2+5, STR1+3, APF+4, APF+5, APF+6
X	PAR+5, LIST+2, RANGE+2, R2+1, CRI1+5, CRI1+6, WRAP+9~, WRAP+11, MOVE, MOVE+1 , MOVE1, MOVE2, MOVE2+1, MOVE2+3, MOVE3, MOVE3+1*
X1	WRAP+9~, MOVE*, MOVE+1, MOVE1, MOVE2
X2	WRAP+9~, MOVE*, MOVE3
X3	WRAP+9~, MOVE2+1*, MOVE2+2, MOVE2+3
X4	WRAP+9~, MOVE3*
Y	SCRPW45+6, EDT, EDT+1, EDT+2, EDT+7, EDT+9, PAR+6, LIST+3, LIST+4, LIST+5 , RANGE+3, RANGE+4, RANGE+5, R2+1, R2+2, R2+5, CRI1+7, CRI1+8, CRI1+9, CRI1+10 , CRI1+11, CRI1+12, CRI1+13, PFD+1, WRAP+9~, MOVE
Y(0	EDT+7, PAR+6, LIST+4, LIST+5, RANGE+4, RANGE+5, R2+2*, R2+3
Y1	WRAP+9~, MOVE*, MOVE1, MOVE2, MOVE2+3
Y2	WRAP+9~, MOVE*, MOVE+1, MOVE2+1, MOVE2+2, MOVE3+1
ZTSAVE	QUE~, QUE+1
ZTSAVE(	QUE*

Customize PDF page

Package: Scheduling

Routine: SCRPW45

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAR	;Select report search criteria
STR1(SDX)	;Convert to text (cont.)
POX
PFD
R2
MOVE3
MOVE
LIST
MOVE2
STR(SDSTR,SDTX)	;Convert combine logic into output text string
INCR
PIX
RANGE
EXIT
EDT
WRAP(SDITX,SDOTX,SDIXE,SDOXE,SDLTH,SDUJC)	;Text wrapper
QUE
MOVE1
CRI	;Prompt for element combination criteria
APF	;Select additional print fields
CRI1