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 ---[H[J[2J[HSDES2GRECAPTYPE 816 printed Sep 15, 2024@22:18:14 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
