SDES2GETURGENCY.m

SDES2GETURGENCY ;ALB/BWF - SDES2 GET URGENCY LIST; MAR 11,2024

 ;;5.3;Scheduling;**875**;Aug 13, 1993;Build 25

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 ; Reference to PROTOCOL in ICR #7026

 ;

 Q

 ; Input

 ;  SDCONTEXT - SD CONTEXT ARRAY

 ;  SDINPUT - blank placeholder parameter

 ;

GETURGENCY(RES,SDCONTEXT,SDINPUT) ; GET valid urgency protocol values that are used in the URGENCY field 5 of the REQUEST CONSULTAION file 123

 N ERRORS,URGCOUNT,URGENCY,URGENCYIEN,SDNAME,URGENCYLIST,SYNIEN,SYNCOUNT,SYNNAME

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 I $D(ERRORS) S ERRORS("Urgency",1)="" D BUILDJSON^SDES2JSON(.RES,.ERRORS) Q

 S URGCOUNT=0

 S URGENCY="GMRCURGENCY" F  S URGENCY=$O(^ORD(101,"B",URGENCY)) Q:$P(URGENCY," ",1)'="GMRCURGENCY"  Q:URGENCY=""  D

 .S URGENCYIEN="" F  S URGENCYIEN=$O(^ORD(101,"B",URGENCY,URGENCYIEN)) Q:URGENCYIEN=""  D

 ..S SDNAME=$$GET1^DIQ(101,URGENCYIEN_",",.01)

 ..S URGCOUNT=URGCOUNT+1

 ..S URGENCYLIST("Urgency",URGCOUNT,"Name")=SDNAME

 ..S URGENCYLIST("Urgency",URGCOUNT,"Id")=URGENCYIEN

 ..S (SYNIEN,SYNCOUNT)=0

 ..F  S SYNIEN=$O(^ORD(101,URGENCYIEN,2,SYNIEN)) Q:SYNIEN'>0  D

 ...S SYNNAME=$$GET1^DIQ(101.02,SYNIEN_","_URGENCYIEN_",",.01)

 ...S SYNCOUNT=SYNCOUNT+1

 ...S URGENCYLIST("Urgency",URGCOUNT,"Synonym",SYNCOUNT,"SynonymName")=SYNNAME

 I '$D(URGENCYLIST) S URGENCYLIST("Urgency",1)=""

 D BUILDJSON^SDES2JSON(.RES,.URGENCYLIST)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETURGENCY   1437     printed  Apr 23, 2025@19:08:50                                                                                                                                                                                             Page 2

SDES2GETURGENCY ;ALB/BWF - SDES2 GET URGENCY LIST; MAR 11,2024

 +1       ;;5.3;Scheduling;**875**;Aug 13, 1993;Build 25

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4       ; Reference to PROTOCOL in ICR #7026

 +5       ;

 +6        QUIT 

 +7       ; Input

 +8       ;  SDCONTEXT - SD CONTEXT ARRAY

 +9       ;  SDINPUT - blank placeholder parameter

 +10      ;

GETURGENCY(RES,SDCONTEXT,SDINPUT) ; GET valid urgency protocol values that are used in the URGENCY field 5 of the REQUEST CONSULTAION file 123

 +1        NEW ERRORS,URGCOUNT,URGENCY,URGENCYIEN,SDNAME,URGENCYLIST,SYNIEN,SYNCOUNT,SYNNAME

 +2        DO VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 +3        IF $DATA(ERRORS)

               SET ERRORS("Urgency",1)=""

               DO BUILDJSON^SDES2JSON(.RES,.ERRORS)

               QUIT 

 +4        SET URGCOUNT=0

 +5        SET URGENCY="GMRCURGENCY"

           FOR 

               SET URGENCY=$ORDER(^ORD(101,"B",URGENCY))

               if $PIECE(URGENCY," ",1)'="GMRCURGENCY"

                   QUIT 

               if URGENCY=""

                   QUIT 

               Begin DoDot:1

 +6                SET URGENCYIEN=""

                   FOR 

                       SET URGENCYIEN=$ORDER(^ORD(101,"B",URGENCY,URGENCYIEN))

                       if URGENCYIEN=""

                           QUIT 

                       Begin DoDot:2

 +7                        SET SDNAME=$$GET1^DIQ(101,URGENCYIEN_",",.01)

 +8                        SET URGCOUNT=URGCOUNT+1

 +9                        SET URGENCYLIST("Urgency",URGCOUNT,"Name")=SDNAME

 +10                       SET URGENCYLIST("Urgency",URGCOUNT,"Id")=URGENCYIEN

 +11                       SET (SYNIEN,SYNCOUNT)=0

 +12                       FOR 

                               SET SYNIEN=$ORDER(^ORD(101,URGENCYIEN,2,SYNIEN))

                               if SYNIEN'>0

                                   QUIT 

                               Begin DoDot:3

 +13                               SET SYNNAME=$$GET1^DIQ(101.02,SYNIEN_","_URGENCYIEN_",",.01)

 +14                               SET SYNCOUNT=SYNCOUNT+1

 +15                               SET URGENCYLIST("Urgency",URGCOUNT,"Synonym",SYNCOUNT,"SynonymName")=SYNNAME

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +16       IF '$DATA(URGENCYLIST)

               SET URGENCYLIST("Urgency",1)=""

 +17       DO BUILDJSON^SDES2JSON(.RES,.URGENCYLIST)

 +18       QUIT