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

SDESGETAPPTREQ.m

Go to the documentation of this file.
  1. SDESGETAPPTREQ ;ALB/BLB,RRM,MGD,DJS,BLB,BWF,BLB,CGP,ANU,LAB,TJB/BLB ,LAB- GET APPT REQ RPCS ;MAR 13, 2024
  1. ;;5.3;Scheduling;**815,818,819,823,824,825,828,831,833,837,838,839,845,847,851,861,873,875**;Aug 13, 1993;Build 25
  1. ;;Per VHA Directive 6402, this routine should not be modified
  1. ;
  1. ; Reference to ^VA(200 in ICR #10060 ;
  1. Q
  1. ;
  1. ; For an ex of the return object, see SDESGETREQWRAPPR due to its length.
  1. ; If you add new components to the JSON return object here, document
  1. ; in header of SDESGETREQWRAPPR, initialize in APPTREQUEST.
  1. ;
  1. GETREQSBYDFN(JSONRETURN,DFN,EAS) ;GET APPT REQ BY PATIENT
  1. N ISDFNVALID,ISEASVALID,RETURN,ERRORS,REQUESTIEN,REQUEST
  1. ;
  1. S ISDFNVALID=$$VALIDATEDFN^SDESGETAPPTREQ2(.ERRORS,$G(DFN))
  1. S ISEASVALID=$$VALIDATEEAS^SDESGETAPPTREQ2(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. S REQUESTIEN=0
  1. F S REQUESTIEN=$O(^SDEC(409.85,"B",DFN,REQUESTIEN)) Q:'REQUESTIEN D
  1. .I $$GET1^DIQ(409.85,REQUESTIEN,23,"I")="C" Q
  1. .D GETREQUEST(.REQUEST,REQUESTIEN)
  1. I '$D(REQUEST) S REQUEST("Request",1)=""
  1. M RETURN=REQUEST
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. GETREQSBYDFNALL(JSONRETURN,DFN,EAS,STARTDATE,ENDDATE) ;GET APPT REQ BY PAT ALL
  1. N ISDFNVALID,ISEASVALID,ISDATEVALID,RETURN,ERRORS,REQUESTIEN,REQUEST
  1. S ISDATEVALID=1
  1. ;
  1. S ISDFNVALID=$$VALIDATEDFN^SDESGETAPPTREQ2(.ERRORS,$G(DFN))
  1. S ISEASVALID=$$VALIDATEEAS^SDESGETAPPTREQ2(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. I STARTDATE'="" D VALIDATESTART^SDESGETAPPTREQ2(.ERRORS,STARTDATE)
  1. I ENDDATE'="" D VALIDATEEND^SDESGETAPPTREQ2(.ERRORS,ENDDATE)
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. I (STARTDATE'="")&(ENDDATE'="") D VALIDATERANGE^SDESGETAPPTREQ2(.ERRORS,STARTDATE,ENDDATE)
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. S REQUESTIEN=0
  1. F S REQUESTIEN=$O(^SDEC(409.85,"B",DFN,REQUESTIEN)) Q:'REQUESTIEN D
  1. .I ($G(STARTDATE,"")'="")!($G(ENDDATE,"")'="") S ISDATEVALID=$$VALIDATEDATES^SDESGETAPPTREQ2(REQUESTIEN,STARTDATE,ENDDATE)
  1. .I ISDATEVALID'=1 Q
  1. .D GETREQUEST(.REQUEST,REQUESTIEN)
  1. I '$D(REQUEST) S REQUEST("Request",1)=""
  1. M RETURN=REQUEST
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. GETREQSBYDFNOPEN(JSONRETURN,DFN,EAS) ;GET APPT REQ BY PAT OPEN
  1. N ISDFNVALID,ISEASVALID,RETURN,ERRORS,REQUESTIEN,REQUEST
  1. S ISDFNVALID=$$VALIDATEDFN^SDESGETAPPTREQ2(.ERRORS,$G(DFN))
  1. S ISEASVALID=$$VALIDATEEAS^SDESGETAPPTREQ2(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS D BUILDJSON(.JSONRETURN,.RETURN) Q
  1. ;
  1. S REQUESTIEN=0
  1. F S REQUESTIEN=$O(^SDEC(409.85,"B",DFN,REQUESTIEN)) Q:'REQUESTIEN D
  1. .I $$GET1^DIQ(409.85,REQUESTIEN,23,"I")="C" Q
  1. .D GETREQUEST(.REQUEST,REQUESTIEN)
  1. I '$D(REQUEST) S REQUEST("Request",1)=""
  1. M RETURN=REQUEST
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. GETREQBYREQIEN(JSONRETURN,REQUESTIEN,EAS) ;GET APPT REQ BY IEN
  1. N ISREQIENVALID,ISEASVALID,RETURN,ERRORS,REQUEST
  1. ;
  1. S ISREQIENVALID=$$VALIDATEREQIEN^SDESGETAPPTREQ2(.ERRORS,$G(REQUESTIEN))
  1. S ISEASVALID=$$VALIDATEEAS^SDESGETAPPTREQ2(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS
  1. ;
  1. I '$D(ERRORS) D
  1. .D GETREQUEST(.REQUEST,REQUESTIEN)
  1. I '$D(REQUEST) S REQUEST("Request",1)=""
  1. M RETURN=REQUEST
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. GETREQBYTYPEVET(JSONRETURN,EAS) ;GET APPT REQ BY TYPE VET
  1. N ISEASVALID,RETURN,ERRORS,REQUEST,COUNT
  1. ;
  1. S ISEASVALID=$$VALIDATEEAS^SDESGETAPPTREQ2(.ERRORS,$G(EAS))
  1. I $D(ERRORS) M RETURN=ERRORS
  1. ;
  1. I '$D(ERRORS) D
  1. .S REQUESTIEN=0,COUNT=0
  1. .F S REQUESTIEN=$O(^SDEC(409.85,"TYPE","VETERAN",REQUESTIEN)) Q:'REQUESTIEN!(COUNT=200) D
  1. ..I $$GET1^DIQ(409.85,REQUESTIEN,23,"I")="C" Q
  1. ..S COUNT=COUNT+1
  1. ..D GETREQUEST(.REQUEST,REQUESTIEN)
  1. I '$D(REQUEST) S REQUEST("Request",1)=""
  1. M RETURN=REQUEST
  1. ;
  1. D BUILDJSON(.JSONRETURN,.RETURN)
  1. Q
  1. ;
  1. BUILDPATCOMMENTS(REQUEST,REQUESTIEN,NUM) ;
  1. N SUBIEN,COUNT
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,"PATCOM",SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S REQUEST("Request",NUM,"PatientComment",COUNT,"Comment")=$$GET1^DIQ(409.855,SUBIEN_","_REQUESTIEN_",",.01,"E")
  1. Q
  1. ;
  1. BUILDCOMMENTMULT(REQUEST,REQUESTIEN,NUM) ;Comments Multiple (#26)
  1. N SUBIEN,COUNT
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,1,SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S REQUEST("Request",NUM,"CommentMultiple",COUNT,"Comment")=$$GET1^DIQ(409.8526,SUBIEN_","_REQUESTIEN_",",.01,"E")
  1. Q
  1. ;
  1. BUILDPATCONTACTS(REQUEST,REQUESTIEN,NUM) ;
  1. N SUBIEN,SUBIEN2,PIENS,PIENS2,COMMENTS,COUNT
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,4,SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S PIENS=SUBIEN_","_REQUESTIEN_","
  1. .S REQUEST("Request",NUM,"PatientContact",COUNT,"DateEntered")=$$FMTISO^SDAMUTDT($$GET1^DIQ(409.8544,PIENS,.01,"E"))
  1. .S REQUEST("Request",NUM,"PatientContact",COUNT,"EnteredByIEN")=$$GET1^DIQ(409.8544,PIENS,2,"I")
  1. .S REQUEST("Request",NUM,"PatientContact",COUNT,"EnteredByName")=$$GET1^DIQ(409.8544,PIENS,2,"E")
  1. .S REQUEST("Request",NUM,"PatientContact",COUNT,"Action")=$$GET1^DIQ(409.8544,PIENS,3,"E")
  1. .S REQUEST("Request",NUM,"PatientContact",COUNT,"PatientPhone")=$$GET1^DIQ(409.8544,PIENS,4,"E")
  1. Q
  1. ;
  1. BUILDMRTCPIDS(REQUEST,REQUESTIEN,NUM) ;MRTC PID entries
  1. N SUBIEN,DATE,COUNT
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,5,SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S DATE=$$FMTISO^SDAMUTDT($$GET1^DIQ(409.851,SUBIEN_","_REQUESTIEN_",",.01,"I"))
  1. .S REQUEST("Request",NUM,"MRTC",COUNT,"PatientIndicatedDate")=DATE
  1. Q
  1. ;
  1. BUILDMRTCS(REQUEST,REQUESTIEN,NUM) ;
  1. N SUBIEN,COUNT,MIENS,CHILDIEN
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,2,SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S MIENS=SUBIEN_","_REQUESTIEN_","
  1. .S CHILDIEN=$$GET1^DIQ(409.852,MIENS,.01,"I")
  1. .S REQUEST("Request",NUM,"MRTC",COUNT,"ChildRequestIEN")=CHILDIEN
  1. .S REQUEST("Request",NUM,"MRTC",COUNT,"LinkedAppointmentIEN")=$$GET1^DIQ(409.852,MIENS,.02,"I")
  1. .S REQUEST("Request",NUM,"MRTC",COUNT,"ChildRequestSequenceNumber")=$$GET1^DIQ(409.85,CHILDIEN,43.1,"I")
  1. S REQUEST("Request",NUM,"MRTCTotal")=COUNT
  1. Q
  1. ;
  1. BUILDSDECONTACT(REQUEST,REQUESTIEN,NUM,REQUESTTYPE) ;get consult/recall
  1. N CONTACTIEN,SUBIEN,CIENS,COUNT,CONTARY,CONTACTYPE,CONTACTS,ERRORS
  1. S COUNT=0,CONTACTIEN=0
  1. S CONTACTIEN=$$GETCONTIEN^SDESCONTACTS(.ERRORS,REQUESTIEN,REQUESTTYPE)
  1. I 'CONTACTIEN S REQUEST("Request",NUM,"Contact",1)="" Q
  1. S SUBIEN=$$GET1^DIQ(409.86,CONTACTIEN,2.2,"I")-1
  1. F S SUBIEN=$O(^SDEC(409.86,CONTACTIEN,1,SUBIEN)) Q:'SUBIEN D
  1. .S CIENS=SUBIEN_","_CONTACTIEN_","
  1. .S CONTACTYPE=$$GET1^DIQ(409.863,CIENS,1,"I")
  1. .I $L($G(CONTACTYPE)) D
  1. ..S CONTARY(CONTACTYPE)=$G(CONTARY(CONTACTYPE))+1
  1. ..S COUNT=COUNT+1
  1. ..S REQUEST("Request",NUM,"SdecContactNumberOfCalls")=$G(CONTARY("C"))
  1. ..S REQUEST("Request",NUM,"SdecContactNumberOfEmailContact")=$G(CONTARY("E"))
  1. ..S REQUEST("Request",NUM,"SdecContactNumberOfTextContact")=$G(CONTARY("T"))
  1. ..S REQUEST("Request",NUM,"SdecContactNumberOfSecureMessage")=$G(CONTARY("S"))
  1. ..S REQUEST("Request",NUM,"SdecContactNumberOfLetters")=$G(CONTARY("L"))
  1. ..S:($G(CONTACTYPE)="L") REQUEST("Request",NUM,"SdecContactDateOfLastLetterSent")=$$FMTISO^SDAMUTDT($$GET1^DIQ(409.863,CIENS,.01,"I"))
  1. .S:('$D(REQUEST("Request",NUM,"SdecContactDateOfLastLetterSent"))) REQUEST("Request",NUM,"SdecContactDateOfLastLetterSent")=""
  1. S REQUEST("Request",NUM,"SdecContactNumberOfContacts")=COUNT
  1. D BLDCONTACT^SDESCONTACTS(.CONTACTS,CONTACTIEN)
  1. D DISPMULT^SDESCONTACTS(.CONTACTS,CONTACTIEN)
  1. I $D(CONTACTS) M REQUEST("Request",NUM)=CONTACTS Q
  1. I '$D(CONTACTS) S REQUEST("Request",NUM,"Contact",1)=""
  1. Q
  1. BUILDCPRSPREREQS(REQUEST,REQUESTIEN,NUM) ;
  1. N SUBIEN,COUNT,PIENS
  1. S SUBIEN=0,COUNT=0
  1. F S SUBIEN=$O(^SDEC(409.85,REQUESTIEN,8,SUBIEN)) Q:'SUBIEN D
  1. .S COUNT=COUNT+1
  1. .S PIENS=SUBIEN_","_REQUESTIEN_","
  1. .S REQUEST("Request",NUM,"CPRSPreRequisites",COUNT,"PreRequisite")=$$GET1^DIQ(409.8548,PIENS,.01,"E")
  1. Q
  1. ;
  1. GETREQUEST(REQUEST,REQUESTIEN) ;
  1. N APPT,REQUESTARY,ERR,IENS,FN,REQDATA,NUM,CLINSTOPIEN,CLINCREDIEN
  1. S FN=409.85,NUM=""
  1. S NUM=$O(REQUEST("Request",NUM),-1)+1
  1. S IENS=REQUESTIEN_","
  1. D GETS^DIQ(FN,IENS,"**","IE","REQDATA","ERR")
  1. Q:$D(ERR)
  1. ; Check the AMIS Stop codes on clinic
  1. S CLINSTOPIEN=$S(REQDATA(FN,REQUESTIEN_",",8.5,"I")'="":REQDATA(FN,REQUESTIEN_",",8.5,"I"),1:$$GET1^DIQ(44,REQDATA(FN,REQUESTIEN_",",8,"I")_",",8,"I"))
  1. S CLINCREDIEN=$S(REQDATA(FN,REQUESTIEN_",",13.5,"I")'="":REQDATA(FN,REQUESTIEN_",",13.5,"I"),1:$$GET1^DIQ(44,REQDATA(FN,REQUESTIEN_",",8,"I")_",",2503,"I"))
  1. ;
  1. I $D(^SDEC(409.85,REQUESTIEN,"PATCOM")) D BUILDPATCOMMENTS(.REQUEST,REQUESTIEN,NUM)
  1. I '$D(^SDEC(409.85,REQUESTIEN,"PATCOM")) S REQUEST("Request",NUM,"PatientComment",1)=""
  1. ;
  1. I $D(^SDEC(409.85,REQUESTIEN,1)) D BUILDCOMMENTMULT(.REQUEST,REQUESTIEN,NUM)
  1. I '$D(^SDEC(409.85,REQUESTIEN,1)) S REQUEST("Request",NUM,"CommentMultiple",1)=""
  1. ;
  1. S REQUEST("Request",NUM,"PatientContact",1)=""
  1. ;
  1. I $D(^SDEC(409.85,REQUESTIEN,8)) D BUILDCPRSPREREQS(.REQUEST,REQUESTIEN,NUM)
  1. I '$D(^SDEC(409.85,REQUESTIEN,8)) S REQUEST("Request",NUM,"CPRSPreRequisites",1)=""
  1. ;
  1. I $D(^SDEC(409.85,REQUESTIEN,2)) D BUILDMRTCS(.REQUEST,REQUESTIEN,NUM) ;MRTCs
  1. I '$D(^SDEC(409.85,REQUESTIEN,2)) S REQUEST("Request",NUM,"MRTC",1)=""
  1. ;
  1. I $D(^SDEC(409.85,REQUESTIEN,5)) D BUILDMRTCPIDS(.REQUEST,REQUESTIEN,NUM) ;MRTC PIDs
  1. ;
  1. I $D(^SDEC(409.86,"SRP",REQUESTIEN)) D BUILDSDECONTACT(.REQUEST,REQUESTIEN,NUM,"A")
  1. ;
  1. S REQUEST("Request",NUM,"Type")="Appt Request"
  1. S REQUEST("Request",NUM,"PatientIEN")=REQDATA(FN,REQUESTIEN_",",.01,"I")
  1. S REQUEST("Request",NUM,"PatientICN")=$$GETPATICN^SDESINPUTVALUTL(REQDATA(FN,REQUESTIEN_",",.01,"I"))
  1. S REQUEST("Request",NUM,"PatientName")=REQDATA(FN,REQUESTIEN_",",.01,"E") ;
  1. S REQUEST("Request",NUM,"RequestIEN")=REQUESTIEN
  1. S REQUEST("Request",NUM,"RequestComments")=REQDATA(FN,REQUESTIEN_",",25,"E")
  1. S REQUEST("Request",NUM,"CreateDate")=$$FMTISO^SDAMUTDT(REQDATA(FN,REQUESTIEN_",",1,"I"))
  1. S REQUEST("Request",NUM,"InstitutionIEN")=REQDATA(FN,REQUESTIEN_",",2,"I")
  1. S REQUEST("Request",NUM,"InstitutionName")=REQDATA(FN,REQUESTIEN_",",2,"E")
  1. S REQUEST("Request",NUM,"InstitutionNumber")=$$GET1^DIQ(4,REQDATA(FN,REQUESTIEN_",",2,"I"),99)
  1. S REQUEST("Request",NUM,"RequestSubType")=REQDATA(FN,REQUESTIEN_",",4,"E")
  1. S REQUEST("Request",NUM,"ClinicIEN")=REQDATA(FN,REQUESTIEN_",",8,"I")
  1. S REQUEST("Request",NUM,"ClinicName")=REQDATA(FN,REQUESTIEN_",",8,"E")
  1. S REQUEST("Request",NUM,"ClinicStopCodeIEN")=CLINSTOPIEN
  1. S REQUEST("Request",NUM,"ClinicStopCodeName")=$$GET1^DIQ(40.7,CLINSTOPIEN_",",.01,"E")
  1. S REQUEST("Request",NUM,"ClinicStopCodeAMIS")=$$GET1^DIQ(40.7,CLINSTOPIEN_",",1,"E")
  1. S REQUEST("Request",NUM,"ClinicSecondaryStopCodeIEN")=REQDATA(FN,REQUESTIEN_",",8.6,"I")
  1. S REQUEST("Request",NUM,"ClinicSecondaryStopCodeName")=REQDATA(FN,REQUESTIEN_",",8.6,"E")
  1. S REQUEST("Request",NUM,"ClinicSecondaryStopCodeAMIS")=$$GET1^DIQ(40.7,REQDATA(FN,REQUESTIEN_",",8.6,"I"),1)
  1. S REQUEST("Request",NUM,"CreditStopCodeIEN")=CLINCREDIEN
  1. S REQUEST("Request",NUM,"CreditStopCodeName")=$$GET1^DIQ(40.7,CLINCREDIEN_",",.01,"E")
  1. S REQUEST("Request",NUM,"CreditStopCodeAMIS")=$$GET1^DIQ(40.7,CLINCREDIEN_",",1,"E")
  1. S REQUEST("Request",NUM,"DisplayClinicAppt")=$$GET1^DIQ(44,REQDATA(FN,REQUESTIEN_",",8,"I")_",",62,"E")
  1. S REQUEST("Request",NUM,"ApptType")=REQDATA(FN,REQUESTIEN_",",8.7,"E")
  1. S REQUEST("Request",NUM,"EnteredByName")=REQDATA(FN,REQUESTIEN_",",9,"E")
  1. S REQUEST("Request",NUM,"EnteredByIEN")=REQDATA(FN,REQUESTIEN_",",9,"I")
  1. S REQUEST("Request",NUM,"DateTimeEntered")=$$FMTISO^SDAMUTDT($G(REQDATA(FN,REQUESTIEN_",",9.5,"I")))
  1. S REQUEST("Request",NUM,"Priority")=REQDATA(FN,REQUESTIEN_",",10,"E")
  1. S REQUEST("Request",NUM,"EnrollmentPriorityGroup")=REQDATA(FN,REQUESTIEN_",",10.5,"E")
  1. S REQUEST("Request",NUM,"ByPatientOrProvider")=REQDATA(FN,REQUESTIEN_",",11,"E")
  1. S REQUEST("Request",NUM,"ProviderIEN")=REQDATA(FN,REQUESTIEN_",",12,"I")
  1. S REQUEST("Request",NUM,"ProviderName")=REQDATA(FN,REQUESTIEN_",",12,"E")
  1. S REQUEST("Request",NUM,"ProviderSecID")=$$GET1^DIQ(200,REQDATA(FN,REQUESTIEN_",",12,"I"),205.1)
  1. S REQUEST("Request",NUM,"ScheduledDateOfAppt")=$$FMTISO^SDAMUTDT(REQDATA(FN,REQUESTIEN_",",13,"I"))
  1. S REQUEST("Request",NUM,"DateLinkedApptMade")=$$FMTISO^SDAMUTDT(REQDATA(FN,REQUESTIEN_",",13.1,"I"))
  1. S REQUEST("Request",NUM,"LinkedApptClinic")=REQDATA(FN,REQUESTIEN_",",13.2,"E")
  1. S REQUEST("Request",NUM,"LinkedApptInstitutionName")=REQDATA(FN,REQUESTIEN_",",13.3,"E")
  1. S REQUEST("Request",NUM,"LinkedApptStopCode")=REQDATA(FN,REQUESTIEN_",",13.4,"E")
  1. S REQUEST("Request",NUM,"LinkedApptCreditStopCode")=REQDATA(FN,REQUESTIEN_",",13.5,"E")
  1. S REQUEST("Request",NUM,"LinkedApptInstitutionNumber")=REQDATA(FN,REQUESTIEN_",",13.6,"I")
  1. S REQUEST("Request",NUM,"LinkedApptEnteredBy")=REQDATA(FN,REQUESTIEN_",",13.7,"E")
  1. S REQUEST("Request",NUM,"LinkedApptStatus")=REQDATA(FN,REQUESTIEN_",",13.8,"E")
  1. S REQUEST("Request",NUM,"ServiceConnectedPercentage")=REQDATA(FN,REQUESTIEN_",",14,"E")
  1. S REQUEST("Request",NUM,"PatientIndicatedDate")=$$FMTISO^SDAMUTDT(REQDATA(FN,REQUESTIEN_",",22,"I"))
  1. S REQUEST("Request",NUM,"Status")=(REQDATA(FN,REQUESTIEN_",",23,"E"))
  1. S REQUEST("Request",NUM,"MRTCNeeded")=REQDATA(409.85,REQUESTIEN_",",41,"E")
  1. S REQUEST("Request",NUM,"MRTCDaysBetweenAppts")=REQDATA(409.85,REQUESTIEN_",",42,"E")
  1. S REQUEST("Request",NUM,"MRTCHowManyNeeded")=REQDATA(409.85,REQUESTIEN_",",43,"E")
  1. S REQUEST("Request",NUM,"EASTrackingNumber")=REQDATA(FN,REQUESTIEN_",",100,"E")
  1. S REQUEST("Request",NUM,"DispositionedDate")=$$FMTISO^SDAMUTDT(REQDATA(FN,REQUESTIEN_",",19,"I"))
  1. S REQUEST("Request",NUM,"DispositionedBy")=REQDATA(FN,REQUESTIEN_",",20,"I")
  1. S REQUEST("Request",NUM,"DispositionedBy")=REQDATA(FN,REQUESTIEN_",",20,"E")
  1. S REQUEST("Request",NUM,"DispositionReason")=REQDATA(FN,REQUESTIEN_",",21,"E")
  1. S REQUEST("Request",NUM,"DispositionIEN")=REQDATA(FN,REQUESTIEN_",",21,"I")
  1. S REQUEST("Request",NUM,"ServiceConnectedPriority")=REQDATA(FN,REQUESTIEN_",",15,"E")
  1. S REQUEST("Request",NUM,"PatientStatus")=REQDATA(FN,REQUESTIEN_",",.02,"E")
  1. S REQUEST("Request",NUM,"ChildRequestSequenceNumber")=$$GET1^DIQ(409.85,REQUESTIEN,43.1,"I")
  1. S REQUEST("Request",NUM,"ParentRequest")=REQDATA(FN,REQUESTIEN_",",43.8,"I")
  1. S REQUEST("Request",NUM,"ModalityName")=REQDATA(FN,REQUESTIEN_",",6,"E")
  1. S REQUEST("Request",NUM,"ModalityCode")=REQDATA(FN,REQUESTIEN_",",6,"I")
  1. S REQUEST("Request",NUM,"CPRSOrderID")=REQDATA(FN,REQUESTIEN_",",46,"I")
  1. S REQUEST("Request",NUM,"CPRSTimeSensitive")=REQDATA(FN,REQUESTIEN_",",47,"I")
  1. S REQUEST("Request",NUM,"PIDChangeAllowed")=$S(+$G(REQDATA(FN,REQUESTIEN_",",49,"I"))=1:1,1:0)
  1. S REQUEST("Request",NUM,"PatientLast4")=$$LAST4SSN^SDESINPUTVALUTL(REQDATA(FN,REQUESTIEN_",",.01,"I"))
  1. ;
  1. D FINISHAPPTREQ^SDESGETAPPTREQ2(.REQUEST,NUM,REQUESTIEN)
  1. ; build recall and consult
  1. D RECALL^SDESGETREQWRAPPR(.REQUEST,NUM)
  1. D CONSULT^SDESGETREQWRAPPR(.REQUEST,NUM)
  1. Q
  1. ;
  1. BUILDJSON(JSONRETURN,RETURN) ;
  1. N JSONERROR
  1. D ENCODE^XLFJSON("RETURN","JSONRETURN","JSONERROR")
  1. Q
  1. ;