Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPCED.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPCED.m
r628 r636 1 1 RMPRPCED ;Hines OIFO/RVD - Prosthetics/660/668/PCE DELETE ;7/30/02 09:39 2 ;;3.0;PROSTHETICS;**62,70,121,131 ,141**;Feb 09, 1996;Build 52 ;;3.0;PROSTHETICS;**62,70,121,131**;Feb 09, 1996;Build 3 3 3 ;RVD 7/1/02 - patch #70 - new RMPR variables before calling PCE. 4 4 ; … … 52 52 .S RMAMIS68=$G(^RMPR(660,I,"AMS")) S:RMAMIS68=RMAMIS RMCNT=RMCNT+1 53 53 ;if no other line item of the same GROUPER #, then delete. 54 I RMCNT=1 ,RMAMIEND54 I RMCNT=1 D 55 55 .S DA=RMAMIEN 56 56 .S DA(1)=RMIE68,DIK="^RMPR(668,"_DA(1)_",11,"
Note:
See TracChangeset
for help on using the changeset viewer.