source: WorldVistAEHR/trunk/r/PAID-PRS/PRSATP2.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 735 bytes
Line 
1PRSATP2 ; HISC/REL-Check For OT & LV on Posting Date ;11/29/94 15:35
2 ;;4.0;PAID;;Sep 21, 1995
3OT ; Check OT/CT Request
4 I '$D(^PRST(458.2,"AD",DFN,DTI)) G LV
5 I '$D(OTS) S OTS=";"_$P(^DD(458.2,10,0),"^",3)
6 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
7LV ; Check Leave Request
8 S DTIN=DTI I $P($G(^PRST(457.1,+TC,0)),"^",5)="Y" S X1=DTI,X2=1 D C^%DTC S DTIN=X
9 S X2=9999999-DTI
10 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
11 Q
12L1 I '$D(LVT) S LVT=";"_$P(^DD(458.1,6,0),"^",3),LVS=";"_$P(^DD(458.1,8,0),"^",3)
13 S SRT="E" D L1^PRSALVL Q
Note: See TracBrowser for help on using the repository browser.