Routine: SCRPW17

Information

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

Source file <SCRPW17.m>

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

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+6
Function Call: WRITE	Prompt: ! Line Location: DIVA1+0