source:
WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMC4.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 411 bytes | |
| Rev | Line | |
|---|---|---|
| [613] | 1 | QAMC4 ;HISC/DAD-CONDITION: DEATH ;2/10/92 07:33 |
| 2 | ;;1.0;Clinical Monitoring System;;09/13/1993 | |
| 3 | EN1 ; *** CONDITION CODE | |
| 4 | F QAMDOD=(QAMTODAY-.0000001):0 S QAMDOD=$O(^DPT("AEXP1",QAMDOD)) Q:QAMDOD'>0!(QAMDOD>(QAMTODAY+.9999999))!(QAMDOD\1'?7N) D LOOP1 | |
| 5 | K QAMDOD | |
| 6 | Q | |
| 7 | LOOP1 F QAMDFN=0:0 S QAMDFN=$O(^DPT("AEXP1",QAMDOD,QAMDFN)) Q:QAMDFN'>0 S ^UTILITY($J,"QAM CONDITION",QAMD1,QAMDFN)="",^(QAMDFN,QAMDOD)=QAMDFN | |
| 8 | Q |
Note:
See TracBrowser
for help on using the repository browser.
