SDES2GETPATINFO.m

SDES2GETPATINFO ;ALB/BLB,JAS - SDES2 GET PATIENT INFO ; Jun 06,2025

 ;;5.3;Scheduling;**866,886,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

 ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 N ERRORS,VALRETURN,PATIENTINFO

 ; Next line of news for variables leaking from other APIs

 N MHTC,VA,YSZ

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

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

  ; Visitor Pattern Test Code

 I $G(SDCONTEXT("USER DUZ"))'="" N DUZ D DUZ^XUP(SDCONTEXT("USER DUZ"))

 ;

 D VALFILEIEN^SDES2VALUTIL(.VALRETURN,.ERRORS,2,$G(PATIENT("PATIENT DFN")),1,,1,2)

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

 ;

 D POPULATE^SDES2PATSEARCH(.PATIENTINFO,PATIENT("PATIENT DFN"),1)

 D BUILDJSON^SDES2JSON(.JSON,.PATIENTINFO)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETPATINFO   934     printed  May 25, 2026@12:58:41                                                                                                                                                                                              Page 2

SDES2GETPATINFO ;ALB/BLB,JAS - SDES2 GET PATIENT INFO ; Jun 06,2025

 +1       ;;5.3;Scheduling;**866,886,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        QUIT 

 +6       ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 +1        NEW ERRORS,VALRETURN,PATIENTINFO

 +2       ; Next line of news for variables leaking from other APIs

 +3        NEW MHTC,VA,YSZ

 +4       ;

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

 +6        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +7       ; Visitor Pattern Test Code

 +8        IF $GET(SDCONTEXT("USER DUZ"))'=""

               NEW DUZ

               DO DUZ^XUP(SDCONTEXT("USER DUZ"))

 +9       ;

 +10       DO VALFILEIEN^SDES2VALUTIL(.VALRETURN,.ERRORS,2,$GET(PATIENT("PATIENT DFN")),1,,1,2)

 +11       IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +12      ;

 +13       DO POPULATE^SDES2PATSEARCH(.PATIENTINFO,PATIENT("PATIENT DFN"),1)

 +14       DO BUILDJSON^SDES2JSON(.JSON,.PATIENTINFO)

 +15       QUIT 

 +16      ;