QAMC25.m

QAMC25 ;HISC/DAD-CONDITION: PATIENT GROUP ;9/28/92  13:13

 ;;1.0;Clinical Monitoring System;;09/13/1993

EN1 ; *** CONDITION CODE

 S QAMGRP=$S($D(^QA(743,QAMD0,"COND",QAMD1,"P1"))#2:+^("P1"),1:0)

 F QAMDFN=0:0 S QAMDFN=$O(^QA(743.5,QAMGRP,"GRP","AB",QAMDFN)) Q:QAMDFN'>0  D

 . S ^UTILITY($J,"QAM CONDITION",QAMD1,QAMDFN)=""

 . S ^UTILITY($J,"QAM CONDITION",QAMD1,QAMDFN,QAMTODAY)=QAMDFN

 . Q

 Q

 ;

EN2 ; *** PARAMETER CODE

 K DIC,DIR,DIRUT S DIC=743.5,DIC(0)="EMNQZ",DIC("A")="PATIENT GROUP: ",DIC("B")=$S($D(^QA(743,QAMD0,"COND",QAMD1,"P1"))#2:$P(^("P1"),"^",2),1:""),DIC("S")="I $P(^(0),""^"",2)=2" K:DIC("B")="" DIC("B")

 S DIR("?")="Enter the PATIENT GROUP you wish to monitor."

 S QAMPARAM="P1" D EN2^QAMUTL1 I $D(DIRUT) S Y=-1 G Y

 S:Y]"" ^QA(743,QAMD0,"COND",QAMD1,"P1")=+Y_"^"_Y(0,0)

 ;

EXIT K Y

 K QAMPARAM

Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAMC25   838     printed  Sep 02, 2024@18:27:31                                                                                                                                                                                                       Page 2

QAMC25    ;HISC/DAD-CONDITION: PATIENT GROUP ;9/28/92  13:13

 +1       ;;1.0;Clinical Monitoring System;;09/13/1993

EN1       ; *** CONDITION CODE

 +1        SET QAMGRP=$SELECT($DATA(^QA(743,QAMD0,"COND",QAMD1,"P1"))#2:+^("P1"),1:0)

 +2        FOR QAMDFN=0:0

               SET QAMDFN=$ORDER(^QA(743.5,QAMGRP,"GRP","AB",QAMDFN))

               if QAMDFN'>0

                   QUIT 

               Begin DoDot:1

 +3                SET ^UTILITY($JOB,"QAM CONDITION",QAMD1,QAMDFN)=""

 +4                SET ^UTILITY($JOB,"QAM CONDITION",QAMD1,QAMDFN,QAMTODAY)=QAMDFN

 +5                QUIT 

               End DoDot:1

 +6        QUIT 

 +7       ;

EN2       ; *** PARAMETER CODE

 +1        KILL DIC,DIR,DIRUT

           SET DIC=743.5

           SET DIC(0)="EMNQZ"

           SET DIC("A")="PATIENT GROUP: "

           SET DIC("B")=$SELECT($DATA(^QA(743,QAMD0,"COND",QAMD1,"P1"))#2:$PIECE(^("P1"),"^",2),1:"")

           SET DIC("S")="I $P(^(0),""^"",2)=2"

           if DIC("B")=""

               KILL DIC("B")

 +2        SET DIR("?")="Enter the PATIENT GROUP you wish to monitor."

 +3        SET QAMPARAM="P1"

           DO EN2^QAMUTL1

           IF $DATA(DIRUT)

               SET Y=-1

               GOTO Y

 +4        if Y]""

               SET ^QA(743,QAMD0,"COND",QAMD1,"P1")=+Y_"^"_Y(0,0)

 +5       ;

EXIT       KILL Y

 +1        KILL QAMPARAM

Y          QUIT