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

SDESCANAPPT2.m

Go to the documentation of this file.
  1. SDESCANAPPT2 ;ALB/DJS,LAB,MGD,BWF,BLB,ANU,MCB,JAS,BLB - SCHEDULING CANCEL APPOINTMENTS RPC ;FEB 16, 2024
  1. ;;5.3;Scheduling;**838,842,844,845,847,851,864,871,873,877**;Aug 13, 1993;Build 14
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; Clone of SDESCANCELAPPTS - BLB
  1. ;
  1. ;APPTIEN - (required) pointer to SDEC APPOINTMENT file #409.84
  1. ;CLINICIEN -(required) pointer to hospital location file #44
  1. ;DFN -(required) pointer to patient file #2
  1. ;CANBYCLINORPAT - (required) appointment Status valid values: C=CANCELLED BY CLINIC ; PC=CANCELLED BY PATIENT
  1. ;CANCELREASON - (required) Cancellation Reason NAME in CANCELLATION REASON File (409.2)
  1. ;NOTE - (optional)
  1. ;CANCELHASH - (optional) List of cancellation comment hash tags
  1. ;EAS - (optional)
  1. ;NEWPID - (optional) New/edited PID passed in when cancelling an appointment by patient
  1. ;
  1. Q
  1. ;
  1. CANAPPT2(JSONRETURN,APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,CANCELREASON,NOTE,CANCELHASH,EAS,NEWPID) ;
  1. N ERRORS,ISAPPTIENVALID,ORDERLOCK,ISCANBYVALID,ISCANREASONVALID,ISDFNVALID,SDATA,ISCLINICVALID,APPTENDTIME,APPTSTARTTIME,PROVIEN,ISEASVALID,ISCANBYVALID,ISNOTEVALID,ISCANDTTMVALID,EDITED,CLINICSUBIEN,IS2CANCELLED
  1. N RECALLREQIEN,RECALLREQLINK,RESOURCE,OLDRECALLPTR,RETURN,RECALLRET,CANCELREASONIEN,APPTLENGTH,MRTC,PARENTREQUEST,PARENTSTATUS,IS40984CANCELLED,IS44CANCELLED,REQUESTTYPE,REQUESTIEN,APPTTYPE
  1. ;
  1. ; input validation
  1. D VALIDATE($G(APPTIEN),$G(CLINICIEN),$G(DFN),$G(CANBYCLINORPAT),$G(CANCELREASON),$G(NOTE),$G(CANCELHASH),$G(EAS),.NEWPID)
  1. I $D(ERRORS) S ERRORS("Appointment",1)="" M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. ; populate variables
  1. D POPULATE(APPTIEN,.APPTSTARTTIME,.REQUESTTYPE,.REQUESTIEN,.APPTENDTIME,.APPTLENGTH,.APPTTYPE,.RESOURCE,.WALKIN,.MRTC,.PARENTREQUEST,.PARENTSTATUS,.SLOTSTATUSSTRING)
  1. S IENS44=$$GET44RECORDIENS(CLINICIEN,APPTSTARTTIME,DFN)
  1. ; first event handler
  1. S CLINICSUBIEN=$$BEFOREEVENT(DFN,APPTSTARTTIME,CLINICIEN,.SDATA)
  1. ;
  1. ; cancel appointments
  1. D CANCEL40984(.ERRORS,APPTIEN,CANCELREASON,CANBYCLINORPAT,WALKIN,$G(EAS))
  1. D CANCEL44(.ERRORS,CLINICIEN,APPTSTARTTIME,DFN,APPTIEN,WALKIN,IENS44)
  1. D CANCEL2(.ERRORS,DFN,APPTSTARTTIME,CANBYCLINORPAT,CANCELREASON,$G(NOTE),APPTIEN,CLINICIEN,IENS44)
  1. I $D(ERRORS) S ERRORS("Appointment",1)="" M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. ; update linked appointment request records
  1. D UPDATEREQUEST(REQUESTIEN,APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,$G(NOTE),APPTSTARTTIME,RESOURCE,MRTC,PARENTREQUEST,PARENTSTATUS,$G(NEWPID))
  1. ;
  1. ; update compensation and pension records
  1. I APPTTYPE="COMPENSATION & PENSION" D AMIECAN^SDESCOMPPEN(.RETURN,DFN,APPTSTARTTIME)
  1. ;
  1. ; remove outpatient encounter
  1. D REMOVEENCOUNTER(APPTIEN,$$GET1^DIQ(2.98,APPTSTARTTIME_","_DFN_",",21,"I"),APPTSTARTTIME,DFN,IENS44)
  1. ;
  1. ; update clinic availability
  1. D INCREMENTAVAIL1^SDESUTIL(CLINICIEN,APPTSTARTTIME,APPTLENGTH) ;
  1. ;
  1. ; second event handler
  1. D AFTEREVENT($G(DFN),$G(APPTSTARTTIME),$G(CLINICIEN),$G(CLINICSUBIEN),.SDATA)
  1. ;
  1. S RETURN("Appointment","Cancelled")=$G(APPTIEN)
  1. D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. Q
  1. ;
  1. CANCEL40984(ERRORS,APPTIEN,CANCELREASON,CANBYCLINORPAT,WALKIN,EAS) ;
  1. N IENS,FDA40984,ERR84
  1. ;
  1. S IENS=APPTIEN_","
  1. ;
  1. I WALKIN="YES" D
  1. .S FDA40984(409.84,IENS,.03)=""
  1. .S FDA40984(409.84,IENS,.04)=""
  1. S FDA40984(409.84,IENS,.12)=$$NOW^XLFDT
  1. S FDA40984(409.84,IENS,.121)=DUZ
  1. S FDA40984(409.84,IENS,.122)=CANCELREASONIEN
  1. S FDA40984(409.84,IENS,.17)=CANBYCLINORPAT
  1. S FDA40984(409.84,IENS,100)=EAS
  1. ;
  1. L +^SDEC(APPTIEN):3 I '$T D ERRLOG^SDESJSON(.ERRORS,192) Q
  1. D FILE^DIE("","FDA40984","ERR84") K FDA40984
  1. L -^SDEC(APPTIEN)
  1. I $D(ERR84) D ERRLOG^SDESJSON(.ERRORS,191) Q
  1. Q
  1. ;
  1. CANCEL44(ERRORS,CLINICIEN,APPTSTARTTIME,DFN,APPTIEN,WALKIN,IENS44) ;
  1. N IENS,FDA44003,ERR44003
  1. ;
  1. I WALKIN="YES" D
  1. .S FDA44003(44.003,IENS44,309)=""
  1. S FDA44003(44.003,IENS44,310)="C"
  1. ;
  1. L +^SC(CLINICIEN):3 I '$T D ERRLOG^SDESJSON(.ERRORS,186),CLEAN40984(APPTIEN) Q
  1. D FILE^DIE("","FDA44003","ERR44003") K FDA44003
  1. L -^SC(CLINICIEN)
  1. I $D(ERR44003) D ERRLOG^SDESJSON(.ERRORS,191) D CLEAN40984(APPTIEN) Q
  1. Q
  1. ;
  1. CANCEL2(ERRORS,DFN,APPTSTARTTIME,CANBYCLINORPAT,CANCELREASON,NOTE,APPTIEN,CLINICIEN,IENS44) ;
  1. N IENS,FDA298,ERR298
  1. S IENS=APPTSTARTTIME_","_DFN_","
  1. S FDA298(2.98,IENS,3)=CANBYCLINORPAT
  1. S FDA298(2.98,IENS,14)=DUZ
  1. S FDA298(2.98,IENS,15)=$$NOW^XLFDT
  1. S FDA298(2.98,IENS,16)=CANCELREASONIEN
  1. S FDA298(2.98,IENS,17)=NOTE
  1. L +^DPT(DFN):3 I '$T D ERRLOG^SDESJSON(.ERRORS,187),CLEAN40984(APPTIEN),CLEAN44003(DFN,CLINICIEN,APPTSTARTTIME,IENS44) Q
  1. D FILE^DIE("","FDA298","ERR298") K FDA298
  1. L -^DPT(DFN)
  1. I $D(ERR298) D ERRLOG^SDESJSON(.ERRORS,191),CLEAN40984(APPTIEN),CLEAN44003(DFN,CLINICIEN,APPTSTARTTIME,IENS44) Q
  1. Q
  1. ;
  1. UPDATEREQUEST(REQUESTIEN,APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,NOTE,APPTSTARTTIME,RESOURCE,MRTC,PARENTREQUEST,PARENTSTATUS,NEWPID) ;
  1. N RECALLREQIEN,RECALLREQLINK,OLDRECALLPTR,PROVIDERIEN
  1. ;
  1. I REQUESTTYPE="APPTREQ"!(REQUESTTYPE="RTC")!(REQUESTTYPE="VETERAN")!(REQUESTTYPE="MOBILE") D
  1. .D OPENAPPTREQUEST(REQUESTIEN,APPTIEN,MRTC,PARENTREQUEST,PARENTSTATUS,DFN,CANBYCLINORPAT)
  1. .D DELETEAPPTDATA(REQUESTIEN)
  1. .D UPDCONTSEQ^SDESCONTACTS(DFN,REQUESTIEN)
  1. .I $G(NEWPID),CANBYCLINORPAT="PC" D
  1. ..D ADDPIDHISTORY^SDESCREATEAPPREQ(REQUESTIEN,NEWPID)
  1. ;
  1. I REQUESTTYPE="RECALL" D
  1. .D REOPEN^SDESRECALLREQ(.RECALLRET,APPTIEN,,NEWPID,CANBYCLINORPAT)
  1. .I '$D(RECALLRET) Q
  1. .S RECALLREQIEN=$P($G(RECALLRET),U)
  1. .S RECALLREQLINK=$P($G(RECALLRET,U),2)
  1. .S OLDRECALLPTR=$P($G(RECALLRET,U),3)
  1. .D UPDCONTSEQ^SDESCONTACTS($G(DFN),$G(RECALLREQIEN),$G(RECALLREQLINK),$G(OLDRECALLPTR))
  1. ;
  1. I REQUESTTYPE="CONSULT" D
  1. .S PROVIDERIEN=$$GET1^DIQ(44,CLINICIEN,16,"I")
  1. .D REQSET^SDESCONSULTUPD(REQUESTIEN,PROVIDERIEN,"",2,CANBYCLINORPAT,NOTE,APPTSTARTTIME,RESOURCE)
  1. .D UPDCONTSEQ^SDESCONTACTS(DFN,REQUESTIEN)
  1. .I $G(NEWPID) D
  1. ..D UPDATECONSULTPID^SDES2APPTUTIL(REQUESTIEN,$G(NEWPID),DFN)
  1. ;
  1. Q
  1. ;
  1. OPENAPPTREQUEST(REQUESTIEN,APPTIEN,MRTC,PARENTREQUEST,PARENTSTATUS,DFN,CANBYCLINORPAT) ;
  1. N REQUESTFDA,REQUESTERR,PARENTFDA,PARENTERR,REASONALLOWSOPEN,CANEDITPID
  1. ;
  1. S REASONALLOWSOPEN=$$GET1^DIQ(409.2,$$GET1^DIQ(409.84,APPTIEN,.122,"I"),5,"I")
  1. S CANEDITPID=$S(CANBYCLINORPAT="C":0,CANBYCLINORPAT="PC":1,1:"")
  1. ;
  1. I REASONALLOWSOPEN'=0 D
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",19)=""
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",20)=""
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",21)=""
  1. .; 864
  1. .;S REQUESTFDA(409.85,REQUESTIEN_",",23)="OPEN"
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",23)="O"
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",49)=CANEDITPID
  1. .D FILE^DIE("","REQUESTFDA","REQUESTERR") K REQUESTFDA,REQUESTERR
  1. ;
  1. ; do not re-open
  1. I REASONALLOWSOPEN=0 D
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",19)=$P($$GET1^DIQ(409.84,APPTIEN,.12,"I"),".",1)
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",20)=$$GET1^DIQ(409.84,APPTIEN,.121,"I")
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",21)=$O(^SDEC(409.853,"B","CANCELLED NOT RE-OPENED",""))
  1. .S REQUESTFDA(409.85,REQUESTIEN_",",49)=CANEDITPID
  1. .D FILE^DIE("","REQUESTFDA","REQUESTERR") K REQUESTFDA,REQUESTERR
  1. ;
  1. I MRTC D
  1. .D UPDATEMRTCSEQNUM(PARENTREQUEST,DFN)
  1. .D REMOVEMRTCAPTIEN(REQUESTIEN,APPTIEN,PARENTREQUEST)
  1. .I PARENTSTATUS="C" D
  1. ..S PARENTFDA(409.85,PARENTREQUEST_",",19)=""
  1. ..S PARENTFDA(409.85,PARENTREQUEST_",",20)=""
  1. ..S PARENTFDA(409.85,PARENTREQUEST_",",21)=""
  1. ..; 864
  1. ..;S PARENTFDA(409.85,PARENTREQUEST_",",23)="OPEN"
  1. ..S PARENTFDA(409.85,PARENTREQUEST_",",23)="O"
  1. ..D FILE^DIE("","PARENTFDA","PARENTERR") K PARENTFDA
  1. Q
  1. ;
  1. UPDATEMRTCSEQNUM(PARENTREQUEST,DFN) ;
  1. N COUNT,REQUESTIEN,IENS,NEXTSEQUENCENUM,CHILD,LASTCHILD,MRTCFDA,ERR
  1. ;
  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")=PARENTREQUEST D
  1. ..I $$GET1^DIQ(409.85,REQUESTIEN,21,"I") Q
  1. ..S COUNT=COUNT+1
  1. ..S CHILD(REQUESTIEN)=COUNT
  1. ;
  1. S REQUESTIEN=0
  1. F S REQUESTIEN=$O(CHILD(REQUESTIEN)) Q:'REQUESTIEN D
  1. .S MRTCFDA(409.85,REQUESTIEN_",",43.1)=$G(CHILD(REQUESTIEN))
  1. .D FILE^DIE(,"MRTCFDA","ERR") K MRTCFDA
  1. Q
  1. ;
  1. REMOVEENCOUNTER(APPTIEN,ENCOUNTERIEN,APPTSTARTTIME,DFN,IENS44) ;
  1. N PROCESSTYPE,APPTFDA,ENCOUNTERFDA,CHILDIEN,CHILDFDA,CHILDPROCESSTYPE,VISITUPDATE,PATIENTFDA,CLINICFDA,CLINICIENS,DISPOSITIONFDA,DISPOSITIONIEN,CLASSIEN,CLASSFDA
  1. I '$G(ENCOUNTERIEN)!('$$EDITOK^SDCO3($G(ENCOUNTERIEN),2)) Q
  1. S PROCESSTYPE=$$GET1^DIQ(409.68,ENCOUNTERIEN,.08,"E")
  1. ;
  1. ; child encounters
  1. I $G(PROCESSTYPE),$G(PROCESSTYPE)'="CREDIT STOP CODE" D
  1. .S CHILDIEN=0
  1. .F S CHILDIEN=$O(^SCE("APAR",ENCOUNTERIEN,CHILDIEN)) Q:'CHILDIEN D
  1. ..I '$$EDITOK^SDCO3(CHILDIEN,2) Q
  1. ..S CHILDFDA(409.68,CHILDIEN_",",.01)="@"
  1. ..D FILE^DIE(,"CHILDFDA") K CHILDFDA
  1. ..S VISITUPDATE=$$KILL^VSITKIL($$GET1^DIQ(409.68,CHILDIEN,.05,"I"))
  1. ;
  1. ; patient file and check-in from clinic file
  1. I PROCESSTYPE="APPOINTMENT" D
  1. .S PATIENTFDA(2.98,APPTSTARTTIME_","_DFN_",",21)="@"
  1. .D FILE^DIE(,"PATIENTFDA") K PATIENTFDA
  1. .S CLINICFDA(44.003,IENS44,303)="@"
  1. .D FILE^DIE(,"CLINICFDA") K CLINICFDA
  1. ;
  1. ; disposition subfile in patient file
  1. I PROCESSTYPE="DISPOSITION" D
  1. .S DISPOSITIONIEN=$$GET1^DIQ(409.68,ENCOUNTERIEN,.09,"I")
  1. .S DISPOSITIONFDA(2.101,DISPOSITIONIEN_","_DFN_",",18)="@"
  1. .D FILE^DIE(,"DISPOSITIONFDA") K DISPOSITIONFDA
  1. ;
  1. ; outpatient classification file
  1. I '$$GET1^DIQ(409.68,ENCOUNTERIEN,.06,"I"),$O(^SDD(409.42,"AO",ENCOUNTERIEN,0))>0 D
  1. .S CLASSIEN=0
  1. .F S CLASSIEN=$O(^SDD(409.42,"AO",ENCOUNTERIEN,CLASSIEN)) Q:'CLASSIEN D
  1. ..S CLASSFDA(409.42,CLASSIEN_",",.01)="@"
  1. ..D FILE^DIE(,"CLASSFDA") K CLASSFDA
  1. ;
  1. ; outpatient encounter file
  1. S ENCOUNTERFDA(409.68,ENCOUNTERIEN_",",.01)="@"
  1. D FILE^DIE(,"ENCOUNTERFDA") K ENCOUNTERFDA
  1. S VISITUPDATE=$$KILL^VSITKIL($$GET1^DIQ(409.68,ENCOUNTERIEN,.05,"I"))
  1. ;
  1. ; delete checkout in appointment file
  1. I $$GET1^DIQ(409.84,APPTIEN,.14,"I") D
  1. .S APPTFDA(409.84,APPTIEN_",",.14)="@"
  1. .S APPTFDA(409.84,APPTIEN_",",.08)=$G(DUZ)
  1. .D FILE^DIE(,"APPTFDA") K APPTFDA
  1. Q
  1. ;
  1. DELETEAPPTDATA(REQUESTIEN) ;
  1. N FDA
  1. S REQUESTIEN=$G(REQUESTIEN)_","
  1. S FDA(409.85,REQUESTIEN,13)="@"
  1. S FDA(409.85,REQUESTIEN,13.1)="@"
  1. S FDA(409.85,REQUESTIEN,13.2)="@"
  1. S FDA(409.85,REQUESTIEN,13.3)="@"
  1. S FDA(409.85,REQUESTIEN,13.4)="@"
  1. S FDA(409.85,REQUESTIEN,13.6)="@"
  1. S FDA(409.85,REQUESTIEN,13.7)="@"
  1. S FDA(409.85,REQUESTIEN,13.8)="@"
  1. S FDA(409.85,REQUESTIEN,100)=$G(EAS)
  1. D FILE^DIE(,"FDA") K FDA
  1. Q
  1. ;
  1. REMOVEMRTCAPTIEN(REQUESTIEN,APPTIEN,PARENTIEN) ;
  1. N SUBIEN,FDA
  1. S SUBIEN=0
  1. S SUBIEN=$O(^SDEC(409.85,PARENTIEN,2,"B",REQUESTIEN,SUBIEN)) Q:'SUBIEN
  1. S FDA(409.852,SUBIEN_","_PARENTIEN_",",.02)="@"
  1. D FILE^DIE(,"FDA","FDAERR") K FDA
  1. Q
  1. ;
  1. GET44RECORDIENS(CLINICIEN,APPTSTARTTIME,DFN) ;
  1. N FOUND,IENS44003
  1. S FOUND=0
  1. S SUBIEN=0 F S SUBIEN=$O(^SC(CLINICIEN,"S",APPTSTARTTIME,1,SUBIEN)) Q:'SUBIEN!($G(FOUND)=1) D
  1. .I $$GET1^DIQ(44.003,SUBIEN_","_APPTSTARTTIME_","_CLINICIEN_",",310,"E")="CANCELLED" Q
  1. .I $$GET1^DIQ(44.003,SUBIEN_","_APPTSTARTTIME_","_CLINICIEN_",",.01,"I")=DFN D
  1. ..S IENS44003=SUBIEN_","_APPTSTARTTIME_","_CLINICIEN_",",FOUND=1 Q
  1. Q $G(IENS44003)
  1. ;
  1. CLEAN40984(APPTIEN) ;
  1. N FDA,IENS
  1. S IENS=APPTIEN_","
  1. S FDA(409.84,IENS,.12)=""
  1. S FDA(409.84,IENS,.121)=""
  1. S FDA(409.84,IENS,.122)=""
  1. S FDA(409.84,IENS,.17)=""
  1. S FDA(409.84,IENS,100)=""
  1. D FILE^DIE("","FDA") K FDA
  1. Q
  1. ;
  1. CLEAN44003(DFN,CLINICIEN,APPTSTARTTIME,IENS44) ;
  1. N FDA44003,IENS,ERR44003
  1. S FDA44003(44.003,IENS44,310)=""
  1. D FILE^DIE("","FDA44003","ERR44003") K FDA44003
  1. Q
  1. ;
  1. BEFOREEVENT(DFN,APPTSTARTTIME,CLINICIEN,SDATA) ;
  1. N SDDA,SDCPHDL
  1. S SDDA=$$SCIEN^SDECU2(DFN,CLINICIEN,APPTSTARTTIME)
  1. S SDCPHDL=$$HANDLE^SDAMEVT(1),SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN
  1. D BEFORE^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDCPHDL)
  1. Q $G(SDDA)
  1. ;
  1. AFTEREVENT(DFN,APPTSTARTTIME,CLINICIEN,SDDA,SDATA) ;
  1. N SDCPHDL
  1. S SDCPHDL=$$HANDLE^SDAMEVT(1)
  1. S SDATA=SDDA_U_DFN_U_APPTSTARTTIME_U_CLINICIEN
  1. D CANCEL^SDAMEVT(.SDATA,DFN,APPTSTARTTIME,CLINICIEN,SDDA,2,SDCPHDL)
  1. Q
  1. ;
  1. POPULATE(APPTIEN,APPTSTARTTIME,REQUESTTYPE,REQUESTIEN,APPTENDTIME,APPTLENGTH,APPTTYPE,RESOURCE,WALKIN,MRTC,PARENTREQUEST,PARENTSTATUS,SLOTSTATUSSTRING) ;
  1. S APPTSTARTTIME=$$GET1^DIQ(409.84,$G(APPTIEN),.01,"I")
  1. S REQUESTTYPE=$P($$GET1^DIQ(409.84,$G(APPTIEN),.22,"I"),";",2),REQUESTTYPE=$S(REQUESTTYPE="GMR(123,":"CONSULT",REQUESTTYPE="SD(403.5,":"RECALL",REQUESTTYPE="SDEC(409.85,":"APPTREQ",1:"")
  1. S REQUESTIEN=$P($$GET1^DIQ(409.84,$G(APPTIEN),.22,"I"),";")
  1. S APPTENDTIME=$$GET1^DIQ(409.84,$G(APPTIEN),.02,"I")
  1. S APPTLENGTH=$$GET1^DIQ(409.84,APPTIEN,.18,"I")
  1. S APPTTYPE=$$GET1^DIQ(409.84,APPTIEN,.06,"E")
  1. S RESOURCE=$$GET1^DIQ(409.84,$G(APPTIEN),.07,"I")
  1. S WALKIN=$$GET1^DIQ(409.84,APPTIEN,.13,"E")
  1. S MRTC=$$GET1^DIQ(409.85,REQUESTIEN,41,"I")
  1. S PARENTREQUEST=$$GET1^DIQ(409.85,REQUESTIEN,43.8,"I")
  1. S PARENTSTATUS=$$GET1^DIQ(409.85,PARENTREQUEST,23,"I")
  1. S SLOTSTATUSSTRING="#@!$* XXWVUTSRQPONMLKJIHGFEDCBA0123456789jklmnopqrstuvwxyz"
  1. Q
  1. ;
  1. VALIDATE(APPTIEN,CLINICIEN,DFN,CANBYCLINORPAT,CANCELREASON,NOTE,CANCELHASH,EAS,NEWPID) ;
  1. D ORDERCHECKLOCK(.ERRORS,APPTIEN,DFN)
  1. D VALIDATEAPPTIEN(.ERRORS,APPTIEN)
  1. D VALIDATECLINIC(.ERRORS,CLINICIEN,APPTIEN)
  1. D VALIDATEDFN(.ERRORS,DFN,APPTIEN)
  1. D VALIDATECANBY(.ERRORS,CANBYCLINORPAT)
  1. D VALIDATECANREAS(.ERRORS,CANCELREASON)
  1. D VALIDATENOTE(.ERRORS,NOTE,CANCELHASH)
  1. D VALIDATEEAS(.ERRORS,EAS)
  1. D VALIDATENEWPID(.ERRORS,.NEWPID,CANBYCLINORPAT,APPTIEN)
  1. Q
  1. ;
  1. ORDERCHECKLOCK(ERRORS,APPTIEN,DFN) ;
  1. N FOUND,REQUESTIEN,ORDERID,APPTREQTYPE,REQTYPE
  1. S APPTREQTYPE=$$GET1^DIQ(409.84,APPTIEN,.22,"I")
  1. S REQUESTIEN=$P($G(APPTREQTYPE),";")
  1. S REQTYPE=$$GET1^DIQ(409.85,REQUESTIEN,4,"I")
  1. I REQTYPE="RTC" D
  1. .S ORDERID=$$GET1^DIQ(409.85,REQUESTIEN,46,"I")
  1. .I '+$G(ORDERID) Q
  1. .I $D(^XTMP("ORPTLK-"_DFN)) D ERRLOG^SDESJSON(.ERRORS,188) S FOUND=1
  1. Q
  1. ;
  1. VALIDATENEWPID(ERRORS,PID,CANBYCLINORPAT,APPTIEN) ;
  1. I $G(PID)'="" D
  1. .S PID=$$ISOTFM^SDAMUTDT(PID)
  1. .I PID=-1!($P(PID,".",2)) D ERRLOG^SDESJSON(.ERRORS,160) Q
  1. .I CANBYCLINORPAT="C" D ERRLOG^SDESJSON(.ERRORS,448) Q
  1. .N APPTREQTYPE,REQUESTIEN
  1. .S APPTREQTYPE=$$GET1^DIQ(409.84,APPTIEN,.22,"I")
  1. .S REQUESTIEN=$P($G(APPTREQTYPE),";")
  1. .I REQUESTIEN,$$DUPPIDCHK^SDES2CANCELAPPT(REQUESTIEN,PID) D ERRLOG^SDESJSON(.ERRORS,545) Q
  1. Q
  1. ;
  1. VALIDATEAPPTIEN(ERRORS,APPTIEN) ;
  1. I APPTIEN="" D ERRLOG^SDESJSON(.ERRORS,14) Q
  1. I APPTIEN'="",'$D(^SDEC(409.84,APPTIEN,0)) D ERRLOG^SDESJSON(.ERRORS,15) Q
  1. I $$GET1^DIQ(409.84,APPTIEN,.12,"I") D ERRLOG^SDESJSON(.ERRORS,449) Q
  1. Q
  1. ;
  1. VALIDATECANBY(ERRORS,CANBYCLINORPAT) ;
  1. I CANBYCLINORPAT="" D ERRLOG^SDESJSON(.ERRORS,190) Q
  1. I CANBYCLINORPAT'="C",CANBYCLINORPAT'="PC" D ERRLOG^SDESJSON(.ERRORS,189) Q
  1. Q
  1. ;
  1. VALIDATECLINIC(ERRORS,CLINICIEN,APPTIEN) ;
  1. N RESOURCEIEN,LINKEDCLINIC
  1. I CLINICIEN="" D ERRLOG^SDESJSON(.ERRORS,18) Q
  1. I CLINICIEN'="",'$D(^SC(CLINICIEN,0)) D ERRLOG^SDESJSON(.ERRORS,19) Q
  1. S RESOURCEIEN=$$GET1^DIQ(409.84,APPTIEN,.07,"I")
  1. S LINKEDCLINIC=$$GET1^DIQ(409.831,RESOURCEIEN,.04,"I")
  1. I CLINICIEN'=LINKEDCLINIC D ERRLOG^SDESJSON(.ERRORS,193) Q
  1. Q
  1. ;
  1. VALIDATEDFN(ERRORS,DFN,APPTIEN) ;
  1. I DFN="" D ERRLOG^SDESJSON(.ERRORS,1) Q
  1. I DFN'="",'$D(^DPT(DFN,0)) D ERRLOG^SDESJSON(.ERRORS,2) Q
  1. I $$GET1^DIQ(409.84,APPTIEN,.05,"I")'=DFN D ERRLOG^SDESJSON(.ERRORS,194) Q
  1. Q
  1. ;
  1. VALIDATECANREAS(ERRORS,CANCELREASON) ;
  1. I CANCELREASON="" D ERRLOG^SDESJSON(.ERRORS,128) Q
  1. I '$D(^SD(409.2,"B",CANCELREASON)) D ERRLOG^SDESJSON(.ERRORS,129) Q
  1. S CANCELREASONIEN=$O(^SD(409.2,"B",CANCELREASON,0))
  1. Q
  1. ;
  1. VALIDATENOTE(ERRORS,NOTE,CANCELHASH) ;
  1. N SDECJ
  1. S NOTE=$TR($G(NOTE),"^"," ") ;
  1. I $G(CANCELHASH)'="" F SDECJ=$L(CANCELHASH,U):-1:1 S NOTE=$P(CANCELHASH,U,SDECJ)_"_"_NOTE
  1. I $E(NOTE,$L(NOTE))="_" S NOTE=$E(NOTE,1,$L(NOTE)-1)
  1. Q NOTE
  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
  1. Q
  1. ;
  1. BUILDJSON(JSONRETURN,RETURN) ;.
  1. N JSONERROR
  1. D ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERR")
  1. Q
  1. ;