SDES2GETPATINFO.m

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

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

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

 ;

 Q

 ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 N ERRORS,VALRETURN,PATIENTINFO,SDDUZ

 ;

 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

 ;

 S SDDUZ=$S($G(SDCONTEXT("USER DUZ")):$G(SDCONTEXT("USER DUZ")),1:DUZ)

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

 D BUILDJSON^SDES2JSON(.JSON,.PATIENTINFO)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETPATINFO   690     printed  Feb 19, 2025@00:20:34                                                                                                                                                                                              Page 2

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

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

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

 +3       ;

 +4        QUIT 

 +5       ;

GETINFO(JSON,SDCONTEXT,PATIENT) ;

 +1        NEW ERRORS,VALRETURN,PATIENTINFO,SDDUZ

 +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        SET SDDUZ=$SELECT($GET(SDCONTEXT("USER DUZ")):$GET(SDCONTEXT("USER DUZ")),1:DUZ)

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

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

 +10       QUIT 

 +11      ;