GMTSPNJ.m

GMTSPNJ ;SLC/JER - Nightly Job to Queue HS Batch Print-by-Loc ; 08/27/2002

 ;;2.7;Health Summary;**5,56**;Oct 20, 1995

 ;

 ; External References

 ;   DBIA 10000  C^%DTC

 ;   DBIA 10000  NOW^%DTC

 ;   DBIA 10063  ^%ZTLOAD

 ;   DBIA 10006  ^DIC

 ;   DBIA  2051  FIND^DIC

 ;   DBIA 10103  $$DOW^XLFDT

 ;                   

 ; Sets GMTSSC=location pointer

 ; If clinic, sets GMTSCDT=desired appt day

 ;                   

 ; Summaries are considered ready Today if GMTSPNJ

 ; run time is today between 24:00 and 12:00, ready

 ; Tomorrow if run time is today between 12:00 and

 ; 24:00.

 ;                   

MAIN ; Controls branching

 N GMTSTYP,GMTSCL,GMW,X

 S GMTSTYP=0 F  S GMTSTYP=$O(^GMT(142,GMTSTYP)) Q:+GMTSTYP'>0  D

 . S GMTSCL=0 F  S GMTSCL=$O(^GMT(142,GMTSTYP,20,GMTSCL)) Q:+GMTSCL'>0  D QUEUE

 Q

QUEUE ; Queues HS batch print for HS Type and Location

 N DIC,GMPSAP,GMTSLOC,GMTSSC,GMTSIO,GMTSDYS,GMV,QUEQIT,X,Y,DAY,NEWDAY

 N GMTSQ,BEGDT,ENDDT,PDATE

 S QUEQIT=0

 S GMTSLOC=$G(^GMT(142,GMTSTYP,20,GMTSCL,0))

 S X=+GMTSLOC,DIC=44,DIC(0)="NXZ" D ^DIC

 I $S(+Y'>0:1,"WCOR"'[$P($G(Y(0)),U,3):1,1:0) Q

 S GMTSSC=Y_U_$P(Y(0),U,3)

 I "COR"[$P(GMTSSC,U,3) D  Q

 . S DAY=+$P(GMTSLOC,U,4)

 . ;   Don't print in advance

 . I DAY'>0 S $P(GMTSSC,U,4)=$$GETDATE(DAY) D QCONT Q

 . S BEGDT=$$GETDATE(0),ENDDT=$$GETDATE(DAY)

 . Q:$$NONWDAY(BEGDT)

 . S NEWDAY=$$WKEND(DAY,BEGDT,ENDDT)

 . ;   Get last date to be printed

 . S PDATE=$$GETDATE(+NEWDAY)

 . F  D  Q:+$G(GMTSQ)

 . . ;     Set variable before doing QCONT

 . . S $P(GMTSSC,U,4)=PDATE

 . . D QCONT

 . . ;     Decrement to get previous day

 . . S NEWDAY=NEWDAY-1

 . . ;     Quit For Loop when non-workdays data has been printed

 . . I DAY>NEWDAY S GMTSQ=1 Q

 . . ;     Get date

 . . S PDATE=$$GETDATE(+NEWDAY)

 . . ;     Quit For Loop if there's a work

 . . ;     day between Holiday and Weekend.

 . . ;     Don't print weekend data twice.

 . . I +$$NONWDAY(PDATE)'>0 S GMTSQ=1 Q

 ;                       

QCONT ; Used so following can be done for 

 ; multiple dates for Clinics and ORs.

 I $$CKPAT^GMTSPD(GMTSSC)'>0 Q

 S GMPSAP=$S($P(GMTSLOC,U,3)="Y":1,1:0)

 S ZTIO=$$GETIO($P(GMTSLOC,U,2)) Q:'$L(ZTIO)

 S ZTDTH=$H,ZTRTN="MAIN^GMTSPL",ZTDESC="Health Summary"

 F GMV="GMTSTYP","GMTSSC","GMPSAP" S ZTSAVE(GMV)=""

 D ^%ZTLOAD

 Q

 ;                       

GETDATE(DAYS) ; Gets desired Visit/Surgery date

 ;   Receives: DAYS=Print Days ahead

 ;   Returns:  FileMan Date/time

 N %,%H,%I,%T,GMTSDT,GMTSPM,X1,X2,X

 D NOW^%DTC S GMTSDT=$P(%,"."),GMTSPM=$S(+$E($P(%,".",2),1,2)>12:1,1:0)

 S X1=GMTSDT,X2=DAYS+GMTSPM D C^%DTC

 Q X

 ;                       

NONWDAY(GMTSDT) ; Determines if non work day (i.e. Sat., Sun., or Holiday) 

 ; Returns 1 if print day is weekend or holiday

 N DAYNAME

 S DAYNAME=$$DOW^XLFDT(GMTSDT)

 Q $S(DAYNAME="Saturday":1,DAYNAME="Sunday":1,$$HOLIDAY(GMTSDT):1,1:0)

 ;                       

WKEND(DAY,BEGDT,ENDDT) ; Updates days in advance for weekend and holiday dates

 N GMI,X1,X2,X,%H,DAYNAME

 F GMI=1:1 S X1=BEGDT,X2=GMI D C^%DTC Q:X>ENDDT  D

 . S DAYNAME=$$DOW^XLFDT(X)

 . I DAYNAME="Saturday"!(DAYNAME="Sunday")!($$HOLIDAY(X)) S DAY=DAY+1,ENDDT=$$GETDATE(DAY)

 . ;   If one of days is Saturday, Sunday, or holiday, 

 . ;   up days by one and recalculate ending date

 Q DAY

 ;                       

HOLIDAY(GMDT) ; Determines if a date is a Holiday.

 ;   Requires that the Holiday (#40.5) file is updated

 ;   to determine if a date is a holiday.

 N GMDATE

 D FIND^DIC(40.5,"",.01,"QX",GMDT,1,"","","","GMDATE")

 Q +$G(GMDATE("DILIST",0))

 ;                       

GETIO(X) ; Get device for queueing

 N %,%Y,C,DIC,Y

 S DIC=3.5,DIC(0)="NXZ" D ^DIC S Y=$S(+Y'>0:"",1:$P(Y(0),U))

 Q Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMTSPNJ   3749     printed  Mar 13, 2025@21:04:11                                                                                                                                                                                                     Page 2

GMTSPNJ   ;SLC/JER - Nightly Job to Queue HS Batch Print-by-Loc ; 08/27/2002

 +1       ;;2.7;Health Summary;**5,56**;Oct 20, 1995

 +2       ;

 +3       ; External References

 +4       ;   DBIA 10000  C^%DTC

 +5       ;   DBIA 10000  NOW^%DTC

 +6       ;   DBIA 10063  ^%ZTLOAD

 +7       ;   DBIA 10006  ^DIC

 +8       ;   DBIA  2051  FIND^DIC

 +9       ;   DBIA 10103  $$DOW^XLFDT

 +10      ;                   

 +11      ; Sets GMTSSC=location pointer

 +12      ; If clinic, sets GMTSCDT=desired appt day

 +13      ;                   

 +14      ; Summaries are considered ready Today if GMTSPNJ

 +15      ; run time is today between 24:00 and 12:00, ready

 +16      ; Tomorrow if run time is today between 12:00 and

 +17      ; 24:00.

 +18      ;                   

MAIN      ; Controls branching

 +1        NEW GMTSTYP,GMTSCL,GMW,X

 +2        SET GMTSTYP=0

           FOR 

               SET GMTSTYP=$ORDER(^GMT(142,GMTSTYP))

               if +GMTSTYP'>0

                   QUIT 

               Begin DoDot:1

 +3                SET GMTSCL=0

                   FOR 

                       SET GMTSCL=$ORDER(^GMT(142,GMTSTYP,20,GMTSCL))

                       if +GMTSCL'>0

                           QUIT 

                       DO QUEUE

               End DoDot:1

 +4        QUIT 

QUEUE     ; Queues HS batch print for HS Type and Location

 +1        NEW DIC,GMPSAP,GMTSLOC,GMTSSC,GMTSIO,GMTSDYS,GMV,QUEQIT,X,Y,DAY,NEWDAY

 +2        NEW GMTSQ,BEGDT,ENDDT,PDATE

 +3        SET QUEQIT=0

 +4        SET GMTSLOC=$GET(^GMT(142,GMTSTYP,20,GMTSCL,0))

 +5        SET X=+GMTSLOC

           SET DIC=44

           SET DIC(0)="NXZ"

           DO ^DIC

 +6        IF $SELECT(+Y'>0:1,"WCOR"'[$PIECE($GET(Y(0)),U,3):1,1:0)

               QUIT 

 +7        SET GMTSSC=Y_U_$PIECE(Y(0),U,3)

 +8        IF "COR"[$PIECE(GMTSSC,U,3)

               Begin DoDot:1

 +9                SET DAY=+$PIECE(GMTSLOC,U,4)

 +10      ;   Don't print in advance

 +11               IF DAY'>0

                       SET $PIECE(GMTSSC,U,4)=$$GETDATE(DAY)

                       DO QCONT

                       QUIT 

 +12               SET BEGDT=$$GETDATE(0)

                   SET ENDDT=$$GETDATE(DAY)

 +13               if $$NONWDAY(BEGDT)

                       QUIT 

 +14               SET NEWDAY=$$WKEND(DAY,BEGDT,ENDDT)

 +15      ;   Get last date to be printed

 +16               SET PDATE=$$GETDATE(+NEWDAY)

 +17               FOR 

                       Begin DoDot:2

 +18      ;     Set variable before doing QCONT

 +19                       SET $PIECE(GMTSSC,U,4)=PDATE

 +20                       DO QCONT

 +21      ;     Decrement to get previous day

 +22                       SET NEWDAY=NEWDAY-1

 +23      ;     Quit For Loop when non-workdays data has been printed

 +24                       IF DAY>NEWDAY

                               SET GMTSQ=1

                               QUIT 

 +25      ;     Get date

 +26                       SET PDATE=$$GETDATE(+NEWDAY)

 +27      ;     Quit For Loop if there's a work

 +28      ;     day between Holiday and Weekend.

 +29      ;     Don't print weekend data twice.

 +30                       IF +$$NONWDAY(PDATE)'>0

                               SET GMTSQ=1

                               QUIT 

                       End DoDot:2

                       if +$GET(GMTSQ)

                           QUIT 

               End DoDot:1

               QUIT 

 +31      ;                       

QCONT     ; Used so following can be done for 

 +1       ; multiple dates for Clinics and ORs.

 +2        IF $$CKPAT^GMTSPD(GMTSSC)'>0

               QUIT 

 +3        SET GMPSAP=$SELECT($PIECE(GMTSLOC,U,3)="Y":1,1:0)

 +4        SET ZTIO=$$GETIO($PIECE(GMTSLOC,U,2))

           if '$LENGTH(ZTIO)

               QUIT 

 +5        SET ZTDTH=$HOROLOG

           SET ZTRTN="MAIN^GMTSPL"

           SET ZTDESC="Health Summary"

 +6        FOR GMV="GMTSTYP","GMTSSC","GMPSAP"

               SET ZTSAVE(GMV)=""

 +7        DO ^%ZTLOAD

 +8        QUIT 

 +9       ;                       

GETDATE(DAYS) ; Gets desired Visit/Surgery date

 +1       ;   Receives: DAYS=Print Days ahead

 +2       ;   Returns:  FileMan Date/time

 +3        NEW %,%H,%I,%T,GMTSDT,GMTSPM,X1,X2,X

 +4        DO NOW^%DTC

           SET GMTSDT=$PIECE(%,".")

           SET GMTSPM=$SELECT(+$EXTRACT($PIECE(%,".",2),1,2)>12:1,1:0)

 +5        SET X1=GMTSDT

           SET X2=DAYS+GMTSPM

           DO C^%DTC

 +6        QUIT X

 +7       ;                       

NONWDAY(GMTSDT) ; Determines if non work day (i.e. Sat., Sun., or Holiday) 

 +1       ; Returns 1 if print day is weekend or holiday

 +2        NEW DAYNAME

 +3        SET DAYNAME=$$DOW^XLFDT(GMTSDT)

 +4        QUIT $SELECT(DAYNAME="Saturday":1,DAYNAME="Sunday":1,$$HOLIDAY(GMTSDT):1,1:0)

 +5       ;                       

WKEND(DAY,BEGDT,ENDDT) ; Updates days in advance for weekend and holiday dates

 +1        NEW GMI,X1,X2,X,%H,DAYNAME

 +2        FOR GMI=1:1

               SET X1=BEGDT

               SET X2=GMI

               DO C^%DTC

               if X>ENDDT

                   QUIT 

               Begin DoDot:1

 +3                SET DAYNAME=$$DOW^XLFDT(X)

 +4                IF DAYNAME="Saturday"!(DAYNAME="Sunday")!($$HOLIDAY(X))

                       SET DAY=DAY+1

                       SET ENDDT=$$GETDATE(DAY)

 +5       ;   If one of days is Saturday, Sunday, or holiday, 

 +6       ;   up days by one and recalculate ending date

               End DoDot:1

 +7        QUIT DAY

 +8       ;                       

HOLIDAY(GMDT) ; Determines if a date is a Holiday.

 +1       ;   Requires that the Holiday (#40.5) file is updated

 +2       ;   to determine if a date is a holiday.

 +3        NEW GMDATE

 +4        DO FIND^DIC(40.5,"",.01,"QX",GMDT,1,"","","","GMDATE")

 +5        QUIT +$GET(GMDATE("DILIST",0))

 +6       ;                       

GETIO(X)  ; Get device for queueing

 +1        NEW %,%Y,C,DIC,Y

 +2        SET DIC=3.5

           SET DIC(0)="NXZ"

           DO ^DIC

           SET Y=$SELECT(+Y'>0:"",1:$PIECE(Y(0),U))

 +3        QUIT Y