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 ---[H[J[2J[HQAMC25 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