Routine: ECTDSUR

Information

ECTDSUR ;B'ham ISC/DMA-Surgery Workload ;01/29/91 08:00

Source file <ECTDSUR.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!?29,"OPTION IS UNAVAILABLE!",!,"The 'Surgery' File - #130 is not loaded on your system.",!! Line Location: V+1
Function Call: WRITE	Prompt: *7,!!,"'Surgery' File - #130 has not been populated on your system.",!! Line Location: V+2
Function Call: WRITE	Prompt: !,"Ending date must be later than beginning date",! Line Location: EDAT+0
Function Call: WRITE	Prompt: !,?15,"SURGERY CASES FOR THE PERIOD ",$E(ECBD,4,5),"/",$E(ECBD,6,7),"/",$E(ECBD,2,3)," TO ",$E(ECED,4,5),"/",$E(ECED,6,7),"/",$E(ECED,2,3) Line Location: PRINT+3
Function Call: WRITE	Prompt: !!?45,Y,?70,"PAGE ",PGCT Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,?35,"COMPLETED",?47,"CANCELLED",?61,"TOTAL",?71,"PERCENT",!,"SPECIALTY",?37,"CASES",?49,"CASES",?61,"CASES",?70,"CANCELLED",!,LN Line Location: PRINT+4
Function Call: WRITE	Prompt: !?19,"NO DATA AVAILABLE FOR SELECTED DATE RANGE.",!! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,?3,$S(SC="zz":"NOT SPECIFIED",1:SC),?35,$J(CO,5,0),?47,$J(CA,5,0) Line Location: PRINT+6
Function Call: WRITE	Prompt: ?61,$J(TOT,5,0),?71,$J((100*CA/TOT),5,1) Condition for execution: TOT Line Location: PRINT+6
Function Call: WRITE	Prompt: !?35 Line Location: PRINT+7
Function Call: WRITE	Prompt: "-" Line Location: PRINT+7
Function Call: WRITE	Prompt: !?10,"TOTAL",?35,$J(COT,5,0),?47,$J(CAT,5,0) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?61,$J(TOT,5,0),?71,$J(100*CAT/TOT,5,1) Condition for execution: TOT Line Location: PRINT+8