SDES2BLDAPPT44.m

SDES2BLDAPPT44 ;ALB/LAB - VISTA SCHEDULING BUILDING APPT OBJECT FOR CLINIC ;JAN 15, 2024

 ;;5.3;Scheduling;**871**;Aug 13, 1993;Build 13

 ;;Per VHA Directive 6402, this routine should not be modified

 ;

 Q

 ;

GET44INFO(APPTOBJ,CLINIEN,RECCNT) ;

 N CLINIENS,ARRAY44

 S CLINIENS=CLINIEN_","

 D GETS^DIQ(44,CLINIENS,".01;3.5;8;10;20;21;60;62;99;99.1;200;2500;2503","IE","ARRAY44","SDMSG")

 S APPTOBJ("Appointment",RECCNT,"Clinic","CreditStopCodeAMIS")=$$GET1^DIQ(40.7,$G(ARRAY44(44,CLINIENS,2503,"I")),1,"I")

 S APPTOBJ("Appointment",RECCNT,"Clinic","CreditStopCodeName")=$G(ARRAY44(44,CLINIENS,2503,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","DisplayClinicAppt")=$G(ARRAY44(44,CLINIENS,62,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","Division")=$G(ARRAY44(44,CLINIENS,3.5,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","ECheckinAllowed")=$G(ARRAY44(44,CLINIENS,20,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","Name")=$G(ARRAY44(44,CLINIENS,.01,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","PatientFriendlyName")=$G(ARRAY44(44,CLINIENS,60,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","PbspID")=$G(ARRAY44(44,CLINIENS,200,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","PhysicalLocation")=$G(ARRAY44(44,CLINIENS,10,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","PreCheckinAllowed")=$G(ARRAY44(44,CLINIENS,21,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","StopCodeAMIS")=$$GET1^DIQ(40.7,$G(ARRAY44(44,CLINIENS,8,"I")),1,"I")

 S APPTOBJ("Appointment",RECCNT,"Clinic","StopCodeName")=$G(ARRAY44(44,CLINIENS,8,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","Telephone")=$G(ARRAY44(44,CLINIENS,99,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","TelephoneExtension")=$G(ARRAY44(44,CLINIENS,99.1,"E"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","StationNumber")=$$STATIONNUMBER^SDESUTIL($G(CLINIEN))

 S APPTOBJ("Appointment",RECCNT,"Clinic","ProhibitedClinic")=$S($G(ARRAY44(44,CLINIENS,2500,"E"))="YES":1,1:0)

 D GETTIMEZONEINFO(.APPTOBJ,CLINIENS,RECCNT,.ARRAY44)

 Q

 ;

GETTIMEZONEINFO(APPTOBJ,CLINIENA,RECCNT,ARRAY44) ;

 N DIVISION,INSTITUTION,TIMEZONEIEN,TIMEZONELOOP,TIMEZONECOUNT,TIMEZONEIEN,TIMEZONEDATA,TZIENS

 S DIVISION=$G(ARRAY44(44,CLINIENS,3.5,"I"))

 S INSTITUTION=$$GET1^DIQ(40.8,DIVISION,.07,"I")

 S TIMEZONEIEN=$$GET1^DIQ(4,INSTITUTION,800,"I")

 I TIMEZONEIEN="" D BLANKTIMEZONE(.APPTOBJ,RECCNT) Q

 S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZone")=$$GET1^DIQ(4,INSTITUTION,800,"E")

 S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneException")=$$GET1^DIQ(4,INSTITUTION,802,"E")

 S (TIMEZONELOOP,TIMEZONECOUNT)=0 F  S TIMEZONELOOP=$O(^DIT(1.71,TIMEZONEIEN,1,TIMEZONELOOP)) Q:'TIMEZONELOOP  D

 .S TZIENS=TIMEZONELOOP_","_TIMEZONEIEN_","

 .D GETS^DIQ(1.711,TZIENS,"**","IE","TIMEZONEDATA")

 .S TIMEZONECOUNT=TIMEZONECOUNT+1

 .S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"TimeFrame")=$G(TIMEZONEDATA(1.711,TZIENS,.01,"E"))

 .S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"Offset")=$G(TIMEZONEDATA(1.711,TZIENS,.02,"E"))

 .S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"TimeZoneCode")=$G(TIMEZONEDATA(1.711,TZIENS,.03,"E"))

 Q

 ;

BLANKTIMEZONE(APPTOBJ,RECCNT) ;

 S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZone")=""

 S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneException")=""

 S APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",1)=""

 Q

 ;

GET44003INFO(APPTOBJ,CLINIEN,SDIEN,RECCNT) ; Build appointment object for HOSPITAL LOCATION appointemnt multiple.

 N ARRAY44003,SDMSG

 D GETS^DIQ(44.003,SDIEN,"**","IE","ARRAY44003","SDMSG")

 S APPTOBJ("Appointment",RECCNT,"AppointmentCancelled")=$G(ARRAY44003(44.003,SDIEN,310,"E"))

 S APPTOBJ("Appointment",RECCNT,"CheckInUser")=$G(ARRAY44003(44.003,SDIEN,302,"E"))

 S APPTOBJ("Appointment",RECCNT,"CheckOutEntered")=$$FMTISO^SDAMUTDT(ARRAY44003(44.003,SDIEN,306,"I"))

 S APPTOBJ("Appointment",RECCNT,"CheckOutUser")=$G(ARRAY44003(44.003,SDIEN,304,"E"))

 S APPTOBJ("Appointment",RECCNT,"ConsultLink")=$G(ARRAY44003(44.003,SDIEN,688,"I"))

 S APPTOBJ("Appointment",RECCNT,"DuplicateApptSameDay")=$G(ARRAY44003(44.003,SDIEN,999,"I"))

 S APPTOBJ("Appointment",RECCNT,"OtherTests")=$G(ARRAY44003(44.003,SDIEN,3,"I"))

 S APPTOBJ("Appointment",RECCNT,"OtherTravel")=$G(ARRAY44003(44.003,SDIEN,6,"I"))

 S APPTOBJ("Appointment",RECCNT,"OverbookFlag")=$G(ARRAY44003(44.003,SDIEN,9,"I"))

 S APPTOBJ("Appointment",RECCNT,"ParentRecordRequest")=$G(ARRAY44003(44.003,SDIEN,200,"E"))

 S APPTOBJ("Appointment",RECCNT,"Patient","CurrentEligibilityCode")=$G(ARRAY44003(44.003,SDIEN,10.5,"E"))

 S APPTOBJ("Appointment",RECCNT,"Patient","EligibilityOfVisit")=$G(ARRAY44003(44.003,SDIEN,30,"E"))

 S APPTOBJ("Appointment",RECCNT,"Patient","EnrollmentCode")=$G(ARRAY44003(44.003,SDIEN,1.6,"I"))

 S APPTOBJ("Appointment",RECCNT,"Patient","EnrollmentDate")=$G(ARRAY44003(44.003,SDIEN,1.6,"I"))

 S APPTOBJ("Appointment",RECCNT,"PriorXRayResults")=$G(ARRAY44003(44.003,SDIEN,10,"I"))

 S APPTOBJ("Appointment",RECCNT,"VeteranVideoCallURL")=$G(ARRAY44003(44.003,SDIEN,400,"I"))

 S APPTOBJ("Appointment",RECCNT,"WardLocation")=$G(ARRAY44003(44.003,SDIEN,4,"I"))

 S APPTOBJ("Appointment",RECCNT,"XRAY")=$G(ARRAY44003(44.003,SDIEN,2,"I"))

 S APPTOBJ("Appointment",RECCNT,"Clinic","IsOverbook")=$S($G(ARRAY44003(44.003,SDIEN,9,"I"))="O":1,1:0)

 S APPTOBJ("Appointment",RECCNT,"DateAppointmentMade")=$$FMTISO^SDAMUTDT($G(ARRAY44003(44.003,SDIEN,8,"I"))) ;this field is defined twice on purpose, this will overlay if 44 record

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDES2BLDAPPT44   5526     printed  Apr 09, 2024@21:40:32                                                                                                                                                                                              Page 2

SDES2BLDAPPT44 ;ALB/LAB - VISTA SCHEDULING BUILDING APPT OBJECT FOR CLINIC ;JAN 15, 2024

 +1       ;;5.3;Scheduling;**871**;Aug 13, 1993;Build 13

 +2       ;;Per VHA Directive 6402, this routine should not be modified

 +3       ;

 +4        QUIT 

 +5       ;

GET44INFO(APPTOBJ,CLINIEN,RECCNT) ;

 +1        NEW CLINIENS,ARRAY44

 +2        SET CLINIENS=CLINIEN_","

 +3        DO GETS^DIQ(44,CLINIENS,".01;3.5;8;10;20;21;60;62;99;99.1;200;2500;2503","IE","ARRAY44","SDMSG")

 +4        SET APPTOBJ("Appointment",RECCNT,"Clinic","CreditStopCodeAMIS")=$$GET1^DIQ(40.7,$GET(ARRAY44(44,CLINIENS,2503,"I")),1,"I")

 +5        SET APPTOBJ("Appointment",RECCNT,"Clinic","CreditStopCodeName")=$GET(ARRAY44(44,CLINIENS,2503,"E"))

 +6        SET APPTOBJ("Appointment",RECCNT,"Clinic","DisplayClinicAppt")=$GET(ARRAY44(44,CLINIENS,62,"E"))

 +7        SET APPTOBJ("Appointment",RECCNT,"Clinic","Division")=$GET(ARRAY44(44,CLINIENS,3.5,"E"))

 +8        SET APPTOBJ("Appointment",RECCNT,"Clinic","ECheckinAllowed")=$GET(ARRAY44(44,CLINIENS,20,"E"))

 +9        SET APPTOBJ("Appointment",RECCNT,"Clinic","Name")=$GET(ARRAY44(44,CLINIENS,.01,"E"))

 +10       SET APPTOBJ("Appointment",RECCNT,"Clinic","PatientFriendlyName")=$GET(ARRAY44(44,CLINIENS,60,"E"))

 +11       SET APPTOBJ("Appointment",RECCNT,"Clinic","PbspID")=$GET(ARRAY44(44,CLINIENS,200,"E"))

 +12       SET APPTOBJ("Appointment",RECCNT,"Clinic","PhysicalLocation")=$GET(ARRAY44(44,CLINIENS,10,"E"))

 +13       SET APPTOBJ("Appointment",RECCNT,"Clinic","PreCheckinAllowed")=$GET(ARRAY44(44,CLINIENS,21,"E"))

 +14       SET APPTOBJ("Appointment",RECCNT,"Clinic","StopCodeAMIS")=$$GET1^DIQ(40.7,$GET(ARRAY44(44,CLINIENS,8,"I")),1,"I")

 +15       SET APPTOBJ("Appointment",RECCNT,"Clinic","StopCodeName")=$GET(ARRAY44(44,CLINIENS,8,"E"))

 +16       SET APPTOBJ("Appointment",RECCNT,"Clinic","Telephone")=$GET(ARRAY44(44,CLINIENS,99,"E"))

 +17       SET APPTOBJ("Appointment",RECCNT,"Clinic","TelephoneExtension")=$GET(ARRAY44(44,CLINIENS,99.1,"E"))

 +18       SET APPTOBJ("Appointment",RECCNT,"Clinic","StationNumber")=$$STATIONNUMBER^SDESUTIL($GET(CLINIEN))

 +19       SET APPTOBJ("Appointment",RECCNT,"Clinic","ProhibitedClinic")=$SELECT($GET(ARRAY44(44,CLINIENS,2500,"E"))="YES":1,1:0)

 +20       DO GETTIMEZONEINFO(.APPTOBJ,CLINIENS,RECCNT,.ARRAY44)

 +21       QUIT 

 +22      ;

GETTIMEZONEINFO(APPTOBJ,CLINIENA,RECCNT,ARRAY44) ;

 +1        NEW DIVISION,INSTITUTION,TIMEZONEIEN,TIMEZONELOOP,TIMEZONECOUNT,TIMEZONEIEN,TIMEZONEDATA,TZIENS

 +2        SET DIVISION=$GET(ARRAY44(44,CLINIENS,3.5,"I"))

 +3        SET INSTITUTION=$$GET1^DIQ(40.8,DIVISION,.07,"I")

 +4        SET TIMEZONEIEN=$$GET1^DIQ(4,INSTITUTION,800,"I")

 +5        IF TIMEZONEIEN=""

               DO BLANKTIMEZONE(.APPTOBJ,RECCNT)

               QUIT 

 +6        SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZone")=$$GET1^DIQ(4,INSTITUTION,800,"E")

 +7        SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneException")=$$GET1^DIQ(4,INSTITUTION,802,"E")

 +8        SET (TIMEZONELOOP,TIMEZONECOUNT)=0

           FOR 

               SET TIMEZONELOOP=$ORDER(^DIT(1.71,TIMEZONEIEN,1,TIMEZONELOOP))

               if 'TIMEZONELOOP

                   QUIT 

               Begin DoDot:1

 +9                SET TZIENS=TIMEZONELOOP_","_TIMEZONEIEN_","

 +10               DO GETS^DIQ(1.711,TZIENS,"**","IE","TIMEZONEDATA")

 +11               SET TIMEZONECOUNT=TIMEZONECOUNT+1

 +12               SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"TimeFrame")=$GET(TIMEZONEDATA(1.711,TZIENS,.01,"E"))

 +13               SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"Offset")=$GET(TIMEZONEDATA(1.711,TZIENS,.02,"E"))

 +14               SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",TIMEZONECOUNT,"TimeZoneCode")=$GET(TIMEZONEDATA(1.711,TZIENS,.03,"E"))

               End DoDot:1

 +15       QUIT 

 +16      ;

BLANKTIMEZONE(APPTOBJ,RECCNT) ;

 +1        SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZone")=""

 +2        SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneException")=""

 +3        SET APPTOBJ("Appointment",RECCNT,"Clinic","TimeZoneDetails",1)=""

 +4        QUIT 

 +5       ;

GET44003INFO(APPTOBJ,CLINIEN,SDIEN,RECCNT) ; Build appointment object for HOSPITAL LOCATION appointemnt multiple.

 +1        NEW ARRAY44003,SDMSG

 +2        DO GETS^DIQ(44.003,SDIEN,"**","IE","ARRAY44003","SDMSG")

 +3        SET APPTOBJ("Appointment",RECCNT,"AppointmentCancelled")=$GET(ARRAY44003(44.003,SDIEN,310,"E"))

 +4        SET APPTOBJ("Appointment",RECCNT,"CheckInUser")=$GET(ARRAY44003(44.003,SDIEN,302,"E"))

 +5        SET APPTOBJ("Appointment",RECCNT,"CheckOutEntered")=$$FMTISO^SDAMUTDT(ARRAY44003(44.003,SDIEN,306,"I"))

 +6        SET APPTOBJ("Appointment",RECCNT,"CheckOutUser")=$GET(ARRAY44003(44.003,SDIEN,304,"E"))

 +7        SET APPTOBJ("Appointment",RECCNT,"ConsultLink")=$GET(ARRAY44003(44.003,SDIEN,688,"I"))

 +8        SET APPTOBJ("Appointment",RECCNT,"DuplicateApptSameDay")=$GET(ARRAY44003(44.003,SDIEN,999,"I"))

 +9        SET APPTOBJ("Appointment",RECCNT,"OtherTests")=$GET(ARRAY44003(44.003,SDIEN,3,"I"))

 +10       SET APPTOBJ("Appointment",RECCNT,"OtherTravel")=$GET(ARRAY44003(44.003,SDIEN,6,"I"))

 +11       SET APPTOBJ("Appointment",RECCNT,"OverbookFlag")=$GET(ARRAY44003(44.003,SDIEN,9,"I"))

 +12       SET APPTOBJ("Appointment",RECCNT,"ParentRecordRequest")=$GET(ARRAY44003(44.003,SDIEN,200,"E"))

 +13       SET APPTOBJ("Appointment",RECCNT,"Patient","CurrentEligibilityCode")=$GET(ARRAY44003(44.003,SDIEN,10.5,"E"))

 +14       SET APPTOBJ("Appointment",RECCNT,"Patient","EligibilityOfVisit")=$GET(ARRAY44003(44.003,SDIEN,30,"E"))

 +15       SET APPTOBJ("Appointment",RECCNT,"Patient","EnrollmentCode")=$GET(ARRAY44003(44.003,SDIEN,1.6,"I"))

 +16       SET APPTOBJ("Appointment",RECCNT,"Patient","EnrollmentDate")=$GET(ARRAY44003(44.003,SDIEN,1.6,"I"))

 +17       SET APPTOBJ("Appointment",RECCNT,"PriorXRayResults")=$GET(ARRAY44003(44.003,SDIEN,10,"I"))

 +18       SET APPTOBJ("Appointment",RECCNT,"VeteranVideoCallURL")=$GET(ARRAY44003(44.003,SDIEN,400,"I"))

 +19       SET APPTOBJ("Appointment",RECCNT,"WardLocation")=$GET(ARRAY44003(44.003,SDIEN,4,"I"))

 +20       SET APPTOBJ("Appointment",RECCNT,"XRAY")=$GET(ARRAY44003(44.003,SDIEN,2,"I"))

 +21       SET APPTOBJ("Appointment",RECCNT,"Clinic","IsOverbook")=$SELECT($GET(ARRAY44003(44.003,SDIEN,9,"I"))="O":1,1:0)

 +22      ;this field is defined twice on purpose, this will overlay if 44 record

           SET APPTOBJ("Appointment",RECCNT,"DateAppointmentMade")=$$FMTISO^SDAMUTDT($GET(ARRAY44003(44.003,SDIEN,8,"I")))

 +23       QUIT 

 +24      ;