Routine: PSOAMIS1

Information

PSOAMIS1 ;BHAM ISC/SAB,BHW - daily amis total report ; 11/04/92 17:45

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Daily AMIS Report. Prints Daily, Monthly and Quarterly AMIS Data",!!,"PLEASE PRINT ON WIDE PAPER, I.E., 132 COLUMNS." Line Location: PSOAMIS1+3
Function Call: WRITE	Prompt: !! Line Location: DA+0
Function Call: WRITE	Prompt: !,$P("INPAT^SC^A&A^OTHER^NVA^CNTLD^METHA^PAT REQ^FEE^STAFF^NEW^REFILL^WINDOW^MAIL","^",I) Line Location: PRI+1
Function Call: WRITE	Prompt: @IOF,?20,"Daily/Monthly/Quarterly AMIS report for " Line Location: HDR+2
Function Call: WRITE	Prompt: Y,!?20,"Division: "_$P(^PS(59,DIV,0),"^"),?115,"Page: "_PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,$E(PSDATE,4,5)_"-"_$E(PSDATE,6,7)_"-"_$E(PSDATE,2,3),?50,"Monthly Totals",?80,"Quarterly Totals" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: !!,"Sub Totals",?20,$J("=========",9),?50,$J("=========",9),?80,$J("=========",9),!,?20,$J(^TMP("PSOAMIS",$J,"SUB",DIV),9),?50,$J(^TMP("PSOAMIS",$J,"SUBMONTH",DIV),9),?80,$J(^TMP("PSOAMIS",$J,"SUBQTR",DIV),9) Line Location: SUB+0