- 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 Feb 18, 2025@23:08:12 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