Last change
on this file since 700 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.