SDES2VAL2.m

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 ---SDES2VAL2   810     printed  Apr 09, 2024@21:44:09                                                                                                                                                                                                    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