|
Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
411 bytes
|
| Line | |
|---|
| 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.
