Routine: SCRPW23

Package	Total	Call Graph
Scheduling	3	BLD^SCRPW21 WAIT^SCRPW22 SUBT^SCRPW50
Kernel	2	ENS^%ZISS EN^XUTMDEVQ
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

Scheduling

BLD^SCRPW21 WAIT^SCRPW22 SUBT^SCRPW50

Kernel

ENS^%ZISS EN^XUTMDEVQ

VA Fileman

^DIC ^DIR

Package	Total	Caller Graph
Scheduling	33	SCRPO1 SCRPO3 SCRPO5 SCRPO6 SCRPW1 SCRPW10 SCRPW11 SCRPW15 SCRPW16 SCRPW2 SCRPW20 SCRPW22 SCRPW27 SCRPW29 SCRPW40 SCRPW41 SCRPW42 SCRPW45 SCRPW46 SCRPW47 SCRPW50 SCRPW51 SCRPW54 SCRPW56 SCRPW57 SCRPW58 SCRPW59 SCRPW6 SCRPW60 SCRPW62 SCRPW63 SCRPW7 SCRPW8

Package

Total

Caller Graph

Scheduling

SCRPO1  SCRPO3  SCRPO5  SCRPO6  SCRPW1  SCRPW10  SCRPW11  SCRPW15
SCRPW16  SCRPW2  SCRPW20  SCRPW22  SCRPW27  SCRPW29  SCRPW40  SCRPW41
SCRPW42  SCRPW45  SCRPW46  SCRPW47  SCRPW50  SCRPW51  SCRPW54  SCRPW56
SCRPW57  SCRPW58  SCRPW59  SCRPW6  SCRPW60  SCRPW62  SCRPW63  SCRPW7
SCRPW8

Entry Points

Name	Comments	DBIA/ICR reference
VCPQ
SEL(SDTYP,SDIRB)	;Select items for list or range
PSCRN	;screen out the 4 cancellation type status' SD5.3474
XY(X,SDI)	;Maintain $X, $Y
PLST1
DIRB1(S1,S2,SDEF)	;Set DIR("B")
NULL	;Set list for null value
D	;Get date values
DIR2
PP	;Get pointer value from file multiple
PFL1()	;Print field level 1 evaluator
PLST	;Print category list
DIR(DIR,SDLEV,SDEXE,SDS,SDO,SDPFL,SDA)	;Ask questions!
LST
RL	;Prompt for range or list
DISP0	;Return to full screen scrolling
RCOL()	;Determine range collation validity
VCP(SDX)	;Validate Stop Code credit pair
DISP(SDTOP,SDBOT)	;Create centered scrolling region
C	;Get computed value
R1
R2
F	;Get field values
LSD()
N	;Get number value
P	;Get pointer values ;SD5.3474 added PSCRN to screen certain status types
S	;Get set-of-codes value
DIR1
T	;Get text value
LST1	;List existing item selections
LST0
RNG
PFL2()	;Print field level 2 evaluator
DIRB(SDFL)	;Get default values for range
PLIST	;Print category list

Name	Field # of Occurrence
ENS^%ZISS	DISP0+2
^DIC	P+1, PP+1, PP+3
^DIR	LSD, D+1, F+1, N+1, T+1, S+1, DIR+10
BLD^SCRPW21	PLST+1
WAIT^SCRPW22	LST1+2
SUBT^SCRPW50	RNG, LST+1
EN^XUTMDEVQ	PLIST+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Start with:" Line Location: R1+0
Function Call: WRITE	Prompt: !!,"End with:" Line Location: R2+0
Function Call: WRITE	Prompt: !!,$C(7),"End value must collate after start value!" Line Location: R2+1
Function Call: WRITE	Prompt: ! Line Location: LST+1
Function Call: WRITE	Prompt: !!,$C(7),$P(SDX,U,2)," is already selected." Line Location: LSD+0
Function Call: WRITE	Prompt: !," ...deleted." Line Location: LSD+1
Function Call: WRITE	Prompt: !,"Items currently selected:" Line Location: LST1+1
Function Call: WRITE	Prompt: !?5,SDX Line Location: LST1+2
Function Call: WRITE	Prompt: $C(7)," ??",!,"This response must be a 6 digit numeric value",!,"that represents two valid stop codes!" Line Location: VCPQ+0
Function Call: WRITE	Prompt: !!,$P(^TMP("SCRPW",$J,"SEL",1,I,X1),"~") Line Location: PLST+2
Function Call: WRITE	Prompt: !?4,$P(^TMP("SCRPW",$J,"SEL",2,X1,II,X2),"~") Line Location: PLST1+0
Function Call: WRITE	Prompt: $$XY(IOSTBM,1),@IOF Line Location: DISP0+2
Function Call: WRITE	Prompt: $$XY(IORVON) Line Location: DISP+3
Function Call: WRITE	Prompt: "-" Line Location: DISP+3
Function Call: WRITE	Prompt: " ",SDTOP," " Line Location: DISP+4
Function Call: WRITE	Prompt: "-" Line Location: DISP+4
Function Call: WRITE	Prompt: $$XY(IORVOFF) Line Location: DISP+5
Function Call: WRITE	Prompt: $$XY(IOSTBM,1) Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: DISP+6
Function Call: WRITE	Prompt: $$XY(IORVON) Line Location: DISP+7
Function Call: WRITE	Prompt: "-" Line Location: DISP+7
Function Call: WRITE	Prompt: " ",SDBOT(II)," " Line Location: DISP+8
Function Call: WRITE	Prompt: "-" Line Location: DISP+8
Function Call: WRITE	Prompt: $$XY(IORVOFF) Line Location: DISP+9
Function Call: WRITE	Prompt: !,$E(SDBOT(II),1,80) Line Location: DISP+9
Function Call: WRITE	Prompt: $$XY(IOSTBM,1) Line Location: DISP+10
Function Call: WRITE	Prompt: @X Line Location: XY+4
Function Call: WRITE	Prompt: X Line Location: XY+5
Routine Call	DIC Line Location: P+1 PP+1 PP+3
Routine Call	DIR Line Location: LSD D+1 F+1 N+1 T+1 S+1 DIR+10

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DISP0+2
^%ZOSF("XY"	DISP0+2
^DD("DD"	D+3
^DIC(40.7 - [#40.7]	VCP+3
^TMP("SCRPW"	PLST+1, PLST+2, PLST+3!, PLST1, DIR1, DIR2, PFL1+2, PFL2+2

Label References

Name	Line Occurrences
$$DIRB	R1, R2
$$LSD	LST0
$$PFL1	DIR1
$$PFL2	DIR2
$$RCOL	R2+1
$$SEL	R1, R2, LST+2
$$XY	DISP0+2, DISP+3, DISP+5, DISP+7, DISP+9, DISP+10
@(	SEL+3, C+1, DIR+8
DISP0	DISP+3
LST	RL+3
LST0	LST+2
LST1	LST
NULL	RL+2
PLST1	PLST+2
PSCRN	P+1
R2	R2+1
VCPQ	VCP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> C	DISP+5*, DISP+6, DISP+10
DIC	P+1~, PP+1~, PP+3*
DIC("B"	PP+1!, PP+3!
DIC("S"	P+1!, PSCRN+1
DIC(0	P+1, PP+1
DIR	LSD~, D+1~, F+1~, N+1~, T+1~, S+1~*, DIR~
DIR("A"	LSD, D+1, N+1, T+1, S+1*
DIR("B"	LSD, D+1, F+1, F+2, N+1, T+1, S+1, DIRB1+3*, DIRB1+4!
DIR(0	LSD, D+1, F+1, N+1, T+1, DIR+8, DIR+9, DIR1+1, DIR2+1*
>> DTOUT	LSD, D+1, P+1, F+1, N+1, T+1, PP+1, PP+3, S+1, DIR+10
>> DUOUT	LSD, D+1, P+1, F+1, N+1, T+1, PP+1, PP+3, S+1, DIR+10
DX	DISP0+2~, XY+3~
DY	DISP0+2~, XY+3~
I	LST+2, PLST+2, PLST+3!, DISP+3, DISP+5, DISP+7, DIR1~, DIR2~*, PFL1+2, PFL2+2
II	PLST+3!, PLST1, DISP+7, DISP+8, DISP+9, DIR1~, DIR2~*, PFL1+2, PFL2+2
>> IOBM	DISP0+2, DISP+10
IOF	DISP0+2
IOM	DISP0+2
>> IORVOFF	DISP+5, DISP+9
>> IORVON	DISP+3, DISP+7
IOSL	DISP+6, DISP+10
IOST	DISP0+1
>> IOSTBM	DISP0+2, DISP+5, DISP+10
>> IOTM	DISP0+2, DISP+5
S1	DIRB1~, DIRB1+3
S2	DIRB1~, DIRB1+3
SDA	DIR~, DIR+9
>> SDACT	RL+1, R1, R2, LST+2, D+1, D+3, P+1, P+3, F+1, F+3 , N+1, N+3, T+1, T+3, C+1, PP+1, PP+3, PP+5, S+1, S+3
SDBOT	DISP~
SDBOT(	DISP+5, DISP+7, DISP+8, DISP+9
SDBOT(""	DISP+7
>> SDDV	DIRB+2, RL+1*, R1+1, RCOL+3
SDEF	DIRB1~, DIRB1+3
SDEXE	DIR~, DIR+8
SDFL	DIRB~, DIRB+2
SDI	RL+1~, R1+1, LSD+2, XY~, XY+4
SDIRB	SEL~, D+1, F+1, N+1, T+1, PP+1, PP+3, S+1
SDIRQ	RL+1~, D+1, P+1, F+1, N+1, T+1, PP+1, S+1
SDL	LST1+1~, LST1+2
SDLEV	DIR~, DIR+8
>> SDNUL	R1, R2, LST+2, D+2, P+2, F+2, N+2, T+2, PP+2, PP+4* , S+2, DIR+11
SDO	DIR~, DIR1+1, DIR2+1
SDOUT	R1, R2, LST+2, LSD, LST1+1~, LST1+2, D+1, P+1, F+1, N+1 , T+1, PP+1, PP+3, S+1, DIR+10*
>> SDPAR(	R1+1!, LSD+2!, DIRB1+3
>> SDPAR("X"	DIRB+2, RL+1, RL+2, RL+3, R1+1, R2+2, R2+3, NULL+1, LST, LST0 , LST0+1*, LST1+2
SDPFL	DIR~, PFL1+1, PFL1+2, PFL2+1, PFL2+2
SDR1	RNG~, R1*, R1+1, RCOL+2, RCOL+3, RCOL+4
SDR2	RNG~, R1+1, R2, RCOL+2, RCOL+3, RCOL+4
>> SDRM	DISP0+2*, DISP+3
SDS	DIR~, DIR2, PFL2+2
>> SDS1	R1+1, LSD+2
>> SDS2	DIRB+2, RL+1, RL+2, RL+3, R1+1, R2+2, R2+3, NULL+1, LST, LST0 , LST0+1, LSD+2, LST1+2
SDTOP	DISP~, DISP+3, DISP+4
SDTYP	SEL~, SEL+3
SDX	DIRB+2~, R2+2, R2+3, LST+2, LST0, LST0+1, LSD, LSD+2, LST1+1~, LST1+2 , SEL+3~, D+3, P+3, F+3, N+3, T+3, PP+3, PP+4, PP+5, S+3 , VCP~, VCP+3
>> SDXY	DISP0+2*, XY+4, XY+5
>> T	RL+1, R1, R2, LST+2, D+1, D+3, P+1, P+3, F+1, F+3 , N+1, N+3, T+1, T+3, C+1, PP+1, PP+3, PP+5, S+1, S+3 , DIR1, DIR2, PFL1+2, PFL2+2
U	RL+2, RL+3, R1+1, R2+2, R2+3, RCOL+2, RCOL+3, RCOL+4, LST0, LST0+1 , LSD, LSD+2, D+3, F+3, N+3, T+3, PP+5, S+3, DIR+9, DIR+12 , DIRB1+3
X	F+2, DISP0+2~, DISP+3~, XY~, XY+4, XY+5, DIR+11, DIR1~, DIR1+1, DIR2~ , DIR2+1
X1	PLST+2*, PLST+3!, PLST1
X2	PLST+3!, PLST1*
>> Y	LSD+1, D+2, D+3, P+2, P+3, F+3, N+2, N+3, T+2, T+3 , PP+2, PP+3, PP+4, PP+5, S+2, S+3, DIR+12
>> Y(0	F+3, S+3, DIR+12
ZTSAVE	PLIST+1~

Customize PDF page

Package: Scheduling

Routine: SCRPW23

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 33

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: