Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
653 bytes
|
Rev | Line | |
---|
[628] | 1 | QAMAUTO6 ;HISC/DAD-AUTO ENROLL MANUAL ENROLL COUNTER ;6/18/93 15:51
|
---|
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993
|
---|
| 3 | Q:$D(^QA(743.6,QAMARUN,1,"B",QAMD0)) ;*** MONITOR ALREADY RAN THIS DATE
|
---|
| 4 | D EN5^QAMAUTO1 ; *** AUTO RUN DATES FILE, MONITOR
|
---|
| 5 | S QAMNUMER=0 K ^UTILITY($J,"QAM FALL OUT",QAMD0),^UTILITY($J,"QAM SAMPLE",QAMD0)
|
---|
| 6 | 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
|
---|
| 7 | . I QAMD0=$P($G(^QA(743.1,QAMD1,0)),"^",2) S QAMNUMER=QAMNUMER+1
|
---|
| 8 | . Q
|
---|
| 9 | S ^UTILITY($J,"QAM FALL OUT",QAMD0)=QAMNUMER,^UTILITY($J,"QAM SAMPLE",QAMD0)=0
|
---|
| 10 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.