Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRSATE.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• PAID-PRS/PRSATE.m (modified) (11 diffs)

FOIAVistA/tag/r/PAID-PRS/PRSATE.m

@@ -1 +1 @@
 PRSATE ;WCIOFO/JAH - Enter/Edit Employee (emp) Tour of Duty (ToD) ;03/15/2005
- ;;4.0;PAID;**8,11,27,45,55,93,112**;Sep 21, 1995;Build 54
+ ;;4.0;PAID;**8,11,27,45,55,93**;Sep 21, 1995;Build 7
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  N PPI,PPE,PRSTLV,TLI,TLE,DFN
@@ -46 +46 @@
  ; Display header/Ask pp (NOL^PRSATE2 returns SRT = Current, Next, Last)
  ;
- D NOW^%DTC S NOW=% K %
+ D NOW^%DTC S NOW=%
  W:$E(IOST,1,2)="C-" @IOF
  W !?26,"VA TIME & ATTENDANCE SYSTEM"
@@ -97 +97 @@
  ...    E  D
  ....      S NOERROR=1
- K NOW Q
+ Q
  ;=======================
  ;
@@ -120 +120 @@
  ; ask TK about all others.
  ;
- S DB=$P(C0,U,10) I FLX="C"!("KM"[PP&(DB=1)&(NH=72)) D
+ I FLX="C" D
  .   D VAR
  E  D
@@ -128 +128 @@
  ..    D VAR
  .  E  D FX
- K DB Q
+ Q
  ;=======================
  ;
@@ -147 +147 @@
  .  W "  ... done" D:HRS'=NH ERROR(2,NH,HRS)
  .  D T2,^PRSATE5
- D HOL,RS K HRS,STR
+ D HOL,RS
  Q
  ;=======================
@@ -205 +205 @@
  S $P(^PRST(458,PPI,"E",DFN,0),U,$S(SRT="N":7,1:6))=Y
  I $D(^PRST(458,"ATC",DFN)) D UPD^PRSASAL
- K PAY,ZENT Q
+ Q
  ;=======================
  ;
@@ -268 +268 @@
  ;
  D S1
- K OLD,SCH Q
+ Q
  ;=======================
  ;
@@ -298 +298 @@
  Q:'$D(HOL)
  S TT="HX",DUP=1
- D E^PRSAPPH K DUP,HOL,TT
+ D E^PRSAPPH
  Q
  ;=======================
@@ -332 +332 @@
  S DIR("?",1)="Fixed tours are Monday - Friday with the same hours."
  D ^DIR
- Q $S(Y=1:"Y",Y=0:"N",1:"^")
+ S RESP=$S(Y=1:"Y",Y=0:"N",1:"^")
+ Q RESP
  ;=======================
  ;
@@ -343 +344 @@
  S DIR("?")="Enter ^ to escape and cancel this tour change."
  D ^DIR
- Q $S(Y=1:"Y",Y=0:"N",1:"^")
- ;=======================
- ;
+ S RESP=$S(Y=1:"Y",Y=0:"N",1:"^")
+ Q RESP
+ ;=======================
+ ;