QAMEDT4 ;HISC/DAD-EDIT SAMPLE SIZE IN MONITOR HISTORY FILE ;8/26/93 13:14
;;1.0;Clinical Monitoring System;;09/13/1993
MONITOR K DIC S DIC="^QA(743,",DIC(0)="AEMNQ",DIC("A")="Select MONITOR: ",QAMDFLT=1
W ! D ^DIC K DIC G:Y'>0 EXIT S QAMD0=+Y
S QAMZERO=$S($D(^QA(743,QAMD0,0))#2:^(0),1:""),QAMONE=$S($D(^QA(743,QAMD0,1))#2:^(1),1:"")
I $P(QAMZERO,"^",5)'>0 W !!?5,"*** THIS MONITOR IS STILL UNDER CONSTRUCTION, CANNOT CONTINUE ***",*7 G MONITOR
I $P(QAMONE,"^",5)'>0 W !!?5,"*** THIS MONITOR'S ON/OFF SWITCH IS TURNED OFF, CANNOT CONTINUE ***",*7 G MONITOR
S QAMFRAME=+QAMONE I QAMFRAME'>0 W !!?5,"*** NO TIME FRAME FOUND FOR THIS MONITOR, CANNOT CONTINUE ***",*7 G MONITOR
DATE D NOW^%DTC S QAMDT=X K %DT S %DT="AEX",%DT(0)=-QAMDT,%DT("A")="Date for SAMPLE SIZE data: " S:QAMDFLT %DT("B")="TODAY"
W ! D ^%DT K %DT G:Y'>0 MONITOR S QAMTODAY=Y
I (QAMTODAY<$S($P(QAMONE,"^",6):$P(QAMONE,"^",6),1:9999999))!(QAMTODAY>$S($P(QAMONE,"^",7):$P(QAMONE,"^",7),1:9999999)) W !!?5,"*** OUTSIDE START/END DATE RANGE OF MONITOR ***",*7
I S Y=$P(QAMONE,"^",6) X ^DD("DD") W !?5,"*** START DATE: ",$S(Y]"":Y,1:"NONE") S Y=$P(QAMONE,"^",7) X ^DD("DD") W " END DATE: ",$S(Y]"":Y,1:"NONE")," ***" G DATE
D EN^QAMTIME0 I (QAMSTART'>0)!(QAMEND'>0) W !!?5,"*** NO START/END DATE FOR TIME FRAME, CANNOT CONTINUE ***",*7 G MONITOR
S QAMHISD0=$O(^QA(743.2,"AA",QAMD0,QAMSTART,QAMEND,0))
I QAMHISD0'>0 K DD,DIC,DINUM,DO S DIC="^QA(743.2,",DIC(0)="LM",DIC("DR")=".02///^S X="_QAMSTART_";.03///^S X="_QAMEND,DLAYGO=743.2,X=QAMD0 D FILE^DICN K DIC S QAMHISD0=+Y
S QAMHIST=^QA(743.2,QAMHISD0,0),Y=$P(QAMHIST,"^",11) X ^DD("DD")
W !!?5,"SAMPLE SIZE data was last edited: ",$S(Y]"":Y,1:"*** NEVER ***"),!?5,"Current FALL OUTS: ",$J($P(QAMHIST,"^",4),7,0),!?5,"Current SAMPLE SIZE: ",$J($P(QAMHIST,"^",5),7,0)
ASK K DIR S DIR(0)="NOA^-1000000:1000000:0",DIR("A")="Add/Subtract SAMPLE SIZE (-1000000 -> 1000000): ",DIR("?",1)="Enter the number you wish to add to or",DIR("?")="subtract from the current SAMPLE SIZE."
W ! D ^DIR K DIR S QAMDFLT=0 G:($E(X)="^")!(+Y=0) DATE S QAMSAMPL=Y+$P(QAMHIST,"^",5) I QAMSAMPL<0 W " ??",*7 G ASK
S DIE="^QA(743.2,",DR="2///^S X="_QAMSAMPL_";8///T",DA=QAMHISD0 D ^DIE W !!?5,"New SAMPLE SIZE: ",$J(QAMSAMPL,7,0)
G DATE
EXIT ;
K %,%DT,%H,%I,DA,DIC,DIR,DLAYGO,QAMD0,QAMFRAME,QAMONE,QAMSTART,QAMEND,QAMTODAY,QAMHISD0,QAMHIST,QAMSAMPL,QAMDT,QAMDFLT,QAMZERO
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMEDT4 2413 printed Dec 13, 2024@01:42:21 Page 2
QAMEDT4 ;HISC/DAD-EDIT SAMPLE SIZE IN MONITOR HISTORY FILE ;8/26/93 13:14
+1 ;;1.0;Clinical Monitoring System;;09/13/1993
MONITOR KILL DIC
SET DIC="^QA(743,"
SET DIC(0)="AEMNQ"
SET DIC("A")="Select MONITOR: "
SET QAMDFLT=1
+1 WRITE !
DO ^DIC
KILL DIC
if Y'>0
GOTO EXIT
SET QAMD0=+Y
+2 SET QAMZERO=$SELECT($DATA(^QA(743,QAMD0,0))#2:^(0),1:"")
SET QAMONE=$SELECT($DATA(^QA(743,QAMD0,1))#2:^(1),1:"")
+3 IF $PIECE(QAMZERO,"^",5)'>0
WRITE !!?5,"*** THIS MONITOR IS STILL UNDER CONSTRUCTION, CANNOT CONTINUE ***",*7
GOTO MONITOR
+4 IF $PIECE(QAMONE,"^",5)'>0
WRITE !!?5,"*** THIS MONITOR'S ON/OFF SWITCH IS TURNED OFF, CANNOT CONTINUE ***",*7
GOTO MONITOR
+5 SET QAMFRAME=+QAMONE
IF QAMFRAME'>0
WRITE !!?5,"*** NO TIME FRAME FOUND FOR THIS MONITOR, CANNOT CONTINUE ***",*7
GOTO MONITOR
DATE DO NOW^%DTC
SET QAMDT=X
KILL %DT
SET %DT="AEX"
SET %DT(0)=-QAMDT
SET %DT("A")="Date for SAMPLE SIZE data: "
if QAMDFLT
SET %DT("B")="TODAY"
+1 WRITE !
DO ^%DT
KILL %DT
if Y'>0
GOTO MONITOR
SET QAMTODAY=Y
+2 IF (QAMTODAY<$SELECT($PIECE(QAMONE,"^",6):$PIECE(QAMONE,"^",6),1:9999999))!(QAMTODAY>$SELECT($PIECE(QAMONE,"^",7):$PIECE(QAMONE,"^",7),1:9999999))
WRITE !!?5,"*** OUTSIDE START/END DATE RANGE OF MONITOR ***",*7
+3 IF $TEST
SET Y=$PIECE(QAMONE,"^",6)
XECUTE ^DD("DD")
WRITE !?5,"*** START DATE: ",$SELECT(Y]"":Y,1:"NONE")
SET Y=$PIECE(QAMONE,"^",7)
XECUTE ^DD("DD")
WRITE " END DATE: ",$SELECT(Y]"":Y,1:"NONE")," ***"
GOTO DATE
+4 DO EN^QAMTIME0
IF (QAMSTART'>0)!(QAMEND'>0)
WRITE !!?5,"*** NO START/END DATE FOR TIME FRAME, CANNOT CONTINUE ***",*7
GOTO MONITOR
+5 SET QAMHISD0=$ORDER(^QA(743.2,"AA",QAMD0,QAMSTART,QAMEND,0))
+6 IF QAMHISD0'>0
KILL DD,DIC,DINUM,DO
SET DIC="^QA(743.2,"
SET DIC(0)="LM"
SET DIC("DR")=".02///^S X="_QAMSTART_";.03///^S X="_QAMEND
SET DLAYGO=743.2
SET X=QAMD0
DO FILE^DICN
KILL DIC
SET QAMHISD0=+Y
+7 SET QAMHIST=^QA(743.2,QAMHISD0,0)
SET Y=$PIECE(QAMHIST,"^",11)
XECUTE ^DD("DD")
+8 WRITE !!?5,"SAMPLE SIZE data was last edited: ",$SELECT(Y]"":Y,1:"*** NEVER ***"),!?5,"Current FALL OUTS: ",$JUSTIFY($PIECE(QAMHIST,"^",4),7,0),!?5,"Current SAMPLE SIZE: ",$JUSTIFY($PIECE(QAMHIST,"^",5),7,0)
ASK KILL DIR
SET DIR(0)="NOA^-1000000:1000000:0"
SET DIR("A")="Add/Subtract SAMPLE SIZE (-1000000 -> 1000000): "
SET DIR("?",1)="Enter the number you wish to add to or"
SET DIR("?")="subtract from the current SAMPLE SIZE."
+1 WRITE !
DO ^DIR
KILL DIR
SET QAMDFLT=0
if ($EXTRACT(X)="^")!(+Y=0)
GOTO DATE
SET QAMSAMPL=Y+$PIECE(QAMHIST,"^",5)
IF QAMSAMPL<0
WRITE " ??",*7
GOTO ASK
+2 SET DIE="^QA(743.2,"
SET DR="2///^S X="_QAMSAMPL_";8///T"
SET DA=QAMHISD0
DO ^DIE
WRITE !!?5,"New SAMPLE SIZE: ",$JUSTIFY(QAMSAMPL,7,0)
+3 GOTO DATE
EXIT ;
+1 KILL %,%DT,%H,%I,DA,DIC,DIR,DLAYGO,QAMD0,QAMFRAME,QAMONE,QAMSTART,QAMEND,QAMTODAY,QAMHISD0,QAMHIST,QAMSAMPL,QAMDT,QAMDFLT,QAMZERO
+2 QUIT
