Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRSAPPO.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/PRSAPPO.m (modified) (3 diffs)

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

@@ -1 @@
-PRSAPPO ; HISC/MGD - Open New Pay Period ;07/30/07
- ;;4.0;PAID;**93,112**;Sep 21, 1995;Build 54
+PRSAPPO ; HISC/MGD - Open New Pay Period ;03/15/06
+ ;;4.0;PAID;**93**;Sep 21, 1995;Build 7
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  S PPI=$P(^PRST(458,0),"^",3),PPE=$P(^PRST(458,PPI,0),"^",1)
@@ -27 +27 @@
  .I $P($G(^PRSPC(DFN,1)),"^",20)="Y" Q
  .I $P($G(^PRSPC(DFN,1)),"^",33)'="N" Q
- .S C0=^PRSPC(DFN,0)
- .I $P(C0,U,10)=2,$P(C0,U,16)=80 S NAWS="9Mo AWS",CT9=$G(CT9)+1
- .I $P(C0,U,10)=1,$P(C0,U,16)=72 S NAWS="36/40 AWS",CT36=$G(CT36)+1
  .S PRSIEN=DFN,MDAT=$P(PDT,U,1)
  .S MIEN=$$MIEN^PRSPUT1(PRSIEN,MDAT)
@@ -37 +34 @@
  .I $G(MIEN) D PLPP^PRSPLVA(PRSIEN,PPI)
  .;
- .; Call to Autopost PT Phy Extended Absence
+ .; Call to autopost PT Phy Extended Absence
  .I $G(MIEN) D PEAPP^PRSPEAA(PRSIEN,PPI)
  .S N=N+1 W:N#100=0 "." Q
- ;SEND A MESSAGE WHEN A 9 MONTH AWS NURSE IS ACTIVATED AT A SITE
- I +$G(NAWS) D
- .I $G(CT9) S TMP(1)=CT9_" 9 month AWS nurse(s) set up"
- .I $G(CT36) S TMP(2)=CT36_" 36/40 AWS nurse(s) set up"
- .S S=$$KSP^XUPARAM("INST")_"," D FIND^DIC(456,,,"Q",+S)
- .S IND=$S($D(^TMP("DILIST",$J,0)):+^(0),1:$O(^PRST(456,0)))
- .S CM9=$$GET1^DIQ(456,IND,2),CM36=$$GET1^DIQ(456,IND,4)
- .S MAX=$$GET1^DIQ(456,IND,3) N FDA,DIERR
- .I $G(CT9),CM9<MAX S FDA(456,IND_",",2)=CM9+1
- .I $G(CT36),CM36<MAX S FDA(456,IND_",",4)=CM36+1
- .Q:'$D(FDA)  D FILE^DIE("","FDA"),MSG^DIALOG()
- .S S=$$GET1^DIQ(4,+S,99)_" "_$$GET1^DIQ(4,+S,100),XMTEXT="TMP("
- .S TMP(3)="At "_S,XMDUZ=.5,XMY("VHAOIPAIDETANAWSBULLETIN@VA.GOV")=""
- .S XMSUB=+S_" 36/40, 9 month AWS nurse(s) deployed PRS*4.0*112"
- .D ^XMD K TMP
  S $P(^PRST(458,PPI,"E",0),"^",3,4)=N_"^"_N W !!,N," Employee Records created.",!
 EX G KILL^XUSCLEAN