PRSATP2.m

PRSATP2 ; HISC/REL-Check For OT & LV on Posting Date ;11/29/94  15:35

 ;;4.0;PAID;;Sep 21, 1995

OT ; Check OT/CT Request

 I '$D(^PRST(458.2,"AD",DFN,DTI)) G LV

 I '$D(OTS) S OTS=";"_$P(^DD(458.2,10,0),"^",3)

 F DA=0:0 S DA=$O(^PRST(458.2,"AD",DFN,DTI,DA)) Q:DA<1  I "DX"'[$P($G(^PRST(458.2,DA,0)),"^",8) S CNT=0 D L1^PRSAOTL

LV ; Check Leave Request

 S DTIN=DTI I $P($G(^PRST(457.1,+TC,0)),"^",5)="Y" S X1=DTI,X2=1 D C^%DTC S DTIN=X

 S X2=9999999-DTI

 F KK=0:0 S KK=$O(^PRST(458.1,"AD",DFN,KK)) Q:KK=""!(KK>X2)  F DA=0:0 S DA=$O(^PRST(458.1,"AD",DFN,KK,DA)) Q:DA=""  I ^(DA)'>DTIN,"DX"'[$P($G(^PRST(458.1,DA,0)),"^",9) D L1

 Q

L1 I '$D(LVT) S LVT=";"_$P(^DD(458.1,6,0),"^",3),LVS=";"_$P(^DD(458.1,8,0),"^",3)

 S SRT="E" D L1^PRSALVL Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSATP2   748     printed  Apr 09, 2024@21:27:37                                                                                                                                                                                                      Page 2

PRSATP2   ; HISC/REL-Check For OT & LV on Posting Date ;11/29/94  15:35

 +1       ;;4.0;PAID;;Sep 21, 1995

OT        ; Check OT/CT Request

 +1        IF '$DATA(^PRST(458.2,"AD",DFN,DTI))

               GOTO LV

 +2        IF '$DATA(OTS)

               SET OTS=";"_$PIECE(^DD(458.2,10,0),"^",3)

 +3        FOR DA=0:0

               SET DA=$ORDER(^PRST(458.2,"AD",DFN,DTI,DA))

               if DA<1

                   QUIT 

               IF "DX"'[$PIECE($GET(^PRST(458.2,DA,0)),"^",8)

                   SET CNT=0

                   DO L1^PRSAOTL

LV        ; Check Leave Request

 +1        SET DTIN=DTI

           IF $PIECE($GET(^PRST(457.1,+TC,0)),"^",5)="Y"

               SET X1=DTI

               SET X2=1

               DO C^%DTC

               SET DTIN=X

 +2        SET X2=9999999-DTI

 +3        FOR KK=0:0

               SET KK=$ORDER(^PRST(458.1,"AD",DFN,KK))

               if KK=""!(KK>X2)

                   QUIT 

               FOR DA=0:0

                   SET DA=$ORDER(^PRST(458.1,"AD",DFN,KK,DA))

                   if DA=""

                       QUIT 

                   IF ^(DA)'>DTIN

                       IF "DX"'[$PIECE($GET(^PRST(458.1,DA,0)),"^",9)

                           DO L1

 +4        QUIT 

L1         IF '$DATA(LVT)

               SET LVT=";"_$PIECE(^DD(458.1,6,0),"^",3)

               SET LVS=";"_$PIECE(^DD(458.1,8,0),"^",3)

 +1        SET SRT="E"

           DO L1^PRSALVL

           QUIT