Routine: SCRPW50

Package	Total	Call Graph
Scheduling	3	$$DIVA^SCRPW17 DISP0^SCRPW23 GETPRV^SDOE
Kernel	2	(ENS,KILL)^%ZISS EN^XUTMDEVQ
Registration	1	ROLE^VAFHLRO3
VA Fileman	1	^%DT

Package	Total	Caller Graph
Scheduling	42	SCMCTSK3 SCRPO SCRPO1 SCRPO3 SCRPO5 SCRPO6 SCRPW1 SCRPW10 SCRPW11 SCRPW14 SCRPW15 SCRPW16 SCRPW18 SCRPW2 SCRPW20 SCRPW21 SCRPW23 SCRPW40 SCRPW41 SCRPW42 SCRPW43 SCRPW44 SCRPW45 SCRPW46 SCRPW47 SCRPW51 SCRPW54 SCRPW56 SCRPW57 SCRPW58 SCRPW59 SCRPW6 SCRPW60 SCRPW62 SCRPW7 SCRPW70 SCRPW72 SCRPW74 SCRPW76 SCRPW8 SCRPW9 SDAL
IHS Changes To Scheduling	6	BSDCCR0 BSDCCR2 BSDSCO1 BSDSCO3 BSDSCO6 BSDSCPAT

Entry Points

Name	Comments	DBIA/ICR reference
XY(X,SDI,SDZ)	;Maintain $X, $Y
SUBT(SDX)	;Display subtitle
END	;Clean up
TITL(SDES)	;Display report title
RQUE(SDROU,SDES,SD132)	;Queue data validation reports
EXIT
DATE
PROV(SDOE,SDARY)	;Create array of provider types for an encounter

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,$C(7),"This date cannot be prior to OCT 1, 1996!" Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"This report requires 132 column output." Line Location: DATE+5
Function Call: WRITE	Prompt: ! Line Location: DATE+6
Function Call: WRITE	Prompt: @X Line Location: XY+5
Function Call: WRITE	Prompt: X Line Location: XY+6
Function Call: WRITE	Prompt: $$XY(IOF,1,0),?(IOM-$L(SDES)\2),SDES,! Line Location: TITL+4
Function Call: WRITE	Prompt: $$XY(IOF,1,0),$$XY(IORVON),SDX,$$XY(IORVOFF),$$XY(IOSTBM,1),! Line Location: TITL+5
Function Call: WRITE	Prompt: !!?(80-$L(SDX)\2),$$XY(IORVON),SDX,$$XY(IORVOFF) Line Location: SUBT+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	TITL+3, END+1
^%ZOSF("XY"	XY+5, XY+6
^DD("DD"	DATE+2
^TMP("SCRPW"	END+1!

Name	Field # of Occurrence
%DT	DATE~*, EXIT!
%DT("A"	DATE*
%DT(0	DATE*
DX	XY+4~*
DY	XY+4~*
>> IOBM	TITL+5*
IOF	TITL+4, TITL+5
IOM	TITL+4, END+1
>> IORVOFF	TITL+5, SUBT+2
>> IORVON	TITL+5, SUBT+2
IOSL	TITL+5
IOST	TITL+4
>> IOSTBM	TITL+5
>> IOTM	TITL+5*
SD	RQUE+4~, EXIT!
SD("EDT"	DATE+2*
SD("FYD"	DATE+2*
SD("MOD"	DATE+2*
SD("PEDT"	DATE+2*
SD132	RQUE~, DATE+5, EXIT!
SDAR1	PROV+4~, PROV+6!
SDAR1(1	PROV+7
SDARY	PROV~, PROV+4!
SDARY(	PROV+7*
SDDIV	RQUE+4~, RQUE+5, EXIT!
SDDIV(	RQUE+5
SDDIV(""	RQUE+5
SDES	RQUE~, RQUE+4, DATE+6, EXIT!, TITL~, TITL+4, TITL+5*
SDI	XY~, XY+5, PROV+4~, PROV+5*
SDMD	RQUE+5*, EXIT!
SDOE	PROV~, PROV+4
SDPR	PROV+4~, PROV+5*, PROV+6, PROV+7
SDPR(	PROV+5
SDPRA	PROV+4~
SDROU	RQUE~, DATE+6, EXIT!
>> SDSTA	DATE+4
SDX	EXIT!, TITL+2~, TITL+5*, SUBT~, SUBT+2
SDZ	XY~, XY+4
U	RQUE+5, PROV+5
X	DATE+3, EXIT!, XY~, XY+5, XY+6, TITL+2~, TITL+3, END+1~*
Y	DATE, DATE+1!, DATE+2, EXIT!
ZTSAVE	RQUE+4~, DATE+6
ZTSAVE(	DATE+3*
ZTSAVE("SDSTA"	DATE+4*