SDES2GETLETRTYPE ;ALB/BLB,AGW - VISTA SCHEDULING RPCS ;JULY 2, 2025@8:00am
;;5.3;Scheduling;**901,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
;
GETLETTERTYPES(JSON,SDCONTEXT) ;
N ERRORS,LETTERTYPES
;
D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)
I $D(ERRORS) S ERRORS("letterTypes",1)="" D BUILDJSON^SDES2JSON(.JSON,.ERRORS) Q
;
I $G(SDCONTEXT("USER DUZ"))'="" N DUZ D DUZ^XUP(SDCONTEXT("USER DUZ"))
;
D GETTYPES(.LETTERTYPES)
D BUILDJSON^SDESBUILDJSON(.JSON,.LETTERTYPES)
Q
;
GETTYPES(LETTERTYPES) ;
N TYPE,TYPEIEN,COUNT
;
S TYPE="",COUNT=0
F S TYPE=$O(^VA(407.5,"C",TYPE)) Q:TYPE="" D
.I $$GET1^DIQ(407.6,$O(^VA(407.6,"B",TYPE,"")),2,"I") Q
.;
.S COUNT=COUNT+1
.S LETTERTYPES("letterTypes",COUNT,"type")=TYPE
I '$D(LETTERTYPES) S LETTERTYPES("letterTypes",1)=""
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2GETLETRTYPE 930 printed Apr 22, 2026@14:51:43 Page 2
SDES2GETLETRTYPE ;ALB/BLB,AGW - VISTA SCHEDULING RPCS ;JULY 2, 2025@8:00am
+1 ;;5.3;Scheduling;**901,909**;Aug 13, 1993;Build 12
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ; Reference to DUZ^XUP is supported by IA #7487
+4 ;
+5 QUIT
+6 ;
GETLETTERTYPES(JSON,SDCONTEXT) ;
+1 NEW ERRORS,LETTERTYPES
+2 ;
+3 DO VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)
+4 IF $DATA(ERRORS)
SET ERRORS("letterTypes",1)=""
DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)
QUIT
+5 ;
+6 IF $GET(SDCONTEXT("USER DUZ"))'=""
NEW DUZ
DO DUZ^XUP(SDCONTEXT("USER DUZ"))
+7 ;
+8 DO GETTYPES(.LETTERTYPES)
+9 DO BUILDJSON^SDESBUILDJSON(.JSON,.LETTERTYPES)
+10 QUIT
+11 ;
GETTYPES(LETTERTYPES) ;
+1 NEW TYPE,TYPEIEN,COUNT
+2 ;
+3 SET TYPE=""
SET COUNT=0
+4 FOR
SET TYPE=$ORDER(^VA(407.5,"C",TYPE))
if TYPE=""
QUIT
Begin DoDot:1
+5 IF $$GET1^DIQ(407.6,$ORDER(^VA(407.6,"B",TYPE,"")),2,"I")
QUIT
+6 ;
+7 SET COUNT=COUNT+1
+8 SET LETTERTYPES("letterTypes",COUNT,"type")=TYPE
End DoDot:1
+9 IF '$DATA(LETTERTYPES)
SET LETTERTYPES("letterTypes",1)=""
+10 QUIT
+11 ;
