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

SDESCREATEAPPREQ.m

Go to the documentation of this file.
  1. SDESCREATEAPPREQ ;ALB/BLB,MGD,BLB,BWF,MGD,LAB,MGD,JAS,BLB,MGD,JDJ,JAS,JAS - SCHEDULING APPOINTMENT REQUEST RPCS; APR 2, 2024
  1. ;;5.3;Scheduling;**823,826,833,835,837,843,844,846,847,864,869,871,875**;Aug 13, 1993;Build 25
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. Q
  1. ;
  1. ; RPC: SDES CREATE APPT REQ
  1. ;
  1. CREATEREQUEST(JSONRETURN,REQUEST) ;
  1. N REQUESTIEN,ERRORS,RETURN,ISDFNVALID,ISDATETIMEVALID,ISMODALINVALID,ISEASVALID,INSTITUTIONIEN
  1. N ISCLINSTOPVALID,ISREQUESTBYVALID,ISPROVIDERVALID,ISMODALITYVALID,ISPIDVALID,ISPRIGROUPVALID
  1. N ISREQTYPEVALID,ISPRIORITYVALID,ISSERVCONNVALID,ISAPPTTYPEVALID,ISAPPTNAMEVALID,ISPATSTATVALID
  1. N ISDATEPREFVALID,ISMTRCDATAVALID,ISCPRSDATAVALID
  1. ;
  1. D VALIDATE(.REQUEST,.INSTITUTIONIEN,.ERRORS)
  1. ;
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. D CONVERTSTOPCODE(.REQUEST)
  1. ;
  1. S REQUESTIEN=$$BUILDER(.REQUEST,INSTITUTIONIEN)
  1. ;
  1. S RETURN("Request","IEN")=$G(REQUESTIEN)
  1. ;
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. VALIDATE(REQUEST,INSTITUTIONIEN,ERRORS) ;
  1. ;
  1. S ISDFNVALID=$$VALIDATEDFN^SDESCRTAPPREQVAL(.ERRORS,$G(REQUEST("DFN")))
  1. S ISDATETIMEVALID=$$VALIDATEDATETIME^SDESCRTAPPREQVAL(.ERRORS,.REQUEST)
  1. S ISREQTYPEVALID=$$VALIDATEREQTYPE^SDESCRTAPPREQVAL(.ERRORS,$G(REQUEST("REQUEST SUB TYPE")))
  1. S INSTITUTIONIEN=$$STATIONTOINST^SDESCRTAPPREQVAL(.ERRORS,$G(REQUEST("STATION NUMBER")),$G(REQUEST("INSTITUTION NAME")))
  1. S ISCLINSTOPVALID=$$VALIDATECLINSTOP^SDESCRTAPPREQVAL(.ERRORS,$G(REQUEST("CLINIC IEN")),$G(REQUEST("STOP CODE")),$G(REQUEST("SECONDARY STOP CODE")))
  1. S ISREQUESTBYVALID=$$VALIDATEREQBY^SDESCRTAPPREQVAL(.ERRORS,$G(REQUEST("REQUESTED BY")))
  1. I $G(REQUEST("REQUESTED BY"))=1 S ISPROVIDERVALID=$$VALIDATEPROVIDER(.ERRORS,$G(REQUEST("PROVIDER IEN")))
  1. I $G(REQUEST("REQUESTED BY"))'=1 S REQUEST("PROVIDER IEN")=""
  1. S ISPIDVALID=$$VALIDATEPID(.ERRORS,.REQUEST)
  1. S ISEASVALID=$$VALIDATEEAS(.ERRORS,$G(REQUEST("EAS")))
  1. I $L($G(REQUEST("MODALITY"))) S ISMODALINVALID=$$VALIDATEMODALITY^SDESINPUTVALUTL(.ERRORS,$G(REQUEST("MODALITY")))
  1. S ISPRIORITYVALID=$$VALIDATEPRIORITY(.ERRORS,$G(REQUEST("PRIORITY")))
  1. I $L($G(REQUEST("PRIORITY GROUP"))) S ISPRIGROUPVALID=$$VALIDATEPRIGROUP(.ERRORS,$G(REQUEST("PRIORITY GROUP")))
  1. S ISSERVCONNVALID=$$VALIDATESERVCONN(.ERRORS,$G(REQUEST("SERVICE CONNECTED")),$G(REQUEST("SERVICE CONNECTED PERCENTAGE")))
  1. ;
  1. N SDIEN,SDNAME
  1. S SDIEN=$G(REQUEST("APPOINTMENT TYPE IEN")),SDNAME=$G(REQUEST("APPOINTMENT TYPE NAME"))
  1. S ISAPPTTYPEVALID=$$VALIDATEAPPTTYPE(.ERRORS,.SDIEN,SDNAME)
  1. S REQUEST("APPOINTMENT TYPE IEN")=SDIEN
  1. I $L($G(REQUEST("PATIENT STATUS"))) S ISPATSTATVALID=$$VALIDATEPATSTAT(.ERRORS,$G(REQUEST("PATIENT STATUS")))
  1. I $D(REQUEST("PATIENT PREFERRED START DATE")),$D(REQUEST("PATIENT PREFERRED END DATE")) D VALIDATEDATEPREF(.ERRORS,.REQUEST)
  1. I $D(REQUEST("MRTC")) D VALIDATEMRTCDATA(.ERRORS,.REQUEST,$G(REQUEST("MRTC","PARENT REQUEST")),$G(REQUEST("MRTC","NEEDED")),$G(REQUEST("MRTC","DAYS BETWEEN APPTS")),$G(REQUEST("MRTC","HOW MANY NEEDED")),$G(REQUEST("DFN")))
  1. I $G(REQUEST("MRTC","PARENT REQUEST")),$G(REQUEST("DFN")) S REQUEST("MRTC","CHILD SEQUENCE NUMBER")=$$MRTCHILDSEQUENCE($G(REQUEST("MRTC","PARENT REQUEST")),$G(REQUEST("DFN")))
  1. ;
  1. Q
  1. ;
  1. CONVERTSTOPCODE(REQUEST) ;
  1. I $D(REQUEST("STOP CODE")) S REQUEST("STOP CODE")=$$FIND1^DIC(40.7,"","X",REQUEST("STOP CODE"),"C")
  1. I $D(REQUEST("SECONDARY STOP CODE")) S REQUEST("SECONDARY STOP CODE")=$$FIND1^DIC(40.7,"","X",REQUEST("SECONDARY STOP CODE"),"C")
  1. Q
  1. ;
  1. BUILDER(REQ,INSTITUTIONIEN) ;
  1. N FDA,RETURNIEN
  1. S FDA(409.85,"+1,",.01)=$G(REQ("DFN"))
  1. S FDA(409.85,"+1,",.02)=$G(REQ("PATIENT STATUS"))
  1. S FDA(409.85,"+1,",1)=$G(REQ("CREATE DATE"))
  1. S FDA(409.85,"+1,",2)=$G(INSTITUTIONIEN)
  1. S FDA(409.85,"+1,",4)=$G(REQ("REQUEST SUB TYPE"))
  1. S FDA(409.85,"+1,",5)=$G(REQ("VAOS GUID"))
  1. S FDA(409.85,"+1,",6)=$G(REQ("MODALITY"))
  1. S FDA(409.85,"+1,",8)=$G(REQ("CLINIC IEN"))
  1. S FDA(409.85,"+1,",8.5)=$G(REQ("STOP CODE"))
  1. S FDA(409.85,"+1,",8.6)=$G(REQ("SECONDARY STOP CODE"))
  1. S FDA(409.85,"+1,",8.7)=$G(REQ("APPOINTMENT TYPE IEN"))
  1. S FDA(409.85,"+1,",9)=$G(DUZ)
  1. S FDA(409.85,"+1,",9.5)=$$NOW^XLFDT
  1. S FDA(409.85,"+1,",10)=$G(REQ("PRIORITY"))
  1. S FDA(409.85,"+1,",10.5)=$G(REQ("PRIORITY GROUP"))
  1. S FDA(409.85,"+1,",11)=$G(REQ("REQUESTED BY"))
  1. S FDA(409.85,"+1,",12)=$G(REQ("PROVIDER IEN"))
  1. S FDA(409.85,"+1,",14)=$G(REQ("SERVICE CONNECTED PERCENTAGE"))
  1. S FDA(409.85,"+1,",15)=$G(REQ("SERVICE CONNECTED"))
  1. S FDA(409.85,"+1,",22)=$G(REQ("PATIENT INDICATED DATE"))
  1. S FDA(409.85,"+1,",23)="O"
  1. S FDA(409.85,"+1,",25)=$G(REQ("REQUEST COMMENT"))
  1. S FDA(409.85,"+1,",41)=$G(REQ("MRTC","NEEDED"))
  1. S FDA(409.85,"+1,",42)=$G(REQ("MRTC","DAYS BETWEEN APPTS"))
  1. S FDA(409.85,"+1,",43)=$G(REQ("MRTC","HOW MANY NEEDED"))
  1. S FDA(409.85,"+1,",43.1)=$G(REQ("MRTC","CHILD SEQUENCE NUMBER"))
  1. S FDA(409.85,"+1,",43.8)=$G(REQ("MRTC","PARENT REQUEST"))
  1. S FDA(409.85,"+1,",46)=$G(REQ("CPRS ORDER NUMBER"))
  1. S FDA(409.85,"+1,",47)=$S($G(REQ("CPRS TIME SENSITIVE"))="YES":"1",$G(REQ("CPRS TIME SENSITIVE"))="NO":"0",1:"")
  1. S FDA(409.85,"+1,",49)=$G(REQ("PID CHANGE ALLOWED"))
  1. S FDA(409.85,"+1,",100)=$G(REQ("EAS"))
  1. ;
  1. D UPDATE^DIE("","FDA","RETURNIEN") K FDA
  1. S REQUESTIEN=$G(RETURNIEN(1))
  1. ;
  1. D ADDPIDHISTORY(REQUESTIEN,$G(REQ("PATIENT INDICATED DATE")))
  1. ;
  1. I $D(REQ("CPRS PREREQUISITES")) D BUILDCPRSPREREQS(.REQ,REQUESTIEN)
  1. ;
  1. I $D(REQ("MRTC","PARENT REQUEST"))&($G(REQUESTIEN)'="") D ADDMRTCMULT(REQUESTIEN,REQ("MRTC","PARENT REQUEST"),REQ("PATIENT INDICATED DATE"))
  1. ;
  1. I ($D(REQ("PATIENT COMMENT")))!($D(REQ("PATIENT PREFERRED START DATE"))) D BUILDCOMMENTS(.REQ,REQUESTIEN)
  1. ;
  1. D AUDIT(REQUESTIEN,$G(REQ("CLINIC IEN")),$G(REQ("STOP CODE")))
  1. ;
  1. Q REQUESTIEN
  1. ;
  1. ADDPIDHISTORY(REQUESTIEN,PID) ;
  1. N PIDFDA,FDA,OLDPID,PARENTIEN
  1. ;
  1. I PID=$$GET1^DIQ(409.854,$O(^SDEC(409.85,REQUESTIEN,10,"A"),-1)_","_REQUESTIEN_",",1,"I") Q
  1. ;
  1. S PIDFDA(409.854,"+1,"_REQUESTIEN_",",.01)=$$NOW^XLFDT
  1. S PIDFDA(409.854,"+1,"_REQUESTIEN_",",1)=PID
  1. S PIDFDA(409.854,"+1,"_REQUESTIEN_",",2)=$$GET1^DIQ(200,$G(DUZ),.01,"E")
  1. D UPDATE^DIE(,"PIDFDA") K PIDFDA
  1. ;
  1. S OLDPID=$$GET1^DIQ(409.85,REQUESTIEN_",",22,"I")
  1. S PARENTIEN=$$GET1^DIQ(409.85,REQUESTIEN_",",43.8,"I")
  1. ;
  1. S FDA(409.85,REQUESTIEN_",",22)=PID
  1. D FILE^DIE(,"FDA") K FDA
  1. ;
  1. I PARENTIEN,$D(^SDEC(409.85,PARENTIEN)) D
  1. . N PREFIEN S PREFIEN=$O(^SDEC(409.85,PARENTIEN,5,"B",OLDPID,0))
  1. . S FDA(409.851,PREFIEN_","_PARENTIEN_",",.01)=PID
  1. . D FILE^DIE(,"FDA") K FDA
  1. Q
  1. ;
  1. ADDMRTCMULT(CHILD,PARENT,PATIENTINDDATE) ;Update the MRTC subfiles
  1. D ADDMRTCLINKS(CHILD,PARENT)
  1. D ADDMRTCPIDLINKS(PARENT,PATIENTINDDATE)
  1. Q
  1. ;
  1. N FDA
  1. Q:$O(^SDEC(409.85,PARENT,2,"B",CHILD))
  1. S FDA(409.852,"+1,"_PARENT_",",.01)=CHILD
  1. D UPDATE^DIE(,"FDA") K FDA
  1. Q
  1. ;
  1. N SDFDA
  1. Q:$O(^SDEC(409.85,PARENT,5,"B",PATIENTINDDATE,0))
  1. S SDFDA(409.851,"+1,"_PARENT_",",.01)=PATIENTINDDATE
  1. D UPDATE^DIE("","SDFDA") K SDFDA
  1. Q
  1. ;
  1. MRTCHILDSEQUENCE(PARENTREQUESTIEN,DFN) ; return next sequence # for child mrtc
  1. N COUNT,REQUESTIEN,IENS,NEXTSEQUENCENUM,CHILD,LASTCHILD
  1. S REQUESTIEN=0,COUNT=0,LASTCHILD=""
  1. F S REQUESTIEN=$O(^SDEC(409.85,"B",DFN,REQUESTIEN)) Q:'REQUESTIEN D
  1. .I $$GET1^DIQ(409.85,REQUESTIEN,43.8,"I")=PARENTREQUESTIEN D
  1. ..S COUNT=COUNT+1
  1. ..S CHILD(REQUESTIEN)=COUNT
  1. I $D(CHILD) D
  1. .S LASTCHILD=$O(CHILD(LASTCHILD),-1)
  1. .S NEXTSEQUENCENUM=$G(CHILD($G(LASTCHILD)))+1
  1. I '$D(CHILD) S NEXTSEQUENCENUM=1
  1. Q NEXTSEQUENCENUM
  1. ;
  1. AUDIT(REQUESTIEN,CLINICIEN,STOPCODE) ;
  1. N FDA
  1. S FDA(409.8545,"+1,"_REQUESTIEN_",",.01)=$$NOW^XLFDT
  1. S FDA(409.8545,"+1,"_REQUESTIEN_",",1)=$G(DUZ)
  1. S FDA(409.8545,"+1,"_REQUESTIEN_",",2)=$G(CLINICIEN)
  1. S FDA(409.8545,"+1,"_REQUESTIEN_",",3)=$G(STOPCODE)
  1. D UPDATE^DIE("","FDA") K FDA
  1. Q
  1. BUILDCOMMENTS(REQUEST,REQUESTIEN) ;
  1. N REQCOMMS,NUM,NUM2,DONE,PREFDATES,PATCOMMS,RANGE,COUNT
  1. S NUM=0
  1. ;
  1. I $D(REQUEST("PATIENT COMMENT")) D
  1. .D WP^SDECUTL(.PATCOMMS,$G(REQUEST("PATIENT COMMENT")))
  1. .D WP^DIE(409.85,REQUESTIEN_",",60,"","PATCOMMS")
  1. ;
  1. I '$G(REQUEST("PATIENT PREFERRED START DATE",1)) Q
  1. ;
  1. S NUM=0,COUNT="",COUNT=$O(REQUEST("PATIENT PREFERRED START DATE",COUNT),-1)
  1. F NUM=1:1:COUNT D
  1. .S STARTDATE=$G(REQUEST("PATIENT PREFERRED START DATE",NUM))
  1. .S ENDDATE=$G(REQUEST("PATIENT PREFERRED END DATE",NUM))
  1. .S STARTDATE=$$ISOTFM^SDAMUTDT(STARTDATE),STARTDATE=$$FMTE^XLFDT(STARTDATE)
  1. .S ENDDATE=$$ISOTFM^SDAMUTDT(ENDDATE),ENDDATE=$$FMTE^XLFDT(ENDDATE)
  1. .S RANGE(NUM)="Patient preferred date range #"_NUM_": "_STARTDATE_" to "_ENDDATE
  1. D WP^DIE(409.85,REQUESTIEN_",",60,"A","RANGE")
  1. Q
  1. ;
  1. BUILDCPRSPREREQS(REQUEST,REQUESTIEN) ;
  1. N NUM,FDA
  1. S NUM=0
  1. F S NUM=$O(REQUEST("CPRS PREREQUISITES",NUM)) Q:'NUM D
  1. .S FDA(409.8548,"+1,"_REQUESTIEN_",",.01)=$G(REQUEST("CPRS PREREQUISITES",NUM))
  1. .D UPDATE^DIE(,"FDA") K FDA
  1. Q
  1. ;
  1. VALIDATEPROVIDER(ERRORS,PROVIDERIEN) ;
  1. I PROVIDERIEN="" D ERRLOG^SDESJSON(.ERRORS,53) Q 0
  1. I PROVIDERIEN'="",'$D(^VA(200,PROVIDERIEN,0)) D ERRLOG^SDESJSON(.ERRORS,54) Q 0
  1. Q 1
  1. ;
  1. VALIDATEPID(ERRORS,REQUEST) ;
  1. I $G(REQUEST("PATIENT INDICATED DATE"))="" D ERRLOG^SDESJSON(.ERRORS,159) Q 0
  1. I $G(REQUEST("PATIENT INDICATED DATE"))'="" S REQUEST("PATIENT INDICATED DATE")=$$ISOTFM^SDAMUTDT($G(REQUEST("PATIENT INDICATED DATE")))
  1. I $G(REQUEST("PATIENT INDICATED DATE"))=-1 D ERRLOG^SDESJSON(.ERRORS,160) Q 0
  1. Q 1
  1. ;
  1. VALIDATEEAS(ERRORS,EAS) ;
  1. I $L(EAS) S EAS=$$EASVALIDATE^SDESUTIL($G(EAS))
  1. I $P($G(EAS),U)=-1 D ERRLOG^SDESJSON(.ERRORS,142) Q 0
  1. Q 1
  1. ;
  1. VALIDATEPRIORITY(ERRORS,PRIORITY) ;
  1. I PRIORITY="" S PRIORITY="ASAP"
  1. I PRIORITY'="ASAP",PRIORITY'="FUTURE" D ERRLOG^SDESJSON(.ERRORS,211) Q 0
  1. S REQUEST("PRIORITY")=$S(PRIORITY="ASAP":"A",PRIORITY="FUTURE":"F",1:"")
  1. Q 1
  1. ;
  1. VALIDATEPRIGROUP(ERRORS,GROUP) ;
  1. N NUM,FOUND,GCHECK
  1. S NUM=0,FOUND=0
  1. F NUM=1:1:8 D
  1. .S GCHECK="GROUP "_NUM
  1. .I GROUP=GCHECK S REQUEST("PRIORITY GROUP")=NUM S FOUND=1
  1. I FOUND=0 D ERRLOG^SDESJSON(.ERRORS,199) Q 0
  1. Q 1
  1. ;
  1. VALIDATESERVCONN(ERRORS,SERVCONN,SERVCONNPERC) ;
  1. I $L(SERVCONN),SERVCONN'="YES",SERVCONN'="NO" D ERRLOG^SDESJSON(.ERRORS,200) Q 0
  1. I $G(SERVCONNPERC),'+SERVCONNPERC!(SERVCONNPERC'>0)!(SERVCONNPERC'<101) D ERRLOG^SDESJSON(.ERRORS,201) Q 0
  1. ;I $G(SERVCONN)="NO",+$G(SERVCONNPERC) D ERRLOG^SDESJSON(.ERRORS,232) Q 0
  1. S REQUEST("SERVICE CONNECTED")=$S(SERVCONN="YES":"1",SERVCONN="NO":"0",1:"")
  1. Q 1
  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
  1. ;
  1. VALIDATEPATSTAT(ERRORS,PATIENTSTATUS) ;
  1. I PATIENTSTATUS'="NEW",PATIENTSTATUS'="ESTABLISHED" D ERRLOG^SDESJSON(.ERRORS,203) Q 0
  1. S REQUEST("PATIENT STATUS")=$S(PATIENTSTATUS="NEW":"N",PATIENTSTATUS="ESTABLISHED":"E",1:"")
  1. Q 1
  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. VALIDATEMRTCDATA(ERRORS,REQUEST,PARENTREQUEST,NEEDED,DAYSBETWEEN,HOWMANY,REQDFN) ;
  1. N NUM,DONE
  1. I PARENTREQUEST,$$GET1^DIQ(409.85,PARENTREQUEST,.01,"I")'=REQDFN D ERRLOG^SDESJSON(.ERRORS,533)
  1. I NEEDED'="",NEEDED'="YES",NEEDED'="NO" D ERRLOG^SDESJSON(.ERRORS,208) Q
  1. S REQUEST("MRTC","NEEDED")=$S(NEEDED="YES":1,NEEDED="NO":0,1:"")
  1. I REQUEST("MRTC","NEEDED")'=1 D Q ""
  1. .I $G(PARENTREQUEST)!($G(DAYSBETWEEN))!($G(HOWMANY)) D ERRLOG^SDESJSON(.ERRORS,233)
  1. Q 1
  1. ;
  1. ;
  1. I PARENTREQUEST'="",('$D(^SDEC(409.85,PARENTREQUEST)))!(PARENTREQUEST=0) D ERRLOG^SDESJSON(.ERRORS,207)
  1. ;
  1. I DAYSBETWEEN'="" D
  1. .I '+DAYSBETWEEN!(DAYSBETWEEN'<366) D ERRLOG^SDESJSON(.ERRORS,209)
  1. ;
  1. I HOWMANY'="" D
  1. .I '+HOWMANY!(HOWMANY'<101) D ERRLOG^SDESJSON(.ERRORS,210)
  1. Q
  1. ;
  1. BUILDJSON(JSONRETURN,RETURN) ;.
  1. N JSONERROR
  1. D ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERR")
  1. Q