Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL4.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 )
• IMAGING-MAG-ZMAG/MAGJUTL4.m (modified) (2 diffs)

FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGJUTL4.m

@@ -1 +1 @@
 MAGJUTL4 ;WIRMFO/JHC VistARad subroutines for RPC calls ; 15 Jul 2004  4:34 PM
- ;;3.0;IMAGING;**18,76**;Jun 22, 2007;Build 19
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**18**;Mar 07, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -66 +65 @@
  S IEN=0 F  S IEN=$O(RET(IEN)) Q:'IEN  D
  . N LIN S X=$G(@CPTGLB@(IEN,0))
- . Q:'(X]"")  S TCPT=$P(X,U),LIN=TCPT_U_$P($$CPT^ICPTCOD(TCPT),U,3) ; _U_$$BODPART(IEN,"~")_U_$$MDLLST(IEN,"~")
+ . Q:'(X]"")  S TCPT=$P(X,U),LIN=TCPT_U_$P($G(^ICPT(TCPT,0)),U,2) ; _U_$$BODPART(IEN,"~")_U_$$MDLLST(IEN,"~")
  . S CT=CT+1,@MAGGRY@(CT)=LIN
  S REPLY=CT_U_"1~ "_CT_" CPT Matches returned for "_CPTIN