SDES2VAL2 ;ALB/MGD - SDES2 PATIENT UTILITIES ;July 7, 2023
;;5.3;Scheduling;**853**;Aug 13, 1993;Build 9
;;Per VHA Directive 6402, this routine should not be modified
;
; Reference to ^DPT( in #10035
;
Q
;
VALPATDFN(SDERRORS,SDDFN,SDREQUIRED,SDALLOWDELETE) ;
I $G(SDREQUIRED)&(SDDFN="") D ERRLOG^SDES2JSON(.SDERRORS,1) Q
I '$G(SDALLOWDELETE)&(SDDFN="@") D ERRLOG^SDES2JSON(.SDERRORS,229,"Patient DFN") Q
Q:(SDDFN="")!(SDDFN="@")
I '$D(^DPT(SDDFN,0)) D ERRLOG^SDES2JSON(.SDERRORS,2)
Q
VALPATICN(SDERRORS,SDICN,SDREQUIRED,SDALLOWDELETE) ;
I $G(SDREQUIRED)&(SDICN="") D ERRLOG^SDES2JSON(.SDERRORS,1)
I '$G(SDALLOWDELETE)&(SDICN="@") D ERRLOG^SDES2JSON(.SDERRORS,229,"Patient ICN") Q
Q:(SDICN="")!(SDICN="@")
I '$D(^DPT("AICN",SDICN)) D ERRLOG^SDES2JSON(.SDERRORS,452,SDICN)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2VAL2 810 printed Oct 16, 2024@18:55:16 Page 2
SDES2VAL2 ;ALB/MGD - SDES2 PATIENT UTILITIES ;July 7, 2023
+1 ;;5.3;Scheduling;**853**;Aug 13, 1993;Build 9
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ; Reference to ^DPT( in #10035
+5 ;
+6 QUIT
+7 ;
VALPATDFN(SDERRORS,SDDFN,SDREQUIRED,SDALLOWDELETE) ;
+1 IF $GET(SDREQUIRED)&(SDDFN="")
DO ERRLOG^SDES2JSON(.SDERRORS,1)
QUIT
+2 IF '$GET(SDALLOWDELETE)&(SDDFN="@")
DO ERRLOG^SDES2JSON(.SDERRORS,229,"Patient DFN")
QUIT
+3 if (SDDFN="")!(SDDFN="@")
QUIT
+4 IF '$DATA(^DPT(SDDFN,0))
DO ERRLOG^SDES2JSON(.SDERRORS,2)
+5 QUIT
VALPATICN(SDERRORS,SDICN,SDREQUIRED,SDALLOWDELETE) ;
+1 IF $GET(SDREQUIRED)&(SDICN="")
DO ERRLOG^SDES2JSON(.SDERRORS,1)
+2 IF '$GET(SDALLOWDELETE)&(SDICN="@")
DO ERRLOG^SDES2JSON(.SDERRORS,229,"Patient ICN")
QUIT
+3 if (SDICN="")!(SDICN="@")
QUIT
+4 IF '$DATA(^DPT("AICN",SDICN))
DO ERRLOG^SDES2JSON(.SDERRORS,452,SDICN)
+5 QUIT
