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 ---[H[J[2J[HPRSATP2 748 printed Oct 16, 2024@18:25:25 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
