Routine: SCRPW17

Information

SCRPW17 ;RENO/KEITH/MRY - Prompts for clinic related outputs ; 21 JUL 2000 1:45 PM

Source Information

Source file <SCRPW17.m>

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA Fileman	3	^%DT ^DIC ^DIR
IHS Changes To Scheduling	1	($$DIV,$$DIVNM)^BSDU
Registration	1	$$PRIM^VASITE

Caller Graph

Caller Graph Total: 14

Package	Total	Caller Graph
Scheduling	13	SCRPW11 SCRPW14 SCRPW16 SCRPW18 SCRPW2 SCRPW40 SCRPW41 SCRPW45 SCRPW50 SCRPW6 SCRPW60 SCRPW62 SCRPW70
IHS Changes To Scheduling	1	BSDCCR0

Entry Points

Name	Comments	DBIA/ICR reference
SS2
CLIN
RCE
DT
RS	;Stop Code range selector
Z0009	;0009;No Procedures defined for encounter (PR1 segment)
RC	;Clinic range selector
DIVA(SDDIV)	;Ask for division(s)
ADDON
END
ERRSUB(SDX)	;Return substitute error message for ^SD(409.76) entry
ADD
SC2
SS	;Stop Code selector
RSE
DIVA1
SC1(SDDICA)	;Select a clinic
SC	;Clinic selector
ORD
ASK(SDADD,SDRES,SD,SDFMT,SDORD,SDSDT)	;Ask for clinic report parameters
SG	;Select clinic group
SS1(SDDICA)	;Select a Stop Code

External References

Name	Field # of Occurrence
^%DT	DT+1
$$DIV^BSDU	DIVA+6
$$DIVNM^BSDU	DIVA+7
^DIC	CLIN, SS2, SG+1, SC2, DIVA1+1
^DIR	ADD, ADD+1, ADD+6, ORD+3, ADDON+1
$$PRIM^VASITE	DIVA+11, DIVA+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),"Location selected must be a clinic!",! Line Location: CLIN+0
Function Call: WRITE	Prompt: !,"Ending clinic must be specified!" Line Location: RCE+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending clinic must collate after beginning clinic!" Line Location: RCE+1
Function Call: WRITE	Prompt: !,"Ending Stop Code must be specified!" Line Location: RSE+0
Function Call: WRITE	Prompt: !!,$C(7),"Ending Stop Code must collate after beginning Stop Code!" Line Location: RSE+1
Function Call: WRITE	Prompt: $C(7)," ???" Line Location: SS2+1
Function Call: WRITE	Prompt: !,"Only active Stop Codes can be selected!",! Line Location: SS2+2
Function Call: WRITE	Prompt: !,"Location selected must be a clinic!",! Line Location: SC2+1
Function Call: WRITE	Prompt: !!,$C(7),"No medical center defined in site parameters!" Line Location: DIVA+11
Function Call: WRITE	Prompt: ! Line Location: DIVA1+0
Routine Call	DIC Line Location: CLIN SS2 SG+1 SC2 DIVA1+1
Routine Call	DIR Line Location: ADD ADD+1 ADD+6 ORD+3 ADDON+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^DG(40.8 - [#40.8]	Classic Fileman Calls
^SD(409.67 - [#409.67]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVA+12
^DG(43 - [#43]	DIVA+11

Label References

Name	Line Occurrences
$$SC1	SC+1, RC+1, RCE
$$SS1	SS+1, RS+1, RSE
@(	ADD+7, ADD+8
ADD	DT
ADDON	ADD
CLIN	ADD+1, CLIN
DIVA1	DIVA+13
END	ORD
ORD	ADD+2
RCE	RCE+1
RSE	RSE+1
SC2	SC2+1
SG	ADD+9
SS2	SS2+1, SS2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	ASK+17~, DT+1*
%DT("A"	DT+1, ADDON
DIC	ASK+17~, CLIN, SS2!, SG+1!, SC2!, DIVA1~*
DIC("A"	CLIN, SS2, SC2, DIVA1
DIC(0	CLIN, SS2, SG+1, SC2, DIVA1*
DIR	ASK+17~, ADD!, ADD+1!, ADD+3!, ORD+1!, ADDON!
DIR("?"	ADDON, ADDON+1
DIR("A"	ADD, ADD+1, ADD+5, ORD+1
DIR("B"	ADD, ADD+1, ADD+3, ADD+4!, ORD+3*
DIR(0	ADD, ADD+1, ADD+5, ORD+1, ADDON*
DT	SS2+2
DTOUT	ASK+17~, DT+1, ADD, ADD+1, ADD+6, ORD+3, CLIN, ADDON+1, SS2, SG+1 , SC2, DIVA1+1
DUOUT	ASK+17~, ADD, ADD+1, ADD+6, ORD+3, CLIN, ADDON+1, SS2, SG+1, SC2 , DIVA1+1
SD	ASK~
SD("ADDON"	ADD!, ADDON+1*
SD("CLINIC"	ADD+7!, RCE!, RCE+1!, SC2+2*
SD("DATE"	DT, DT+1
SD("FORMAT"	ADD+2, ADD+6, ADD+7, ADD+8, ADD+9
SD("GROUP"	ADD+9!, SG+1*
SD("ORDER"	ORD, ORD+3
SD("RESTART"	ADD+1!, CLIN+1*
SD("STOPCODE"	ADD+8!, RSE!, RSE+1!, SS2+3*
SDADD	ASK~, ADD
SDCL1	ASK+17~, SC+1, RC+1, RCE+1
SDCL2	ASK+17~, RCE*, RCE+1
SDDICA	ASK+17~, SS1~, SS2, SC1~, SC2
SDDIV	DIVA~, DIVA+7, DIVA+10!, DIVA+12, DIVA+14, DIVA+15, DIVA1+2
SDDIV(	DIVA+7, DIVA1+4
SDFMT	ASK~, ADD+2, ADD+3, ADD+4
SDI	ASK+17~, SC+1, SS+1
SDORD	ASK~, ORD, ORD+2*, ORD+3
SDOUT	ASK+17~, SC+1, SS+1, SS2, SC2, DIVA+10~, DIVA+13, DIVA1+1, DIVA1+2, DIVA1+3
SDRES	ASK~, ADD+1
SDSC1	ASK+17~, SS+1, RS+1, RSE+1
SDSC2	ASK+17~, RSE*, RSE+1
SDSDT	ASK~, DT
SDX	DIVA+10~, DIVA+11, DIVA+12, DIVA+13, DIVA1, DIVA1+2, ERRSUB~
U	ADD+2, ORD, ORD+2, CLIN, SS2+1, SS2+2, SS2+3, SC2+1, SC2+2, DIVA+7 , DIVA+12, DIVA1+4
X	ASK+17~, SS2, SC2, DIVA+6~*, DIVA+7, DIVA1+2, DIVA1+3
Y	ASK+17~, DT+1, ADD, ADD+1, ADD+6, ORD+3, CLIN+1, ADDON+1, SS2+3, SG+1 , SC2+2, DIVA1+4
Y(0	CLIN, SS2+1, SS2+2, SS2+3, SC2+1

Customize PDF page

Package: Scheduling

Routine: SCRPW17

Call Graph Total: 5

Caller Graph Total: 14