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

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

@@ -1 +1 @@
 RMPRDDC ;VACO/HNC - SERVER ROUTINE FOR DALC RECORD IN 660 ; 11/01/2006
- ;;3.0;PROSTHETICS;**60,141**;Feb 09, 1996;Build 5
+ ;;3.0;PROSTHETICS;**60**;Feb 09, 1996;Build 18
  ;Per VHA Directive 10-93-142, this routine should not be modified.
  ;
@@ -9 +9 @@
  ;loop msg
  K RMPRMSG
- N ERR
  S RMPRCNT=0
  S RMPRMSGC=0
@@ -51 +50 @@
  .; RMPRDAT,U,21 IS RESERVED FOR A RETURN NUMBER TBD SKIPPED
  .S RMPROS=$P($G(RMPRDATA),U,22)   ;ordering station
- .S RMPRSTA=$$FIND1^DIC(4,"","X",RMPROS,"D","","ERR")
- .I $D(ERR)!(RMPRSTA'>0) D
- .. S RMPR6699=$O(^RMPR(669.9,0)),RMPRSTA=$P(^RMPR(669.9,RMPR6699,0),U,2)
  .S X=$P($G(RMPRDATA),U,20)  ;return date
  .S X=$E(X,5,6)_"/"_$E(X,7,8)_"/"_$E(X,3,4) D ^%DT S RMPRRT=Y
@@ -114 +110 @@
  K RMPRITM,RMPRHCPE,RMPRHCP,RMPRSTN,RMPRCMT,RMPRCOST,RMPRQTY,RMPRREF
  K RMPRSRL,RMPRVND,RMPRDUN,RMPRTAX,RMPRRT,DFN,RMPR(660),RMPRCNT,RMPRDATA
- K RMPRFLG,RMPROUT,RMPRNAM,RMPRWHN,RMPRMSGC,RMPRPNAM,RMPRNPMN,RMPRSTA,RMPR6699
+ K RMPRFLG,RMPROUT,RMPRNAM,RMPRWHN,RMPRMSGC,RMPRPNAM,RMPRNPMN
  ;purge server message
  S XMSER="S."_XQSOP,XMZ=XQMSG D REMSBMSG^XMA1C