Routine: SDES2GETCANSLOTS

SDES2GETCANSLOTS ;ALB/MGD,JAS,BLB - VISTA SCHEDULING RPCS GET CLINIC CANCELLED SLOTS ; May 21, 2024@16:10

 ;;5.3;Scheduling;**866,880,893**;Aug 13, 1993;Build 6

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

 ; External References

 ; -------------------

 ; Reference to $$FIND1^DIC in ICR #2051

 ; Reference to $$GET1^DIQ  in ICR #2056

 Q  ;No Direct Call

 ; RPC: SDES2 GET CANCELLED SLOTS

GETCANCSLOTS(JSONRETURN,SDCONTEXT,SDCANCDATA) ;

 ; This RPC returns cancelled slots within a given timeframe for a given clinic in JSON format.

 ; Input:

 ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 ; SDCONTEXT("USER DUZ")    = [required] - The DUZ of the user taking action in the calling application.

 ; SDCONTEXT("USER SECID")  = [optional] - The SECID of the user taking action in the calling application.

 ; SDCONTEXT("PATIENT DFN") = [optional] - The DFN/IEN of the target patient from the calling application.

 ; SDCONTEXT("PATIENT ICN") = [optional] - The ICN of the target patient from the calling application.

 ; SDCANCDATA("CLINICIEN")   = [required] - The Internal Entry Number (IEN) from the HOSPITAL LOCATION File #44

 ; SDCANCDATA("SDESSTART")   = [required] - The Start Date of search in ISO8601 format CCYY-MM-DDTHH:MM-OFFSET

 ; SDCANCDATA("SDESENDDATE") = [required] - The End Date of search in ISO8601 format CCYY-MM-DDTHH:MM-OFFSET

 ; JSONRETURN = [required] - This is where the retrieved data is stored in JSON format.

 N SDGETCANCSLOTS,SDCLNAME,ERROR,SDCLRESIEN,SDTMPARY

 S ERROR=0

 ; validate context

 D VALCONTEXT^SDES2VALCONTEXT(.SDGETCANCSLOTS,.SDCONTEXT)

 I $D(SDGETCANCSLOTS) S SDGETCANCSLOTS("CancelledSlots",1)="" D BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS) Q

 ; validate cancdata input parameters

 D VALIDATEINPUT(.SDGETCANCSLOTS,.SDCANCDATA,.ERROR)

 I ERROR S SDGETCANCSLOTS("CancelledSlots",1)="" D BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS) Q

 K SDTMPARY

 S SDTMPARY=$NA(^TMP($J,"CLNCANCSLOTS"))

 K @SDTMPARY

 D GETSLOTS^SDEC57(SDTMPARY,$G(SDCANCDATA("SDCLRESIEN")),$G(SDCANCDATA("SDESSTART")),$G(SDCANCDATA("SDESENDDATE")))

 D BUILDDATA(.SDGETCANCSLOTS,.SDCANCDATA,SDTMPARY)

 K @SDTMPARY

 I ERROR!('$D(SDGETCANCSLOTS("CancelledSlots"))) S SDGETCANCSLOTS("CancelledSlots",1)=""

 D BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS)

 K SDGETCANCSLOTS

VALIDATEINPUT(SDGETCANCSLOTS,SDCANCDATA,ERROR) ;validate input parameters

 N CLINICIEN,SDERR,EFLAG,SFLAG,SDESSTART,SDESENDDATE,SDVALERROR

 S (SFLAG,EFLAG)=0

 ;validate CLINIC IEN

 S CLINICIEN=$G(SDCANCDATA("CLINICIEN"))

 D VALFILEIEN^SDES2VALUTIL(.SDVALERROR,.SDGETCANCSLOTS,44,CLINICIEN,1,,67,19)

 I SDVALERROR=0 S ERROR=1 Q

 I +CLINICIEN>0 D  Q:ERROR

 . S SDCLNAME=$$GET1^DIQ(44,CLINICIEN_",",.01,"I")  ;retrieve the clinic name

 . I SDCLNAME="" D ERRLOG^SDESJSON(.SDGETCANCSLOTS,80) S ERROR=1 Q  ;clinic IEN not found

 . S SDCLRESIEN=$$FIND1^DIC(409.831,"","MX",SDCLNAME,"","","SDERR") ;retrieve the resource IEN for the clinic

 . I $D(SDERR) D ERRLOG^SDESJSON(.SDGETCANCSLOTS,70) S ERROR=1 Q  ;invalid clinic resource id

 . S SDCANCDATA("SDCLRESIEN")=SDCLRESIEN

 ;validate start date

 S SDESSTART=$G(SDCANCDATA("SDESSTART"))

 S SDESSTART=$$VALISODTTM^SDES2VALISODTTM(.SDGETCANCSLOTS,SDESSTART,CLINICIEN,1,25,27)

 I SDESSTART="" S ERROR=1 Q

 I $P(SDESSTART,".",2)="" S ERROR=1 D ERRLOG^SDES2JSON(.SDGETCANCSLOTS,27) Q

 S SDCANCDATA("SDESSTARTDTTM")=SDESSTART

 S SDCANCDATA("SDESSTART")=$P(SDESSTART,".",1)

 ;validate end date

 S SDESENDDATE=$G(SDCANCDATA("SDESENDDATE"))

 S SDESENDDATE=$$VALISODTTM^SDES2VALISODTTM(.SDGETCANCSLOTS,SDESENDDATE,CLINICIEN,1,26,28)

 I SDESENDDATE="" S ERROR=1 Q

 I $P(SDESENDDATE,".",2)="" S ERROR=1 D ERRLOG^SDES2JSON(.SDGETCANCSLOTS,28) Q

 S SDCANCDATA("SDESENDDTTM")=SDESENDDATE

 S SDCANCDATA("SDESENDDATE")=$P(SDESENDDATE,".",1)

 ;validate end date after start date

 I SDESSTART>SDESENDDATE S ERROR=1 D ERRLOG^SDESJSON(.SDGETCANCSLOTS,242)

BUILDDATA(SDGETCANCSLOTS,SDCANCDATA,SDTMPARY) ; retrieve clinic availability data

 N CLINICIEN,SDP1,SDP2,SDP3,SDP4,SDSLOTS,SDSTOPTM,SDSTRTTM,SDTOTAL,II,SDDIV,SDINST,SDAPDTTM,SDCANMSG,SDFIRST,CANCELDATE

 I $O(@SDTMPARY@(""))="" Q

 S CLINICIEN=$G(SDCANCDATA("CLINICIEN"))

 S SDTOTAL=@SDTMPARY@("CNT"),SDFIRST=1

 F II=1:1:SDTOTAL D

 . S SDP1=$P(@SDTMPARY@(II),U,2) ;start date

 . S SDP2=$P(@SDTMPARY@(II),U,3) ;end date

 . I (SDP1<SDCANCDATA("SDESSTARTDTTM"))!(('SDFIRST)&(SDP1>SDCANCDATA("SDESENDDTTM"))) Q

 . I SDFIRST,$D(^SC(CLINICIEN,"S",+SDP1))<1 D  ; Use first populated slot

 . . I II=1 S SDFIRST=0 Q

 . . S II=II-1,SDFIRST=0

 . . S SDP1=$P(@SDTMPARY@(II),U,2)  ; Use first populated slot

 . . S SDP2=$P(@SDTMPARY@(II),U,3)

 . S SDP3=+$P(@SDTMPARY@(II),U,4) ;open slots available

 . S SDP4=$P(@SDTMPARY@(II),U,5) ;access type  (1=available, 2=not available, 3=cancelled)

 . Q:SDP4'=3  ; Only return cancelled slots

 . I $P(SDP1,".",2)=""!($P(SDP1,".",2)="00") S $P(SDP1,".",2)="0001"

 . S SDSTRTTM=$$FMTISO^SDAMUTDT(SDP1,CLINICIEN)

 . S SDSTOPTM=$$FMTISO^SDAMUTDT(SDP2,CLINICIEN)

  .S CANCELDATE=$P($$ISOTFM^SDAMUTDT(SDSTRTTM),".")

 . S SDSLOTS=$P(@SDTMPARY@(II),U,4)

 . S SDSLOTS=$S(SDSLOTS=" ":"",1:SDSLOTS)

 . S SDSLOTS=$S(SDP4=3:"X",1:SDSLOTS)

 . S SDGETCANCSLOTS("CancelledSlots",II,"BeginTime")=SDSTRTTM

 . S SDGETCANCSLOTS("CancelledSlots",II,"EndTime")=SDSTOPTM

 . S SDGETCANCSLOTS("CancelledSlots",II,"SlotsAvail")=SDSLOTS

 . S SDAPDTTM=+SDP1

 . S SDCANMSG=$S($D(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE)):$$GET1^DIQ(44.1902,CANCELDATE_","_CLINICIEN_",",.02),1:$$GET1^DIQ(44.001,SDAPDTTM_","_CLINICIEN_",",1400))

 . S SDGETCANCSLOTS("CancelledSlots",II,"CancelMessage")=SDCANMSG

 ; Changes for 831 start

 I $G(CLINICIEN) D

 .S SDDIV=$$GET1^DIQ(44,CLINICIEN_",",3.5,"I")

 .S:SDDIV SDINST=$$GET1^DIQ(40.8,SDDIV_",",.07,"I")

 .I $$GET1^DIQ(4,SDINST,800,"I")="" D

 ..S SDGETCANCSLOTS("CancelledSlots",0.1,"Error")="No Timezone set for Clinic."

 ..I $$GET1^DIQ(8989.3,1,217,"I")="" S SDGETCANCSLOTS("CancelledSlots",0.2,"Error")="No Timezone set for Institution in Kernel Parameters (#8989.3) file."

 ; Changes for 831 end

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDES2GETCANSLOTS   6253     printed  Feb 19, 2025@00:20:21                                                                                                                                                                                            Page 2

SDES2GETCANSLOTS ;ALB/MGD,JAS,BLB - VISTA SCHEDULING RPCS GET CLINIC CANCELLED SLOTS ; May 21, 2024@16:10

 +1       ;;5.3;Scheduling;**866,880,893**;Aug 13, 1993;Build 6

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

 +3       ;

 +4       ; External References

 +5       ; -------------------

 +6       ; Reference to $$FIND1^DIC in ICR #2051

 +7       ; Reference to $$GET1^DIQ  in ICR #2056

 +8       ;

 +9       ;No Direct Call

           QUIT

 +10      ;

 +11      ; RPC: SDES2 GET CANCELLED SLOTS

 +12      ;

GETCANCSLOTS(JSONRETURN,SDCONTEXT,SDCANCDATA) ;

 +1       ; This RPC returns cancelled slots within a given timeframe for a given clinic in JSON format.

 +2       ; Input:

 +3       ; SDCONTEXT("ACHERON AUDIT ID") = Up to 40 Character unique ID number. Ex: 11d9dcc6-c6a2-4785-8031-8261576fca37

 +4       ; SDCONTEXT("USER DUZ")    = [required] - The DUZ of the user taking action in the calling application.

 +5       ; SDCONTEXT("USER SECID")  = [optional] - The SECID of the user taking action in the calling application.

 +6       ; SDCONTEXT("PATIENT DFN") = [optional] - The DFN/IEN of the target patient from the calling application.

 +7       ; SDCONTEXT("PATIENT ICN") = [optional] - The ICN of the target patient from the calling application.

 +8       ;

 +9       ; SDCANCDATA("CLINICIEN")   = [required] - The Internal Entry Number (IEN) from the HOSPITAL LOCATION File #44

 +10      ; SDCANCDATA("SDESSTART")   = [required] - The Start Date of search in ISO8601 format CCYY-MM-DDTHH:MM-OFFSET

 +11      ; SDCANCDATA("SDESENDDATE") = [required] - The End Date of search in ISO8601 format CCYY-MM-DDTHH:MM-OFFSET

 +12      ;

 +13      ; JSONRETURN = [required] - This is where the retrieved data is stored in JSON format.

 +14      ;

 +15       NEW SDGETCANCSLOTS,SDCLNAME,ERROR,SDCLRESIEN,SDTMPARY

 +16       SET ERROR=0

 +17      ; validate context

 +18       DO VALCONTEXT^SDES2VALCONTEXT(.SDGETCANCSLOTS,.SDCONTEXT)

 +19       IF $DATA(SDGETCANCSLOTS)

               SET SDGETCANCSLOTS("CancelledSlots",1)=""

               DO BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS)

               QUIT

 +20      ;

 +21      ; validate cancdata input parameters

 +22       DO VALIDATEINPUT(.SDGETCANCSLOTS,.SDCANCDATA,.ERROR)

 +23       IF ERROR

               SET SDGETCANCSLOTS("CancelledSlots",1)=""

               DO BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS)

               QUIT

 +24      ;

 +25       KILL SDTMPARY

 +26       SET SDTMPARY=$NAME(^TMP($JOB,"CLNCANCSLOTS"))

 +27       KILL @SDTMPARY

 +28       DO GETSLOTS^SDEC57(SDTMPARY,$GET(SDCANCDATA("SDCLRESIEN")),$GET(SDCANCDATA("SDESSTART")),$GET(SDCANCDATA("SDESENDDATE")))

 +29       DO BUILDDATA(.SDGETCANCSLOTS,.SDCANCDATA,SDTMPARY)

 +30       KILL @SDTMPARY

 +31       IF ERROR!('$DATA(SDGETCANCSLOTS("CancelledSlots")))

               SET SDGETCANCSLOTS("CancelledSlots",1)=""

 +32       DO BUILDJSON^SDES2JSON(.JSONRETURN,.SDGETCANCSLOTS)

 +33       KILL SDGETCANCSLOTS

 +34       QUIT

 +35      ;

VALIDATEINPUT(SDGETCANCSLOTS,SDCANCDATA,ERROR) ;validate input parameters

 +1        NEW CLINICIEN,SDERR,EFLAG,SFLAG,SDESSTART,SDESENDDATE,SDVALERROR

 +2        SET (SFLAG,EFLAG)=0

 +3       ;validate CLINIC IEN

 +4        SET CLINICIEN=$GET(SDCANCDATA("CLINICIEN"))

 +5        DO VALFILEIEN^SDES2VALUTIL(.SDVALERROR,.SDGETCANCSLOTS,44,CLINICIEN,1,,67,19)

 +6        IF SDVALERROR=0

               SET ERROR=1

               QUIT

 +7        IF +CLINICIEN>0

               Begin DoDot:1

 +8       ;retrieve the clinic name

                   SET SDCLNAME=$$GET1^DIQ(44,CLINICIEN_",",.01,"I")

 +9       ;clinic IEN not found

                   IF SDCLNAME=""

                       DO ERRLOG^SDESJSON(.SDGETCANCSLOTS,80)

                       SET ERROR=1

                       QUIT

 +10      ;retrieve the resource IEN for the clinic

                   SET SDCLRESIEN=$$FIND1^DIC(409.831,"","MX",SDCLNAME,"","","SDERR")

 +11      ;invalid clinic resource id

                   IF $DATA(SDERR)

                       DO ERRLOG^SDESJSON(.SDGETCANCSLOTS,70)

                       SET ERROR=1

                       QUIT

 +12               SET SDCANCDATA("SDCLRESIEN")=SDCLRESIEN

               End DoDot:1

               if ERROR

                   QUIT

 +13      ;

 +14      ;validate start date

 +15       SET SDESSTART=$GET(SDCANCDATA("SDESSTART"))

 +16       SET SDESSTART=$$VALISODTTM^SDES2VALISODTTM(.SDGETCANCSLOTS,SDESSTART,CLINICIEN,1,25,27)

 +17       IF SDESSTART=""

               SET ERROR=1

               QUIT

 +18       IF $PIECE(SDESSTART,".",2)=""

               SET ERROR=1

               DO ERRLOG^SDES2JSON(.SDGETCANCSLOTS,27)

               QUIT

 +19       SET SDCANCDATA("SDESSTARTDTTM")=SDESSTART

 +20       SET SDCANCDATA("SDESSTART")=$PIECE(SDESSTART,".",1)

 +21      ;

 +22      ;validate end date

 +23       SET SDESENDDATE=$GET(SDCANCDATA("SDESENDDATE"))

 +24       SET SDESENDDATE=$$VALISODTTM^SDES2VALISODTTM(.SDGETCANCSLOTS,SDESENDDATE,CLINICIEN,1,26,28)

 +25       IF SDESENDDATE=""

               SET ERROR=1

               QUIT

 +26       IF $PIECE(SDESENDDATE,".",2)=""

               SET ERROR=1

               DO ERRLOG^SDES2JSON(.SDGETCANCSLOTS,28)

               QUIT

 +27       SET SDCANCDATA("SDESENDDTTM")=SDESENDDATE

 +28       SET SDCANCDATA("SDESENDDATE")=$PIECE(SDESENDDATE,".",1)

 +29      ;

 +30      ;validate end date after start date

 +31       IF SDESSTART>SDESENDDATE

               SET ERROR=1

               DO ERRLOG^SDESJSON(.SDGETCANCSLOTS,242)

 +32       QUIT

 +33      ;

BUILDDATA(SDGETCANCSLOTS,SDCANCDATA,SDTMPARY) ; retrieve clinic availability data

 +1        NEW CLINICIEN,SDP1,SDP2,SDP3,SDP4,SDSLOTS,SDSTOPTM,SDSTRTTM,SDTOTAL,II,SDDIV,SDINST,SDAPDTTM,SDCANMSG,SDFIRST,CANCELDATE

 +2        IF $ORDER(@SDTMPARY@(""))=""

               QUIT

 +3        SET CLINICIEN=$GET(SDCANCDATA("CLINICIEN"))

 +4        SET SDTOTAL=@SDTMPARY@("CNT")

           SET SDFIRST=1

 +5        FOR II=1:1:SDTOTAL

               Begin DoDot:1

 +6       ;start date

                   SET SDP1=$PIECE(@SDTMPARY@(II),U,2)

 +7       ;end date

                   SET SDP2=$PIECE(@SDTMPARY@(II),U,3)

 +8                IF (SDP1<SDCANCDATA("SDESSTARTDTTM"))!(('SDFIRST)&(SDP1>SDCANCDATA("SDESENDDTTM")))

                       QUIT

 +9       ; Use first populated slot

                   IF SDFIRST

                       IF $DATA(^SC(CLINICIEN,"S",+SDP1))<1

                           Begin DoDot:2

 +10                           IF II=1

                                   SET SDFIRST=0

                                   QUIT

 +11                           SET II=II-1

                               SET SDFIRST=0

 +12      ; Use first populated slot

                               SET SDP1=$PIECE(@SDTMPARY@(II),U,2)

 +13                           SET SDP2=$PIECE(@SDTMPARY@(II),U,3)

                           End DoDot:2

 +14      ;open slots available

                   SET SDP3=+$PIECE(@SDTMPARY@(II),U,4)

 +15      ;access type  (1=available, 2=not available, 3=cancelled)

                   SET SDP4=$PIECE(@SDTMPARY@(II),U,5)

 +16      ; Only return cancelled slots

                   if SDP4'=3

                       QUIT

 +17               IF $PIECE(SDP1,".",2)=""!($PIECE(SDP1,".",2)="00")

                       SET $PIECE(SDP1,".",2)="0001"

 +18               SET SDSTRTTM=$$FMTISO^SDAMUTDT(SDP1,CLINICIEN)

 +19               SET SDSTOPTM=$$FMTISO^SDAMUTDT(SDP2,CLINICIEN)

 +20               SET CANCELDATE=$PIECE($$ISOTFM^SDAMUTDT(SDSTRTTM),".")

 +21               SET SDSLOTS=$PIECE(@SDTMPARY@(II),U,4)

 +22               SET SDSLOTS=$SELECT(SDSLOTS=" ":"",1:SDSLOTS)

 +23               SET SDSLOTS=$SELECT(SDP4=3:"X",1:SDSLOTS)

 +24               SET SDGETCANCSLOTS("CancelledSlots",II,"BeginTime")=SDSTRTTM

 +25               SET SDGETCANCSLOTS("CancelledSlots",II,"EndTime")=SDSTOPTM

 +26               SET SDGETCANCSLOTS("CancelledSlots",II,"SlotsAvail")=SDSLOTS

 +27               SET SDAPDTTM=+SDP1

 +28               SET SDCANMSG=$SELECT($DATA(^SC(CLINICIEN,"FULL DAY CANCEL",CANCELDATE)):$$GET1^DIQ(44.1902,CANCELDATE_","_CLINICIEN_",",.02),1:$$GET1^DIQ(44.001,SDAPDTTM_","_CLINICIEN_",",1400))

 +29               SET SDGETCANCSLOTS("CancelledSlots",II,"CancelMessage")=SDCANMSG

               End DoDot:1

 +30      ; Changes for 831 start

 +31       IF $GET(CLINICIEN)

               Begin DoDot:1

 +32               SET SDDIV=$$GET1^DIQ(44,CLINICIEN_",",3.5,"I")

 +33               if SDDIV

                       SET SDINST=$$GET1^DIQ(40.8,SDDIV_",",.07,"I")

 +34               IF $$GET1^DIQ(4,SDINST,800,"I")=""

                       Begin DoDot:2

 +35                       SET SDGETCANCSLOTS("CancelledSlots",0.1,"Error")="No Timezone set for Clinic."

 +36                       IF $$GET1^DIQ(8989.3,1,217,"I")=""

                               SET SDGETCANCSLOTS("CancelledSlots",0.2,"Error")="No Timezone set for Institution in Kernel Parameters (#8989.3) file."

                       End DoDot:2

               End DoDot:1

 +37      ; Changes for 831 end

 +38       QUIT

SDES2GETCANSLOTS.m