SDES2GETPATINFO.m

SDES2GETPATINFO ;ALB/BLB - SDES2 GET PATIENT INFO Nov 02,2023

 ;;5.3;Scheduling;**866**;Aug 13, 1993;Build 22

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 Q

 ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 N ERRORS,VALRETURN,PATIENTINFO

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

 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   609     printed  Apr 09, 2024@22:00:43                                                                                                                                                                                              Page 2

SDES2GETPATINFO ;ALB/BLB - SDES2 GET PATIENT INFO Nov 02,2023

 +1       ;;5.3;Scheduling;**866**;Aug 13, 1993;Build 22

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        QUIT 

 +5       ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 +1        NEW ERRORS,VALRETURN,PATIENTINFO

 +2       ;

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

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

 +5        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +6       ;

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

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

 +9       ;

 +10       QUIT 

 +11      ;