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

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

@@ -1 +1 @@
 MAGGTII ;WOIFO/GEK - RETURN IMAGE INFO ; [ 11/08/2001 17:18 ]
- ;;3.0;IMAGING;**8,48,63,59**;Nov 27, 2007;Build 20
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;IMAGING;**8,48,63**;Apr 11, 2005
  ;; +---------------------------------------------------------------+
  ;; | Property of the US Government.                                |
@@ -9 +8 @@
  ;; | Development Office of the Department of Veterans Affairs,     |
  ;; | telephone (301) 734-0100.                                     |
+ ;; |                                                               |
  ;; | The Food and Drug Administration classifies this software as  |
  ;; | a medical device.  As such, it may not be changed in any way. |
@@ -40 +40 @@
  ; $P(19^20)   Patient DFN  ^ Patient Name; // Patch 3.8
  ; $P(21)          Image Class: Clin,Admin,Clin/Admin,Admin/Clin
- ; $p(22)      Date Time Image Saved(FLD 7)
- ; $p(23)      Document Date    (FLD 110)
  ;
  N FILETYPE,MAGPREF,MAGJBCP,GRPTYPE,GRPIEN,ABSTYPE,MAGTYPE,MAGJBOL
  N MAGOFFLN,FULLTYPE,MAGOBJT,MAGQI,X
  N ABSFILE,FULLFILE,BIGFILE,PATCH,MDFN,FNL,PLC,PLCODE
- N MAGN0,MAGN2,MAGN40,MAGN100
+ N MAGN0,MAGN2,MAGN40
  ;    set the Variables for the Global Nodes of the Image Entry
- S MAGN0=$G(^MAG(2005,MAGXX,0))
- S MDFN=$P(MAGN0,"^",7)
+ S MAGN0=$G(^MAG(2005,MAGXX,0)),MDFN=$P(MAGN0,"^",7) ; P48T1 MDFN
  S MAGN2=$G(^MAG(2005,MAGXX,2))
  S MAGN40=$G(^MAG(2005,MAGXX,40))
- S MAGN100=$G(^MAG(2005,MAGXX,100))
- ; Set Name in Variable, Call $$GET 1 time not 2000
- I MDFN I '$D(MAGJOB("PTNM",MDFN)) S MAGJOB("PTNM",MDFN)=$$GET1^DIQ(2,MDFN_",",.01)
+ ; P48T1 Set Name in Variable, Call $$GET 1 time not 2000
+ I '$D(MAGJOB("PTNM",MDFN)) S MAGJOB("PTNM",MDFN)=$$GET1^DIQ(2,MDFN_",",.01)
  I '$D(MAGJOB("NETPLC")) D NETPLCS^MAGGTU6
  ;  Object Type
@@ -119 +115 @@
  S PLC=$P($G(MAGJOB("NETPLC",FNL)),"^",1)
  S PLCODE=$P($G(MAGJOB("NETPLC",FNL)),"^",2)
- I PLC="" S PLC=$G(MAGJOB("PLC")),PLCODE=$G(MAGJOB("PLCODE")) ; Group of 0 need this.
  ;   if we were using first image of a group, reset the Real IEN 
  I $G(GRPIEN) S MAGXX=GRPIEN
@@ -135 +130 @@
  K MAGFILE
  S $P(MAGFILE,U,25)="" ; We put extra '^^^' on end of String to stop error in Delphi.
- ; Pieces 26 BrokerServer and 27 Broker Port are set if this is P59 Client.
- ; Clients Prior to Patch 59, the String must only be 25 pieces. - Patch 45 snafu
- ; 
+ ;
  ; $P(1^2^3) IEN^Image FullPath and name^Abstract FullPath and Name 
  S $P(MAGFILE,U,1,3)=MAGXX_U_FULLFILE_U_ABSFILE
+ S $P(MAGFILE,U,18)=BIGFILE
  ;
  ; now set $P(4) SHORT DESCRIPTION field and desc of offline JukeBox
@@ -156 +150 @@
  ;  the delphi TStringGrid so we display mm/dd/yyyy
  ; now set $P(8) display date
- S X=$$FMTE^XLFDT($P(MAGN2,U,5),"5Z")
- S X=$TR(X,"@"," ")
+ S X=$P($P(MAGN2,"^",5),".",1)
+ I X'="" S X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_($E(X,1,3)+1700)
  S $P(MAGFILE,U,8)=X
  ;
@@ -174 +168 @@
  ;    $p(12) and $p(13)
  ;
- ; 14 - count of images , if this is a group
+ ; lets add the count of images , if this is a group
  S X=+$P($G(^MAG(2005,MAGXX,1,0)),U,4),$P(MAGFILE,U,14)=$S(X:X,1:1)
  ;
@@ -191 +185 @@
  . ;Send the error message
  . S $P(MAGFILE,U,17)=$P(MAGQI(0),U,2)
- ; $p(18) is BIGFile Full name and path.
- S $P(MAGFILE,U,18)=BIGFILE
- ; DFN
- S $P(MAGFILE,U,19)=$P(MAGN0,U,7)
- ; Patient Name
- S $P(MAGFILE,U,20)=$S(MDFN:MAGJOB("PTNM",MDFN),1:MDFN)
+ ; $p(18) is BIGFile Full name and path. ( set above)
+ ; Patches prior to 8, only had 17 pieces of data. this will speed up their listings.
+ ; Patch 8 had New M rtn MAGSIXG1, if it doesn't exist, this is PRE - 8.
+ I '$L($T(PGI^MAGSIXG1)) Q
+ S $P(MAGFILE,U,19)=$P(MAGN0,U,7)                         ; DFN
+ ; P48T1 The change to speed up access to large groups left out patient name.
+ ;S $P(MAGFILE,U,20)=$$GET1^DIQ(2,$P(MAGN0,U,7)_",",.01)   ; Patient Name
+ S $P(MAGFILE,U,20)=MAGJOB("PTNM",MDFN)
  S $P(MAGFILE,U,21)=$S(+$P(MAGN40,U,2):$P(^MAG(2005.82,$P(MAGN40,U,2),0),U),1:"")
- S X=$$FMTE^XLFDT($P(MAGN2,U,1),"5Z") ; Date/Time Image Saved  #7
- S X=$TR(X,"@"," ")
- S $P(MAGFILE,U,22)=X
- S X=$$FMTE^XLFDT($P(MAGN100,U,6),"5Z")   ; DocumentDate #110
- S X=$TR(X,"@"," ")
- S $P(MAGFILE,U,23)=X
- ; If Patch 59 Client - we can set beyond 25 pieces.
- I $D(MAGJOB("RPCSERVER"))&$D(MAGJOB("RPCPORT")) D
- . S $P(MAGFILE,U,26)=MAGJOB("RPCSERVER")
- . S $P(MAGFILE,U,27)=MAGJOB("RPCPORT")
- . S $P(MAGFILE,U,28)="" ; "^" at end, stops problems in delphi
- . Q
  ; Stop displaying a Group of 1 as a Group, so here we'll change Object type
  ;  to that of the '1ST' image in the group of 1.
@@ -217 +201 @@
  . S $P(MAGFILE,U,6)=$P(^MAG(2005,X,0),U,6) ; OBJECT TYPE OF 1ST IMAGE IN GROUP
  . S $P(MAGFILE,U,1)=X
- . Q
+ . ; Need Site and Site code of 
  Q