- QAMPHIS1 ;HISC/GJC-ROUTINE TO GENERATE MONITOR SUMMARY REPORTS ;9/10/93 15:10
- ;;1.0;Clinical Monitoring System;;09/13/1993
- ;
- S QAQDIC="^QA(743,",QAQDIC(0)="AEMNQZ",QAQDIC("A")="Select MONITOR: ",QAQUTIL="QAM MONITOR" D EN1^QAQSELCT G:QAQQUIT K2
- D ^QAQDATE G:QAQQUIT K2
- ;*** Choose a device ***
- K IOP,%ZIS S %ZIS="MQ" D ^%ZIS G:POP K2
- I $D(IO("Q")) K IO("Q") S ZTDESC="Generate monitor summary reports.",ZTRTN="EN1^QAMPHIS1",(ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"))="" D ^%ZTLOAD G K1
- ;*** End choose device ***
- EN1 U IO S QAMFOUND=0
- K QAMST S QAMHDH=1,QAMUOUT="",$P(QAMST,"-",81)="",Y=DT X ^DD("DD") S QAMDT=Y
- S QAM="" F S QAM=$O(^UTILITY($J,"QAM MONITOR",QAM)) Q:QAM="" S QAMPG(QAM)=0
- S QAM="" F S QAM=$O(^UTILITY($J,"QAM MONITOR",QAM)) Q:QAM=""!(QAMUOUT="^") F QAM1=0:0 S QAM1=$O(^UTILITY($J,"QAM MONITOR",QAM,QAM1)) Q:QAM1'>0 I $D(^QA(743.2,"B",QAM1)) D HDER,PRNT1 Q:QAMUOUT="^"
- I 'QAMFOUND S QAM=$O(^UTILITY($J,"QAM MONITOR","")) D HEAD W !!,"NO DATA FOUND FOR THIS REPORT"
- K1 W ! D ^%ZISC,HOME^%ZIS
- K2 K %ZIS,DIR,POP,QAM,QAM1,QAM2,QAMDT,QAMFOUND,QAMHDH,QAMND0,QAMND1,QAMND2,QAMPG,QAMST,QAMUOUT,QAQDIC,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,^UTILITY($J,"QAM MONITOR")
- D K^QAQDATE S:$D(ZTQUEUED) ZTREQ="@"
- Q
- HDER ;HEADER
- S QAMFOUND=1 D HEAD
- S QAMND0=$G(^QA(743,QAM1,0)),QAMND1=$S($D(^QA(743,QAM1,1)):^(1),1:"")
- W !!,"CODE: ",$P(QAMND0,U)_$S($P(QAMND0,U,4):" (a)",1:" (m)"),?43,"TITLE: ",$P(QAMND0,U,2),!
- W "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),!
- Q
- HDH ;
- I $E(IOST)="C" K DIR S DIR(0)="E" D ^DIR K DIR S QAMUOUT=$S(Y'>0:"^",1:"") Q:QAMUOUT="^"
- D:QAMHDH HDER
- Q
- PRNT1 ;
- F QAM2=0:0 S QAM2=$O(^QA(743.2,"B",QAM1,QAM2)) Q:QAM2'>0 D:$Y>(IOSL-5) HDH Q:QAMUOUT="^" S QAMND2=$S($D(^QA(743.2,QAM2,0)):^(0),1:"") I $P(QAMND2,U,2)'<QAQNBEG&($P(QAMND2,U,3)'>QAQNEND) D PRNT2
- I QAMUOUT="" S QAMHDH=0 D:$O(^UTILITY($J,"QAM MONITOR",QAM))]"" HDH S QAMHDH=1
- Q
- PRNT2 ;
- S Y=$P(QAMND2,U,2) X ^DD("DD") W !,"START: ",Y
- W ?25,"FALLOUT: ",$P(QAMND2,U,4)
- W ?50,"PERCENT: " I QAMND2]"",$P(QAMND2,U,4),$P(QAMND2,U,5),$P(QAMND2,U,5)>0 W $J(($P(QAMND2,U,4)/$P(QAMND2,U,5))*100,3,3)_"%"
- S Y=$P(QAMND2,U,3) X ^DD("DD") W !,"END: ",Y
- W ?25,"SAMPLE SIZE: ",$P(QAMND2,U,5)
- W ?50,"THRESHOLD MET: ",$S($P(QAMND2,U,6)=1:"YES",1:"NO"),!
- Q
- HEAD ;
- S QAMPG(QAM)=QAMPG(QAM)+1
- W:(QAMPG(QAM)>1)!($E(IOST)="C") @IOF
- W !?32,"MONITOR HISTORY",?68,QAMDT,!?68,"PAGE: ",QAMPG(QAM),!,QAMST
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMPHIS1 2541 printed Mar 13, 2025@20:47:13 Page 2
- QAMPHIS1 ;HISC/GJC-ROUTINE TO GENERATE MONITOR SUMMARY REPORTS ;9/10/93 15:10
- +1 ;;1.0;Clinical Monitoring System;;09/13/1993
- +2 ;
- +3 SET QAQDIC="^QA(743,"
- SET QAQDIC(0)="AEMNQZ"
- SET QAQDIC("A")="Select MONITOR: "
- SET QAQUTIL="QAM MONITOR"
- DO EN1^QAQSELCT
- if QAQQUIT
- GOTO K2
- +4 DO ^QAQDATE
- if QAQQUIT
- GOTO K2
- +5 ;*** Choose a device ***
- +6 KILL IOP,%ZIS
- SET %ZIS="MQ"
- DO ^%ZIS
- if POP
- GOTO K2
- +7 IF $DATA(IO("Q"))
- KILL IO("Q")
- SET ZTDESC="Generate monitor summary reports."
- SET ZTRTN="EN1^QAMPHIS1"
- SET (ZTSAVE("QAQ*"),ZTSAVE("^UTILITY($J,"))=""
- DO ^%ZTLOAD
- GOTO K1
- +8 ;*** End choose device ***
- EN1 USE IO
- SET QAMFOUND=0
- +1 KILL QAMST
- SET QAMHDH=1
- SET QAMUOUT=""
- SET $PIECE(QAMST,"-",81)=""
- SET Y=DT
- XECUTE ^DD("DD")
- SET QAMDT=Y
- +2 SET QAM=""
- FOR
- SET QAM=$ORDER(^UTILITY($JOB,"QAM MONITOR",QAM))
- if QAM=""
- QUIT
- SET QAMPG(QAM)=0
- +3 SET QAM=""
- FOR
- SET QAM=$ORDER(^UTILITY($JOB,"QAM MONITOR",QAM))
- if QAM=""!(QAMUOUT="^")
- QUIT
- FOR QAM1=0:0
- SET QAM1=$ORDER(^UTILITY($JOB,"QAM MONITOR",QAM,QAM1))
- if QAM1'>0
- QUIT
- IF $DATA(^QA(743.2,"B",QAM1))
- DO HDER
- DO PRNT1
- if QAMUOUT="^"
- QUIT
- +4 IF 'QAMFOUND
- SET QAM=$ORDER(^UTILITY($JOB,"QAM MONITOR",""))
- DO HEAD
- WRITE !!,"NO DATA FOUND FOR THIS REPORT"
- K1 WRITE !
- DO ^%ZISC
- DO HOME^%ZIS
- K2 KILL %ZIS,DIR,POP,QAM,QAM1,QAM2,QAMDT,QAMFOUND,QAMHDH,QAMND0,QAMND1,QAMND2,QAMPG,QAMST,QAMUOUT,QAQDIC,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK,^UTILITY($JOB,"QAM MONITOR")
- +1 DO K^QAQDATE
- if $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +2 QUIT
- HDER ;HEADER
- +1 SET QAMFOUND=1
- DO HEAD
- +2 SET QAMND0=$GET(^QA(743,QAM1,0))
- SET QAMND1=$SELECT($DATA(^QA(743,QAM1,1)):^(1),1:"")
- +3 WRITE !!,"CODE: ",$PIECE(QAMND0,U)_$SELECT($PIECE(QAMND0,U,4):" (a)",1:" (m)"),?43,"TITLE: ",$PIECE(QAMND0,U,2),!
- +4 WRITE "THRESHOLD: ",$PIECE(QAMND1,U,3),?21,$SELECT($PIECE(QAMND1,U,3)["%":"MINSAMPLE: ",1:"ALERT LEV: "),$PIECE(QAMND1,U,2),?42,"TIM FR: ",$PIECE($GET(^QA(743.92,+QAMND1,0)),U),!
- +5 QUIT
- HDH ;
- +1 IF $EXTRACT(IOST)="C"
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- SET QAMUOUT=$SELECT(Y'>0:"^",1:"")
- if QAMUOUT="^"
- QUIT
- +2 if QAMHDH
- DO HDER
- +3 QUIT
- PRNT1 ;
- +1 FOR QAM2=0:0
- SET QAM2=$ORDER(^QA(743.2,"B",QAM1,QAM2))
- if QAM2'>0
- QUIT
- if $Y>(IOSL-5)
- DO HDH
- if QAMUOUT="^"
- QUIT
- SET QAMND2=$SELECT($DATA(^QA(743.2,QAM2,0)):^(0),1:"")
- IF $PIECE(QAMND2,U,2)'<QAQNBEG&($PIECE(QAMND2,U,3)'>QAQNEND)
- DO PRNT2
- +2 IF QAMUOUT=""
- SET QAMHDH=0
- if $ORDER(^UTILITY($JOB,"QAM MONITOR",QAM))]""
- DO HDH
- SET QAMHDH=1
- +3 QUIT
- PRNT2 ;
- +1 SET Y=$PIECE(QAMND2,U,2)
- XECUTE ^DD("DD")
- WRITE !,"START: ",Y
- +2 WRITE ?25,"FALLOUT: ",$PIECE(QAMND2,U,4)
- +3 WRITE ?50,"PERCENT: "
- IF QAMND2]""
- IF $PIECE(QAMND2,U,4)
- IF $PIECE(QAMND2,U,5)
- IF $PIECE(QAMND2,U,5)>0
- WRITE $JUSTIFY(($PIECE(QAMND2,U,4)/$PIECE(QAMND2,U,5))*100,3,3)_"%"
- +4 SET Y=$PIECE(QAMND2,U,3)
- XECUTE ^DD("DD")
- WRITE !,"END: ",Y
- +5 WRITE ?25,"SAMPLE SIZE: ",$PIECE(QAMND2,U,5)
- +6 WRITE ?50,"THRESHOLD MET: ",$SELECT($PIECE(QAMND2,U,6)=1:"YES",1:"NO"),!
- +7 QUIT
- HEAD ;
- +1 SET QAMPG(QAM)=QAMPG(QAM)+1
- +2 if (QAMPG(QAM)>1)!($EXTRACT(IOST)="C")
- WRITE @IOF
- +3 WRITE !?32,"MONITOR HISTORY",?68,QAMDT,!?68,"PAGE: ",QAMPG(QAM),!,QAMST
- +4 QUIT
