QAMAUTO6 ;HISC/DAD-AUTO ENROLL MANUAL ENROLL COUNTER ;6/18/93 15:51
;;1.0;Clinical Monitoring System;;09/13/1993
Q:$D(^QA(743.6,QAMARUN,1,"B",QAMD0)) ;*** MONITOR ALREADY RAN THIS DATE
D EN5^QAMAUTO1 ; *** AUTO RUN DATES FILE, MONITOR
S QAMNUMER=0 K ^UTILITY($J,"QAM FALL OUT",QAMD0),^UTILITY($J,"QAM SAMPLE",QAMD0)
F QAMDT=(QAMTODAY-.0000001):0 S QAMDT=$O(^QA(743.1,"ADRC",QAMDT)) Q:(QAMDT'>0)!(QAMDT>(QAMTODAY+.9999999)) F QAMD1=0:0 S QAMD1=$O(^QA(743.1,"ADRC",QAMDT,QAMD1)) Q:QAMD1'>0 D
. I QAMD0=$P($G(^QA(743.1,QAMD1,0)),"^",2) S QAMNUMER=QAMNUMER+1
. Q
S ^UTILITY($J,"QAM FALL OUT",QAMD0)=QAMNUMER,^UTILITY($J,"QAM SAMPLE",QAMD0)=0
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMAUTO6 663 printed Oct 16, 2024@17:42:41 Page 2
QAMAUTO6 ;HISC/DAD-AUTO ENROLL MANUAL ENROLL COUNTER ;6/18/93 15:51
+1 ;;1.0;Clinical Monitoring System;;09/13/1993
+2 ;*** MONITOR ALREADY RAN THIS DATE
if $DATA(^QA(743.6,QAMARUN,1,"B",QAMD0))
QUIT
+3 ; *** AUTO RUN DATES FILE, MONITOR
DO EN5^QAMAUTO1
+4 SET QAMNUMER=0
KILL ^UTILITY($JOB,"QAM FALL OUT",QAMD0),^UTILITY($JOB,"QAM SAMPLE",QAMD0)
+5 FOR QAMDT=(QAMTODAY-.0000001):0
SET QAMDT=$ORDER(^QA(743.1,"ADRC",QAMDT))
if (QAMDT'>0)!(QAMDT>(QAMTODAY+.9999999))
QUIT
FOR QAMD1=0:0
SET QAMD1=$ORDER(^QA(743.1,"ADRC",QAMDT,QAMD1))
if QAMD1'>0
QUIT
Begin DoDot:1
+6 IF QAMD0=$PIECE($GET(^QA(743.1,QAMD1,0)),"^",2)
SET QAMNUMER=QAMNUMER+1
+7 QUIT
End DoDot:1
+8 SET ^UTILITY($JOB,"QAM FALL OUT",QAMD0)=QAMNUMER
SET ^UTILITY($JOB,"QAM SAMPLE",QAMD0)=0
+9 QUIT
