SDESGETAPPTWRAP3 ;ALB/RRM,MGD - RPC WRAPPER FOR VIEWING AN APPOINTMENT CONTINUATION;July 29, 2022
;;5.3;Scheduling;**815,823,824,825**;Aug 13, 1993;Build 2
;;Per VHA Directive 6402, this routine should not be modified
;
;
Q ;No Direct Call
;
GETAPPT40984(SDALLAPPTARY,DFN,BDATE,EDATE,SDAPPTIEN,RECNUM,SDVIEWAPPTBY) ;Traverse the "APTDT" cross reference in File #409.84 to retrieve appointments for a given datetime range
N APPTIEN,APPTDATA,CLINICIEN,EXIST,STARTTIME,APPTSTATUS,ENDTIME,SDAPPTIENARY,SDAPPTNUM
D BUILDAPPTARY(.SDAPPTIENARY,DFN,BDATE,EDATE)
S EXIST=0
S APPTIEN="" F S APPTIEN=$O(SDAPPTIENARY(APPTIEN)) Q:APPTIEN=""!(EXIST) D
. S SDAPPTNUM="" F S SDAPPTNUM=$O(SDAPPTIENARY(APPTIEN,SDAPPTNUM)) Q:SDAPPTNUM=""!(EXIST) D
. . K SDMSG,APPTDATA D SUMMARY2^SDESAPPTDATA(.APPTDATA,APPTIEN)
. . I $G(SDVIEWAPPTBY)=1,$G(APPTDATA("Resource","ClinicIEN"))'=$G(SDCLINICIEN) Q ;if view appointment by Clinic IEN, we are only interested of those Clinic IEN passed in
. . I $G(SDVIEWAPPTBY)=0!($G(SDVIEWAPPTBY)=2) S RECNUM=RECNUM+1
. . S APPTSTATUS=SDAPPTIENARY(APPTIEN,SDAPPTNUM)
. . I $D(APPTDATA) D
. . . ;Build the appointment object as we go along
. . . I $G(SDVIEWAPPTBY)=0!($G(SDVIEWAPPTBY)=2) D Q
. . . . ;while we are here, using the CLINICIEN, retrieve the rest of the appointment
. . . . S CLINICIEN=$G(APPTDATA("Resource","ClinicIEN"))
. . . . S STARTTIME=APPTDATA("StartTimeFM")
. . . . S ENDTIME=$$GET1^DIQ(409.84,APPTIEN,.02,"I")
. . . . D SETOVERLAIDAPPT(.SDALLAPPTARY,APPTSTATUS,RECNUM)
. . . . I APPTSTATUS=0 D GETAPPT2(.SDALLAPPTARY,DFN,STARTTIME,ENDTIME) ;retrieve appointments from Appointment Multiple PATIENT File #2
. . . . I CLINICIEN="",$D(SDALLAPPTARY("Appointment",RECNUM,"Clinic")) S CLINICIEN=SDALLAPPTARY("Appointment",RECNUM,"Clinic"),CLINICIEN=$$FIND1^DIC(44,"","MX",CLINICIEN,"","","ERROR")
. . . . I CLINICIEN'="" D GETAPPT44(.SDALLAPPTARY,CLINICIEN,STARTTIME,ENDTIME,RECNUM) ;retrieves appointments in File #44
. . . . I APPTDATA("Status")="" D SETSTATUS(.APPTDATA,APPTIEN,CLINICIEN)
. . . . K SDALLAPPTARY("Appointment",RECNUM,"Clinic")
. . . . M SDALLAPPTARY("Appointment",RECNUM)=APPTDATA ;merge File #409.84 last to override some of the duplicates File #2 and File #44
. . . . D REMOVEDUPLICATE ;remove duplicates as we go along
. . . I $D(SDAPPTIENARY(APPTIEN,CNTR)) D Q
. . . . Q:APPTSTATUS'=SDCLINSTATUS
. . . . S SDCLINSTATUS=APPTSTATUS
. . . . I APPTDATA("Status")="" D SETSTATUS(.APPTDATA,APPTIEN,SDCLINICIEN)
. . . . M SDALLAPPTARY("Appointment",RECNUM)=APPTDATA
. . . . S EXIST=1
. . . I SDCLINSTATUS=0,APPTSTATUS=0 D
. . . . I APPTDATA("Status")="" D SETSTATUS(.APPTDATA,APPTIEN,SDCLINICIEN)
. . . . M SDALLAPPTARY("Appointment",RECNUM)=APPTDATA ;merge File #409.84 last to override some of the duplicates File #2 and File #44
. . . . S EXIST=1
I $O(SDALLAPPTARY("Appointment",""))="" S SDALLAPPTARY("Appointment",1)="" ;if no record found,set the array into a NULL value.
Q
;
GETAPPT2(SDALLAPPTARY,DFN,BDATE,EDATE) ;Traverse the "S" node in Appointment Multiple Patient File #2 to retrieve appointments for a given datetime range
N APPT,APPDATETIME,SDPATAPPT,SDMSG,ERR,NUM
S NUM=0
S APPDATETIME=$$FMADD^XLFDT(BDATE,-1) ;always start the previous datetime in order to get the needed date range
F S APPDATETIME=$O(^DPT(DFN,"S",APPDATETIME)) Q:(APPDATETIME="")!(APPDATETIME>EDATE) D
. Q:(APPDATETIME<BDATE)
. I $G(SDVIEWAPPTBY)=1,$$GET1^DIQ(2.98,APPDATETIME_","_DFN_",",.01,"I")'=SDCLINICIEN Q ;if view appointment by Clinic IEN, we are only interested of those Clinic IEN passed in
. K SDMSG,ERR,SDPATAPPT,APPT
. S NUM=NUM+1
. S APPT=$$GETAPPT^SDESGETPATAPPT(.SDPATAPPT,$G(DFN),APPDATETIME)
. Q:$D(ERR)
. K SDPATAPPT("PatientAppt",NUM,"Clinic")
. K SDPATAPPT("PatientAppt",NUM,"Status")
. I $G(APPT) M SDALLAPPTARY("Appointment",RECNUM)=SDPATAPPT("PatientAppt",NUM)
I $O(SDALLAPPTARY("Appointment",""))="" S SDALLAPPTARY("Appointment",1)="" ;if no record found, set the array into a NULL value
Q
;
GETAPPT44(SDALLAPPTARY,SDCLINICIEN,BDATE,EDATE,RECNUM,SDVIEWAPPTBY) ;Traverse the "S" node in HOSPITAL LOCATION File #44 to retrieve appointments for a given datetime range
N APPTREC,APTDATETIME,CNTR,EXIST,SDIEN,SDAPPT,SDAPPTNO,SDMSG,SDSTDT,SDCLIN,FOUND,SDCLINDFN,SDDFNARY,SDTMPARY,SDCLINSTATUS
S EXIST=0
D BUILDCLINAPPTARY(.SDDFNARY,SDCLINICIEN,BDATE,EDATE)
S SDCLINDFN="" F S SDCLINDFN=$O(SDDFNARY(SDCLINDFN)) Q:SDCLINDFN=""!(EXIST) D
. S APTDATETIME="" F S APTDATETIME=$O(SDDFNARY(SDCLINDFN,APTDATETIME)) Q:APTDATETIME=""!(EXIST) D
. . S CNTR="" F S CNTR=$O(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR)) Q:CNTR="" D
. . . S SDIEN=$P(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR),"^",2)
. . . S SDAPPTNO=$P(SDIEN,",")
. . . S SDSTDT=$P(SDIEN,",",2)
. . . S SDCLIN=$P(SDIEN,",",3)
. . . I $G(SDVIEWAPPTBY)=0!($G(SDVIEWAPPTBY)=2),$D(SDDFNARY(DFN,APTDATETIME,SDAPPTNUM)) S EXIST=1
. . . I $G(SDVIEWAPPTBY)=1 S RECNUM=RECNUM+1,DFN=SDCLINDFN
. . . Q:'$D(^DPT(SDCLINDFN,"S",SDSTDT,0))
. . . Q:$G(DFN)'=SDCLINDFN
. . . K SDMSG,SDAPPT,APPTREC D GETS^DIQ(44.003,SDIEN,"**","IE","SDAPPT","SDMSG")
. . . Q:$D(SDMSG)
. . . D BLDREC^SDESGETCLINAPPT
. . . I $D(APPTREC) D
. . . . ;Build the appointment object as we go along
. . . . S APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN,"ICN")=$$GETPATICN^SDESINPUTVALUTL(DFN)
. . . . M SDTMPARY("Patient")=APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN)
. . . . K APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN)
. . . . M SDALLAPPTARY("Appointment",RECNUM)=APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO)
. . . . M SDALLAPPTARY("Appointment",RECNUM)=SDTMPARY K SDTMPARY
. . . . I $G(SDVIEWAPPTBY)=1 D
. . . . . I $D(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR+1)) S SDCLINSTATUS=-1 ;Current Appt is cancelled and there is another APPT
. . . . . I '$D(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR+1)) S SDCLINSTATUS=0 ;Current Appt is either cancelled/not and no other APPT
. . . . . D GETAPPT40984(.SDALLAPPTARY,SDCLINDFN,SDSTDT,SDSTDT,,RECNUM,SDVIEWAPPTBY) ;retrieve appointments from Appointment Multiple PATIENT File #2
. . . . . D SETOVERLAIDAPPT(.SDALLAPPTARY,SDCLINSTATUS,RECNUM)
. . . . . I SDCLINSTATUS=0 D GETAPPT2(.SDALLAPPTARY,SDCLINDFN,SDSTDT,SDSTDT) ;retrieve appointments from Appointment Multiple PATIENT File #2
. . . . . D REMOVEDUPLICATE ;remove duplicates as we go along
I $O(SDALLAPPTARY("Appointment",""))="" S SDALLAPPTARY("Appointment",1)="" ;if no record found, set the array into a NULL value
Q
;
BUILDAPPTARY(SDAPPTIENARY,DFN,BDATE,EDATE) ;Retrieve all appointment IENs for a given DFN within the given date range
N APPTIEN,SDAPPTNO,OLDAPPTIEN,SDBEGINDX
S OLDAPPTIEN=""
S SDBEGINDX=$$FMADD^XLFDT(BDATE,-1) ;Reset BDATE to immediately before actual start time
S SDBEGINDX=0 F S SDBEGINDX=$O(^SDEC(409.84,"APTDT",DFN,SDBEGINDX)) Q:SDBEGINDX=""!(SDBEGINDX>EDATE) D
. Q:SDBEGINDX<BDATE
. S SDAPPTNO=0
. S APPTIEN="" F S APPTIEN=$O(^SDEC(409.84,"APTDT",DFN,SDBEGINDX,APPTIEN)) Q:APPTIEN="" D
. . I OLDAPPTIEN'=APPTIEN D
. . . I $G(SDVIEWAPPTBY)=2,APPTIEN'=SDAPPTIEN Q
. . . S SDAPPTNO=SDAPPTNO+1
. . . S APPTSTATUS=$$SDEXPST(.SDRET,DFN,SDBEGINDX,APPTIEN)
. . . S SDAPPTIENARY(APPTIEN,SDAPPTNO)=APPTSTATUS
. . S OLDAPPTIEN=APPTIEN
Q
;
BUILDCLINAPPTARY(SDDFNARY,SDCLINICIEN,BDATE,EDATE) ;Retrieve all appointments for a given clinic within the given date range
N APPDATETIME,SDCLINDFN,SDAPPTCLNO,CLINAPPTSTAT,CNTR,OLDDFN
K SDDFNARY
S CNTR=0,OLDDFN=""
S APPDATETIME=$$FMADD^XLFDT(BDATE,-1) ;always start the previous datetime in order to get the needed date range
F S APPDATETIME=$O(^SC(SDCLINICIEN,"S",APPDATETIME)) Q:APPDATETIME=""!(APPDATETIME>EDATE) D
. Q:APPDATETIME<BDATE
. S SDAPPTCLNO="" F S SDAPPTCLNO=$O(^SC(SDCLINICIEN,"S",APPDATETIME,1,SDAPPTCLNO)) Q:SDAPPTCLNO="" D
. . I '$D(^SC(SDCLINICIEN,"S",APPDATETIME,1,SDAPPTCLNO,0)) Q
. . S SDCLINDFN=$$GET1^DIQ(44.003,SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_",",.01,"I")
. . I ($G(SDVIEWAPPTBY)=0!($G(SDVIEWAPPTBY)=2)),SDCLINDFN'=DFN Q ;if view appointment by DFN, we are only interested of those DFN's passed in
. . I $D(SDDFNARY(SDCLINDFN,APPDATETIME)) S CNTR=$O(SDDFNARY(SDCLINDFN,APPDATETIME,""),-1)
. . I '$D(SDDFNARY(SDCLINDFN,APPDATETIME)) S CNTR=0
. . S CLINAPPTSTAT=$$GET1^DIQ(44.003,SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_",",310,"I")
. . S CNTR=CNTR+1
. . S SDDFNARY(SDCLINDFN,APPDATETIME,CNTR)=CLINAPPTSTAT_"^"_SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_","
Q
;
SETOVERLAIDAPPT(SDALLAPPTARY,STATUS,RECNUM) ;set this subscript if the Appointment is cancelled and there is another APPT
;This is due to the record does not exist in the Appointment Multiple File #2.98 anymore
;This is per BJ to add a boolean subscript to identify the data no longer exist
S SDALLAPPTARY("Appointment",RECNUM,"OverLaidAppointmentData")=$S($G(STATUS)=-1:"YES",1:"NO")
I STATUS=-1 D SETAPPTMULT2NULL(.SDALLAPPTARY,RECNUM) ;Set all the fields of Appointment Multiple File #2.98 to NULL
Q
;
SETSTATUS(APPTDATA,APPTIEN,CLINICIEN) ;
N SDAPPTNODE
S SDAPPTNODE=$G(^SDEC(409.84,APPTIEN,0))
S APPTDATA("Status")=$$APPTSTS^SDEC50(APPTIEN,SDAPPTNODE,CLINICIEN)
Q
;
SDEXPST(SDRET,DFN,ADT,SDAPPTIEN) ;
N SDAPPT,SDRTN,SDNEXTIEN,SDCAN
S SDRTN="" ; Appt can be expanded
S SDAPPT="",ADT=+ADT
F S SDAPPT=$O(^SDEC(409.84,"APTDT",DFN,ADT,SDAPPT)) Q:'SDAPPT D Q:SDRTN'=""
. Q:SDAPPT'=SDAPPTIEN
. S SDCAN=($$GET1^DIQ(409.84,SDAPPT,.12,"I")'="")
. S SDNEXTIEN=$O(^SDEC(409.84,"APTDT",DFN,ADT,SDAPPT))
. ; Current Appt is cancelled and there is another APPT
. I SDCAN,SDNEXTIEN S SDRTN=-1 Q
. ; Current Appt is cancelled & no other Appt
. I SDCAN,'SDNEXTIEN S SDRTN=0 Q
. ; Current Appt is NOT cancelled so there can't be other Appt for same Date/Time
. I 'SDCAN,'SDNEXTIEN S SDRTN=0 Q
S SDRET=SDRTN
Q SDRET
;
REMOVEDUPLICATE ;
K SDALLAPPTARY("Appointment",RECNUM,"DateApptMade")
K SDALLAPPTARY("Appointment",RECNUM,"EKGTIME")
K SDALLAPPTARY("Appointment",RECNUM,"LABTIME")
K SDALLAPPTARY("Appointment",RECNUM,"AppointmentLength")
K SDALLAPPTARY("Appointment",RECNUM,"ApptCancelled")
K SDALLAPPTARY("Appointment",RECNUM,"CheckedOutDate")
K SDALLAPPTARY("Appointment",RECNUM,"CheckedIn")
K SDALLAPPTARY("Appointment",RECNUM,"TelephoneOfClinic")
K SDALLAPPTARY("Appointment",RECNUM,"XRAYTIME")
K SDALLAPPTARY("Appointment",RECNUM,"Patient","NAME")
K SDALLAPPTARY("Appointment",RECNUM,"DFN")
K SDALLAPPTARY("Appointment",RECNUM,"COLLATERAL")
K SDALLAPPTARY("Appointment",RECNUM,"Patient","EligbilityOfVisit")
K SDALLAPPTARY("Appointment",RECNUM,"AppointmentTime")
Q
;
SETAPPTMULT2NULL(SDALLAPPTARY,RECNUM) ;Set all the fields of Appointment Multiple File #2.98 to NULL
;This is per BJ and Lori as of 04/27/2022 to set all fields to NULL if the appointment is an overlaid appointment data
S SDPATAPPT("PatientAppt",RECNUM,"RealAppointment")=""
S SDPATAPPT("PatientAppt",RECNUM,"LabDateTime")=""
S SDPATAPPT("PatientAppt",RECNUM,"XrayDateTime")=""
S SDPATAPPT("PatientAppt",RECNUM,"EkgDateTime")=""
S SDPATAPPT("PatientAppt",RECNUM,"RoutingSlipPrinted")=""
S SDPATAPPT("PatientAppt",RECNUM,"RoutingSlipPrintDate")=""
S SDPATAPPT("PatientAppt",RECNUM,"PurposeOfVisit")=""
S SDPATAPPT("PatientAppt",RECNUM,"AppointmentType")=""
S SDPATAPPT("PatientAppt",RECNUM,"SpecialSurveyDisposition")=""
S SDPATAPPT("PatientAppt",RECNUM,"NumberOfCollateralSeen")=""
S SDPATAPPT("PatientAppt",RECNUM,"AutoRebookedApptDateTime")=""
S SDPATAPPT("PatientAppt",RECNUM,"CollateralVisit")=""
S SDPATAPPT("PatientAppt",RECNUM,"NoShowCancelledBy")=""
S SDPATAPPT("PatientAppt",RECNUM,"NoShowCancelDateTime")=""
S SDPATAPPT("PatientAppt",RECNUM,"CancellationReason")=""
S SDPATAPPT("PatientAppt",RECNUM,"CancellationRemarks")=""
S SDPATAPPT("PatientAppt",RECNUM,"ApptCancelled")=""
S SDPATAPPT("PatientAppt",RECNUM,"DataEntryClerk")=""
S SDPATAPPT("PatientAppt",RECNUM,"DateApptMade")=""
S SDPATAPPT("PatientAppt",RECNUM,"OutpatientEncounter")=""
S SDPATAPPT("PatientAppt",RECNUM,"EncounterFormsPrinted")=""
S SDPATAPPT("PatientAppt",RECNUM,"EncounterFormsAsAddOns")=""
S SDPATAPPT("PatientAppt",RECNUM,"EncounterConversionStatus")=""
S SDPATAPPT("PatientAppt",RECNUM,"AppointmentTypeSubCategory")=""
S SDPATAPPT("PatientAppt",RECNUM,"SchedulingRequestType")=""
S SDPATAPPT("PatientAppt",RECNUM,"NextAvaApptIndicator")=""
S SDPATAPPT("PatientAppt",RECNUM,"DesiredDateOfAppointment")=""
S SDPATAPPT("PatientAppt",RECNUM,"FollowUpVisit")=""
S SDPATAPPT("PatientAppt",RECNUM,"SchedulingApplication")=""
S SDPATAPPT("PatientAppt",RECNUM,"SchedulerName")=""
S SDPATAPPT("PatientAppt",RECNUM,"CurrentStatus")=""
M SDALLAPPTARY("Appointment",RECNUM)=SDPATAPPT("PatientAppt",RECNUM)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDESGETAPPTWRAP3 13000 printed Dec 13, 2024@02:56:43 Page 2
SDESGETAPPTWRAP3 ;ALB/RRM,MGD - RPC WRAPPER FOR VIEWING AN APPOINTMENT CONTINUATION;July 29, 2022
+1 ;;5.3;Scheduling;**815,823,824,825**;Aug 13, 1993;Build 2
+2 ;;Per VHA Directive 6402, this routine should not be modified
+3 ;
+4 ;
+5 ;No Direct Call
QUIT
+6 ;
GETAPPT40984(SDALLAPPTARY,DFN,BDATE,EDATE,SDAPPTIEN,RECNUM,SDVIEWAPPTBY) ;Traverse the "APTDT" cross reference in File #409.84 to retrieve appointments for a given datetime range
+1 NEW APPTIEN,APPTDATA,CLINICIEN,EXIST,STARTTIME,APPTSTATUS,ENDTIME,SDAPPTIENARY,SDAPPTNUM
+2 DO BUILDAPPTARY(.SDAPPTIENARY,DFN,BDATE,EDATE)
+3 SET EXIST=0
+4 SET APPTIEN=""
FOR
SET APPTIEN=$ORDER(SDAPPTIENARY(APPTIEN))
if APPTIEN=""!(EXIST)
QUIT
Begin DoDot:1
+5 SET SDAPPTNUM=""
FOR
SET SDAPPTNUM=$ORDER(SDAPPTIENARY(APPTIEN,SDAPPTNUM))
if SDAPPTNUM=""!(EXIST)
QUIT
Begin DoDot:2
+6 KILL SDMSG,APPTDATA
DO SUMMARY2^SDESAPPTDATA(.APPTDATA,APPTIEN)
+7 ;if view appointment by Clinic IEN, we are only interested of those Clinic IEN passed in
IF $GET(SDVIEWAPPTBY)=1
IF $GET(APPTDATA("Resource","ClinicIEN"))'=$GET(SDCLINICIEN)
QUIT
+8 IF $GET(SDVIEWAPPTBY)=0!($GET(SDVIEWAPPTBY)=2)
SET RECNUM=RECNUM+1
+9 SET APPTSTATUS=SDAPPTIENARY(APPTIEN,SDAPPTNUM)
+10 IF $DATA(APPTDATA)
Begin DoDot:3
+11 ;Build the appointment object as we go along
+12 IF $GET(SDVIEWAPPTBY)=0!($GET(SDVIEWAPPTBY)=2)
Begin DoDot:4
+13 ;while we are here, using the CLINICIEN, retrieve the rest of the appointment
+14 SET CLINICIEN=$GET(APPTDATA("Resource","ClinicIEN"))
+15 SET STARTTIME=APPTDATA("StartTimeFM")
+16 SET ENDTIME=$$GET1^DIQ(409.84,APPTIEN,.02,"I")
+17 DO SETOVERLAIDAPPT(.SDALLAPPTARY,APPTSTATUS,RECNUM)
+18 ;retrieve appointments from Appointment Multiple PATIENT File #2
IF APPTSTATUS=0
DO GETAPPT2(.SDALLAPPTARY,DFN,STARTTIME,ENDTIME)
+19 IF CLINICIEN=""
IF $DATA(SDALLAPPTARY("Appointment",RECNUM,"Clinic"))
SET CLINICIEN=SDALLAPPTARY("Appointment",RECNUM,"Clinic")
SET CLINICIEN=$$FIND1^DIC(44,"","MX",CLINICIEN,"","","ERROR")
+20 ;retrieves appointments in File #44
IF CLINICIEN'=""
DO GETAPPT44(.SDALLAPPTARY,CLINICIEN,STARTTIME,ENDTIME,RECNUM)
+21 IF APPTDATA("Status")=""
DO SETSTATUS(.APPTDATA,APPTIEN,CLINICIEN)
+22 KILL SDALLAPPTARY("Appointment",RECNUM,"Clinic")
+23 ;merge File #409.84 last to override some of the duplicates File #2 and File #44
MERGE SDALLAPPTARY("Appointment",RECNUM)=APPTDATA
+24 ;remove duplicates as we go along
DO REMOVEDUPLICATE
End DoDot:4
QUIT
+25 IF $DATA(SDAPPTIENARY(APPTIEN,CNTR))
Begin DoDot:4
+26 if APPTSTATUS'=SDCLINSTATUS
QUIT
+27 SET SDCLINSTATUS=APPTSTATUS
+28 IF APPTDATA("Status")=""
DO SETSTATUS(.APPTDATA,APPTIEN,SDCLINICIEN)
+29 MERGE SDALLAPPTARY("Appointment",RECNUM)=APPTDATA
+30 SET EXIST=1
End DoDot:4
QUIT
+31 IF SDCLINSTATUS=0
IF APPTSTATUS=0
Begin DoDot:4
+32 IF APPTDATA("Status")=""
DO SETSTATUS(.APPTDATA,APPTIEN,SDCLINICIEN)
+33 ;merge File #409.84 last to override some of the duplicates File #2 and File #44
MERGE SDALLAPPTARY("Appointment",RECNUM)=APPTDATA
+34 SET EXIST=1
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+35 ;if no record found,set the array into a NULL value.
IF $ORDER(SDALLAPPTARY("Appointment",""))=""
SET SDALLAPPTARY("Appointment",1)=""
+36 QUIT
+37 ;
GETAPPT2(SDALLAPPTARY,DFN,BDATE,EDATE) ;Traverse the "S" node in Appointment Multiple Patient File #2 to retrieve appointments for a given datetime range
+1 NEW APPT,APPDATETIME,SDPATAPPT,SDMSG,ERR,NUM
+2 SET NUM=0
+3 ;always start the previous datetime in order to get the needed date range
SET APPDATETIME=$$FMADD^XLFDT(BDATE,-1)
+4 FOR
SET APPDATETIME=$ORDER(^DPT(DFN,"S",APPDATETIME))
if (APPDATETIME="")!(APPDATETIME>EDATE)
QUIT
Begin DoDot:1
+5 if (APPDATETIME<BDATE)
QUIT
+6 ;if view appointment by Clinic IEN, we are only interested of those Clinic IEN passed in
IF $GET(SDVIEWAPPTBY)=1
IF $$GET1^DIQ(2.98,APPDATETIME_","_DFN_",",.01,"I")'=SDCLINICIEN
QUIT
+7 KILL SDMSG,ERR,SDPATAPPT,APPT
+8 SET NUM=NUM+1
+9 SET APPT=$$GETAPPT^SDESGETPATAPPT(.SDPATAPPT,$GET(DFN),APPDATETIME)
+10 if $DATA(ERR)
QUIT
+11 KILL SDPATAPPT("PatientAppt",NUM,"Clinic")
+12 KILL SDPATAPPT("PatientAppt",NUM,"Status")
+13 IF $GET(APPT)
MERGE SDALLAPPTARY("Appointment",RECNUM)=SDPATAPPT("PatientAppt",NUM)
End DoDot:1
+14 ;if no record found, set the array into a NULL value
IF $ORDER(SDALLAPPTARY("Appointment",""))=""
SET SDALLAPPTARY("Appointment",1)=""
+15 QUIT
+16 ;
GETAPPT44(SDALLAPPTARY,SDCLINICIEN,BDATE,EDATE,RECNUM,SDVIEWAPPTBY) ;Traverse the "S" node in HOSPITAL LOCATION File #44 to retrieve appointments for a given datetime range
+1 NEW APPTREC,APTDATETIME,CNTR,EXIST,SDIEN,SDAPPT,SDAPPTNO,SDMSG,SDSTDT,SDCLIN,FOUND,SDCLINDFN,SDDFNARY,SDTMPARY,SDCLINSTATUS
+2 SET EXIST=0
+3 DO BUILDCLINAPPTARY(.SDDFNARY,SDCLINICIEN,BDATE,EDATE)
+4 SET SDCLINDFN=""
FOR
SET SDCLINDFN=$ORDER(SDDFNARY(SDCLINDFN))
if SDCLINDFN=""!(EXIST)
QUIT
Begin DoDot:1
+5 SET APTDATETIME=""
FOR
SET APTDATETIME=$ORDER(SDDFNARY(SDCLINDFN,APTDATETIME))
if APTDATETIME=""!(EXIST)
QUIT
Begin DoDot:2
+6 SET CNTR=""
FOR
SET CNTR=$ORDER(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR))
if CNTR=""
QUIT
Begin DoDot:3
+7 SET SDIEN=$PIECE(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR),"^",2)
+8 SET SDAPPTNO=$PIECE(SDIEN,",")
+9 SET SDSTDT=$PIECE(SDIEN,",",2)
+10 SET SDCLIN=$PIECE(SDIEN,",",3)
+11 IF $GET(SDVIEWAPPTBY)=0!($GET(SDVIEWAPPTBY)=2)
IF $DATA(SDDFNARY(DFN,APTDATETIME,SDAPPTNUM))
SET EXIST=1
+12 IF $GET(SDVIEWAPPTBY)=1
SET RECNUM=RECNUM+1
SET DFN=SDCLINDFN
+13 if '$DATA(^DPT(SDCLINDFN,"S",SDSTDT,0))
QUIT
+14 if $GET(DFN)'=SDCLINDFN
QUIT
+15 KILL SDMSG,SDAPPT,APPTREC
DO GETS^DIQ(44.003,SDIEN,"**","IE","SDAPPT","SDMSG")
+16 if $DATA(SDMSG)
QUIT
+17 DO BLDREC^SDESGETCLINAPPT
+18 IF $DATA(APPTREC)
Begin DoDot:4
+19 ;Build the appointment object as we go along
+20 SET APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN,"ICN")=$$GETPATICN^SDESINPUTVALUTL(DFN)
+21 MERGE SDTMPARY("Patient")=APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN)
+22 KILL APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO,"Patient",SDCLINDFN)
+23 MERGE SDALLAPPTARY("Appointment",RECNUM)=APPTREC("ClinicApptDate",SDSTDT,"ClinicApptNumber",SDAPPTNO)
+24 MERGE SDALLAPPTARY("Appointment",RECNUM)=SDTMPARY
KILL SDTMPARY
+25 IF $GET(SDVIEWAPPTBY)=1
Begin DoDot:5
+26 ;Current Appt is cancelled and there is another APPT
IF $DATA(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR+1))
SET SDCLINSTATUS=-1
+27 ;Current Appt is either cancelled/not and no other APPT
IF '$DATA(SDDFNARY(SDCLINDFN,APTDATETIME,CNTR+1))
SET SDCLINSTATUS=0
+28 ;retrieve appointments from Appointment Multiple PATIENT File #2
DO GETAPPT40984(.SDALLAPPTARY,SDCLINDFN,SDSTDT,SDSTDT,,RECNUM,SDVIEWAPPTBY)
+29 DO SETOVERLAIDAPPT(.SDALLAPPTARY,SDCLINSTATUS,RECNUM)
+30 ;retrieve appointments from Appointment Multiple PATIENT File #2
IF SDCLINSTATUS=0
DO GETAPPT2(.SDALLAPPTARY,SDCLINDFN,SDSTDT,SDSTDT)
+31 ;remove duplicates as we go along
DO REMOVEDUPLICATE
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+32 ;if no record found, set the array into a NULL value
IF $ORDER(SDALLAPPTARY("Appointment",""))=""
SET SDALLAPPTARY("Appointment",1)=""
+33 QUIT
+34 ;
BUILDAPPTARY(SDAPPTIENARY,DFN,BDATE,EDATE) ;Retrieve all appointment IENs for a given DFN within the given date range
+1 NEW APPTIEN,SDAPPTNO,OLDAPPTIEN,SDBEGINDX
+2 SET OLDAPPTIEN=""
+3 ;Reset BDATE to immediately before actual start time
SET SDBEGINDX=$$FMADD^XLFDT(BDATE,-1)
+4 SET SDBEGINDX=0
FOR
SET SDBEGINDX=$ORDER(^SDEC(409.84,"APTDT",DFN,SDBEGINDX))
if SDBEGINDX=""!(SDBEGINDX>EDATE)
QUIT
Begin DoDot:1
+5 if SDBEGINDX<BDATE
QUIT
+6 SET SDAPPTNO=0
+7 SET APPTIEN=""
FOR
SET APPTIEN=$ORDER(^SDEC(409.84,"APTDT",DFN,SDBEGINDX,APPTIEN))
if APPTIEN=""
QUIT
Begin DoDot:2
+8 IF OLDAPPTIEN'=APPTIEN
Begin DoDot:3
+9 IF $GET(SDVIEWAPPTBY)=2
IF APPTIEN'=SDAPPTIEN
QUIT
+10 SET SDAPPTNO=SDAPPTNO+1
+11 SET APPTSTATUS=$$SDEXPST(.SDRET,DFN,SDBEGINDX,APPTIEN)
+12 SET SDAPPTIENARY(APPTIEN,SDAPPTNO)=APPTSTATUS
End DoDot:3
+13 SET OLDAPPTIEN=APPTIEN
End DoDot:2
End DoDot:1
+14 QUIT
+15 ;
BUILDCLINAPPTARY(SDDFNARY,SDCLINICIEN,BDATE,EDATE) ;Retrieve all appointments for a given clinic within the given date range
+1 NEW APPDATETIME,SDCLINDFN,SDAPPTCLNO,CLINAPPTSTAT,CNTR,OLDDFN
+2 KILL SDDFNARY
+3 SET CNTR=0
SET OLDDFN=""
+4 ;always start the previous datetime in order to get the needed date range
SET APPDATETIME=$$FMADD^XLFDT(BDATE,-1)
+5 FOR
SET APPDATETIME=$ORDER(^SC(SDCLINICIEN,"S",APPDATETIME))
if APPDATETIME=""!(APPDATETIME>EDATE)
QUIT
Begin DoDot:1
+6 if APPDATETIME<BDATE
QUIT
+7 SET SDAPPTCLNO=""
FOR
SET SDAPPTCLNO=$ORDER(^SC(SDCLINICIEN,"S",APPDATETIME,1,SDAPPTCLNO))
if SDAPPTCLNO=""
QUIT
Begin DoDot:2
+8 IF '$DATA(^SC(SDCLINICIEN,"S",APPDATETIME,1,SDAPPTCLNO,0))
QUIT
+9 SET SDCLINDFN=$$GET1^DIQ(44.003,SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_",",.01,"I")
+10 ;if view appointment by DFN, we are only interested of those DFN's passed in
IF ($GET(SDVIEWAPPTBY)=0!($GET(SDVIEWAPPTBY)=2))
IF SDCLINDFN'=DFN
QUIT
+11 IF $DATA(SDDFNARY(SDCLINDFN,APPDATETIME))
SET CNTR=$ORDER(SDDFNARY(SDCLINDFN,APPDATETIME,""),-1)
+12 IF '$DATA(SDDFNARY(SDCLINDFN,APPDATETIME))
SET CNTR=0
+13 SET CLINAPPTSTAT=$$GET1^DIQ(44.003,SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_",",310,"I")
+14 SET CNTR=CNTR+1
+15 SET SDDFNARY(SDCLINDFN,APPDATETIME,CNTR)=CLINAPPTSTAT_"^"_SDAPPTCLNO_","_APPDATETIME_","_SDCLINICIEN_","
End DoDot:2
End DoDot:1
+16 QUIT
+17 ;
SETOVERLAIDAPPT(SDALLAPPTARY,STATUS,RECNUM) ;set this subscript if the Appointment is cancelled and there is another APPT
+1 ;This is due to the record does not exist in the Appointment Multiple File #2.98 anymore
+2 ;This is per BJ to add a boolean subscript to identify the data no longer exist
+3 SET SDALLAPPTARY("Appointment",RECNUM,"OverLaidAppointmentData")=$SELECT($GET(STATUS)=-1:"YES",1:"NO")
+4 ;Set all the fields of Appointment Multiple File #2.98 to NULL
IF STATUS=-1
DO SETAPPTMULT2NULL(.SDALLAPPTARY,RECNUM)
+5 QUIT
+6 ;
SETSTATUS(APPTDATA,APPTIEN,CLINICIEN) ;
+1 NEW SDAPPTNODE
+2 SET SDAPPTNODE=$GET(^SDEC(409.84,APPTIEN,0))
+3 SET APPTDATA("Status")=$$APPTSTS^SDEC50(APPTIEN,SDAPPTNODE,CLINICIEN)
+4 QUIT
+5 ;
SDEXPST(SDRET,DFN,ADT,SDAPPTIEN) ;
+1 NEW SDAPPT,SDRTN,SDNEXTIEN,SDCAN
+2 ; Appt can be expanded
SET SDRTN=""
+3 SET SDAPPT=""
SET ADT=+ADT
+4 FOR
SET SDAPPT=$ORDER(^SDEC(409.84,"APTDT",DFN,ADT,SDAPPT))
if 'SDAPPT
QUIT
Begin DoDot:1
+5 if SDAPPT'=SDAPPTIEN
QUIT
+6 SET SDCAN=($$GET1^DIQ(409.84,SDAPPT,.12,"I")'="")
+7 SET SDNEXTIEN=$ORDER(^SDEC(409.84,"APTDT",DFN,ADT,SDAPPT))
+8 ; Current Appt is cancelled and there is another APPT
+9 IF SDCAN
IF SDNEXTIEN
SET SDRTN=-1
QUIT
+10 ; Current Appt is cancelled & no other Appt
+11 IF SDCAN
IF 'SDNEXTIEN
SET SDRTN=0
QUIT
+12 ; Current Appt is NOT cancelled so there can't be other Appt for same Date/Time
+13 IF 'SDCAN
IF 'SDNEXTIEN
SET SDRTN=0
QUIT
End DoDot:1
if SDRTN'=""
QUIT
+14 SET SDRET=SDRTN
+15 QUIT SDRET
+16 ;
REMOVEDUPLICATE ;
+1 KILL SDALLAPPTARY("Appointment",RECNUM,"DateApptMade")
+2 KILL SDALLAPPTARY("Appointment",RECNUM,"EKGTIME")
+3 KILL SDALLAPPTARY("Appointment",RECNUM,"LABTIME")
+4 KILL SDALLAPPTARY("Appointment",RECNUM,"AppointmentLength")
+5 KILL SDALLAPPTARY("Appointment",RECNUM,"ApptCancelled")
+6 KILL SDALLAPPTARY("Appointment",RECNUM,"CheckedOutDate")
+7 KILL SDALLAPPTARY("Appointment",RECNUM,"CheckedIn")
+8 KILL SDALLAPPTARY("Appointment",RECNUM,"TelephoneOfClinic")
+9 KILL SDALLAPPTARY("Appointment",RECNUM,"XRAYTIME")
+10 KILL SDALLAPPTARY("Appointment",RECNUM,"Patient","NAME")
+11 KILL SDALLAPPTARY("Appointment",RECNUM,"DFN")
+12 KILL SDALLAPPTARY("Appointment",RECNUM,"COLLATERAL")
+13 KILL SDALLAPPTARY("Appointment",RECNUM,"Patient","EligbilityOfVisit")
+14 KILL SDALLAPPTARY("Appointment",RECNUM,"AppointmentTime")
+15 QUIT
+16 ;
SETAPPTMULT2NULL(SDALLAPPTARY,RECNUM) ;Set all the fields of Appointment Multiple File #2.98 to NULL
+1 ;This is per BJ and Lori as of 04/27/2022 to set all fields to NULL if the appointment is an overlaid appointment data
+2 SET SDPATAPPT("PatientAppt",RECNUM,"RealAppointment")=""
+3 SET SDPATAPPT("PatientAppt",RECNUM,"LabDateTime")=""
+4 SET SDPATAPPT("PatientAppt",RECNUM,"XrayDateTime")=""
+5 SET SDPATAPPT("PatientAppt",RECNUM,"EkgDateTime")=""
+6 SET SDPATAPPT("PatientAppt",RECNUM,"RoutingSlipPrinted")=""
+7 SET SDPATAPPT("PatientAppt",RECNUM,"RoutingSlipPrintDate")=""
+8 SET SDPATAPPT("PatientAppt",RECNUM,"PurposeOfVisit")=""
+9 SET SDPATAPPT("PatientAppt",RECNUM,"AppointmentType")=""
+10 SET SDPATAPPT("PatientAppt",RECNUM,"SpecialSurveyDisposition")=""
+11 SET SDPATAPPT("PatientAppt",RECNUM,"NumberOfCollateralSeen")=""
+12 SET SDPATAPPT("PatientAppt",RECNUM,"AutoRebookedApptDateTime")=""
+13 SET SDPATAPPT("PatientAppt",RECNUM,"CollateralVisit")=""
+14 SET SDPATAPPT("PatientAppt",RECNUM,"NoShowCancelledBy")=""
+15 SET SDPATAPPT("PatientAppt",RECNUM,"NoShowCancelDateTime")=""
+16 SET SDPATAPPT("PatientAppt",RECNUM,"CancellationReason")=""
+17 SET SDPATAPPT("PatientAppt",RECNUM,"CancellationRemarks")=""
+18 SET SDPATAPPT("PatientAppt",RECNUM,"ApptCancelled")=""
+19 SET SDPATAPPT("PatientAppt",RECNUM,"DataEntryClerk")=""
+20 SET SDPATAPPT("PatientAppt",RECNUM,"DateApptMade")=""
+21 SET SDPATAPPT("PatientAppt",RECNUM,"OutpatientEncounter")=""
+22 SET SDPATAPPT("PatientAppt",RECNUM,"EncounterFormsPrinted")=""
+23 SET SDPATAPPT("PatientAppt",RECNUM,"EncounterFormsAsAddOns")=""
+24 SET SDPATAPPT("PatientAppt",RECNUM,"EncounterConversionStatus")=""
+25 SET SDPATAPPT("PatientAppt",RECNUM,"AppointmentTypeSubCategory")=""
+26 SET SDPATAPPT("PatientAppt",RECNUM,"SchedulingRequestType")=""
+27 SET SDPATAPPT("PatientAppt",RECNUM,"NextAvaApptIndicator")=""
+28 SET SDPATAPPT("PatientAppt",RECNUM,"DesiredDateOfAppointment")=""
+29 SET SDPATAPPT("PatientAppt",RECNUM,"FollowUpVisit")=""
+30 SET SDPATAPPT("PatientAppt",RECNUM,"SchedulingApplication")=""
+31 SET SDPATAPPT("PatientAppt",RECNUM,"SchedulerName")=""
+32 SET SDPATAPPT("PatientAppt",RECNUM,"CurrentStatus")=""
+33 MERGE SDALLAPPTARY("Appointment",RECNUM)=SDPATAPPT("PatientAppt",RECNUM)
+34 QUIT
+35 ;
