SDES2GRECAPTYPE.m

SDES2GRECAPTYPE ;ALB/BWF - SDES2 get recall appointment types ;APR 30, 2024

 ;;5.3;Scheduling;**877**;Aug 13, 1993;Build 14

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

 ;

 Q

GETRECREMTYPES(RES,SDCONTEXT,SDINPUT) ;

 N SDECCNT,SDI,RECTYPES,ERRORS

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

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

 S SDECCNT=0

 S SDI=0 F  S SDI=$O(^SD(403.51,SDI)) Q:'SDI  D

 .S SDECCNT=SDECCNT+1

 .S RECTYPES("RecallReminderType",SDECCNT,"IEN")=SDI

 .S RECTYPES("RecallReminderType",SDECCNT,"Name")=$$GET1^DIQ(403.51,SDI,.01,"E")

 .S RECTYPES("RecallReminderType",SDECCNT,"Synonym")=$$GET1^DIQ(403.51,SDI,1,"E")

 I '$D(RECTYPES) S RECTYPES("RecallReminderType",1)=""

 D BUILDJSON^SDES2JSON(.RES,.RECTYPES)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GRECAPTYPE   816     printed  Apr 23, 2025@19:08:55                                                                                                                                                                                              Page 2

SDES2GRECAPTYPE ;ALB/BWF - SDES2 get recall appointment types ;APR 30, 2024

 +1       ;;5.3;Scheduling;**877**;Aug 13, 1993;Build 14

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

 +3       ;

 +4        QUIT 

GETRECREMTYPES(RES,SDCONTEXT,SDINPUT) ;

 +1        NEW SDECCNT,SDI,RECTYPES,ERRORS

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

 +3        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.RES,.ERRORS)

               QUIT 

 +4        SET SDECCNT=0

 +5        SET SDI=0

           FOR 

               SET SDI=$ORDER(^SD(403.51,SDI))

               if 'SDI

                   QUIT 

               Begin DoDot:1

 +6                SET SDECCNT=SDECCNT+1

 +7                SET RECTYPES("RecallReminderType",SDECCNT,"IEN")=SDI

 +8                SET RECTYPES("RecallReminderType",SDECCNT,"Name")=$$GET1^DIQ(403.51,SDI,.01,"E")

 +9                SET RECTYPES("RecallReminderType",SDECCNT,"Synonym")=$$GET1^DIQ(403.51,SDI,1,"E")

               End DoDot:1

 +10       IF '$DATA(RECTYPES)

               SET RECTYPES("RecallReminderType",1)=""

 +11       DO BUILDJSON^SDES2JSON(.RES,.RECTYPES)

 +12       QUIT