Routine: QAOSPSS1

Information

QAOSPSS1 ;HISC/DAD-OCCURRENCE SERVICE STATISTICS BY SERVICE ;9/14/92 10:46

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S(QAOSSERV'["~":QAOSSERV,1:$E(QAOSSERV,2,999)) S QAOSRVT=0 F QAOSSEQ=0:0 S QAOSSEQ=$O(^UTILITY($J,"QAOSPSS",QAOSTYPE,QAOSSERV,QAOSSEQ)) Q:QAOSSEQ'>0!QAOSQUIT Line Location: LOOP1+1
Function Call: WRITE	Prompt: !?5,QAOSSEQ,?20,+QAOSTEMP,?40,$J($P(QAOSTEMP,"^",2),4) Line Location: LOOP2+1
Function Call: WRITE	Prompt: ?60,$J(QAOSRVT,6) Line Location: LOOP2+3
Function Call: WRITE	Prompt: !!?22,"OCCURRENCE SCREEN SERVICE STATISTICS",?68,TODAY Line Location: HEAD+2
Function Call: WRITE	Prompt: !?QAQTART,QAQ2HED,?68,"PAGE: ",QAOSPAGE Line Location: HEAD+3
Function Call: WRITE	Prompt: !!,"SERVICE",!?2,"CRITERION",?19,"SCREEN",?39,"FREQUENCY",?58,"SERVICE TOTAL",!,UNDL Line Location: HEAD+4