source: FOIAVistA/trunk/r/IMAGING-MAG-ZMAG/MAGGTSY2.m@ 731

Last change on this file since 731 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1MAGGTSY2 ;WOIFO/GEK - Calls from Imaging windows for System Manager ; [ 06/20/2001 08:57 ]
2 ;;3.0;IMAGING;**59**;Nov 27, 2007;Build 20
3 ;;Per VHA Directive 2004-038, this routine should not be modified.
4 ;; +---------------------------------------------------------------+
5 ;; | Property of the US Government. |
6 ;; | No permission to copy or redistribute this software is given. |
7 ;; | Use of unreleased versions of this software requires the user |
8 ;; | to execute a written test agreement with the VistA Imaging |
9 ;; | Development Office of the Department of Veterans Affairs, |
10 ;; | telephone (301) 734-0100. |
11 ;; | The Food and Drug Administration classifies this software as |
12 ;; | a medical device. As such, it may not be changed in any way. |
13 ;; | Modifications to this software may result in an adulterated |
14 ;; | medical device under 21CFR820, the use of which is considered |
15 ;; | to be a violation of US Federal Statutes. |
16 ;; +---------------------------------------------------------------+
17 ;;
18 Q
19MAG(MAGRY,NODE) ;RPC Call to show node of Image File
20 ; NODE is the IEN of Image File : ^MAG(2005,NODE
21 N Y,I,CT,X,TNODE
22 S MAGRY=$NA(^TMP("MAGNODE",$J))
23 S NODE=$G(NODE)
24 N I,CT,X
25 K @MAGRY
26 S @MAGRY@(0)="Display NODE: "_$S($L(NODE):NODE,1:"LAST")
27 S I=0,CT=0
28 I $E(NODE)="^" G OTH
29 I 'NODE S NODE=$P(^MAG(2005,0),U,3)
30 S I="^MAG(2005,"_NODE_","""")"
31 F S X=$Q(@I) S I=X Q:$P(X,",",2)'=NODE D
32 . S CT=CT+1,@MAGRY@(CT)=X_" "_@X
33 . Q
34 I $P($G(^MAG(2005,NODE,2)),"^",6)="8925" D
35 . S CT=CT+1,@MAGRY@(CT)=" ******* TIU ******* "
36 . S TNODE=$P(^MAG(2005,NODE,2),"^",7)
37 . S I="^TIU(8925,"_TNODE_","""")"
38 . F S X=$Q(@I) S I=X Q:$P(X,",",2)'=TNODE D
39 . . S CT=CT+1,@MAGRY@(CT)=X_" "_@X
40 . . Q
41 Q
42OTH ;
43 N OTHDA
44 S OTHDA=$P(NODE,",",2)
45 I OTHDA=0 S NODE=NODE_")" Q:'$D(@NODE) S CT=$O(@MAGRY@(""),-1)+1,@MAGRY@(CT)=$G(@(NODE)) Q
46 S I=NODE_","""")"
47 F S X=$Q(@I) S I=X Q:$P(X,",",2)'=OTHDA D
48 . S CT=$O(@MAGRY@(""),-1)+1,@MAGRY@(CT)=X_" "_@X
49 . Q
50 Q
Note: See TracBrowser for help on using the repository browser.