SDESGETAPPTTYPE.m

SDESGETAPPTTYPE ;ALB/BLB,TJB - SDES GET APPT TYPE RPC ;Oct 05, 2023

 ;;5.3;Scheduling;**842,864**;Aug 13, 1993;Build 15

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

 Q

 ;

GETTYPES(JSONRETURN) ;

 N RETURN,APPTTYPES

 ;

 D BUILD(.APPTTYPES)

 M RETURN=APPTTYPES D BUILDJSON(.JSONRETURN,.RETURN)

 Q

 ;

BUILD(APPTTYPES) ;

 N COUNT,APPTTYPEIEN

 ;

 S APPTTYPEIEN=0,COUNT=0

 F  S APPTTYPEIEN=$O(^SD(409.1,APPTTYPEIEN)) Q:'APPTTYPEIEN  D

 . Q:$$GET1^DIQ(409.1,APPTTYPEIEN,3,"I")

 . S COUNT=COUNT+1

 . S APPTTYPES("AppointmentTypes",COUNT)=$$GET1^DIQ(409.1,APPTTYPEIEN,.01,"E")

 Q

 ;

BUILDJSON(JSONRETURN,RETURN) ;

 D ENCODE^XLFJSON("RETURN","JSONRETURN")

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESGETAPPTTYPE   695     printed  Apr 23, 2025@19:11:17                                                                                                                                                                                              Page 2

SDESGETAPPTTYPE ;ALB/BLB,TJB - SDES GET APPT TYPE RPC ;Oct 05, 2023

 +1       ;;5.3;Scheduling;**842,864**;Aug 13, 1993;Build 15

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

 +3        QUIT 

 +4       ;

GETTYPES(JSONRETURN) ;

 +1        NEW RETURN,APPTTYPES

 +2       ;

 +3        DO BUILD(.APPTTYPES)

 +4        MERGE RETURN=APPTTYPES

           DO BUILDJSON(.JSONRETURN,.RETURN)

 +5        QUIT 

 +6       ;

BUILD(APPTTYPES) ;

 +1        NEW COUNT,APPTTYPEIEN

 +2       ;

 +3        SET APPTTYPEIEN=0

           SET COUNT=0

 +4        FOR 

               SET APPTTYPEIEN=$ORDER(^SD(409.1,APPTTYPEIEN))

               if 'APPTTYPEIEN

                   QUIT 

               Begin DoDot:1

 +5                if $$GET1^DIQ(409.1,APPTTYPEIEN,3,"I")

                       QUIT 

 +6                SET COUNT=COUNT+1

 +7                SET APPTTYPES("AppointmentTypes",COUNT)=$$GET1^DIQ(409.1,APPTTYPEIEN,.01,"E")

               End DoDot:1

 +8        QUIT 

 +9       ;

BUILDJSON(JSONRETURN,RETURN) ;

 +1        DO ENCODE^XLFJSON("RETURN","JSONRETURN")

 +2        QUIT 

 +3       ;