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

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

@@ -1 +1 @@
 RMPREOU ;HINES/HNC -Suspense Processing Utility  ;2-2-2000
- ;;3.0;PROSTHETICS;**45,55,59,135**;Feb 09, 1996;Build 12
+ ;;3.0;PROSTHETICS;**45,55,59**;Feb 09, 1996
  ; Add new function for working days M-F.
  Q
@@ -104 +104 @@
  D WDAY
  Q RMTO
-CANWKDY(DA) ;*135 working days between create and cancel date for cancel w/o initial action records.
- ;holidays are counted as working days
- ;parm 1=ien 668, DA
- N RMTO,RB,RE
- S RB=$P($G(^RMPR(668,DA,0)),U)
- Q:RB="" 0
- S RE=$P(^RMPR(668,DA,5),U)
- Q:RE="" 0
- D WDAY
- Q RMTO
 WDAY ;       RB - begining date
  ;       RE - ending date