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

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

@@ -1 +1 @@
 RMPRPCEB ;HIN/RVD-PROS PCE BACKGROUND UTILITY ; 1/23/04 8:09am
- ;;3.0;PROSTHETICS;**62,69,77,82,78,114,120,133,142**;Feb 09, 1996;Build 2
+ ;;3.0;PROSTHETICS;**62,69,77,82,78,114,120,133**;Feb 09, 1996;Build 2
  ;
  ;RVD patch #69 - add STATION in the error message.
@@ -27 +27 @@
  F  S RI=$O(^RMPR(660,RI)) Q:RI'>0  D
  .S RM600=$G(^RMPR(660,RI,0))
- .I $P(RM600,U,2)="" Q
  .S RM611=$G(^RMPR(660,RI,1))
  .S RM610=$G(^RMPR(660,RI,10))