SDESAPPTUTIL.m

SDESAPPTUTIL ;ALB/TAW - SDED APPOINTMENT UTILITIES ;JULY 18, 2021@15:22

 ;;5.3;Scheduling;**790**;Aug 13, 1993;Build 11

 ; This rtn will hold various utilities for dealing with SDEC APPOINTMENTS File (409.84)

 Q

MISSINGRES(APPTIEN) ;Try to get a resource from Patient / Clinic file

 ; This function will get the DFN and Start Time from the appointment file and look at the Appointment sub-file

 ; under the Patient file to try and find the 

 ; Input:

 ;   APTIEN - (Required) IEN from SDEC Appointment

 ; Return:

 ;   The resource that shold be associated with the appointment

 ;

 N DFN,CLINICIEN,RESIEN,APPT0,APPTSTART,RESTYPE,RESLIST,RESCNT,X,REC,APPTFOUND

 S (APPTFOUND,X,RESIEN,RESCNT)=""

 I APPTIEN="" Q "0^APPOINTMENT IEN IS REQUIRED"

 S APPT0=$G(^SDEC(409.84,APPTIEN,0))

 S DFN=$P(APPT0,U,5)

 S APPTSTART=$P(APPT0,U,1)

 I DFN="" Q "0^NO DFN FOR THIS APPOINTMENT"

 S CLINICIEN=$$GET1^DIQ(2.98,APPTSTART_","_DFN_",",.01,"I")

 I CLINICIEN="" Q "0^HOSPITAL LOCATION NOT FOUND IN APPOINTMENT SUB FILE FOR PATIENT"

 ;

 ;Confirm the patient does have an active appointment at the Hosp Loc for the Appt Start Date/Time

 F  S X=$O(^SC(CLINICIEN,"S",APPTSTART,1,X)) Q:X=""!(APPTFOUND)  D

 .S REC=$G(^SC(CLINICIEN,"S",APPTSTART,1,X,0))

 .I $P(REC,"^",1)'=DFN Q

 .I $P(REC,"^",9)="C" Q

 .S APPTFOUND=1

 I 'APPTFOUND Q "0^PATIENT DOES NOT HAVE AN ACTIVE APPT IN THE CLINIC"

 ;

 ;Since there can be multiple resources linked to a hospital location, fine the one that is a clinic

 F  S RESIEN=$O(^SDEC(409.831,"ALOC",CLINICIEN,RESIEN)) Q:RESIEN=""  D

 .S RESTYPE=$P($G(^SDEC(409.831,RESIEN,0)),"^",11)

 .I $P(RESTYPE,";",2)'="SC(" Q    ;Must be a Hospital Loc

 .S RESLIST($I(RESCNT))=RESIEN

 I 'RESCNT Q "0^NO CLINIC RESOURCES FOR THIS HOSPITAL LOCATION"

 ;I RESCNT>1 Q "0^MULTIPLE CLINIC RESROUCES FOR THIS HOSPITAL LOCATION"

 Q RESLIST(1)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SDESAPPTUTIL   1871     printed  Apr 09, 2024@21:41:52                                                                                                                                                                                                Page 2

SDESAPPTUTIL ;ALB/TAW - SDED APPOINTMENT UTILITIES ;JULY 18, 2021@15:22

 +1       ;;5.3;Scheduling;**790**;Aug 13, 1993;Build 11

 +2       ; This rtn will hold various utilities for dealing with SDEC APPOINTMENTS File (409.84)

 +3        QUIT 

MISSINGRES(APPTIEN) ;Try to get a resource from Patient / Clinic file

 +1       ; This function will get the DFN and Start Time from the appointment file and look at the Appointment sub-file

 +2       ; under the Patient file to try and find the 

 +3       ; Input:

 +4       ;   APTIEN - (Required) IEN from SDEC Appointment

 +5       ; Return:

 +6       ;   The resource that shold be associated with the appointment

 +7       ;

 +8        NEW DFN,CLINICIEN,RESIEN,APPT0,APPTSTART,RESTYPE,RESLIST,RESCNT,X,REC,APPTFOUND

 +9        SET (APPTFOUND,X,RESIEN,RESCNT)=""

 +10       IF APPTIEN=""

               QUIT "0^APPOINTMENT IEN IS REQUIRED"

 +11       SET APPT0=$GET(^SDEC(409.84,APPTIEN,0))

 +12       SET DFN=$PIECE(APPT0,U,5)

 +13       SET APPTSTART=$PIECE(APPT0,U,1)

 +14       IF DFN=""

               QUIT "0^NO DFN FOR THIS APPOINTMENT"

 +15       SET CLINICIEN=$$GET1^DIQ(2.98,APPTSTART_","_DFN_",",.01,"I")

 +16       IF CLINICIEN=""

               QUIT "0^HOSPITAL LOCATION NOT FOUND IN APPOINTMENT SUB FILE FOR PATIENT"

 +17      ;

 +18      ;Confirm the patient does have an active appointment at the Hosp Loc for the Appt Start Date/Time

 +19       FOR 

               SET X=$ORDER(^SC(CLINICIEN,"S",APPTSTART,1,X))

               if X=""!(APPTFOUND)

                   QUIT 

               Begin DoDot:1

 +20               SET REC=$GET(^SC(CLINICIEN,"S",APPTSTART,1,X,0))

 +21               IF $PIECE(REC,"^",1)'=DFN

                       QUIT 

 +22               IF $PIECE(REC,"^",9)="C"

                       QUIT 

 +23               SET APPTFOUND=1

               End DoDot:1

 +24       IF 'APPTFOUND

               QUIT "0^PATIENT DOES NOT HAVE AN ACTIVE APPT IN THE CLINIC"

 +25      ;

 +26      ;Since there can be multiple resources linked to a hospital location, fine the one that is a clinic

 +27       FOR 

               SET RESIEN=$ORDER(^SDEC(409.831,"ALOC",CLINICIEN,RESIEN))

               if RESIEN=""

                   QUIT 

               Begin DoDot:1

 +28               SET RESTYPE=$PIECE($GET(^SDEC(409.831,RESIEN,0)),"^",11)

 +29      ;Must be a Hospital Loc

                   IF $PIECE(RESTYPE,";",2)'="SC("

                       QUIT 

 +30 

*** ERROR ***

                   SET RESLIST($I(RESCNT))=RESIEN

               End DoDot:1

 +31       IF 'RESCNT

               QUIT "0^NO CLINIC RESOURCES FOR THIS HOSPITAL LOCATION"

 +32      ;I RESCNT>1 Q "0^MULTIPLE CLINIC RESROUCES FOR THIS HOSPITAL LOCATION"

 +33       QUIT RESLIST(1)