Routine: SCDXSUP1

Information

SCDXSUP1 ;RENO/KEITH ALB/SCK - Supervisory Options for Ambulatory Care Reporting; 2/26/97

Name	Comments	DBIA/ICR reference
APPTY	; Edit Appointment type for Add/Edit
APP1
ASK
APPQ	;
EXIT	;
GET(SCN)	; Select appointment from list
SCED	; Select stop code
SET	;
ASKDT(TXT)	; Enter beginning date for searching outpatient encounter file

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Ending date cannot be earlier than the beginning date!" Line Location: APP1+2
Function Call: WRITE	Prompt: !!,"This patient has no outpatient encounters on file!",!! Line Location: ASK+7
Function Call: WRITE	Prompt: ! Line Location: ASK+13
Function Call: WRITE	Prompt: !,SCI,?5,$$FMTE^XLFDT(SCDT,"1P") Line Location: ASK+19
Function Call: WRITE	Prompt: !!,"No encounters on file for this patient during this date range.",! Line Location: ASK+23
Function Call: WRITE	Prompt: ! Line Location: GET+3
Function Call: WRITE	Prompt: !!,"No occasion-of-service add/edits for this patient/date.",! Line Location: SCED+13
Function Call: WRITE	Prompt: !!,"Appt. DT",?24,"Location",?60,"Appt. Type" Line Location: SCED+16
Function Call: WRITE	Prompt: !,SCLINE Line Location: SCED+17
Function Call: WRITE	Prompt: !! Line Location: SCED+20
Function Call: WRITE	Prompt: !,Y,?24,$E($P(SCK(SCE),U,2),1,30),?60,$E($P(SCK(SCE),U,3),1,18) Line Location: SCED+22
Function Call: WRITE	Prompt: !,"Outpatient Encounter entry: "_DA_" for "_$P($G(^DPT(SCDFN,0)),U)_" is in use, cannot edit." Line Location: SCED+49
Function Call: WRITE	Prompt: !,"Done." Line Location: SCED+52