Routine: SCRPW3

Information

SCRPW3 ;RENO/KEITH,BWF - Clinic Utilization Statistical Summary (cont.) ;MAY 13, 2023

Source file <SCRPW3.m>

Name	Comments	DBIA/ICR reference
START	;Print statistics
STOP	;Check for stop task request
AC	;Evaluate all clinics
A1
SC	;Evaluate selected clinics
RC	;Evaluate a range of clinics
RS	;Evaluate a range of stop codes
RC1
CG	;Evaluate by clinic group
DIV()	;Check division
CNT	;Evaluate a clinic
CCPAT	;Count clinic patterns and patients
CTPAT(SDDAY)	;Count slots in availability pattern and master pattern
PCT(SDPATT)	;Pattern count
ADJUST	;SD*562 calculate clinic capacity for partially cancelled day
SET	;Set stats into ^TMP global
SET1(SDIV)
CLINE	;Print a clinic statistics line
F1
PLINE	;Print a provider statistics line
ACT	;Count appointments, addl. variable appt. slots and no-shows
SPAT(SC,SDSTRTDT,MAX,SDS)	;Set patterns into ^TMP (modified clone of OVR^SDAUT1)
EN1
X1
W
W1
L
H
WM
ACTIVE(X,SDIN,SDRE)	;Determine if the clinic is active on a given date

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: START+2
Function Call: WRITE	Prompt: ?(22+(SDI*10)),"--------" Line Location: START+2
Function Call: WRITE	Prompt: ?112,"--------- ---------",!,"* CLINIC TOTALS *" Line Location: START+3
Function Call: WRITE	Prompt: !!,"* PROVIDER SUMMARY (based on clinic default provider definition) *" Line Location: START+5
Function Call: WRITE	Prompt: " (No ava. found)" Line Location: CLINE+1
Function Call: WRITE	Prompt: ?32,$J(SDAP,8),?42,$J(SDVSL,8),?52,$J(SDNS,8),?62,$J(SDNSVS,8),?72,$J(SDOB,8),?82,$J(SDOS,8),?92,$J((SDSL-SDAP-SDVSL),8) Line Location: F1+1
Function Call: WRITE	Prompt: ?102,$J(SDCAP,8),?112,$J($S(SDCAP=0:0,1:(SDAP+SDVSL*100)/SDCAP),8,2),"%" Line Location: F1+2
Function Call: WRITE	Prompt: ?123,$J($S(SDCAP=0:0,1:((SDAP+SDVSL-SDNS-SDNSVS)*100)/SDCAP),8,2),"%" Line Location: F1+3
Function Call: WRITE	Prompt: !!,SDPRN," (",SDPR,")" Line Location: PLINE+1