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

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

@@ -1 +1 @@
 RMPR29GA ;PHX/JLT,RVD,SPS-RMPR29 CONTINUED [ 09/29/94  11:22 AM ]
- ;;3.0;PROSTHETICS;**75,60,142**;Feb 09, 1996;Build 2
+ ;;3.0;PROSTHETICS;**75,60**;Feb 09, 1996;Build 18
  ; Developed form RMPR29A for the GUI application
 POST ;POST 2529-3 TO APPLIANCE/REPAIR FILE #660
@@ -14 +14 @@
  .S HCPCS=$P($G(^RMPR(664.1,RMPRDA,2,RA,2)),U,1),RMCPT=$P($G(^(2)),U,2),RMHTECH=$P($G(^(2)),U,3)
  .;Changed .01 and 1 fields to create date DT below 5/25/06 for 75 SPS
- .I RDA,'$D(^RMPR(660,RDA,0)) S RDA=""
  .I 'RDA S DIC="^RMPR(660,",DLAYGO=660,DIC(0)="LZ",X=DT D FILE^DICN K DLAYGO Q:+Y'>0  S RDA=+Y,RNEW=$P(Y,U,3) S $P(^RMPR(660,RDA,0),U,1)=DT,$P(^(0),U,2)=RMPRDFN,$P(^(0),U,3)=DT
 DR .K DR