Routine: QAMPHIS1

Information

QAMPHIS1 ;HISC/GJC-ROUTINE TO GENERATE MONITOR SUMMARY REPORTS ;9/10/93 15:10

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"NO DATA FOUND FOR THIS REPORT" Line Location: EN1+4
Function Call: WRITE	Prompt: ! Line Location: K1+0
Function Call: WRITE	Prompt: !!,"CODE: ",$P(QAMND0,U)_$S($P(QAMND0,U,4):" (a)",1:" (m)"),?43,"TITLE: ",$P(QAMND0,U,2),! Line Location: HDER+3
Function Call: WRITE	Prompt: "THRESHOLD: ",$P(QAMND1,U,3),?21,$S($P(QAMND1,U,3)["%":"MINSAMPLE: ",1:"ALERT LEV: "),$P(QAMND1,U,2),?42,"TIM FR: ",$P($G(^QA(743.92,+QAMND1,0)),U),! Line Location: HDER+4
Function Call: WRITE	Prompt: !,"START: ",Y Line Location: PRNT2+1
Function Call: WRITE	Prompt: ?25,"FALLOUT: ",$P(QAMND2,U,4) Line Location: PRNT2+2
Function Call: WRITE	Prompt: ?50,"PERCENT: " Line Location: PRNT2+3
Function Call: WRITE	Prompt: $J(($P(QAMND2,U,4)/$P(QAMND2,U,5))*100,3,3)_"%" Line Location: PRNT2+3
Function Call: WRITE	Prompt: !,"END: ",Y Line Location: PRNT2+4
Function Call: WRITE	Prompt: ?25,"SAMPLE SIZE: ",$P(QAMND2,U,5) Line Location: PRNT2+5
Function Call: WRITE	Prompt: ?50,"THRESHOLD MET: ",$S($P(QAMND2,U,6)=1:"YES",1:"NO"),! Line Location: PRNT2+6
Function Call: WRITE	Prompt: !?32,"MONITOR HISTORY",?68,QAMDT,!?68,"PAGE: ",QAMPG(QAM),!,QAMST Line Location: HEAD+3