Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDESSTOREPATIENT

SDESSTOREPATIENT.m

Go to the documentation of this file.
  1. SDESSTOREPATIENT ;ALB/BLB - SDES STORE LAST SELECTED PAT; Apr 04, 2023@09:00
  1. ;;5.3;Scheduling;**846**;Aug 13, 1993;Build 12
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. Q
  1. ;
  1. STORE(JSON,DFN,USERID) ;
  1. N ERRORS,RETURN
  1. ;
  1. D VALIDATEDFN(.ERRORS,$G(DFN))
  1. D VALIDATEUSERID(.ERRORS,$G(USERID))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSON,.RETURN) Q
  1. ;
  1. D RECALL^DILFD(2,DFN_",",USERID)
  1. S RETURN("PatientRecordCreated",1)=1
  1. D BUILDJSON(.JSON,.RETURN) Q
  1. Q
  1. ;
  1. VALIDATEDFN(ERRORS,DFN) ;
  1. I DFN="" D ERRLOG^SDESJSON(.ERRORS,1) Q 0
  1. I DFN'="",'$D(^DPT(DFN,0)) D ERRLOG^SDESJSON(.ERRORS,2) Q
  1. Q
  1. ;
  1. VALIDATEUSERID(ERRORS,USERID) ;
  1. I $G(USERID)="" D ERRLOG^SDESJSON(.ERRORS,441)
  1. I $G(USERID)'="",'$D(^VA(200,$G(USERID),0)) D ERRLOG^SDESJSON(.ERRORS,442)
  1. Q
  1. ;
  1. BUILDJSON(JSONRETURN,RETURN) ;
  1. N JSONERROR
  1. D ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERR")
  1. Q
  1. ;