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

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

@@ -1 +1 @@
 MAGJEX2 ;;WIRMFO/JHC Rad. Workstation RPC calls;[ 02/25/2000  4:40 PM ] ; 09 Jun 2003  2:58 PM
- ;;3.0;IMAGING;**51,18,76**;Jun 22, 2007;Build 19
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**51,18**;Mar 07, 2006
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -87 +86 @@
  S X=$G(^MAG(2006.69,1,0))
  S LIMYRS=+$P(X,U,14),LIMEXAMS=+$P(X,U,15)
- S:'LIMYRS LIMYRS=7 S:'LIMEXAMS LIMEXAMS=50 ; default limit # Exams
+ S:'LIMYRS LIMYRS=10 S:'LIMEXAMS LIMEXAMS=100 ; default limit # Exams
  S BEGDT=($E(DT,1,3)-LIMYRS)_$E(DT,4,7)
  I BEGDT<2950101 S BEGDT=2950101 ; 2 yrs prior to earliest VistaPACS
@@ -137 +136 @@
  ;
  Q:'MAGMATCH
- ; 1  RADFN   RADTI    RACNI   RANME   RASSN    <-- from GETEXAM
- ; 6  RADATE  RADTE    RACN    RAPRC   RARPT
- ; 11 RAST    DAYCASE  RAELOC  RASTP   RASTORD
- ; 16 RADTPRT RACPT    RAIMGTYP
- S MAGDTH=$$FMTH^XLFDT($P(RADATA,U,7),1)
+   ; 1  RADFN   RADTI    RACNI   RANME   RASSN    <-- from GETEXAM
+   ; 6  RADATE  RADTE    RACN    RAPRC   RARPT
+   ; 11 RAST    DAYCASE  RAELOC  RASTP   RASTORD
+   ; 16 RADTPRT RACPT    RAIMGTYP
+ S X=$P(RADATA,U,7) D H^%DTC S MAGDTH=+%H
  S X=$P(RADATA,U,18)
  S RAIMGTYP=$S(X]"":$O(^RA(79.2,"C",X,"")),1:X)