QAMC4 ;HISC/DAD-CONDITION: DEATH ;2/10/92 07:33
;;1.0;Clinical Monitoring System;;09/13/1993
EN1 ; *** CONDITION CODE
F QAMDOD=(QAMTODAY-.0000001):0 S QAMDOD=$O(^DPT("AEXP1",QAMDOD)) Q:QAMDOD'>0!(QAMDOD>(QAMTODAY+.9999999))!(QAMDOD\1'?7N) D LOOP1
K QAMDOD
Q
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAMC4 419 printed Sep 02, 2024@18:27:33 Page 2
QAMC4 ;HISC/DAD-CONDITION: DEATH ;2/10/92 07:33
+1 ;;1.0;Clinical Monitoring System;;09/13/1993
EN1 ; *** CONDITION CODE
+1 FOR QAMDOD=(QAMTODAY-.0000001):0
SET QAMDOD=$ORDER(^DPT("AEXP1",QAMDOD))
if QAMDOD'>0!(QAMDOD>(QAMTODAY+.9999999))!(QAMDOD\1'?7N)
QUIT
DO LOOP1
+2 KILL QAMDOD
+3 QUIT
LOOP1 FOR QAMDFN=0:0
SET QAMDFN=$ORDER(^DPT("AEXP1",QAMDOD,QAMDFN))
if QAMDFN'>0
QUIT
SET ^UTILITY($JOB,"QAM CONDITION",QAMD1,QAMDFN)=""
SET ^(QAMDFN,QAMDOD)=QAMDFN
+1 QUIT