QAMC4.m

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 ---QAMC4   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