SDES2STOREPAT.m

SDES2STOREPAT  ;ALB/TJB - SDES2 STORE LAST SELECTED PAT; Oct 20, 2023@09:00

 ;;5.3;Scheduling;**864**;Aug 13, 1993;Build 15

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

 ;

 ;INPUT - 

 ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 ; SDCONTEXT("PATIENT DFN") = The DFN/IEN of the target patient from the calling application.

 ; SDCONTEXT("PATIENT ICN") = The ICN of the target patient from the calling application.

 ; SDCONTEXT("USER DUZ") = The DUZ of the user taking action in the calling application.

 ; SDCONTEXT("USER SECID") = The SECID of the user taking action in the calling application.

 ;

 ; SDPARAM("DFN")=DFN     Patient IEN to be stored for the space bar recall (required)

 ;

 ;RETURN PARMETER:

 ; Status

 Q

 ;

STORE(JSON,SDCONTEXT,SDPARAM) ;

 N ERRORS,RETURN,VALRETURN,SDDUZ

 ;

 D VALCONTEXT^SDES2VALCONTEXT(.ERRORS,.SDCONTEXT)

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

 D VALPATDFN^SDES2VAL2(.ERRORS,$G(SDPARAM("DFN")),1,0)

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

 ;

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

 D RECALL^DILFD(2,SDPARAM("DFN")_",",SDDUZ)

 S RETURN("PatientRecordCreated",1)=1

 D BUILDJSON^SDES2JSON(.JSON,.RETURN)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2STOREPAT   1398     printed  Apr 09, 2024@21:54:09                                                                                                                                                                                               Page 2

SDES2STOREPAT ;ALB/TJB - SDES2 STORE LAST SELECTED PAT; Oct 20, 2023@09:00

 +1       ;;5.3;Scheduling;**864**;Aug 13, 1993;Build 15

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

 +3       ;

 +4       ;INPUT - 

 +5       ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 +6       ; SDCONTEXT("PATIENT DFN") = The DFN/IEN of the target patient from the calling application.

 +7       ; SDCONTEXT("PATIENT ICN") = The ICN of the target patient from the calling application.

 +8       ; SDCONTEXT("USER DUZ") = The DUZ of the user taking action in the calling application.

 +9       ; SDCONTEXT("USER SECID") = The SECID of the user taking action in the calling application.

 +10      ;

 +11      ; SDPARAM("DFN")=DFN     Patient IEN to be stored for the space bar recall (required)

 +12      ;

 +13      ;RETURN PARMETER:

 +14      ; Status

 +15       QUIT 

 +16      ;

STORE(JSON,SDCONTEXT,SDPARAM) ;

 +1        NEW ERRORS,RETURN,VALRETURN,SDDUZ

 +2       ;

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

 +4        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +5        DO VALPATDFN^SDES2VAL2(.ERRORS,$GET(SDPARAM("DFN")),1,0)

 +6        IF $DATA(ERRORS)

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

               DO BUILDJSON^SDES2JSON(.JSON,.ERRORS)

               QUIT 

 +7       ;

 +8        SET SDDUZ=$SELECT($GET(SDCONTEXT("USER DUZ"))'="":$GET(SDCONTEXT("USER DUZ")),1:DUZ)

 +9        DO RECALL^DILFD(2,SDPARAM("DFN")_",",SDDUZ)

 +10       SET RETURN("PatientRecordCreated",1)=1

 +11       DO BUILDJSON^SDES2JSON(.JSON,.RETURN)

 +12       QUIT 

 +13      ;