Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9DO.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 )
• PROSTHETICS-RMPR-RMPO-RMPS/RMPR9DO.m (modified) (2 diffs)

FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9DO.m

@@ -1 +1 @@
 RMPR9DO ;HOIFO/HNC -  ORDER CONROL PROCESSING-REMOTE PROCEDURE ;9/8/03  07:12
- ;;3.0;PROSTHETICS;**59,77,90,60,135**;Feb 09, 1996;Build 12
+ ;;3.0;PROSTHETICS;**59,77,90,60**;Feb 09, 1996;Build 18
  ;
  ;8/5/03 Make sure no dups, HNC patch 77
@@ -175 +175 @@
  ;PPD=1 for previous pending
  I ADATE'="" S (PDAY,WRKDAY)=$$WRKDAY^RMPREOU(RMPRA)
- I ADATE="" S (PDAY,WRKDAY)=$$CWRKDAY^RMPREOU(RMPRA) I $P(^RMPR(668,RMPRA,0),U,10)="X" S (PDAY,WRKDAY)=$$CANWKDY^RMPREOU(RMPRA)
+ I ADATE="" S (PDAY,WRKDAY)=$$CWRKDAY^RMPREOU(RMPRA)
  I ADATE'="" S CDAY=$$PDAY^RMPREOU(RMPRA)
- ;
  S STATUS=$$STATUS^RMPREOU(RMPRA)
  I STATUS["PENDING" D