Released PRS*4*154 SEQ #143 Extracted from mail message **KIDS**:PRS*4.0*154^ **INSTALL NAME** PRS*4.0*154 "BLD",10794,0) PRS*4.0*154^PAID^0^3180130^y "BLD",10794,1,0) ^^5^5^3180130^ "BLD",10794,1,1,0) This patch corrects one issue: "BLD",10794,1,2,0) "BLD",10794,1,3,0) 1. The PAID - Expenditure Report will not work after a "BLD",10794,1,4,0) site moves to the Veterans Affairs Time and Attendance "BLD",10794,1,5,0) System (VATAS). "BLD",10794,4,0) ^9.64PA^^ "BLD",10794,6.3) 2 "BLD",10794,"KRN",0) ^9.67PA^779.2^20 "BLD",10794,"KRN",.4,0) .4 "BLD",10794,"KRN",.401,0) .401 "BLD",10794,"KRN",.402,0) .402 "BLD",10794,"KRN",.403,0) .403 "BLD",10794,"KRN",.5,0) .5 "BLD",10794,"KRN",.84,0) .84 "BLD",10794,"KRN",3.6,0) 3.6 "BLD",10794,"KRN",3.8,0) 3.8 "BLD",10794,"KRN",9.2,0) 9.2 "BLD",10794,"KRN",9.8,0) 9.8 "BLD",10794,"KRN",9.8,"NM",0) ^9.68A^1^1 "BLD",10794,"KRN",9.8,"NM",1,0) PRSROSOR^^0^B7951045 "BLD",10794,"KRN",9.8,"NM","B","PRSROSOR",1) "BLD",10794,"KRN",19,0) 19 "BLD",10794,"KRN",19.1,0) 19.1 "BLD",10794,"KRN",101,0) 101 "BLD",10794,"KRN",409.61,0) 409.61 "BLD",10794,"KRN",771,0) 771 "BLD",10794,"KRN",779.2,0) 779.2 "BLD",10794,"KRN",870,0) 870 "BLD",10794,"KRN",8989.51,0) 8989.51 "BLD",10794,"KRN",8989.52,0) 8989.52 "BLD",10794,"KRN",8994,0) 8994 "BLD",10794,"KRN","B",.4,.4) "BLD",10794,"KRN","B",.401,.401) "BLD",10794,"KRN","B",.402,.402) "BLD",10794,"KRN","B",.403,.403) "BLD",10794,"KRN","B",.5,.5) "BLD",10794,"KRN","B",.84,.84) "BLD",10794,"KRN","B",3.6,3.6) "BLD",10794,"KRN","B",3.8,3.8) "BLD",10794,"KRN","B",9.2,9.2) "BLD",10794,"KRN","B",9.8,9.8) "BLD",10794,"KRN","B",19,19) "BLD",10794,"KRN","B",19.1,19.1) "BLD",10794,"KRN","B",101,101) "BLD",10794,"KRN","B",409.61,409.61) "BLD",10794,"KRN","B",771,771) "BLD",10794,"KRN","B",779.2,779.2) "BLD",10794,"KRN","B",870,870) "BLD",10794,"KRN","B",8989.51,8989.51) "BLD",10794,"KRN","B",8989.52,8989.52) "BLD",10794,"KRN","B",8994,8994) "BLD",10794,"QDEF") ^^^^^^^^^^YES "BLD",10794,"QUES",0) ^9.62^^ "BLD",10794,"REQB",0) ^9.611^1^1 "BLD",10794,"REQB",1,0) PRS*4.0*46^2 "BLD",10794,"REQB","B","PRS*4.0*46",1) "MBREQ") 0 "PKG",408,-1) 1^1 "PKG",408,0) PAID^PRS^PAID "PKG",408,20,0) ^9.402P^^ "PKG",408,22,0) ^9.49I^1^1 "PKG",408,22,1,0) 4.0^2950912^2960130 "PKG",408,22,1,"PAH",1,0) 154^3180130 "PKG",408,22,1,"PAH",1,1,0) ^^5^5^3180130 "PKG",408,22,1,"PAH",1,1,1,0) This patch corrects one issue: "PKG",408,22,1,"PAH",1,1,2,0) "PKG",408,22,1,"PAH",1,1,3,0) 1. The PAID - Expenditure Report will not work after a "PKG",408,22,1,"PAH",1,1,4,0) site moves to the Veterans Affairs Time and Attendance "PKG",408,22,1,"PAH",1,1,5,0) System (VATAS). "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 1 "RTN","PRSROSOR") 0^1^B7951045^B8218642 "RTN","PRSROSOR",1,0) PRSROSOR ;HISC/JH - SORT FOR OT/CT & EXPENDITURE REPORTS ;11/18/98 "RTN","PRSROSOR",2,0) ;;4.0;PAID;**2,26,46,154**;Sep 21, 1995;Build 2 "RTN","PRSROSOR",3,0) OTCT ;Over Time & Comp Time Sort "RTN","PRSROSOR",4,0) S X=$E($P($G(^PRST(458,DA(3),"E",D0,5)),"^"),22,24) D:$P(TLE(1),"^")=X "RTN","PRSROSOR",5,0) . S TLUNIT=$P($G(^PRSPC(D0,0)),U,7),SSN=$P($G(^(0)),U,9) I SSN'="" S SSN=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9) "RTN","PRSROSOR",6,0) . S COMP=$P($G(^PRST(459,DA(1),"P",D0,4)),"^",3),COMPU=$P($G(^PRST(459,DA(1),"P",D0,4)),"^",4),OTH=$P($G(^PRST(459,DA(1),"P",D0,5)),"^",15) "RTN","PRSROSOR",7,0) . S SAL=$P($G(^PRST(459,DA(1),"P",D0,5)),"^"),OTP=$P($G(^(5)),"^",14),DA(4)=$P(DA(2),"-",2) "RTN","PRSROSOR",8,0) . Q:'(COMP!(OTH)) S ^TMP($J,"OT/CP",DA(2),DATE,$P(TLE(1),"^"),NAM,D0)=SSN_"^"_SAL_"^"_COMP_"^"_COMPU_"^"_OTH_"^"_OTP,CNT=CNT+1 W:'$D(ZTSK)&($E(IOST)'="P")&($R(30)) "." "RTN","PRSROSOR",9,0) . Q "RTN","PRSROSOR",10,0) Q "RTN","PRSROSOR",11,0) EXP ;Expenditure Sort "RTN","PRSROSOR",12,0) S (TL,GOV,STOT,TOT)=0,U="^",TLE=$P(TLE(1),U) "RTN","PRSROSOR",13,0) ;S DA(3)=$O(^PRST(458,"B",DA(1),0)) Q:DA(3)'>0 D "RTN","PRSROSOR",14,0) ;. S D0=0 F S D0=$O(^PRST(458,DA(3),"E",D0)) Q:D0'>0 S X=$E($P($G(^PRST(458,DA(3),"E",D0,5)),U),22,24) D:TLE=X "RTN","PRSROSOR",15,0) ;*154 - removed checks on 458, no longer used after VATAS. Check t&l in file 459 instead. "RTN","PRSROSOR",16,0) S D0=0 F S D0=$O(^PRST(459,DA,"P",D0)) Q:D0'>0 S X=$P($G(^PRST(459,DA,"P",D0,0)),U,13) D:TLE=X "RTN","PRSROSOR",17,0) .; skip employee if there is no expenditure data for them "RTN","PRSROSOR",18,0) . Q:'($G(^PRST(459,DA,"P",D0,5))!$G(^(8))) "RTN","PRSROSOR",19,0) .; "RTN","PRSROSOR",20,0) . S NAM=$P($G(^PRSPC(D0,0)),U),TOT(1)=$P($G(^PRST(459,DA,"P",D0,5)),U,5),TOT(2)=$P($G(^(5)),U,10),TOT(3)=$P($G(^(5)),U,8),TOT(4)=$P($G(^(5)),U,14) "RTN","PRSROSOR",21,0) . S TOT(5)=$P($G(^PRST(459,DA,"P",D0,5)),U,19),TOT(6)=$P($G(^(5)),U,13),TOT(7)=$P($G(^(5)),U,24)+$P($G(^(5)),U,25)+$P($G(^(5)),U,31),TOT(8)=$P($G(^(5)),U,4),TOT(9)=$P($G(^(5)),U,17) "RTN","PRSROSOR",22,0) . F I=1:1:9 S TOTAL(I)=TOTAL(I)+TOT(I),$P(STOT,U,I)=$P(STOT,U,I)+TOT(I) "RTN","PRSROSOR",23,0) . S TOT=$P($G(^PRST(459,DA,"P",D0,5)),U) "RTN","PRSROSOR",24,0) . S GOV(1)=$P($G(^PRST(459,DA,"P",D0,8)),U),GOV=GOV(1)-TOT "RTN","PRSROSOR",25,0) . S TOTAL=TOTAL+TOT,TGOV=TGOV+GOV,$P(STOT,U,10)=$P(STOT,U,10)+TOT,$P(STOT,U,11)=$P(STOT,U,11)+GOV,$P(STOT,U,12)=$P(STOT,U,12)+(TOT+GOV) "RTN","PRSROSOR",26,0) . S ^TMP($J,"EXP",+$P(DA(1),"-",2),TLE,NAM,D0)=TOT(1)_U_TOT(2)_U_TOT(3)_U_TOT(4)_U_TOT(5)_U_TOT(6)_U_TOT(7)_U_TOT(8)_U_TOT(9)_U_TOT_U_GOV_U_(TOT+GOV) "RTN","PRSROSOR",27,0) . S CNT=CNT+1,(GOV,TOT)=0 "RTN","PRSROSOR",28,0) . I '(CNT#30),$E(IOST,1,2)="C-",'$D(ZTQUEUED) W "." "RTN","PRSROSOR",29,0) . Q "RTN","PRSROSOR",30,0) S ^TMP($J,"EXP1",+$P(DA(1),"-",2),TLE)=STOT,STOT=0 "RTN","PRSROSOR",31,0) Q "VER") 8.0^22.2 "BLD",10794,6) ^143 **END** **END**