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

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

@@ -1 +1 @@
 RMPR9CA ;OI-HINES/HNC -SUSPENSE RPC;12/27/2004
- ;;3.0;PROSTHETICS;**90,135,141**;Feb 09, 1996;Build 5
+ ;;3.0;PROSTHETICS;**90**;Feb 09, 1996
 A1 ;roll and scroll entry point
  G A2
@@ -137 +137 @@
  F  S RMPRCMT=$O(^RMPR(668,RMIE68,3,RMPRCMT)) Q:RMPRCMT=""  D
  .S GMRCMT(RMPRCMT)=^RMPR(668,RMIE68,3,RMPRCMT,0)
- D CMT^GMRCGUIB(GMRCO,.GMRCMT,DUZ,RMPREODT,DUZ)
+ S RMGMRCO=$$RC^GMRCGUIA(.GMRCO,DUZ,RMPREODT,.GMRCMT,DUZ)
  K RMPREODT,GMRCO,RMGMRCO,GMRCMT,RMPRCMT
  S RESULTS(0)="0^Completed Suspense Action, and Posted note to CPRS Consult.  Suspense status has changed to PENDING."
@@ -190 +190 @@
  Q
 UPD ;update file 668 with 2319 records
- S DA(1)=RMIE68 K DD,DO,DIC
+ S DA(1)=RMIE68
  S DIC="^RMPR(668,"_DA(1)_","_"10,"
  S DIC(0)="L",DLAYGO=668,X=RMIE60
  D FILE^DICN
- K X,DD,DO,DIC
- S DA(1)=RMIE68,DIC(0)="L",DLAYGO=668
+ S DA(1)=RMIE68
  S DIC="^RMPR(668,"_DA(1)_","_"11,"
  S X=RMAMIS
  D FILE^DICN
- K DIC,X,DLAYGO,DD,DO
+ K DIC,X,DLAYGO
  Q
 A3 G A4