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

SDESEDITAPPTREQ2.m

Go to the documentation of this file.
  1. SDESEDITAPPTREQ2 ;ALB/BLB,MGD - VISTA SCHEDULING RPCS; Oct 03, 2022@10:29
  1. ;;5.3;Scheduling;**823,826**;Aug 13, 1993;Build 18
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; SDES EDIT APPT REQ
  1. ;
  1. VALIDATEDATEPREF(ERRORS,REQUEST) ;
  1. N ARYIEN,ARYIEN2,DATE,ERR,STARTDATE,ENDDATE
  1. S ARYIEN=0,ERR=0
  1. F S ARYIEN=$O(REQUEST("PATIENT PREFERRED START DATE",ARYIEN)) Q:'ARYIEN!($G(ERR)) D
  1. .S STARTDATE=$G(REQUEST("PATIENT PREFERRED START DATE",ARYIEN))
  1. .S STARTDATE=$$ISOTFM^SDAMUTDT(STARTDATE)
  1. .I STARTDATE=-1!($L(STARTDATE,".")=1) S ERR=1 D ERRLOG^SDESJSON(.ERRORS,206) Q
  1. .S ARYIEN2=0
  1. .F S ARYIEN2=$O(REQUEST("PATIENT PREFERRED END DATE",ARYIEN2)) Q:'ARYIEN2 D
  1. ..S ENDDATE=$G(REQUEST("PATIENT PREFERRED END DATE",ARYIEN2))
  1. ..S ENDDATE=$$ISOTFM^SDAMUTDT(ENDDATE)
  1. ..I ENDDATE=-1!($L(ENDDATE,".")=1) S ERR=1 D ERRLOG^SDESJSON(.ERRORS,206) Q
  1. I $G(REQUEST("PATIENT PREFERRED START DATE",1)),'$G(REQUEST("PATIENT PREFERRED END DATE",1)) D ERRLOG^SDESJSON(.ERRORS,195) Q 0
  1. I $G(REQUEST("PATIENT PREFERRED START DATE",2)),'$G(REQUEST("PATIENT PREFERRED END DATE",2)) D ERRLOG^SDESJSON(.ERRORS,195) Q 0
  1. I $G(REQUEST("PATIENT PREFERRED START DATE",3)),'$G(REQUEST("PATIENT PREFERRED END DATE",3)) D ERRLOG^SDESJSON(.ERRORS,195) Q 0
  1. Q
  1. ;
  1. VALIDATEAPPTTYPE(ERRORS,APPTTYPEIEN,APPTTYPENAME) ;
  1. ;I APPTTYPEIEN="",APPTTYPENAME="" D ERRLOG^SDESJSON(.ERRORS,306) Q 0
  1. N APPTTYPIEN
  1. S APPTTYPIEN=0
  1. I $G(APPTTYPENAME)'="" D I 'APPTTYPIEN Q 0
  1. . S APPTTYPIEN=$$FIND1^DIC(409.1,"","X",APPTTYPENAME,"B")
  1. . I 'APPTTYPIEN D ERRLOG^SDESJSON(.ERRORS,180)
  1. I APPTTYPIEN S APPTTYPEIEN=APPTTYPIEN Q 1
  1. I APPTTYPEIEN'="",'$D(^SD(409.1,APPTTYPEIEN,0)) D ERRLOG^SDESJSON(.ERRORS,180)
  1. Q 0