SDES2GRECAPTYPE ;ALB/BWF,LAB - SDES2 get recall appointment types ;JUN 17,2025
;;5.3;Scheduling;**877,909**;Aug 13, 1993;Build 12
;;Per VHA Directive 6402, this routine should not be modified
;
; Reference to DUZ^XUP is supported by IA #7487
;
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
I $G(SDCONTEXT("USER DUZ"))'="" N DUZ D DUZ^XUP(SDCONTEXT("USER DUZ"))
;
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 954 printed May 25, 2026@12:58:56 Page 2
SDES2GRECAPTYPE ;ALB/BWF,LAB - SDES2 get recall appointment types ;JUN 17,2025
+1 ;;5.3;Scheduling;**877,909**;Aug 13, 1993;Build 12
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ; Reference to DUZ^XUP is supported by IA #7487
+5 ;
+6 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 IF $GET(SDCONTEXT("USER DUZ"))'=""
NEW DUZ
DO DUZ^XUP(SDCONTEXT("USER DUZ"))
+5 ;
+6 SET SDECCNT=0
+7 SET SDI=0
FOR
SET SDI=$ORDER(^SD(403.51,SDI))
if 'SDI
QUIT
Begin DoDot:1
+8 SET SDECCNT=SDECCNT+1
+9 SET RECTYPES("RecallReminderType",SDECCNT,"IEN")=SDI
+10 SET RECTYPES("RecallReminderType",SDECCNT,"Name")=$$GET1^DIQ(403.51,SDI,.01,"E")
+11 SET RECTYPES("RecallReminderType",SDECCNT,"Synonym")=$$GET1^DIQ(403.51,SDI,1,"E")
End DoDot:1
+12 IF '$DATA(RECTYPES)
SET RECTYPES("RecallReminderType",1)=""
+13 DO BUILDJSON^SDES2JSON(.RES,.RECTYPES)
+14 QUIT
