Global: ^MAG(2005.2

FileMan FileNo	FileMan Filename	Package
2005.2	NETWORK LOCATION	Imaging

Package	Total	Routines
Imaging	50	IMAGES PRINTED MAG REPORT 4 MAGBAPIP MAGBRTLD MAGBRTUT MAGDIR9B MAGDQR04 MAGDRPC1 MAGDRPC2 MAGDRPC5 MAGDRPC6 MAGDRPC7 MAGDRTIM MAGFILEB MAGGTSYS MAGGTU1 MAGGTU3 MAGGTU4M MAGGTU6 MAGGUJB MAGIP39B MAGIPT20 MAGJEX1 MAGJLS2B MAGJLST1 MAGJRT MAGJUTL2 MAGJUTL3 MAGQBAB MAGQBD MAGQBGCC MAGQBJB MAGQBJH MAGQBPG1 MAGQBPG2 MAGQBPRG MAGQBTM MAGQBU6A MAGQBUT MAGQBUT5 MAGSDEL5 MAGSFTCH MAGUF ^MAG(2005.2 MAGQBUT1 MAGQBUT4 MAGQBUT6 MAGUNET MAGVCQRY SHARE GROUP
MailMan	2	XMS0BLOB XMSFTPUX

Package	Total	Routines
Imaging	15	MAGBAPIP MAGDRPC2 MAGDRPC4 MAGFILEB MAGIP39B MAGIPT20 MAGNVQ01 MAGNVQ03 MAGQBU6A MAGQBUT1 MAGQE5 MAGSDEL5 MAGTP008 MAGUNET MAGVAG03
Scheduling	1	SDEC59

Package	Total	FileMan Files
Imaging	8	IMAGE(#2005)[2, 2.1, 2.2, 102, 103, #2005.01(.01), #2005.0106(2), #2005.0111(2)] IMAGE AUDIT(#2005.1)[2, 2.1, 2.2, 102, 103, #2005.11(.01), #2005.1106(2), #2005.1111(2)] NETWORK LOCATION(#2005.2)[31, #2005.22(.01)] IMAGE ACTIONS(#2005.86)[6] IMAGING SITE PARAMETERS(#2006.1)[.03, .031, .07, .08, 1.02, 1.03, 2.01, 52, 53, 55] MUSE FORMAT TABLE(#2006.172)[1] SEND QUEUE(#2006.035)[1] ARTIFACT INSTANCE(#2006.918)[7]

Package	Total	FileMan Files
Imaging	3	NETWORK LOCATION(#2005.2)[31, #2005.22(.01)] IMAGING SITE PARAMETERS(#2006.1)[.04] MUSE VERSIONS(#2006.17)[29]
Kernel	1	NEW PERSON(#200)[#2005.201(.01)]

Fields, Total: 33

Field #	Name	Loc	Type	Details
.01	NETWORK LOCATION	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `I $D(X) K:$L(X)>30!($L(X)<3)!'(X?1.E) X D CHKNAM^MAGQBUT6(.X)` LAST EDITED: `FEB 10, 2010` HELP-PROMPT: `Enter the alias name for the share; 3-30 characters in length.` DESCRIPTION: `This is the alias name of an Imaging share.` TECHNICAL DESCR: `This field must be unique within the site parameter file entry which systemically is referred to as PLACE.` DELETE TEST: `1,0)= D EN^DDIOL("Deletion is not allowed!") I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `2005.2^B` `1)= S ^MAG(2005.2,"B",$E(X,1,30),DA)=""` `2)= K ^MAG(2005.2,"B",$E(X,1,30),DA)` RECORD INDEXES: `D (#899)`
.04	PLACE	0;10	POINTER TO IMAGING SITE PARAMETERS FILE (#2006.1)	**********************REQUIRED FIELD********************** IMAGING SITE PARAMETERS(#2006.1) LAST EDITED: `MAY 29, 2009` DESCRIPTION: `This field identifies the SITE PARAMETER file entry. The Site parameter entry defines all of the attributes of Vista Imaging local area network.` `This includes facility user preferences, network write locations, etc.` RECORD INDEXES: `D (#899), F (#900), G (#901)`
1	PHYSICAL REFERENCE	0;2	FREE TEXT	INPUT TRANSFORM: `Q:($P($G(^MAG(2005.2,DA,0)),U,7)["GRP") K:($L(X)>120!($L(X)<1))!'((X?1"\\".E1"\".E1"\")!(X?1A1":\"1E.E1"\")!($P($$UPPER^MAGQE4(X),"//")["HTTP")) X D CHKNET^MAGQBUT6(.X)` LAST EDITED: `MAY 29, 2009` HELP-PROMPT: `Enter the name of the physical location for this device. Answer must be 1-120 characters in length.` DESCRIPTION: `This is the physical network location where the image is stored. This is the Universal Naming Convention (UNC) path for the Image Storage. For example: \\SERVER01\IMAGE1\` `This is a required field for all entries except for an entry defined with a RAID-GROUP STORAGE TYPE (#6).` `Duplicate PHYSICAL REFERENCE values within the same VistA Imaging configuration PLACE (#.04) are not allowed.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `2005.2^AC` `1)= S ^MAG(2005.2,"AC",X,DA)=""` `2)= K ^MAG(2005.2,"AC",X,DA)` `This cross-reference allows a network location to be looked up by physical name.` RECORD INDEXES: `C (#898), G (#901)`
2	TOTAL SPACE	0;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `JUL 28, 2014` HELP-PROMPT: `Type a number between 0 and 99999999999999, 0 decimal digits.` DESCRIPTION: `This is the total available formatted space of this network location.` `The information in this field is dependent on the connectivity of the share and may be set to zero if the share is not available.` `This field is maintained by the RPC MAGQ FS CHNGE.`
3	SPACE USED	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `JUL 28, 2014` HELP-PROMPT: `Type a number between 0 and 99999999999999, 0 decimal digits.` DESCRIPTION: `This is the amount of space which has been used for this network location - this value is device dependent.`
4	FREE SPACE	0;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `JUL 28, 2014` HELP-PROMPT: `Type a number between 0 and 99999999999999, 0 decimal digits.` DESCRIPTION: `This is the amount of available space remaining for this network location. The information in this field is dependent on the connectivity of the share and may be set to zero if the share is not available. This field is` `maintained by the RPC MAGQ FS CHNGE.`
5	OPERATIONAL STATUS	0;6	SET	**********************REQUIRED FIELD********************** '0' FOR Off-Line; '1' FOR On-Line; INPUT TRANSFORM: `Q:DA["+1" S:$P(^MAG(2005.2,DA,0),U,6)="" $P(^MAG(2005.2,DA,0),U,6)="0"` LAST EDITED: `FEB 20, 2003` HELP-PROMPT: `Code the Network Location ONline/OFFline status` DESCRIPTION: `This field tells the Imaging software whether or not this network location, where images are stored, is online. The default is online if the field is null.` TECHNICAL DESCR: NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `C (#898)`
5.5	READ ONLY	1;6	SET	'0' FOR NO; '1' FOR YES; INPUT TRANSFORM: `S:$P(^MAG(2005.2,DA,1),U,6)="" $P(^MAG(2005.2,DA,1),U,6)="0"` LAST EDITED: `JUL 10, 2007` DESCRIPTION: `This field enables applications to filter shares that are designated as read only by active VistA Imaging applications.`
6	STORAGE TYPE	0;7	SET	**********************REQUIRED FIELD********************** 'MAG' FOR MAGNETIC; 'WORM-DG' FOR WORM-DG; 'WORM-PDT' FOR WORM-PDT; 'RW' FOR READ/WRITE; 'WORM-OTG' FOR WORM-OTG; 'EKG' FOR MUSE-EKG; 'GCC' FOR EXPORT; 'DGM' FOR DIAGRAM; 'URL' FOR URL; 'RTR' FOR ROUTER; 'GRP' FOR RAID-GROUP; OUTPUT TRANSFORM: `S Y=$S(Y["MAG":"TIER 1",Y["WORM":"TIER 2",1:Y)` LAST EDITED: `DEC 26, 2012` HELP-PROMPT: `Enter the type of storage for this network location.` DESCRIPTION: `This field describes the media type of this network location. It should be MAGNETIC for a magnetic disk server.` `Jukeboxes should be WORM-DG for Data General Jukeboxes under OpenNetware or WORM-PDT for Pegasus Jukeboxes or WORM-OTG for OTG Disk Extender. WORM-DG and WORM-PDT are for backward compatibility only. Note: WORM stands for` `Write Once, Read Many.` `The GCC type refers to the Generic Carbon Copy (GCC) utility.` `URL is used for Web based file access.` `Type 'RTR' should be used to identify network entries that are used for Routing images.` `Type 'GRP' will identify a group entry and will allow sites to group network locations. This functionality is useful for the Background Processor and Verifier applications.` TECHNICAL DESCR: `The purpose of the Output Transform is to provide the user terminology consistent with modern network storage vernacular.` CROSS-REFERENCE: `2005.2^E` `1)= S ^MAG(2005.2,"E",$E(X,1,30),DA)=""` `2)= K ^MAG(2005.2,"E",$E(X,1,30),DA)` `Storage Type cross reference` RECORD INDEXES: `F (#900)`
7	HASH SUBDIRECTORY	0;8	SET	'Y' FOR YES; LAST EDITED: `NOV 19, 1999` DESCRIPTION: `Control whether subdirectory should be hashed.` TECHNICAL DESCR: `Imaging storage activities create a directory schema with the sites namespace as the primary directory and sub directories are created by parsing sequential 2 digit file name segments.` `The function DIRHASH in the M routine MAGFILEB calculates the hierarchical directory hash. The following is an example of the method it uses: For an 8.3 filename AB123456.XYZ, the directory hash is AB\12\34 For a 14.3` `filename BALT1234567890.XYZ, the directory hash is BALT\12\34\56\` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
8	ABSTRACT	1;1	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter Yes or No.` DESCRIPTION: `This field is a flag indicating whether or not a network location supports ABSTRACT image files'.`
9	FULL	1;2	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter Yes or No.` DESCRIPTION: `This field is a flag indicating whether or not a network location supports FULL image files.`
10	BIG	1;3	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter Yes or No.` DESCRIPTION: `This field is a flag indicating whether or not a network location supports BIG image files.`
11	TEXT	1;4	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter Yes or No.` DESCRIPTION: `This field is a flag indicating whether or not a network location supports TEXT image files.`
12	DICOM	1;5	SET	'0' FOR No; '1' FOR Yes; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter Yes or No.` DESCRIPTION: `This field is a flag indicating whether or not a network location supports DICOM image files.`
14	COMPRESSION	1;7	SET	'NONE' FOR None; 'J2K' FOR JPEG-2000; LAST EDITED: `SEP 03, 2004` HELP-PROMPT: `Enter a code for the type of compression (NONE means no compression).` DESCRIPTION: `This field indicates which type of compression, if any, is to use while transmitting files to this network location.`
15	USER NAME	2;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>31!($L(X)<1) X` LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter a valid user name for this network location.` DESCRIPTION: `This field is for a user name used to establish a connection with the network location.`
16	PASSWORD	2;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X Q:'$D(X) S MAGPAS=X S X=$$ENCRYP^ROUTINE(MAGPAS)` OUTPUT TRANSFORM: `S Y=""` LAST EDITED: `APR 15, 2009` HELP-PROMPT: `Enter a valid password for this user at this network location.` DESCRIPTION: `This field is a password used with a user name to establish a connection with this network location.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
17	MAINTAINCONNECTION	2;3	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `DEC 19, 2001` TECHNICAL DESCR: `This field allows the user to optimize the Export share output by maintaining the connection between export events. The normal export file copy connects to the share, copies a file, and then disconnects from the export` `share.`
18	MAX # RETRY ON CONNECT	3;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter the maximum number of attemps to establish a connection.` DESCRIPTION: `This field indicates the number of attempts to make to connect with the network location. When no connection can be established within this number of attempts, the status of the network location will be set to 'Off-Line'.`
19	MAX # RETRY ON TRANSMIT	3;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter the maximum number of attempts to transmit a file.` DESCRIPTION: `This field indicates the number of attempts to make to transmit a file. When a file cannot be transmitted within this number of attempts, its status will be set to 'FAILED'.`
20	SYNTAX	4;1	SET	'UNC' FOR UNC; LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter a code for the syntax of the name of this network location.` DESCRIPTION: `This field is a code for the syntax that describes the actual (physical) name of the network location.`
21	SUBDIRECTORY	4;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>64!($L(X)<1) X` LAST EDITED: `SEP 29, 1998` HELP-PROMPT: `Enter the name of the subdirectory where files are to be stored.` DESCRIPTION: `Files are typically not stored in root directories.` `This field is the name of a subdirectory where files are to be stored. The value of this field is concatenated to the name of the network location (the 'physical name') to create the complete path-name for the location` `where files are to be stored. When "directory hashing" iS active, additional subdirectory names will be added to the above-mentioned path-name before the file name is appended.`
22	EMAIL	5;0	POINTER Multiple #2005.201	2005.201
23	RETENTION PERIOD	3;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>365)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `NOV 10, 1998` HELP-PROMPT: `Enter the number of days that routed images will be retained.` DESCRIPTION: `This field indicates the number of days to retain routed image files at the location identified by this entry in the NETWORK LOCATION file.` `When Images are present for more than this number of days, they are candidates for automatic removal.`
24	LAST PURGE DATE	3;4	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 10, 1998` HELP-PROMPT: `Enter the date of the latest automatic purge at this location.` DESCRIPTION: `This field indicates the date and time of the most recent purge at this network location. An automatic purge will be executed at most once per day; the value of this field determines whether or not a purge has already` `taken place.`
25	SITE	3;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<3) X` LAST EDITED: `DEC 11, 1998` HELP-PROMPT: `Enter the three-letter abbreviation for the site.` DESCRIPTION: `This field is a code for the site of the 'network location.` `This code is typically a three-letter abbreviation\acronym (WAS for Washington DC, STL for St. Louis, etcetera). For stations 'at home', a longer code that starts with "HOME" is entered.`
26	ROUTER	0;9	SET	'0' FOR NO; '1' FOR YES; INPUT TRANSFORM: `Q:DA="+1" S:$P(^MAG(2005.2,DA,0),U,9)="" $P(^MAG(2005.2,DA,0),U,9)="0"` LAST EDITED: `FEB 19, 2008` DESCRIPTION: `This boolean value is used to designate certain network location shares as routing shares. This is necessary to allow clinical WS applications access to images on these shares but to prevent the background processor from` `designating this share as the current write location.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
27	TIME OFFLINE	3;6	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 10, 1999` HELP-PROMPT: `Enter the date and time that this equipment went off-line.` DESCRIPTION: `This field is a time stamp indicating when the equipment in question most recently went off-line. This time stamp is used by the Routing software to decide whether or not to attempt to reconnect to a destination that was` `not reachable at an earlier stage.`
28	MUSE SITE #	6;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `FEB 08, 2000` HELP-PROMPT: `Type a Number between 0 and 20, 0 Decimal Digits` DESCRIPTION: `If this is a MUSE EKG network location, enter the MUSE site number for this location. Typically, a site with a single MUSE server that holds EKGs for one site uses 1. If a MUSE server stores EKGs for more than one site,` `then Marquette assigns each site a MUSE site number.`
29	MUSE VERSION #	6;2	POINTER TO MUSE VERSIONS FILE (#2006.17)	MUSE VERSIONS(#2006.17) LAST EDITED: `FEB 28, 2000` HELP-PROMPT: `Enter the MUSE version number.` DESCRIPTION: `Enter the MUSE version number if this network location is a MUSE EKG storage type.`
30	SHARE GROUP	7;0	POINTER Multiple #2005.22	2005.22 DESCRIPTION: `This subfile identifies the entries that are part of a Shared Group Imaging sites can use this functionality to group their network shares.`
31	GROUP MEMBER	1;8	POINTER TO NETWORK LOCATION FILE (#2005.2)	NETWORK LOCATION(#2005.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,7)=""GRP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `SEP 05, 2007` DESCRIPTION: `This field identifies the Group name that this network location` `is part of. Only entries that have a Storage Type of 'GRP' can` `be selected.` SCREEN: `S DIC("S")="I $P(^(0),U,7)=""GRP"""` EXPLANATION: `This should only reference a STORAGE TYPE of 'GRP'.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #460	MailMan	NAME (.01). Access: Both R/W w/Fileman PHYSICAL REFERENCE (1). Access: Both R/W w/Fileman	This file (NETWORK LOCATION) is used to store information about where an imagemay be found.
ICR #5450	Kernel
ICR #6353	Scheduling	PHYSICAL REFERENCE (1). Access: Read w/Fileman	This file will contain an entry for every network storage location, as wellas MUSE (EKG) network location(s). This file maps logical device names tophysical device names, allowing continued operation even when network storagedevices are down. The Imaging site parameters has a number of fields pointingto this file to locate where on the network different files are written.Because the Imaging System operates in a distributed environment, an objectmay be stored on one or more of the network storage devices. These includemultiple magnetic file servers, one or more optical jukeboxes, and possiblyadditional network devices accessed through a gateway.

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	24+1, 27+1
>> DA	IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXFSL+1, IXFKL+1, IXGSL+1, IXGKL+1, .01(XREF 1S), .01(XREF 1K) , 1+1, 1(XREF 1S), 1(XREF 1K), 6(XREF 1S), 6(XREF 1K)
DIC	31+1!*
DIC("S"	31+1, 31SCR+1
>> DIE	31+1
>> MAGPAS	16+1*
U	1+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 3+1!, 4+1!, 6(XREF 1S) , 6(XREF 1K), 15+1!, 16+1!, 18+1!, 19+1!, 21+1!, 23+1!, 24+1!, 25+1!, 27+1! , 28+1!, 31+1!
X(1	IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXFSL+1, IXFKL+1, IXGSL+1, IXGKL+1
X(2	IXCSL+1, IXCKL+1, IXDSL+1, IXDKL+1, IXFSL+1, IXFKL+1, IXGSL+1, IXGKL+1
>> Y	6OT+1, 16OT+1, 24+1, 27+1, 31+1
>> Y(0	6OT+1, 16OT+1

Customize PDF page

Package: Imaging

Global: ^MAG(2005.2

Information

Description

Directly Accessed By Routines, Total: 55

Accessed By FileMan Db Calls, Total: 16

Pointed To By FileMan Files, Total: 8

Pointer To FileMan Files, Total: 4

Fields, Total: 33

Found Entries, Total: 5

ICR, Total: 3

External References

Global Variables Directly Accessed

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	24+1, 27+1
EN^DDIOL	.01DEL1+1
^DIC	31+1
CHKNAM^MAGQBUT6	.01+1
CHKNET^MAGQBUT6	1+1
$$UPPER^MAGQE4	1+1
$$ENCRYP^ROUTINE	16+1