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

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

@@ -1 +1 @@
 RMPOPED ;EDS/MDB,DDW,RVD - HOME OXYGEN MISC FILE EDITS ;7/24/98
- ;;3.0;PROSTHETICS;**29,44,41,52,77,110,140**;Feb 09, 1996;Build 10
+ ;;3.0;PROSTHETICS;**29,44,41,52,77,110**;Feb 09, 1996;Build 10
  ;
  ; HNC - patch 52
@@ -11 +11 @@
 UNLOCK I $D(RMPODFN) L -^RMPR(665,RMPODFN)
  Q
-EXIT D KILL^XUSCLEAN
+EXIT K DIC,DIE,DIR,DIK,X,Y,Z,DR,DA,DD,DO,D0,DTOUT,DIROUT,DUOUT,DIRUT,QUIT,DFN,ITEM,ITEMS,IEN,IENS,ITMACT,ITM,C,S,W,PI,VDR,ZST
  D UNLOCK
  Q
@@ -171 +171 @@
 RX ;Edit the Rx Data
  ;
- N RXD,RXDI
  K DIC,DIE,DA,DR
  S DIC="^RMPR(665,"_RMPODFN_",""RMPOB"",",DIC(0)="AEQLZ"
  S DA(1)=RMPODFN,DIC("P")="665.193D"
- S RXD=$O(^RMPR(665,DA(1),"RMPOB","B",""),-1) D:RXD
- . S DIC("B")=$$FMTE^XLFDT(RXD)
+ I $D(^DISV(DUZ,DIC)) S Y=^(DIC) I $D(@(DIC_(+Y)_",0)")) D
+ . S DIC("B")=$P(^(0),U,1)
  D ^DIC Q:Y<0!$$QUIT
  S DIE=DIC,DA=+Y,DR=".01;2//^D EXPIRE^RMPOBIL4;3" D ^DIE Q:$$EQUIT