Changeset 636 for FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAO7RON.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 )
• RADIOLOGY_NUCLEAR_MEDICINE-RA/RAO7RON.m (modified) (2 diffs)

FOIAVistA/tag/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAO7RON.m

@@ -1 +1 @@
 RAO7RON ;HISC/GJC- Request message from OE/RR. (frontdoor) ;2/2/98  12:34
- ;;5.0;Radiology/Nuclear Medicine;**41,75,86**;Mar 16, 1998;Build 7
- ;
- ;Supported IA #10040 reference to ^SC
- ;Supported IA #2187 reference to EN^ORERR
- ;Supported IA #10103 reference to ^XLFDT
- ;Supported IA #10141 reference to ^XPDUTL
- ;Supported IA #10106 reference to $$FMDATE^HLFNC
+ ;;5.0;Radiology/Nuclear Medicine;**41,75**;Mar 16, 1998;Build 4
  ;
  ;------------------------- Variable List -------------------------------
@@ -46 +40 @@
  S RAERR=$$EN3^RAO7VLD(44,+RAPV13) S:RAERR RAERR=3 Q:RAERR
  S RANEW(75.1,"+1,",22)=+RAPV13
- ;check the GUI version of CPRS at this facility:
- ;$$PATCH^XPDUTL("OR*3.0*243")=1 CPRS V27, else CPRS V26.
- I '$$PATCH^XPDUTL("OR*3.0*243") D  Q:RAERR  ;P86
- .I RAPV12="I",$P(^SC($P(RAPV13,U,1),0),U,3)'="W" S RAERR=9 Q
- .I RAPV12="O",$P(^SC($P(RAPV13,U,1),0),U,3)="W" S RAERR=9
- .Q
+ I RAPV12="I",$P(^SC($P(RAPV13,U,1),0),U,3)'="W" S RAERR=9 Q:RAERR
+ I RAPV12="O",$P(^SC($P(RAPV13,U,1),0),U,3)="W" S RAERR=9 Q:RAERR
  S RAPV119=$P(RADATA,RAHLFS,19)
  Q