QAMAUTO6.m

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 ---QAMAUTO6   663     printed  Apr 09, 2024@20:47:35                                                                                                                                                                                                     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