SDES2STOREPAT ;ALB/TJB,JAS - SDES2 STORE LAST SELECTED PAT; Apr 18, 2024@10:30
;;5.3;Scheduling;**864,877**;Aug 13, 1993;Build 14
;;Per VHA Directive 6402, this routine should not be modified
;
; Reference to SETLOG1^DGSEC is supported by IA #7467
;
;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,SENSITIVE
;
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)
;
;check for sensitive patient for auditing
N SENSITIVE
D SENSITIVE^SDES2UTIL(.SENSITIVE,SDPARAM("DFN"),SDDUZ)
I SENSITIVE(1) D SETLOG1^DGSEC(SDPARAM("DFN"),SDDUZ,"","SDESRPC^CLINICAL SCHEDULING PROCEDURE CALLS")
;
S RETURN("PatientRecordCreated",1)=1
D BUILDJSON^SDES2JSON(.JSON,.RETURN)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2STOREPAT 1702 printed Nov 22, 2024@18:04:37 Page 2
SDES2STOREPAT ;ALB/TJB,JAS - SDES2 STORE LAST SELECTED PAT; Apr 18, 2024@10:30
+1 ;;5.3;Scheduling;**864,877**;Aug 13, 1993;Build 14
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ; Reference to SETLOG1^DGSEC is supported by IA #7467
+5 ;
+6 ;INPUT -
+7 ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37
+8 ; SDCONTEXT("PATIENT DFN") = The DFN/IEN of the target patient from the calling application.
+9 ; SDCONTEXT("PATIENT ICN") = The ICN of the target patient from the calling application.
+10 ; SDCONTEXT("USER DUZ") = The DUZ of the user taking action in the calling application.
+11 ; SDCONTEXT("USER SECID") = The SECID of the user taking action in the calling application.
+12 ;
+13 ; SDPARAM("DFN")=DFN Patient IEN to be stored for the space bar recall (required)
+14 ;
+15 ;RETURN PARMETER:
+16 ; Status
+17 QUIT
+18 ;
STORE(JSON,SDCONTEXT,SDPARAM) ;
+1 NEW ERRORS,RETURN,VALRETURN,SDDUZ,SENSITIVE
+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 ;
+11 ;check for sensitive patient for auditing
+12 NEW SENSITIVE
+13 DO SENSITIVE^SDES2UTIL(.SENSITIVE,SDPARAM("DFN"),SDDUZ)
+14 IF SENSITIVE(1)
DO SETLOG1^DGSEC(SDPARAM("DFN"),SDDUZ,"","SDESRPC^CLINICAL SCHEDULING PROCEDURE CALLS")
+15 ;
+16 SET RETURN("PatientRecordCreated",1)=1
+17 DO BUILDJSON^SDES2JSON(.JSON,.RETURN)
+18 QUIT
+19 ;
