Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU3.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGGTU3.m
r628 r636 1 1 MAGGTU3 ;WOIFO/GEK - Silent calls for Imaging ; [ 06/20/2001 08:57 ] 2 ;;3.0;IMAGING;**7,8,48,45,20,46 ,59**;Nov 27, 2007;Build 203 ;; Per VHA Directive 2004-038, this routine should not be modified.2 ;;3.0;IMAGING;**7,8,48,45,20,46**;16-February-2007;;Build 1023 3 ;; Per VHA Directive 2004-038, this routine should not be modified. 4 4 ;; +---------------------------------------------------------------+ 5 5 ;; | Property of the US Government. | … … 18 18 Q 19 19 IMAGEINF(MAGRY,IEN,NOCHK) ;RPC [MAGG IMAGE INFO] Call to return information for 1 image; 20 ; IEN = Image IEN 21 ; NOCHK = 1|"" if 1then do not run QA check on this image.20 ; IEN = Image IEN ^MAG(2005,IEN 21 ; NOCHK = If Flag = 1, then do not run QA check on this image. 22 22 ; 23 23 N MAGFILE,Y,Z,MAGNOCHK … … 66 66 ; NOW NET STUFF 67 67 I 'MAGPLC Q 68 ; From IMAGING SITE PARAMETERS File69 ; 68 ; Get info from IMAGING SITE PARAMETERS File 69 ; get the Network UserName and PassWord. 70 70 S MAGRY(2)=$P($G(^MAG(2006.1,MAGPLC,"NET")),U,1,2) 71 ; 71 ; get the default MUSE Site number. 72 72 S MAGRY(3)=+$P($G(^MAG(2006.1,MAGPLC,"USERPREF")),U,2) 73 ; 73 ; default to 1 if nothing is entered in Site Parameters File 74 74 I MAGRY(3)=0 S MAGRY(3)=1 75 75 ; This SITEIEN^SITECODE^USER INSTITUTION IEN^INSTITUTION NAME^CONSOLIDATED^User's local STATION NUMBER … … 80 80 S MAGJOB("PLCODE")=$$GET1^DIQ(2006.1,MAGPLC,.09) 81 81 S MAGRY(4)=MAGRY(4)_U_$$CONSOLID^MAGBAPI_U_$$GET1^DIQ(4,DUZ(2),99,"E") 82 ; is CP not installed at this site, the Clientwill hide options83 ; related to CP .82 ; is CP installed at this site, the Front End will hide options 83 ; related to CP if not installed. 84 84 S X=$$VERSION^XPDUTL("CLINICAL PROCEDURES") 85 85 S MAGRY(5)=+X_U_X … … 158 158 Q 159 159 GETINFO(MAGRY,IEN) ; RPC [MAG4 GET IMAGE INFO] 160 ; Call (3.0p8) to get information on 1 image 161 ; and Display in the Image Information Window 162 D GETINFO^MAGGTU31(.MAGRY,IEN) 163 Q 160 ; Call (3.0p8) to get information on 1 image 161 N Y,J,JI,I,CT,IENC,FLAGS,SNGRP,Z,M40,T,QACHK 162 S I=0,CT=0 163 S MAGRY(CT)="Image ID#: "_IEN 164 I $D(^MAG(2005.1,IEN)) D Q 165 . S CT=CT+1,MAGRY(CT)=" STATUS: "_"HAS BEEN DELETED. !!" 166 . S CT=CT+1,MAGRY(CT)="Deleted By: "_$$GET1^DIQ(2005.1,IEN,30,"E") 167 . S CT=CT+1,MAGRY(CT)=" Reason: "_$$GET1^DIQ(2005.1,IEN,30.2,"E") 168 . S CT=CT+1,MAGRY(CT)=" Date: "_$$GET1^DIQ(2005.1,IEN,30.1,"E") 169 . Q 170 S M40=$G(^MAG(2005,IEN,40)),T=$P(M40,"^",3) 171 S Z=$P($G(^MAG(2005,IEN,0)),"^",10) I Z D 172 . S CT=CT+1,MAGRY(CT)=" is in Group#: "_Z_" ("_+$P(^MAG(2005,Z,1,0),"^",4)_" images)" 173 . D CHK^MAGGSQI(.QACHK,Z) Q:QACHK(0) 174 . S CT=CT+1,MAGRY(CT)=" QA Warning - Group#: "_Z_" "_$P(QACHK(0),"^",2) 175 . Q 176 S SNGRP="FLDS" 177 I (+$O(^MAG(2005,IEN,1,0)))!($P(^MAG(2005,IEN,0),"^",6)=11)!($P(^MAG(2005,IEN,0),"^",6)=16) D 178 . S CT=CT+1,MAGRY(CT)=$P(^MAG(2005,IEN,0),"^",8)_" Group of "_+$P($G(^MAG(2005,IEN,1,0)),U,4) 179 . S SNGRP="FLDG" 180 . Q 181 K QACHK 182 D CHK^MAGGSQI(.QACHK,IEN) I 'QACHK(0) D 183 . S CT=CT+1,MAGRY(CT)=" QA Warning - Image#: "_IEN_" "_$P(QACHK(0),"^",2) 184 N MAGOUT,MAGERR,MAGVAL 185 S IENC=IEN_"," 186 S FLAGS="EN" 187 S I=-1 188 F S I=I+1,Z=$T(@SNGRP+I) Q:$P(Z,";",3)="end" D 189 . S J=$P(Z,";",4),JI=J_";" 190 . K MAGOUT 191 . S CT=CT+1,MAGRY(CT)=$P(Z,";",3) 192 . I J=41 D Q ; Need to compute the Class. Class field in Image File is wrong. 193 . . S MAGVAL=$S('T:"",'$D(^MAG(2005.83,T,0)):"",1:$P(^MAG(2005.82,$P(^MAG(2005.83,T,0),"^",2),0),"^",1)) 194 . . S MAGRY(CT)=MAGRY(CT)_" "_MAGVAL 195 . . Q 196 . D GETS^DIQ(2005,IEN,JI,FLAGS,"MAGOUT","MAGERR") 197 . ; Get Extension from FileRef 198 . I J=1 S MAGVAL=$P($G(MAGOUT(2005,IENC,J,"E")),".",2) 199 . E S MAGVAL=$G(MAGOUT(2005,IENC,J,"E")) 200 . S MAGRY(CT)=MAGRY(CT)_" "_MAGVAL 201 ; Compare Parent Association Date with Date/Time Note Signed. 202 I $P(^MAG(2005,IEN,0),"^",10) S IEN=$P(^MAG(2005,IEN,0),"^",10) 203 I $P(^MAG(2005,IEN,2),"^",6)=8925 S CT=CT+1,MAGRY(CT)=$$ATTSTAT^MAGGTU31(IEN) 204 Q 205 ; 206 FLDS ;;Format: ;3;; 207 ;;Extension: ;1;; 208 FLDG ;;Patient: ;5;; 209 ;;Desc: ;10;; 210 ;;Procedure: ;6;; 211 ;; Date: ;15;; 212 ;;Class: ;41;; 213 ;;Package: ;40;; 214 ;;Type: ;42;; 215 ;;Proc/Event: ;43;; 216 ;;Spec/SubSpec: ;44;; 217 ;;Origin: ;45;; 218 ;;Captured on: ;7;; 219 ;; by: ;8;; 220 ;;end;;
Note:
See TracChangeset
for help on using the changeset viewer.