source: WorldVistAEHR/trunk/r/CLINICAL_MONITORING_SYSTEM-QAM/QAMC4.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 411 bytes
Line 
1QAMC4 ;HISC/DAD-CONDITION: DEATH ;2/10/92 07:33
2 ;;1.0;Clinical Monitoring System;;09/13/1993
3EN1 ; *** 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
7LOOP1 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.