SDES2GETRESGROUP.m

SDES2GETRESGROUP ;ALB/BLB - SDES2 GET CLINC GROUPS - NOV 3,2023@5:04

 ;;5.3;Scheduling;**866,867**;Aug 13, 1993;Build 8

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

 ;

 Q

 ;

GETRESOURCEGROUP(JSON,SDCONTEXT,RESOURCEGROUP) ;

 N GROUPDATA,VALRETURN,ERRORS

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 D VALFILEIEN^SDES2VALUTIL(.VALRETURN,.ERRORS,409.832,$G(RESOURCEGROUP("RESOURCE GROUP IEN")),1,,312,276)

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

 ;

 D BUILDGROUP(.GROUPDATA,RESOURCEGROUP("RESOURCE GROUP IEN"))

 ;

 D BUILDJSON^SDESBUILDJSON(.JSON,.GROUPDATA)

 Q

 ;

BUILDGROUP(GROUPDATA,GROUPIEN) ;

 N SUBIEN,COUNT,TYPE,IENS,RESOURCEIEN,RESOURCETYPE,PROVCLINCOUNT,CLINICIEN,PROVIDERIEN

 ;

 ; top level group

 S GROUPDATA("RSGroup","IEN")=GROUPIEN

 S GROUPDATA("RSGroup","Name")=$$GET1^DIQ(409.832,GROUPIEN,.01,"E")

 S GROUPDATA("RSGroup","Inactivation Date")=$$FMTISO^SDAMUTDT($$GET1^DIQ(409.832,GROUPIEN,.02,"I"))

 ;

 ; sub level resources

 S SUBIEN=0,COUNT=0

 F  S SUBIEN=$O(^SDEC(409.832,GROUPIEN,1,SUBIEN)) Q:'SUBIEN  D

 .S RESOURCEIEN=$$GET1^DIQ(409.8321,SUBIEN_","_GROUPIEN_",",.01,"I")

 .I $$GET1^DIQ(409.831,RESOURCEIEN,.02)="YES" Q

 .S RESOURCETYPE=$$GET1^DIQ(409.831,RESOURCEIEN,.012,"E")

 .S COUNT=COUNT+1

 .;

 .S GROUPDATA("RSGroup","Resources",COUNT,"IEN")=$P($$GET1^DIQ(409.831,RESOURCEIEN,.012,"I"),";")

 .S GROUPDATA("RSGroup","Resources",COUNT,"Name")=$$GET1^DIQ(409.831,RESOURCEIEN,.01,"E")

 .S GROUPDATA("RSGroup","Resources",COUNT,"Type")=RESOURCETYPE

 .;

 .I RESOURCETYPE="PROVIDER" D

 ..S PROVIDERIEN=$P($$GET1^DIQ(409.831,RESOURCEIEN,.012,"I"),";")

 ..S CLINICIEN=0,PROVCLINCOUNT=0

 ..F  S CLINICIEN=$O(^SC("AVADPR",PROVIDERIEN,CLINICIEN)) Q:'CLINICIEN  D

 ...S PROVCLINCOUNT=PROVCLINCOUNT+1

 ...;

 ...S GROUPDATA("RSGroup","Resources",COUNT,"Provider",PROVCLINCOUNT,"AssociatedClinicIEN")=CLINICIEN

 ...S GROUPDATA("RSGroup","Resources",COUNT,"Provider",PROVCLINCOUNT,"AssociatedClinicName")=$$GET1^DIQ(44,CLINICIEN,.01,"E")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETRESGROUP   2064     printed  Apr 09, 2024@21:48:48                                                                                                                                                                                            Page 2

SDES2GETRESGROUP ;ALB/BLB - SDES2 GET CLINC GROUPS - NOV 3,2023@5:04

 +1       ;;5.3;Scheduling;**866,867**;Aug 13, 1993;Build 8

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

 +3       ;

 +4        QUIT 

 +5       ;

GETRESOURCEGROUP(JSON,SDCONTEXT,RESOURCEGROUP) ;

 +1        NEW GROUPDATA,VALRETURN,ERRORS

 +2       ;

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

 +4        DO VALFILEIEN^SDES2VALUTIL(.VALRETURN,.ERRORS,409.832,$GET(RESOURCEGROUP("RESOURCE GROUP IEN")),1,,312,276)

 +5        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +6       ;

 +7        DO BUILDGROUP(.GROUPDATA,RESOURCEGROUP("RESOURCE GROUP IEN"))

 +8       ;

 +9        DO BUILDJSON^SDESBUILDJSON(.JSON,.GROUPDATA)

 +10       QUIT 

 +11      ;

BUILDGROUP(GROUPDATA,GROUPIEN) ;

 +1        NEW SUBIEN,COUNT,TYPE,IENS,RESOURCEIEN,RESOURCETYPE,PROVCLINCOUNT,CLINICIEN,PROVIDERIEN

 +2       ;

 +3       ; top level group

 +4        SET GROUPDATA("RSGroup","IEN")=GROUPIEN

 +5        SET GROUPDATA("RSGroup","Name")=$$GET1^DIQ(409.832,GROUPIEN,.01,"E")

 +6        SET GROUPDATA("RSGroup","Inactivation Date")=$$FMTISO^SDAMUTDT($$GET1^DIQ(409.832,GROUPIEN,.02,"I"))

 +7       ;

 +8       ; sub level resources

 +9        SET SUBIEN=0

           SET COUNT=0

 +10       FOR 

               SET SUBIEN=$ORDER(^SDEC(409.832,GROUPIEN,1,SUBIEN))

               if 'SUBIEN

                   QUIT 

               Begin DoDot:1

 +11               SET RESOURCEIEN=$$GET1^DIQ(409.8321,SUBIEN_","_GROUPIEN_",",.01,"I")

 +12               IF $$GET1^DIQ(409.831,RESOURCEIEN,.02)="YES"

                       QUIT 

 +13               SET RESOURCETYPE=$$GET1^DIQ(409.831,RESOURCEIEN,.012,"E")

 +14               SET COUNT=COUNT+1

 +15      ;

 +16               SET GROUPDATA("RSGroup","Resources",COUNT,"IEN")=$PIECE($$GET1^DIQ(409.831,RESOURCEIEN,.012,"I"),";")

 +17               SET GROUPDATA("RSGroup","Resources",COUNT,"Name")=$$GET1^DIQ(409.831,RESOURCEIEN,.01,"E")

 +18               SET GROUPDATA("RSGroup","Resources",COUNT,"Type")=RESOURCETYPE

 +19      ;

 +20               IF RESOURCETYPE="PROVIDER"

                       Begin DoDot:2

 +21                       SET PROVIDERIEN=$PIECE($$GET1^DIQ(409.831,RESOURCEIEN,.012,"I"),";")

 +22                       SET CLINICIEN=0

                           SET PROVCLINCOUNT=0

 +23                       FOR 

                               SET CLINICIEN=$ORDER(^SC("AVADPR",PROVIDERIEN,CLINICIEN))

                               if 'CLINICIEN

                                   QUIT 

                               Begin DoDot:3

 +24                               SET PROVCLINCOUNT=PROVCLINCOUNT+1

 +25      ;

 +26                               SET GROUPDATA("RSGroup","Resources",COUNT,"Provider",PROVCLINCOUNT,"AssociatedClinicIEN")=CLINICIEN

 +27                               SET GROUPDATA("RSGroup","Resources",COUNT,"Provider",PROVCLINCOUNT,"AssociatedClinicName")=$$GET1^DIQ(44,CLINICIEN,.01,"E")

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +28       QUIT 

 +29      ;