SDES2GETSTORDPAT.m

SDES2GETSTORDPAT  ;ALB/BLB,LAB,JDJ/JAS - SDES2 GET LAST SELECTED PAT; JUN 06, 2025

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

 ;

GETSTOREDPATIENT(JSON,SDCONTEXT,SDPARAM) ;

 ;input parameter SDPARAM is not currently in use,

 ; kept to prevent need of new RPC version.

 N RETURN,DFN,ERRORS,PATIENTLIST,VALRETURN

 ; Next line of news for variables leaking from other APIs

 N MHTC,VA,YSZ

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

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

 ; Visitor Pattern Test Code

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

 ;

 S DFN=$G(^DISV(DUZ,"^DPT("))

 I '$G(DFN) S RETURN("Patient",1)="" D BUILDJSON^SDES2JSON(.JSON,.RETURN) Q

 D POPULATE^SDES2PATSEARCH(.PATIENTLIST,DFN,1)

 ;

 M RETURN=PATIENTLIST D BUILDJSON^SDES2JSON(.JSON,.RETURN)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2GETSTORDPAT   1013     printed  May 25, 2026@12:58:50                                                                                                                                                                                            Page 2

SDES2GETSTORDPAT ;ALB/BLB,LAB,JDJ/JAS - SDES2 GET LAST SELECTED PAT; JUN 06, 2025

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

GETSTOREDPATIENT(JSON,SDCONTEXT,SDPARAM) ;

 +1       ;input parameter SDPARAM is not currently in use,

 +2       ; kept to prevent need of new RPC version.

 +3        NEW RETURN,DFN,ERRORS,PATIENTLIST,VALRETURN

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

 +5        NEW MHTC,VA,YSZ

 +6       ;

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

 +8        IF $DATA(ERRORS)

               SET RETURN("Patient",1)=""

               MERGE RETURN=ERRORS

               DO BUILDJSON^SDES2JSON(.JSON,.RETURN)

               QUIT 

 +9       ; Visitor Pattern Test Code

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

               NEW DUZ

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

 +11      ;

 +12       SET DFN=$GET(^DISV(DUZ,"^DPT("))

 +13       IF '$GET(DFN)

               SET RETURN("Patient",1)=""

               DO BUILDJSON^SDES2JSON(.JSON,.RETURN)

               QUIT 

 +14       DO POPULATE^SDES2PATSEARCH(.PATIENTLIST,DFN,1)

 +15      ;

 +16       MERGE RETURN=PATIENTLIST

           DO BUILDJSON^SDES2JSON(.JSON,.RETURN)

 +17       QUIT 

 +18      ;