- 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 Jan 18, 2025@02:43:23 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