SDES2GETLETRTYPE ;ALB/BLB - VISTA SCHEDULING RPCS ;Feb 16, 2025@8:00am
;;5.3;Scheduling;**901**;Aug 13, 1993;Build 7
;;Per VHA Directive 6402, this routine should not be modified
;
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
;
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 794 printed Aug 26, 2025@23:10:21 Page 2
SDES2GETLETRTYPE ;ALB/BLB - VISTA SCHEDULING RPCS ;Feb 16, 2025@8:00am
+1 ;;5.3;Scheduling;**901**;Aug 13, 1993;Build 7
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 QUIT
+5 ;
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 DO GETTYPES(.LETTERTYPES)
+7 DO BUILDJSON^SDESBUILDJSON(.JSON,.LETTERTYPES)
+8 QUIT
+9 ;
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 ;
