Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRSAOTE

PRSAOTE.m

Go to the documentation of this file.
  1. PRSAOTE ;HISC/REL-OT/CT Edit ;12-SEP-00
  1. ;;4.0;PAID;**2,61**;Sep 21, 1995
  1. S PRSTLV=2 D ^PRSAUTL G:TLI<1 EX
  1. K DIC S DIC("A")="Select EMPLOYEE: ",DIC("S")="I $P(^(0),""^"",8)=TLE",DIC(0)="AEQM",DIC="^PRSPC(",D="ATL"_TLE W ! D IX^DIC S DFN=+Y K DIC
  1. I DFN<1 G EX
  1. D HDR^PRSAOTS
  1. K %DT S %DT="AEFX",%DT("A")="Begin with Date: ",%DT("B")="T" W ! D ^%DT K %DT S:$D(DTOUT) Y=0 G:Y<1 EX S DTI=Y
  1. S NUM=1 D DISP^PRSAOTS
  1. G:'CNT EX
  1. X1 R !!,"Edit Which Request #? ",X:DTIME G:'$T!("^"[X) EX I X'?1N.N!(X<1)!(X>CNT) W *7," Enter # of Request to Edit" G X1
  1. S X=+X,DA=R(X),ZOLD=$G(^PRST(458.2,DA,0))
  1. S DDSFILE=458.2,DR="[PRSA OT REQ]" D ^DDS K DS
  1. S %=$P(^PRST(458.2,DA,0),"^",3) I '% S DIK="^PRST(458.2," D ^DIK K DIK G EX
  1. I ZOLD=^PRST(458.2,DA,0) G EX
  1. S STAT=$P(^PRST(458.2,DA,0),"^",8) I STAT?1U K ^PRST(458.2,"A"_STAT,DFN,DA)
  1. S ^PRST(458.2,DA,0)=$P(^PRST(458.2,DA,0),"^",1,12) K ^(1)
  1. D NOW^%DTC S $P(^PRST(458.2,DA,0),"^",8)="R",$P(^(0),"^",11,12)=DUZ_"^"_%,^PRST(458.2,"AR",DFN,DA)=""
  1. S X=$P($G(^PRSPC(DFN,0)),"^",29) I X S:X>100 X=X/2080 S $P(^PRST(458.2,DA,0),"^",10)=+$J(X*1.5*$P(^PRST(458.2,DA,0),"^",6),0,2)
  1. D UPD^PRSASAL,APP^PRSASAL
  1. EX G KILL^XUSCLEAN