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

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

@@ -1 +1 @@
 RMPR29BG ;OI-HINES/SPS -OWL BASE HCPCS ENTER/EDIT/DELETE RPC;12/27/2004
- ;;3.0;PROSTHETICS;**75,142**;Feb 09, 1996;Build 2
+ ;;3.0;PROSTHETICS;**75**;Feb 09, 1996;Build 25
 A1(RMAED,RMPRSITE,RMIE1,RMIE16,RMITM,RMQTY,RMUI,RMTT,RMPC,RMSN,RMHCPC,RMCPTM,RMVEN) ;roll and scroll entry point
  G A2
 EN(RESULTS,RMAED,RMPRSITE,RMIE1,RMIE16,RMITM,RMQTY,RMUI,RMTT,RMPC,RMSN,RMHCPC,RMCPTM,RMVEN,RMBD,RMHTECH,RMPRTXT) ;RPC entry point
 A2 ;
- N J,L,RESULTS,RMIE16C,RMIE16F,R6641,RSITE
+ N J,L,RESULTS,RMIE16C,RMIE16F
  S RESULTS(0)=""
  K ^TMP($J)
@@ -16 +16 @@
  S ^TMP("SPS",0)=RMAED_U_RMPRSITE_U_RMIE1_U_RMIE16_U_RMITM_U_RMQTY_U_RMUI_U_RMTT_U_RMPC_U_RMSN_U_RMHCPC_U_RMCPTM_U_RMVEN
  S RMIE16F=$O(^RMPR(664.1,RMIE1,2,0))
- S R6641=$G(^RMPR(664.1,RMIE1,0))
- S RSITE=$P(R6641,U,15),RSITE=$O(^RMPR(669.9,"C",RSITE,0))
- I RSITE'=RMPRSITE S RMPRSITE=RSITE
  I RMIE16F>0 S:RMIE16'=RMIE16F RMTT=$P(^RMPR(664.1,RMIE1,2,RMIE16F,0),U,7),RMPC=$P(^(0),U,8)
  I RMIE16=RMIE16F D:RMTT'=$P(^RMPR(664.1,RMIE1,2,RMIE16F,0),U,7)!(RMPC'=$P(^(0),U,8))
@@ -60 +57 @@
 DEL ;
  S DA=$P(^RMPR(664.1,RMIE1,2,RMIE16,0),U,5)
- I DA'="" D
- . S DIK="^RMPR(660," D ^DIK
- . K DA,DIK
+ S DIK="^RMPR(660," D ^DIK
+ K DA,DIK
  S DA=$P(^RMPR(664.1,RMIE1,2,RMIE16,0),U,6)
- I DA'="" D
- . S DIK="^RMPR(664.2," D ^DIK
- . K DA,DIK
+ S DIK="^RMPR(664.2," D ^DIK
+ K DA,DIK
  S DA(1)=RMIE1,DA=RMIE16,DIK="^RMPR(664.1,"_DA(1)_",2," D ^DIK
  K DA,DIK