KIDS Distribution saved on Nov 09, 2006@13:05:07
gft
**KIDS**:MSCGMAG*1.0*5^

**INSTALL NAME**
MSCGMAG*1.0*5
"BLD",6303,0)
MSCGMAG*1.0*5^^0^3061109^n
"BLD",6303,1,0)
^^6^6^3061109^
"BLD",6303,1,1,0)
MEDSPHERE INSTALLATION OF IMAGING
"BLD",6303,1,2,0)
 
"BLD",6303,1,3,0)
'MSCGMAG CAT IMAGES' RPC gets images for a patient by CATEGORY
"BLD",6303,1,4,0)
 
"BLD",6303,1,5,0)
Sample test call:
"BLD",6303,1,6,0)
 MIDLAND>D CATEGORY^MSCGMAG(.GFT,55536,67) ZW GFT
"BLD",6303,4,0)
^9.64PA^2005.02^2
"BLD",6303,4,2005.02,0)
2005.02
"BLD",6303,4,2005.02,222)
y^y^f^^n^^y^o^n
"BLD",6303,4,2005.02,21400)
0
"BLD",6303,4,2005.2,0)
2005.2
"BLD",6303,4,2005.2,2,0)
^9.641^2005.2^1
"BLD",6303,4,2005.2,2,2005.2,0)
NETWORK LOCATION  (File-top level)
"BLD",6303,4,2005.2,2,2005.2,1,0)
^9.6411^20^2
"BLD",6303,4,2005.2,2,2005.2,1,1,0)
PHYSICAL REFERENCE
"BLD",6303,4,2005.2,2,2005.2,1,20,0)
SYNTAX
"BLD",6303,4,2005.2,222)
y^n^p^^^^n^^
"BLD",6303,4,2005.2,224)

"BLD",6303,4,2005.2,21400)
0
"BLD",6303,4,"APDD",2005.2,2005.2)

"BLD",6303,4,"APDD",2005.2,2005.2,1)

"BLD",6303,4,"APDD",2005.2,2005.2,20)

"BLD",6303,4,"B",2005.02,2005.02)

"BLD",6303,4,"B",2005.2,2005.2)

"BLD",6303,"KRN",0)
^9.67PA^8989.52^19
"BLD",6303,"KRN",.4,0)
.4
"BLD",6303,"KRN",.401,0)
.401
"BLD",6303,"KRN",.402,0)
.402
"BLD",6303,"KRN",.403,0)
.403
"BLD",6303,"KRN",.5,0)
.5
"BLD",6303,"KRN",.84,0)
.84
"BLD",6303,"KRN",3.6,0)
3.6
"BLD",6303,"KRN",3.8,0)
3.8
"BLD",6303,"KRN",9.2,0)
9.2
"BLD",6303,"KRN",9.8,0)
9.8
"BLD",6303,"KRN",9.8,"NM",0)
^9.68A^2^2
"BLD",6303,"KRN",9.8,"NM",1,0)
MSCGMAG^^0^B10787194
"BLD",6303,"KRN",9.8,"NM",2,0)
MSCGPT^^0^B23171150
"BLD",6303,"KRN",9.8,"NM","B","MSCGMAG",1)

"BLD",6303,"KRN",9.8,"NM","B","MSCGPT",2)

"BLD",6303,"KRN",19,0)
19
"BLD",6303,"KRN",19,"NM",0)
^9.68A^^
"BLD",6303,"KRN",19.1,0)
19.1
"BLD",6303,"KRN",19.1,"NM",0)
^9.68A^5^5
"BLD",6303,"KRN",19.1,"NM",1,0)
MAGCAP PHOTOID^^0
"BLD",6303,"KRN",19.1,"NM",2,0)
MAGCAP TIU^^0
"BLD",6303,"KRN",19.1,"NM",3,0)
MAGCAP MED GEN^^0
"BLD",6303,"KRN",19.1,"NM",4,0)
MAG DELETE^^0
"BLD",6303,"KRN",19.1,"NM",5,0)
MSCGMAGSAV^^0
"BLD",6303,"KRN",19.1,"NM","B","MAG DELETE",4)

"BLD",6303,"KRN",19.1,"NM","B","MAGCAP MED GEN",3)

"BLD",6303,"KRN",19.1,"NM","B","MAGCAP PHOTOID",1)

"BLD",6303,"KRN",19.1,"NM","B","MAGCAP TIU",2)

"BLD",6303,"KRN",19.1,"NM","B","MSCGMAGSAV",5)

"BLD",6303,"KRN",101,0)
101
"BLD",6303,"KRN",409.61,0)
409.61
"BLD",6303,"KRN",771,0)
771
"BLD",6303,"KRN",870,0)
870
"BLD",6303,"KRN",8989.51,0)
8989.51
"BLD",6303,"KRN",8989.52,0)
8989.52
"BLD",6303,"KRN",8994,0)
8994
"BLD",6303,"KRN",8994,"NM",0)
^9.68A^7^7
"BLD",6303,"KRN",8994,"NM",1,0)
MSCGMAG CPRS TIU NOTE^^0
"BLD",6303,"KRN",8994,"NM",2,0)
MSCGMAG GROUP IMAGES^^0
"BLD",6303,"KRN",8994,"NM",3,0)
MSCGMAG PAT IMAGES^^0
"BLD",6303,"KRN",8994,"NM",4,0)
MSCGMAG PAT PHOTOS^^0
"BLD",6303,"KRN",8994,"NM",5,0)
MAGGUSERKEYS^^0
"BLD",6303,"KRN",8994,"NM",6,0)
MSCGPT LOOKUP MASKS^^0
"BLD",6303,"KRN",8994,"NM",7,0)
MSCGMAG CAT IMAGES^^0
"BLD",6303,"KRN",8994,"NM","B","MAGGUSERKEYS",5)

"BLD",6303,"KRN",8994,"NM","B","MSCGMAG CAT IMAGES",7)

"BLD",6303,"KRN",8994,"NM","B","MSCGMAG CPRS TIU NOTE",1)

"BLD",6303,"KRN",8994,"NM","B","MSCGMAG GROUP IMAGES",2)

"BLD",6303,"KRN",8994,"NM","B","MSCGMAG PAT IMAGES",3)

"BLD",6303,"KRN",8994,"NM","B","MSCGMAG PAT PHOTOS",4)

"BLD",6303,"KRN",8994,"NM","B","MSCGPT LOOKUP MASKS",6)

"BLD",6303,"KRN","B",.4,.4)

"BLD",6303,"KRN","B",.401,.401)

"BLD",6303,"KRN","B",.402,.402)

"BLD",6303,"KRN","B",.403,.403)

"BLD",6303,"KRN","B",.5,.5)

"BLD",6303,"KRN","B",.84,.84)

"BLD",6303,"KRN","B",3.6,3.6)

"BLD",6303,"KRN","B",3.8,3.8)

"BLD",6303,"KRN","B",9.2,9.2)

"BLD",6303,"KRN","B",9.8,9.8)

"BLD",6303,"KRN","B",19,19)

"BLD",6303,"KRN","B",19.1,19.1)

"BLD",6303,"KRN","B",101,101)

"BLD",6303,"KRN","B",409.61,409.61)

"BLD",6303,"KRN","B",771,771)

"BLD",6303,"KRN","B",870,870)

"BLD",6303,"KRN","B",8989.51,8989.51)

"BLD",6303,"KRN","B",8989.52,8989.52)

"BLD",6303,"KRN","B",8994,8994)

"BLD",6303,"MSC")
D:\R\MIDLAND\MSCGMAG5.KID
"BLD",6303,"QUES",0)
^9.62^^
"BLD",6303,"REQB",0)
^9.611^^
"DATA",2005.02,1,0)
STILL IMAGE^1
"DATA",2005.02,1,1,0)
^2005.21^1^3
"DATA",2005.02,1,1,1,0)
DISPABST.MAGWABS
"DATA",2005.02,1,1,2,0)
DISPLAY.MAGSTI
"DATA",2005.02,1,1,3,0)
DISPABST.MAGWABS
"DATA",2005.02,1,4)
JPG
"DATA",2005.02,2,0)
STILL IMAGE^1
"DATA",2005.02,2,1,0)
^2005.21^3^3
"DATA",2005.02,2,1,1,0)
DISPABST.MAGWABS
"DATA",2005.02,2,1,2,0)
DISPLAY.MAGSTI
"DATA",2005.02,2,1,3,0)
DISPABST.MAGWABS
"DATA",2005.02,2,4)
JPG
"DATA",2005.02,3,0)
XRAY^1
"DATA",2005.02,3,1,0)
^2005.21^5^2
"DATA",2005.02,3,1,4,0)
DISPLAY.MAGRXRY
"DATA",2005.02,3,1,5,0)
DISPABST.MAGWABS
"DATA",2005.02,9,0)
BWMED^1
"DATA",2005.02,9,1,0)
^2005.21^6^2
"DATA",2005.02,9,1,4,0)
DISPABST.MAGWABS
"DATA",2005.02,9,1,6,0)
DISPLAY.MAGOBW
"DATA",2005.02,10,0)
PACS RESIDENT^0
"DATA",2005.02,10,1,0)
^2005.21^3^2
"DATA",2005.02,10,1,1,0)
DISPLAY.MAGKDIS
"DATA",2005.02,10,1,3,0)
DISPABST.MAGKABS
"DATA",2005.02,11,0)
XRAY GROUP^0
"DATA",2005.02,11,1,0)
^2005.21^3^3
"DATA",2005.02,11,1,1,0)
DISPABST.MAGKDGP1
"DATA",2005.02,11,1,2,0)
DISPLAY.MAGKDGP
"DATA",2005.02,11,1,3,0)
DISPCINE.MAGCIN
"DATA",2005.02,12,0)
PACS GROUP^0
"DATA",2005.02,12,1,0)
^2005.21^3^2
"DATA",2005.02,12,1,1,0)
DISPLAY.MAGKDISP
"DATA",2005.02,12,1,3,0)
DISPABST.MAGKABS
"DATA",2005.02,13,0)
ECG^0
"DATA",2005.02,13,1,0)
^2005.21^5^2
"DATA",2005.02,13,1,4,0)
DISPABST.MAGOECGA
"DATA",2005.02,13,1,5,0)
DISPLAY.MAGOECGF
"DATA",2005.02,14,0)
CINE LOOP^1
"DATA",2005.02,14,1,0)
^2005.21^2^2
"DATA",2005.02,14,1,1,0)
DISPLAY.MAGCIN
"DATA",2005.02,14,1,2,0)
DISPABST.MAGKDGP1
"DATA",2005.02,15,0)
DOCUMENT^0
"DATA",2005.02,15,4)
TIF
"DATA",2005.02,16,0)
STILL IMAGE GROUP^0
"DATA",2005.02,16,1,0)
^2005.21^1^1
"DATA",2005.02,16,1,1,0)
DISPABST.MAGKDGP1
"DATA",2005.02,17,0)
COLORSCAN^0
"DATA",2005.02,17,1,0)
^2005.21^2^2
"DATA",2005.02,17,1,1,0)
DISPABST.MAGRDOS1
"DATA",2005.02,17,1,2,0)
DISPLAY.MAGRDOS1
"DATA",2005.02,18,0)
PATIENT PHOTO^0
"DATA",2005.02,19,0)
XRAY JPG
"DATA",2005.02,20,0)
JPG XRAY^0
"DATA",2005.02,21,0)
MOTION VIDEO
"DATA",2005.02,21,4)
AVI
"DATA",2005.02,64,0)
URL
"DATA",2005.02,65,0)
UNKNOWN
"DATA",2005.02,66,0)
DELETED IMAGE^0
"DATA",2005.02,67,0)
INVALID IMAGE NUMBER^0
"DATA",2005.02,100,0)
DICOM IMAGE
"DATA",2005.02,101,0)
HTML
"DATA",2005.02,101,4)
HTM
"DATA",2005.02,102,0)
WORD
"DATA",2005.02,102,4)
DOC
"DATA",2005.02,103,0)
TEXT
"DATA",2005.02,103,4)
ASC
"DATA",2005.02,104,0)
ADOBE
"DATA",2005.02,104,4)
PDF
"DATA",2005.02,105,0)
RICH TEXT
"DATA",2005.02,105,4)
RTF
"DATA",2005.02,106,0)
AUDIO
"DATA",2005.02,106,4)
WAV
"FIA",2005.02)
OBJECT TYPE
"FIA",2005.02,0)
^MAG(2005.02,
"FIA",2005.02,0,0)
2005.02
"FIA",2005.02,0,1)
y^y^f^^n^^y^o^n
"FIA",2005.02,0,10)

"FIA",2005.02,0,11)

"FIA",2005.02,0,"RLRO")

"FIA",2005.02,2005.02)
0
"FIA",2005.02,2005.21)
0
"FIA",2005.02,2005.24)
0
"FIA",2005.2)
NETWORK LOCATION
"FIA",2005.2,0)
^MAG(2005.2,
"FIA",2005.2,0,0)
2005.2I
"FIA",2005.2,0,1)
y^n^p^^^^n^^
"FIA",2005.2,0,10)

"FIA",2005.2,0,11)

"FIA",2005.2,0,"RLRO")

"FIA",2005.2,2005.2)
1
"FIA",2005.2,2005.2,1)

"FIA",2005.2,2005.2,20)

"IX",2005.2,2005.2,"C",0)
2005.2^C^PHYSICAL REFERENCE and OPERATIONAL STATUS^MU^^R^IR^I^2005.2^^^^^LS
"IX",2005.2,2005.2,"C",.1,0)
^^1^1^3030220^
"IX",2005.2,2005.2,"C",.1,1,0)
This cross reference keeps track of which devices are on (or off) line.
"IX",2005.2,2005.2,"C",1)
S ^MAG(2005.2,"C",X(1),X(2),DA)=""
"IX",2005.2,2005.2,"C",2)
K ^MAG(2005.2,"C",X(1),X(2),DA)
"IX",2005.2,2005.2,"C",2.5)
K ^MAG(2005.2,"C")
"IX",2005.2,2005.2,"C",11.1,0)
^.114IA^2^2
"IX",2005.2,2005.2,"C",11.1,1,0)
1^F^2005.2^1^63^1^F
"IX",2005.2,2005.2,"C",11.1,2,0)
2^F^2005.2^5^^2^F
"KRN",19.1,326,-1)
0^1
"KRN",19.1,326,0)
MAGCAP PHOTOID^Photo ID capture key
"KRN",19.1,326,1,0)
^^1^1^3010417^
"KRN",19.1,326,1,1,0)
VistA Imaging security key to capture image as a patient's Photo ID.
"KRN",19.1,327,-1)
0^2
"KRN",19.1,327,0)
MAGCAP TIU^TIU capture key
"KRN",19.1,327,1,0)
^^1^1^3010417^
"KRN",19.1,327,1,1,0)
VistA Imaging security key to capture images to TIU entries.
"KRN",19.1,328,-1)
0^4
"KRN",19.1,328,0)
MAG DELETE^Image delete function
"KRN",19.1,328,1,0)
^19.11^3^3^3060412^^^^
"KRN",19.1,328,1,1,0)
This key allows the holder to delete images from File 2005; 
"KRN",19.1,328,1,2,0)
pointers in parent packages such as Medicine, Surgery, Lab,
"KRN",19.1,328,1,3,0)
and Radiology will also be deleted.
"KRN",19.1,331,-1)
0^3
"KRN",19.1,331,0)
MAGCAP MED GEN^GENERIC MED CAPTURE KEY
"KRN",19.1,331,1,0)
^^1^1^2970417^^^^
"KRN",19.1,331,1,1,0)
User can capture Generic Med images from the Imaging Capture workstation
"KRN",19.1,453,-1)
0^5
"KRN",19.1,453,0)
MSCGMAGSAV^ALLOWS EXTERNAL VIEWER
"KRN",19.1,453,1,0)
^^4^4^3060222^
"KRN",19.1,453,1,1,0)
"Open in External Viewer..." button only visible when user has key
"KRN",19.1,453,1,2,0)
 
"KRN",19.1,453,1,3,0)
After opening external viewer, displays message saying "When done 
"KRN",19.1,453,1,4,0)
viewing, click "OK" to delete temporary file from file system."
"KRN",8994,966,-1)
0^5
"KRN",8994,966,0)
MAGGUSERKEYS^USERKEYS^MAGGTU3^2^R
"KRN",8994,966,1,0)
^8994.01^1^1^3000517^^^
"KRN",8994,966,1,1,0)
Return an array of Imaging Keys that this user holds.
"KRN",8994,966,3,0)
^8994.03^3^3^3000517^^^
"KRN",8994,966,3,1,0)
Returns an array of IMAGING Security Keys
"KRN",8994,966,3,2,0)
to use on the workstation to limit capture ability
"KRN",8994,966,3,3,0)
and to limit functionality on Display application.
"KRN",8994,2049,-1)
0^3
"KRN",8994,2049,0)
MSCGMAG PAT IMAGES^IMAGES^MSCGMAG^2^R^^^1
"KRN",8994,2049,1,0)
^8994.01^1^1^3051021^^
"KRN",8994,2049,1,1,0)
This returns the full list of images for a patient.
"KRN",8994,2049,2,0)
^8994.02A^1^1
"KRN",8994,2049,2,1,0)
MAGDFN^1^20^1^1
"KRN",8994,2049,2,1,1,0)
^8994.021^1^1^3051021^^
"KRN",8994,2049,2,1,1,1,0)
This is DFN of patient.
"KRN",8994,2049,2,"B","MAGDFN",1)

"KRN",8994,2049,2,"PARAMSEQ",1,1)

"KRN",8994,2049,3,0)
^^17^17^3051021^
"KRN",8994,2049,3,1,0)
Returns an array, (Global Array if list gets too big), of all images for 
"KRN",8994,2049,3,2,0)
the patient.
"KRN",8994,2049,3,3,0)
Each list entry has image info in the format :
"KRN",8994,2049,3,4,0)
 - - - - - - -
"KRN",8994,2049,3,5,0)
$P(1^2^3)      IEN^Image FullPath and name^Abstract FullPath and Name
"KRN",8994,2049,3,6,0)
$P(4)          SHORT DESCRIPTION field and desc of offline JukeBox
"KRN",8994,2049,3,7,0)
$P(5)          PROCEDURE / EXAM DATE/TIME field
"KRN",8994,2049,3,8,0)
$P(6)          OBJECT TYPE
"KRN",8994,2049,3,9,0)
$P(7)          PROCEDURE field
"KRN",8994,2049,3,10,0)
$P(8)          display date
"KRN",8994,2049,3,11,0)
$P(9)          to return the PARENT DATA FILE image pointer
"KRN",8994,2049,3,12,0)
$P(10)         return the ABSTYPE  'M' magnetic 'W' worm  'O' offline
"KRN",8994,2049,3,13,0)
$P(11)         is  'A' accessable   'O' offline
"KRN",8994,2049,3,14,0)
$P(12^13)      Dicom Series Number and Image Number
"KRN",8994,2049,3,15,0)
$P(14)         is count of images in group, 1 if single image.
"KRN",8994,2049,3,16,0)
$P(24)         Image capture date time (FMDateTime format)
"KRN",8994,2049,3,17,0)
 - - - - - - -
"KRN",8994,2050,-1)
0^2
"KRN",8994,2050,0)
MSCGMAG GROUP IMAGES^GROUP^MSCGMAG^2^R^^^1
"KRN",8994,2050,1,0)
^^1^1^3051021^
"KRN",8994,2050,1,1,0)
Returns array of images for an Image entry.
"KRN",8994,2050,2,0)
^8994.02A^1^1
"KRN",8994,2050,2,1,0)
MAGIEN^1^30^1^1
"KRN",8994,2050,2,1,1,0)
^^1^1^3051021^
"KRN",8994,2050,2,1,1,1,0)
Internal entry of Image entry in Image File ^MAG(2005,
"KRN",8994,2050,2,"B","MAGIEN",1)

"KRN",8994,2050,2,"PARAMSEQ",1,1)

"KRN",8994,2050,3,0)
^^2^2^3051021^
"KRN",8994,2050,3,1,0)
Array of Image information for each entry in the Image Group
"KRN",8994,2050,3,2,0)
$P(24)    Image capture date/time (FMDateTime format)
"KRN",8994,2051,-1)
0^1
"KRN",8994,2051,0)
MSCGMAG CPRS TIU NOTE^TIUIMGS^MSCGMAG^2^^^^1
"KRN",8994,2051,1,0)
^^1^1^3051021^
"KRN",8994,2051,1,1,0)
Returns a list of all images for a TIU document.
"KRN",8994,2051,2,0)
^8994.02A^1^1
"KRN",8994,2051,2,1,0)
TIUDA^1^30^1^1
"KRN",8994,2051,2,1,1,0)
^^1^1^3051021^
"KRN",8994,2051,2,1,1,1,0)
Internal entry number of document i.e. ^TIU(8925,TIUDA
"KRN",8994,2051,2,"B","TIUDA",1)

"KRN",8994,2051,2,"PARAMSEQ",1,1)

"KRN",8994,2051,3,0)
^^11^11^3051021^
"KRN",8994,2051,3,1,0)
Array of "^" delimited Image information in the format :
"KRN",8994,2051,3,2,0)
$P(1^2^3) IEN^Image FullPath and name^Abstract FullPath and Name
"KRN",8994,2051,3,3,0)
$P(4)     SHORT DESCRIPTION field
"KRN",8994,2051,3,4,0)
$P(5)     PROCEDURE / EXAM DATE/TIME field
"KRN",8994,2051,3,5,0)
$P(6)     OBJECT TYPE
"KRN",8994,2051,3,6,0)
$P(7)     PROCEDURE field
"KRN",8994,2051,3,7,0)
$P(8)     Procedure Date in Display format
"KRN",8994,2051,3,8,0)
$P(9)     PARENT DATA FILE image pointer
"KRN",8994,2051,3,9,0)
$P(10)    the ABSTYPE :  'M' magnetic 'W' worm  'O' offline
"KRN",8994,2051,3,10,0)
$P(24)    Capture Date/Time in FMDateTime format
"KRN",8994,2051,3,11,0)
$P(25)    Parent Data File;File IEN
"KRN",8994,2052,-1)
0^4
"KRN",8994,2052,0)
MSCGMAG PAT PHOTOS^PHOTOS^MSCGMAG^2^^^^1
"KRN",8994,2053,-1)
0^6
"KRN",8994,2053,0)
MSCGPT LOOKUP MASKS^LKUPMSKS^MSCGPT^2^^^^1
"KRN",8994,2053,1,0)
^^11^11^3051027^
"KRN",8994,2053,1,1,0)
Returns an array of masks identifying the supported patient lookups.
"KRN",8994,2053,1,2,0)
Each line is formatted as follows:
"KRN",8994,2053,1,3,0)
[NORMAL RPC NAME]^[RPL RPC NAME]$C(31)[REGULAR EXPRESSION]
"KRN",8994,2053,1,4,0)
 
"KRN",8994,2053,1,5,0)
The [NORMAL RPC NAME] is the name of the RPC to use for a normal patient 
"KRN",8994,2053,1,6,0)
lookup.
"KRN",8994,2053,1,7,0)
The [RPL RPC NAME] is the name of the RPC to use for a restricted patient 
"KRN",8994,2053,1,8,0)
list lookup.
"KRN",8994,2053,1,9,0)
[REGULAR EXPRESSION] is a perl regular expression that is used to tell 
"KRN",8994,2053,1,10,0)
whether a given input should use the assigned rpcs to perform the 
"KRN",8994,2053,1,11,0)
patient lookup.
"KRN",8994,2182,-1)
0^7
"KRN",8994,2182,0)
MSCGMAG CAT IMAGES^CATEGORY^MSCGMAG^2^^^^1
"KRN",8994,2182,1,0)
^^5^5^3061107^
"KRN",8994,2182,1,1,0)
The RPC, "MSCGMAG CAT IMAGES" takes a category ID 
"KRN",8994,2182,1,2,0)
(from FILE 2005.81, the same file as the results of MAGGDESCCAT).
"KRN",8994,2182,1,3,0)
  As output, it lists the images for the current patient that have 
"KRN",8994,2182,1,4,0)
the provided category.  The output is 
"KRN",8994,2182,1,5,0)
similar to MSCGMAG CPRS TIU NOTE and MSCGMAG PAT IMAGES RPCs. 
"KRN",8994,2182,2,0)
^8994.02A^2^2
"KRN",8994,2182,2,1,0)
MAGDFN^1^20^1^1
"KRN",8994,2182,2,1,1,0)
^^1^1^3061107^
"KRN",8994,2182,2,1,1,1,0)
PATIENT DFN
"KRN",8994,2182,2,2,0)
CATEGORY^1^50^1^2
"KRN",8994,2182,2,2,1,0)
^^1^1^3061107^
"KRN",8994,2182,2,2,1,1,0)
IEN OF FILE 2005.81
"KRN",8994,2182,2,"B","CATEGORY",2)

"KRN",8994,2182,2,"B","MAGDFN",1)

"KRN",8994,2182,2,"PARAMSEQ",1,1)

"KRN",8994,2182,2,"PARAMSEQ",2,2)

"KRN",8994,2182,3,0)
^^1^1^3061107^
"KRN",8994,2182,3,1,0)
AS WITH MSCGMAG PAT IMAGES
"MBREQ")
0
"ORD",3,19.1)
19.1;3;1;;KEY^XPDTA1;;;KEYF2^XPDIA1;;KEYDEL^XPDIA1
"ORD",3,19.1,0)
SECURITY KEY
"ORD",16,8994)
8994;16;1;;;;;;;RPCDEL^XPDIA1
"ORD",16,8994,0)
REMOTE PROCEDURE
"QUES","XPF1",0)
Y
"QUES","XPF1","??")
^D REP^XPDH
"QUES","XPF1","A")
Shall I write over your |FLAG| File
"QUES","XPF1","B")
YES
"QUES","XPF1","M")
D XPF1^XPDIQ
"QUES","XPF2",0)
Y
"QUES","XPF2","??")
^D DTA^XPDH
"QUES","XPF2","A")
Want my data |FLAG| yours
"QUES","XPF2","B")
YES
"QUES","XPF2","M")
D XPF2^XPDIQ
"QUES","XPI1",0)
YO
"QUES","XPI1","??")
^D INHIBIT^XPDH
"QUES","XPI1","A")
Want KIDS to INHIBIT LOGONs during the install
"QUES","XPI1","B")
YES
"QUES","XPI1","M")
D XPI1^XPDIQ
"QUES","XPM1",0)
PO^VA(200,:EM
"QUES","XPM1","??")
^D MG^XPDH
"QUES","XPM1","A")
Enter the Coordinator for Mail Group '|FLAG|'
"QUES","XPM1","B")

"QUES","XPM1","M")
D XPM1^XPDIQ
"QUES","XPO1",0)
Y
"QUES","XPO1","??")
^D MENU^XPDH
"QUES","XPO1","A")
Want KIDS to Rebuild Menu Trees Upon Completion of Install
"QUES","XPO1","B")
YES
"QUES","XPO1","M")
D XPO1^XPDIQ
"QUES","XPZ1",0)
Y
"QUES","XPZ1","??")
^D OPT^XPDH
"QUES","XPZ1","A")
Want to DISABLE Scheduled Options, Menu Options, and Protocols
"QUES","XPZ1","B")
YES
"QUES","XPZ1","M")
D XPZ1^XPDIQ
"QUES","XPZ2",0)
Y
"QUES","XPZ2","??")
^D RTN^XPDH
"QUES","XPZ2","A")
Want to MOVE routines to other CPUs
"QUES","XPZ2","B")
NO
"QUES","XPZ2","M")
D XPZ2^XPDIQ
"RTN")
2
"RTN","MSCGMAG")
0^1^B10787194
"RTN","MSCGMAG",1,0)
MSCGMAG ; WAS/MSC -- Imaging functions ;9NOV2006
"RTN","MSCGMAG",2,0)
 ;
"RTN","MSCGMAG",3,0)
IMAGES(MAGRY,MAGDFN) ;RPC [MSCGMAG PAT IMAGES]
"RTN","MSCGMAG",4,0)
 ;  Call to return a list of images for a patient.
"RTN","MSCGMAG",5,0)
 ;   We are returning all images for a patient, Groups are returned
"RTN","MSCGMAG",6,0)
 ;   as one Image.
"RTN","MSCGMAG",7,0)
 ;   The Images are returned in Rev Chronological Order, latest image
"RTN","MSCGMAG",8,0)
 ;   first, oldest image last.
"RTN","MSCGMAG",9,0)
 ;   User can reorder at the workstation level.
"RTN","MSCGMAG",10,0)
 D IMAGES^MAGGTIG(.MAGRY,MAGDFN)
"RTN","MSCGMAG",11,0)
 D:$O(MAGRY(0)) INFO(.MAGRY)
"RTN","MSCGMAG",12,0)
 Q
"RTN","MSCGMAG",13,0)
 ;
"RTN","MSCGMAG",14,0)
 ;
"RTN","MSCGMAG",15,0)
CATEGORY(MAGRY,MAGDFN,MSCATEGO) ;'MSCGMAG CAT IMAGES' RPC
"RTN","MSCGMAG",16,0)
 I '$G(MSCATEGO)!'$G(MAGDFN) S MSC(0)=0 Q
"RTN","MSCGMAG",17,0)
 I '$D(^MAG(2005.81,MSCATEGO,0)) S MSC(0)=0 Q
"RTN","MSCGMAG",18,0)
 D IMAGES^MAGGTIG(.MAGRY,MAGDFN)
"RTN","MSCGMAG",19,0)
 D:$O(MAGRY(0)) INFO(.MAGRY,MSCATEGO)
"RTN","MSCGMAG",20,0)
 Q
"RTN","MSCGMAG",21,0)
 ;
"RTN","MSCGMAG",22,0)
 ;
"RTN","MSCGMAG",23,0)
INFO(MAGRY,MSCATEGO) ;
"RTN","MSCGMAG",24,0)
 N I,IEN
"RTN","MSCGMAG",25,0)
 S I=0
"RTN","MSCGMAG",26,0)
 F  S I=$O(@MAGRY@(I)) Q:'I  D
"RTN","MSCGMAG",27,0)
 . S IEN=$P(@MAGRY@(I),U,2) I $G(MSCATEGO),$G(^MAG(2005,IEN,100))-MSCATEGO KILL @MAGRY@(I) Q  ;THROW IT AWAY IF IT DOESN'T MATCH CATEGORY!
"RTN","MSCGMAG",28,0)
 . S $P(@MAGRY@(I),U,24)=$P($G(^MAG(2005,IEN,2)),U) ; capture date/time
"RTN","MSCGMAG",29,0)
 . S $P(@MAGRY@(I),U,25)=$P($G(^MAG(2005,IEN,2)),U,6)_";"_$P($G(^MAG(2005,IEN,2)),U,7) ; parentfile;ien
"RTN","MSCGMAG",30,0)
 .I $G(DUZ),+$P(@MAGRY@(I),U,25)=8925 DO  ;GFT
"RTN","MSCGMAG",31,0)
 ..N IEN,MSC S IEN=$P($P(@MAGRY@(I),U,25),";",2) Q:'IEN  Q:'$D(^TIU(8925,+IEN,0))  S MSC=$P(^(0),U,5) ;Get STATUS
"RTN","MSCGMAG",32,0)
 ..Q:'MSC  Q:'$D(^TIU(8925.6,MSC,0))  S MSC=$P(^(0),U) Q:MSC'="UNSIGNED"&(MSC'="UNCOSIGNED")
"RTN","MSCGMAG",33,0)
 .. ;Check AUTHOR, EXPECTED SIGNER, EXPECTED COSIGNED, ATTENDING PHYSICIAN
"RTN","MSCGMAG",34,0)
 ..I $D(^TIU(8925,+IEN,12)) Q:$P(^(12),U,2)=DUZ  Q:$P(^(12),U,4)=DUZ  Q:$P(^(12),U,9)=DUZ  Q:$P(^(12),U,8)=DUZ
"RTN","MSCGMAG",35,0)
 ..KILL @MAGRY@(I) ;THROW IT AWAY IF IT DOESN'T MATCH USER!!
"RTN","MSCGMAG",36,0)
 Q
"RTN","MSCGMAG",37,0)
GROUP(MAGRY,MAGIEN,BKG) ;RPC [MSCGMAG GROUP IMAGES]
"RTN","MSCGMAG",38,0)
 ; CalL to Return image list of a Group.
"RTN","MSCGMAG",39,0)
 ; MAGIEN is the entry in MAG(2005 we assume it is a group.
"RTN","MSCGMAG",40,0)
 D GROUP^MAGGTIG(.MAGRY,MAGIEN,.BKG)
"RTN","MSCGMAG",41,0)
 D INFO(.MAGRY)
"RTN","MSCGMAG",42,0)
 Q
"RTN","MSCGMAG",43,0)
TIUIMGS(MAGRY,TIUDA) ;RPC [MSCGMAG CPRS TIU NOTE]
"RTN","MSCGMAG",44,0)
 ; Call to get all images for a given TIU DA
"RTN","MSCGMAG",45,0)
 ; We first get all Image IEN's breaking groups into seperate images
"RTN","MSCGMAG",46,0)
 ; Then get Image Info for each one.
"RTN","MSCGMAG",47,0)
 ; MAGRY    -     Return array of Image Data entries
"RTN","MSCGMAG",48,0)
 ; MAGRY(0)    is   1 ^ message  if successful
"RTN","MSCGMAG",49,0)
 ;                  0 ^ Error message if error;
"RTN","MSCGMAG",50,0)
 ; TIUDA  is IEN in ^TIU(8925
"RTN","MSCGMAG",51,0)
 ;
"RTN","MSCGMAG",52,0)
 ; Call TIU API to get list of Image IEN's
"RTN","MSCGMAG",53,0)
 D IMAGES^MAGGNTI(.MAGRY,TIUDA)
"RTN","MSCGMAG",54,0)
 S MAGRY="MAGRY"
"RTN","MSCGMAG",55,0)
 D INFO(.MAGRY)
"RTN","MSCGMAG",56,0)
 Q
"RTN","MSCGMAG",57,0)
PHOTOS(MAGRY,MAGDFN) ;RPC [MAGG PAT PHOTOS]
"RTN","MSCGMAG",58,0)
 ; Call to return list of all Photo ID's on file for a patient.
"RTN","MSCGMAG",59,0)
 ;   We are returning all Photo ID images for a patient.
"RTN","MSCGMAG",60,0)
 ;   The Images are returned in Rev Chronological Order, latest image
"RTN","MSCGMAG",61,0)
 ;   first, oldest image last.
"RTN","MSCGMAG",62,0)
 D PHOTOS^MAGGTIG(.MAGRY,MAGDFN)
"RTN","MSCGMAG",63,0)
 S MAGRY="MAGRY"
"RTN","MSCGMAG",64,0)
 D INFO(.MAGRY)
"RTN","MSCGMAG",65,0)
 Q
"RTN","MSCGMAG",66,0)
DOCLINK(MAGRY,MAGDFN,USRDUZ,IEN) ;
"RTN","MSCGMAG",67,0)
 ; Creates an image entry in file 2005 with an object type of 64 (URL)
"RTN","MSCGMAG",68,0)
 ; and associates that image entry with a TIU document (IEN)
"RTN","MSCGMAG",69,0)
 ; Returns the image entry's ien in MAGRY
"RTN","MSCGMAG",70,0)
 N MAGGZ,NOTEDT,NOTETITL,MAGIEN
"RTN","MSCGMAG",71,0)
 S MAGGZ("magDFN")="5^"_MAGDFN
"RTN","MSCGMAG",72,0)
 S MAGGZ("DATETIME")="7^NOW"
"RTN","MSCGMAG",73,0)
 S NOTEDT="fixme" ; TODO: Get date of note and format as "mmm dd,yyyy"
"RTN","MSCGMAG",74,0)
 S MAGGZ("DATETIMEPROC")="15^"_NOTEDT
"RTN","MSCGMAG",75,0)
 S MAGGZ("PROC")="NOTE"
"RTN","MSCGMAG",76,0)
 S NOTETITL="fixme" ; TODO: Get title of note
"RTN","MSCGMAG",77,0)
 S MAGGZ("DESC")="10^"_NOTETITL
"RTN","MSCGMAG",78,0)
 S MAGGZ("DUZ")="8^"_USRDUZ
"RTN","MSCGMAG",79,0)
 S MAGGZ("OBJTYPE")="3^64" ; 64 = newly added URL Object Type (2005.02)
"RTN","MSCGMAG",80,0)
 S MAGGZ("FileExt")="EXT^URL"
"RTN","MSCGMAG",81,0)
 S MAGGZ("NETLOCABS")="ABS^STUFFONLY"
"RTN","MSCGMAG",82,0)
 ;
"RTN","MSCGMAG",83,0)
 D ADD^MAGGTIA(.MAGRY,.MAGGZ)
"RTN","MSCGMAG",84,0)
 S MAGIEN=$P(MAGRY,U)
"RTN","MSCGMAG",85,0)
 S MAGRY=""
"RTN","MSCGMAG",86,0)
 D FILE^MAGGNTI(.MAGRY,MAGIEN,IEN)
"RTN","MSCGMAG",87,0)
 S MAGRY=MAGIEN
"RTN","MSCGMAG",88,0)
 Q
"RTN","MSCGMAG",89,0)
 ;
"RTN","MSCGMAG",90,0)
GETURL(MAGRY,MAGIEN) ;
"RTN","MSCGMAG",91,0)
 S MAGRY="www.microsoft.com" ; TODO: get url associated with MAGIEN
"RTN","MSCGMAG",92,0)
 Q
"RTN","MSCGMAG",93,0)
 ;
"RTN","MSCGPT")
0^2^B23171150
"RTN","MSCGPT",1,0)
MSCGPT ; WAS,GFT/MSC -- Patient functions ;27OCT2005
"RTN","MSCGPT",2,0)
 ;
"RTN","MSCGPT",3,0)
MRNMASK(REC) ;GFT/MSC  Return default "mask" of 3-5 letters plus 4-6 digits
"RTN","MSCGPT",4,0)
 S REC="AAA@@0000##"
"RTN","MSCGPT",5,0)
 I $T(MRNMASK^MSCGPT2)]"" D MRNMASK^MSCGPT2(.REC) ;allow for override
"RTN","MSCGPT",6,0)
 Q
"RTN","MSCGPT",7,0)
 ;
"RTN","MSCGPT",8,0)
LKUPMSKS(ORY) ;WAS/MSC Return array of lookup masks and their associated rpcs
"RTN","MSCGPT",9,0)
 S ORY(0)="MSCGPT FULLMRN^MSCGPT FULLMRN RPL"_$C(31)_"^\w{3,5}\d{4,6}$"
"RTN","MSCGPT",10,0)
 I $T(LKUPMSKS^MSCGPT2)]"" D LKUPMSKS^MSCGPT2(.ORY) ;allow for override
"RTN","MSCGPT",11,0)
 Q
"RTN","MSCGPT",12,0)
 ;
"RTN","MSCGPT",13,0)
FULLMRN(LST,ID) ; **MSC/GFT** Return a list of patients matching full MEDICAL NUMBER entered  --'ORWPT FULLMRN' RPC
"RTN","MSCGPT",14,0)
 N I,IEN
"RTN","MSCGPT",15,0)
 S (I,IEN)=0
"RTN","MSCGPT",16,0)
 F  S IEN=$O(^DPT("MSC",ID,IEN)) Q:'IEN  D
"RTN","MSCGPT",17,0)
 . S I=I+1,LST(I)=IEN_U_$P(^DPT(IEN,0),U)_U_$$DOB^DPTLK1(IEN,2)_U_$$^MSCDPTID(IEN)
"RTN","MSCGPT",18,0)
 Q
"RTN","MSCGPT",19,0)
 ;
"RTN","MSCGPT",20,0)
FMRNRPL(LST,ID) ; Return list matching Full MRN but from RPL only.
"RTN","MSCGPT",21,0)
 N ORRPL,ORCNT,ORPT,ORLPT,ORPIEN
"RTN","MSCGPT",22,0)
 ; IA ____ allows read access to NEW PERSON file node 101:
"RTN","MSCGPT",23,0)
 S ORRPL=$G(^VA(200,DUZ,101))
"RTN","MSCGPT",24,0)
 S ORRPL=$P(ORRPL,U,2)
"RTN","MSCGPT",25,0)
 I (('ORRPL)!(ORRPL="")) S LST(0)="" Q
"RTN","MSCGPT",26,0)
 ;
"RTN","MSCGPT",27,0)
 S (ORCNT,ORPT)=0
"RTN","MSCGPT",28,0)
 F  S ORPT=$O(^DPT("MRN",ID,ORPT)) Q:'ORPT  D
"RTN","MSCGPT",29,0)
 .S ORLPT=0
"RTN","MSCGPT",30,0)
 .F  S ORLPT=$O(^OR(100.21,ORRPL,10,ORLPT)) Q:'ORLPT  D
"RTN","MSCGPT",31,0)
 ..S ORPIEN=+$G(^OR(100.21,ORRPL,10,ORLPT,0))
"RTN","MSCGPT",32,0)
 ..I ((ORPIEN<0)!(ORPIEN="")) Q
"RTN","MSCGPT",33,0)
 ..I (ORPIEN'=ORPT) Q
"RTN","MSCGPT",34,0)
 ..S ORCNT=ORCNT+1
"RTN","MSCGPT",35,0)
 ..S LST(ORCNT)=ORPIEN_U_$P(^DPT(ORPIEN,0),U)_U_$$DOB^DPTLK1(ORPIEN,2)_U_$$^MSCDPTID(ORPIEN) ; DG249.
"RTN","MSCGPT",36,0)
 ;
"RTN","MSCGPT",37,0)
 Q
"RTN","MSCGPT",38,0)
 ;
"RTN","MSCGPT",39,0)
ENCTITL(REC,DFN,LOC,PROV) ; Return external values for encounter
"RTN","MSCGPT",40,0)
 D ENCTITL2(.REC,DFN,LOC,PROV,0,$C(0))
"RTN","MSCGPT",41,0)
 Q 
"RTN","MSCGPT",42,0)
ENCTITL2(REC,DFN,LOC,PROV,MSCDT,VC) ; Return external values for encounter
"RTN","MSCGPT",43,0)
 ; LOCIEN^LOCNAME^LOCABBR^ROOMBED^PROVNAME^DATETIME^LOCDISPLAY
"RTN","MSCGPT",44,0)
 N LOCNAM,X
"RTN","MSCGPT",45,0)
 S LOC=+LOC
"RTN","MSCGPT",46,0)
 I LOC=0 D
"RTN","MSCGPT",47,0)
 . D INPLOC^ORWPT(.REC,DFN)
"RTN","MSCGPT",48,0)
 . S LOC=$P(REC,U)
"RTN","MSCGPT",49,0)
 D ENCTITL^ORWPT(.REC,DFN,LOC,PROV) ;This puts CURRENT bed into 3rd piece of 'REC'
"RTN","MSCGPT",50,0)
 I $P(REC,U,3)]"",$G(^DPT(DFN,.105)) D
"RTN","MSCGPT",51,0)
 .I $G(^DGPM(+^(.105),0))>$G(MSCDT) S $P(REC,U,3)="" Q  ;If CURRENT MOVEMENT is after date desired, throw away bed
"RTN","MSCGPT",52,0)
 .I '$G(^SC(LOC,42)) S $P(REC,U,3)="" Q  ;If OP, throw away bed
"RTN","MSCGPT",53,0)
 .N W S W=$G(^DPT(DFN,.1)) I W]"" S W=$O(^SC("B",W,0)) I W,$D(^SC(W,0)) S $P(REC,U,1,2)=$P(^(0),U,1,2) ;If it is the current admission, show current WARD
"RTN","MSCGPT",54,0)
 S REC=LOC_U_REC
"RTN","MSCGPT",55,0)
 N TMP
"RTN","MSCGPT",56,0)
 D SELECT^ORWPT(.TMP,DFN)
"RTN","MSCGPT",57,0)
 S $P(REC,U,6)=$P(TMP,U,10) ; admit date
"RTN","MSCGPT",58,0)
 I $T(DISPLOC^MSCGPT2)'="" S $P(REC,U,7)=$$DISPLOC^MSCGPT2(DFN,LOC,PROV,MSCDT,VC)
"RTN","MSCGPT",59,0)
 Q
"RTN","MSCGPT",60,0)
PTCHECKS(ORY,DFN) ;
"RTN","MSCGPT",61,0)
 ; Combines ORWPT DIEDON, DG SENSITIVE RECORD ACCESS and DG CHK BS5 XREF Y/N
"RTN","MSCGPT",62,0)
 N DIEDON
"RTN","MSCGPT",63,0)
 D DIEDON^ORWPT(.DIEDON,DFN)
"RTN","MSCGPT",64,0)
 N BS5CHK,HASDUP
"RTN","MSCGPT",65,0)
 D GUIBS5^DPTLK6(.BS5CHK,DFN)
"RTN","MSCGPT",66,0)
 S HASDUP=BS5CHK(1) ; 1 if duplicate patient exists
"RTN","MSCGPT",67,0)
 D PTSEC^DGSEC4(.ORY,DFN)
"RTN","MSCGPT",68,0)
 S ORY(1)=ORY(1)_U_HASDUP_U_DIEDON
"RTN","MSCGPT",69,0)
 Q
"RTN","MSCGPT",70,0)
ENCINFO(ORY,DFN,LOC,PROV) ;
"RTN","MSCGPT",71,0)
 ; // get current info
"RTN","MSCGPT",72,0)
 N CURR,REQ,ISPROV
"RTN","MSCGPT",73,0)
 D ENCTITL(.CURR,DFN,0,0)
"RTN","MSCGPT",74,0)
 D ENCTITL(.REQ,DFN,LOC,PROV)
"RTN","MSCGPT",75,0)
 D NPHASKEY^ORWU(.ISPROV,PROV,"PROVIDER")
"RTN","MSCGPT",76,0)
 S ORY(1)=CURR
"RTN","MSCGPT",77,0)
 S ORY(2)=REQ
"RTN","MSCGPT",78,0)
 S ORY(3)=ISPROV
"RTN","MSCGPT",79,0)
 Q
"RTN","MSCGPT",80,0)
PTINFO(ORY,DFN) ;
"RTN","MSCGPT",81,0)
 N PTSEL,PRCARE,PTLOC
"RTN","MSCGPT",82,0)
 D SELECT^ORWPT(.PTSEL,DFN)
"RTN","MSCGPT",83,0)
 D PRCARE^ORWPT1(.PRCARE,DFN)
"RTN","MSCGPT",84,0)
 D INPLOC^ORWPT(.PTLOC,DFN)
"RTN","MSCGPT",85,0)
 D HASFLG^ORPRF(.ORY,DFN)
"RTN","MSCGPT",86,0)
 S ORY(.01)=PTSEL
"RTN","MSCGPT",87,0)
 S ORY(.02)=PRCARE
"RTN","MSCGPT",88,0)
 S ORY(.03)=PTLOC
"RTN","MSCGPT",89,0)
 N T,I S I="" F  S I=$O(ORY(I)) Q:I=""  M T(I)=ORY(I) ;**GFT/MSC THESE TWO LINES SUBSTITUTE FOR NON-STANDARD "ZK ORY"
"RTN","MSCGPT",90,0)
 K ORY M ORY=T
"RTN","MSCGPT",91,0)
 Q
"RTN","MSCGPT",92,0)
 ; 
"RTN","MSCGPT",93,0)
IDINFO(ORY,DFN) ;
"RTN","MSCGPT",94,0)
 N IDNFO
"RTN","MSCGPT",95,0)
 D HASFLG^ORPRF(.ORY,DFN)
"RTN","MSCGPT",96,0)
 D IDINFO^ORWPT(.IDNFO,DFN)
"RTN","MSCGPT",97,0)
 S ORY(.01)=IDNFO
"RTN","MSCGPT",98,0)
 N T,I S I="" F  S I=$O(ORY(I)) Q:I=""  M T(I)=ORY(I) ;**GFT/MSC THESE TWO LINES SUBSTITUTE FOR NON-STANDARD "ZK ORY"
"RTN","MSCGPT",99,0)
 K ORY M ORY=T
"RTN","MSCGPT",100,0)
 Q
"RTN","MSCGPT",101,0)
 ;
"RTN","MSCGPT",102,0)
CLINRNG(ORY) ;
"RTN","MSCGPT",103,0)
 N DEFAULT
"RTN","MSCGPT",104,0)
 D CLINRNG^ORWPT(.ORY)
"RTN","MSCGPT",105,0)
 D CDATRANG^ORQPTQ2(.DEFAULT)
"RTN","MSCGPT",106,0)
 S ORY(.01)=DEFAULT
"RTN","MSCGPT",107,0)
 Q
"RTN","MSCGPT",108,0)
 ;
"RTN","MSCGPT",109,0)
SELDFLTS(ORY) ;
"RTN","MSCGPT",110,0)
 N SRC1,SRC2,SORT
"RTN","MSCGPT",111,0)
 D DEFSRC^ORQPTQ11(.SRC1)
"RTN","MSCGPT",112,0)
 D DFLTSRC^ORWPT(.SRC2)
"RTN","MSCGPT",113,0)
 D DEFSORT^ORQPTQ11(.SORT)
"RTN","MSCGPT",114,0)
 S ORY(1)=$G(SRC1)
"RTN","MSCGPT",115,0)
 S ORY(2)=$G(SRC2)
"RTN","MSCGPT",116,0)
 S ORY(3)=$G(SORT)
"RTN","MSCGPT",117,0)
 Q
"RTN","MSCGPT",118,0)
 ;
"RTN","MSCGPT",119,0)
LISTALL(Y,FROM,DIR) ; Return a bolus of patient names.  From is either Name or IEN^Name.
"RTN","MSCGPT",120,0)
 ;If context is MSCB*, check site parameters for filterByDivision...
"RTN","MSCGPT",121,0)
 ;[Note: ACN ward location xref might be faster, but needs separate pass for Medical center...
"RTN","MSCGPT",122,0)
 N MSCREEN,MSDIV
"RTN","MSCGPT",123,0)
 S MSCREEN=0
"RTN","MSCGPT",124,0)
 I $G(XQY0,"")?1"MSCB".E S MSCREEN=$P($G(^MSCB(21435,1,0)),"^",6)
"RTN","MSCGPT",125,0)
 I MSCREEN S MSDIV(+$G(DUZ(2)))="" ;MSDIV="" F  S MSDIV=$O(^VA(200,DUZ,2,MSDUZ)) Q:MSDUZ=""  S MSDUZ(MSDUZ)=""
"RTN","MSCGPT",126,0)
 N I,IEN,CNT,FROMIEN S CNT=44,I=0,FROMIEN=0
"RTN","MSCGPT",127,0)
 I $P(FROM,U,2)'="" S FROMIEN=$P(FROM,U,1),FROM=$O(^DPT("B",$P(FROM,U,2)),-DIR)
"RTN","MSCGPT",128,0)
 F  S FROM=$O(^DPT("B",FROM),DIR) Q:FROM=""  D  Q:I=CNT
"RTN","MSCGPT",129,0)
 . S IEN=FROMIEN,FROMIEN=0 F  S IEN=$O(^DPT("B",FROM,IEN)) Q:'IEN  D  Q:I=CNT
"RTN","MSCGPT",130,0)
 . . ; S X1=$G(^DPT(IEN,.1))_" "_$G(^DPT(IEN,.101))
"RTN","MSCGPT",131,0)
 . . I MSCREEN,$$INST^MSCRUTL(IEN),'$D(MSDIV($$INST^MSCRUTL(IEN))) Q
"RTN","MSCGPT",132,0)
 . . S I=I+1 S Y(I)=IEN_"^"_FROM ;_"^"_X ; _"^"_X1  ;"   ("_X_")"
"RTN","MSCGPT",133,0)
 Q
"RTN","MSCGPT",134,0)
 
"SEC","^DIC",2005.02,2005.02,0,"AUDIT")

"SEC","^DIC",2005.02,2005.02,0,"DD")
@
"SEC","^DIC",2005.02,2005.02,0,"DEL")
@
"SEC","^DIC",2005.02,2005.02,0,"LAYGO")
@
"SEC","^DIC",2005.02,2005.02,0,"RD")
@
"SEC","^DIC",2005.02,2005.02,0,"WR")
@
"VER")
8.0^22.0
"^DD",2005.02,2005.02,0)
FIELD^^5^7
"^DD",2005.02,2005.02,0,"DDA")
Y
"^DD",2005.02,2005.02,0,"DT")
2950508
"^DD",2005.02,2005.02,0,"IX","AC",2005.21,.01)

"^DD",2005.02,2005.02,0,"IX","AD",2005.02,5)

"^DD",2005.02,2005.02,0,"IX","B",2005.02,.01)

"^DD",2005.02,2005.02,0,"NM","OBJECT TYPE")

"^DD",2005.02,2005.02,0,"PT",2005,3)

"^DD",2005.02,2005.02,0,"PT",2005.02,3)

"^DD",2005.02,2005.02,0,"PT",2005.021,5)

"^DD",2005.02,2005.02,0,"PT",2005.1,3)

"^DD",2005.02,2005.02,0,"PT",2005.24,.01)

"^DD",2005.02,2005.02,0,"VRPK")
MAG
"^DD",2005.02,2005.02,.01,0)
NAME^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
"^DD",2005.02,2005.02,.01,1,0)
^.1
"^DD",2005.02,2005.02,.01,1,1,0)
2005.02^B
"^DD",2005.02,2005.02,.01,1,1,1)
S ^MAG(2005.02,"B",$E(X,1,30),DA)=""
"^DD",2005.02,2005.02,.01,1,1,2)
K ^MAG(2005.02,"B",$E(X,1,30),DA)
"^DD",2005.02,2005.02,.01,1,1,"DT")
2911113
"^DD",2005.02,2005.02,.01,3)
NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
"^DD",2005.02,2005.02,.01,21,0)
^^4^4^2970721^^^
"^DD",2005.02,2005.02,.01,21,1,0)
Each kind of data supported by the Imaging System has an entry in
"^DD",2005.02,2005.02,.01,21,2,0)
the Object Type file.  The Object Type file manages the kinds of
"^DD",2005.02,2005.02,.01,21,3,0)
actions which that type of object can have and the routines that
"^DD",2005.02,2005.02,.01,21,4,0)
are executed for each action.
"^DD",2005.02,2005.02,.01,"DT")
2911113
"^DD",2005.02,2005.02,.02,0)
ABSTRACT REQUIRED^S^1:YES;0:NO;^0;2^Q
"^DD",2005.02,2005.02,.02,3)
DOES OBJECT TYPE REQUIRE AN ABSTRACT
"^DD",2005.02,2005.02,.02,21,0)
^^2^2^3001006^
"^DD",2005.02,2005.02,.02,21,1,0)
This field is reserved for future use and will indicates whether a
"^DD",2005.02,2005.02,.02,21,2,0)
separate abstract file is required for this type of object.
"^DD",2005.02,2005.02,.02,"DT")
3001006
"^DD",2005.02,2005.02,1,0)
ACTIONS^2005.21^^1;0
"^DD",2005.02,2005.02,1,21,0)
^.001^5^5^3020222^^^^
"^DD",2005.02,2005.02,1,21,1,0)
This field is reserved for future use will contain the kinds of actions
"^DD",2005.02,2005.02,1,21,2,0)
which apply to the object type. Generally, all objects can be displayed as
"^DD",2005.02,2005.02,1,21,3,0)
a full image/object and they have an abstract display method.  In
"^DD",2005.02,2005.02,1,21,4,0)
addition, groups of objects may have other actions such as cineloop
"^DD",2005.02,2005.02,1,21,5,0)
display or tiled display.
"^DD",2005.02,2005.02,1,"DT")
3001006
"^DD",2005.02,2005.02,2,0)
EDIT TEMPLATE^F^^2;1^K:$L(X)>20!($L(X)<1) X
"^DD",2005.02,2005.02,2,3)
Answer must be 1-20 characters in length.
"^DD",2005.02,2005.02,2,21,0)
^^2^2^3001006^
"^DD",2005.02,2005.02,2,21,1,0)
This field is reserved for future use for the name of the edit
"^DD",2005.02,2005.02,2,21,2,0)
template used to enter data pertaining to this type of object.
"^DD",2005.02,2005.02,2,"DT")
3001006
"^DD",2005.02,2005.02,3,0)
PARENT^P2005.02'^MAG(2005.02,^2;2^Q
"^DD",2005.02,2005.02,3,21,0)
^^2^2^2950331^^
"^DD",2005.02,2005.02,3,21,1,0)
This field is reserved for future use to allow object types
"^DD",2005.02,2005.02,3,21,2,0)
to inherit characteristics from a parent object type.
"^DD",2005.02,2005.02,3,"DT")
2910526
"^DD",2005.02,2005.02,4,0)
CHILD CLASS^2005.24P^^3;0
"^DD",2005.02,2005.02,4,21,0)
^.001^2^2^3001025^^^^
"^DD",2005.02,2005.02,4,21,1,0)
This field is reserved for future use to allow object types
"^DD",2005.02,2005.02,4,21,2,0)
to inherit characteristics from other object types.
"^DD",2005.02,2005.02,4,"DT")
3001006
"^DD",2005.02,2005.02,5,0)
DEFAULT EXTENSION^F^^4;1^K:$L(X)>3!($L(X)<3) X
"^DD",2005.02,2005.02,5,1,0)
^.1
"^DD",2005.02,2005.02,5,1,1,0)
2005.02^AD
"^DD",2005.02,2005.02,5,1,1,1)
S ^MAG(2005.02,"AD",$E(X,1,30),DA)=""
"^DD",2005.02,2005.02,5,1,1,2)
K ^MAG(2005.02,"AD",$E(X,1,30),DA)
"^DD",2005.02,2005.02,5,1,1,"%D",0)
^.101^2^2^3020419^^
"^DD",2005.02,2005.02,5,1,1,"%D",1,0)
This cross-reference is searched when the extension of a file is known 
"^DD",2005.02,2005.02,5,1,1,"%D",2,0)
but not it's Object Type.
"^DD",2005.02,2005.02,5,1,1,"DT")
3010131
"^DD",2005.02,2005.02,5,3)
Enter the file extension to associate with this object type.  i.e. JPG, TGA, TXT, PDF, DOC...
"^DD",2005.02,2005.02,5,21,0)
3^.001^3^3^3020419^
"^DD",2005.02,2005.02,5,21,1,0)
This is the default extension for this type of object.
"^DD",2005.02,2005.02,5,21,2,0)
When Object Type is not known, at time of capture, the extension is 
"^DD",2005.02,2005.02,5,21,3,0)
used to determine the type.
"^DD",2005.02,2005.02,5,"DT")
3010131
"^DD",2005.02,2005.21,0)
ACTIONS SUB-FIELD^^.01^2
"^DD",2005.02,2005.21,0,"DT")
2950508
"^DD",2005.02,2005.21,0,"IX","B",2005.21,.01)

"^DD",2005.02,2005.21,0,"NM","ACTIONS")

"^DD",2005.02,2005.21,0,"UP")
2005.02
"^DD",2005.02,2005.21,.001,0)
NUMBER^NJ2,0^^ ^K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
"^DD",2005.02,2005.21,.001,3)
Type a Number between 1 and 20, 0 Decimal Digits
"^DD",2005.02,2005.21,.001,21,0)
^^1^1^3001025^
"^DD",2005.02,2005.21,.001,21,1,0)
Internal Entry number of the ACTIONS Multiple field.
"^DD",2005.02,2005.21,.001,"DT")
2930909
"^DD",2005.02,2005.21,.01,0)
ACTIONS^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X
"^DD",2005.02,2005.21,.01,1,0)
^.1
"^DD",2005.02,2005.21,.01,1,1,0)
2005.21^B
"^DD",2005.02,2005.21,.01,1,1,1)
S ^MAG(2005.02,DA(1),1,"B",$E(X,1,30),DA)=""
"^DD",2005.02,2005.21,.01,1,1,2)
K ^MAG(2005.02,DA(1),1,"B",$E(X,1,30),DA)
"^DD",2005.02,2005.21,.01,1,2,0)
2005.02^AC^MUMPS
"^DD",2005.02,2005.21,.01,1,2,1)
D SETACT^MAGUXRF
"^DD",2005.02,2005.21,.01,1,2,2)
D KILLACT^MAGUXRF
"^DD",2005.02,2005.21,.01,1,2,"%D",0)
^^1^1^2930909^^
"^DD",2005.02,2005.21,.01,1,2,"%D",1,0)
Sets Object AC xref for displaying abstracts and objects.
"^DD",2005.02,2005.21,.01,1,2,"DT")
2930909
"^DD",2005.02,2005.21,.01,3)
Answer must be 1-60 characters in length.
"^DD",2005.02,2005.21,.01,21,0)
^^5^5^3001025^
"^DD",2005.02,2005.21,.01,21,1,0)
This field is reserved for future use will contain the kinds of actions
"^DD",2005.02,2005.21,.01,21,2,0)
which apply to the object type. Generally, all objects can be displayed as
"^DD",2005.02,2005.21,.01,21,3,0)
a full image/object and they have an abstract display method.  In
"^DD",2005.02,2005.21,.01,21,4,0)
addition, groups of objects may have other actions such as cineloop
"^DD",2005.02,2005.21,.01,21,5,0)
display or tiled display.
"^DD",2005.02,2005.21,.01,"DT")
2950508
"^DD",2005.02,2005.24,0)
CHILD CLASS SUB-FIELD^^.01^1
"^DD",2005.02,2005.24,0,"IX","B",2005.24,.01)

"^DD",2005.02,2005.24,0,"NM","CHILD CLASS")

"^DD",2005.02,2005.24,0,"UP")
2005.02
"^DD",2005.02,2005.24,.01,0)
CHILD CLASS^MP2005.02'^MAG(2005.02,^0;1^Q
"^DD",2005.02,2005.24,.01,1,0)
^.1
"^DD",2005.02,2005.24,.01,1,1,0)
2005.24^B
"^DD",2005.02,2005.24,.01,1,1,1)
S ^MAG(2005.02,DA(1),3,"B",$E(X,1,30),DA)=""
"^DD",2005.02,2005.24,.01,1,1,2)
K ^MAG(2005.02,DA(1),3,"B",$E(X,1,30),DA)
"^DD",2005.02,2005.24,.01,21,0)
^^2^2^3001025^
"^DD",2005.02,2005.24,.01,21,1,0)
This field is reserved for future use to allow object types
"^DD",2005.02,2005.24,.01,21,2,0)
to inherit characteristics from other object types.
"^DD",2005.02,2005.24,.01,"DT")
2910526
"^DD",2005.2,2005.2,1,0)
PHYSICAL REFERENCE^RFX^^0;2^K:$L(X)>63!($L(X)<1) X
"^DD",2005.2,2005.2,1,1,0)
^.1^^-1
"^DD",2005.2,2005.2,1,1,1,0)
2005.2^AC
"^DD",2005.2,2005.2,1,1,1,1)
S ^MAG(2005.2,"AC",X,DA)=""
"^DD",2005.2,2005.2,1,1,1,2)
K ^MAG(2005.2,"AC",X,DA)
"^DD",2005.2,2005.2,1,1,1,"%D",0)
^.101^2^2^3030220^^^^
"^DD",2005.2,2005.2,1,1,1,"%D",1,0)
This cross-reference allows a network location to be looked up
"^DD",2005.2,2005.2,1,1,1,"%D",2,0)
by physical name.
"^DD",2005.2,2005.2,1,1,1,"DT")
2951017
"^DD",2005.2,2005.2,1,3)
Enter the name of the physical location for this device. Answer must be 1-63 character in length.
"^DD",2005.2,2005.2,1,21,0)
^.001^3^3^3030226^^^^
"^DD",2005.2,2005.2,1,21,1,0)
This is the physical network location where the image is stored. This is
"^DD",2005.2,2005.2,1,21,2,0)
the Universal Naming Convention (UNC)PATH for the Image Storage. For
"^DD",2005.2,2005.2,1,21,3,0)
example: \\ISWIMG01\IMAGE1\
"^DD",2005.2,2005.2,1,"DT")
3030220
"^DD",2005.2,2005.2,20,0)
SYNTAX^S^URL:URL;^4;1^Q
"^DD",2005.2,2005.2,20,.1)
Syntax for physical name
"^DD",2005.2,2005.2,20,3)
Enter a code for the syntax of the name of this network location.
"^DD",2005.2,2005.2,20,21,0)
^^2^2^3000216^^
"^DD",2005.2,2005.2,20,21,1,0)
The value of this field is a code for the syntax that describes
"^DD",2005.2,2005.2,20,21,2,0)
the actual (physical) name of the network location.
"^DD",2005.2,2005.2,20,"DT")
2980929
"^DIC",2005.02,2005.02,0)
OBJECT TYPE^2005.02
"^DIC",2005.02,2005.02,0,"GL")
^MAG(2005.02,
"^DIC",2005.02,2005.02,"%",0)
^1.005^1^1
"^DIC",2005.02,2005.02,"%",1,0)
MAG
"^DIC",2005.02,2005.02,"%","B","MAG",1)

"^DIC",2005.02,2005.02,"%D",0)
^^57^57^3001006^
"^DIC",2005.02,2005.02,"%D",1,0)
 
"^DIC",2005.02,2005.02,"%D",2,0)
 +---------------------------------------------------------------+
"^DIC",2005.02,2005.02,"%D",3,0)
 |                                                               |
"^DIC",2005.02,2005.02,"%D",4,0)
 | Property of the US Government.                                |
"^DIC",2005.02,2005.02,"%D",5,0)
 | No permission to copy or redistribute this software is given. |
"^DIC",2005.02,2005.02,"%D",6,0)
 | Use of unreleased versions of this software requires the user |
"^DIC",2005.02,2005.02,"%D",7,0)
 | to execute a written test agreement with the VistA Imaging    |
"^DIC",2005.02,2005.02,"%D",8,0)
 | Development Office of the Department of Veterans Affairs,     |
"^DIC",2005.02,2005.02,"%D",9,0)
 | telephone (301) 734-0100.                                     |
"^DIC",2005.02,2005.02,"%D",10,0)
 |                                                               |
"^DIC",2005.02,2005.02,"%D",11,0)
 | The Food and Drug Administration classifies this software as  |
"^DIC",2005.02,2005.02,"%D",12,0)
 | a Class II medical device.  As such, it may not be changed    |
"^DIC",2005.02,2005.02,"%D",13,0)
 | in any way.  Modifications to this software may result in an  |
"^DIC",2005.02,2005.02,"%D",14,0)
 | adulterated medical device under 21CFR820, the use of which   |
"^DIC",2005.02,2005.02,"%D",15,0)
 | is considered to be a violation of US Federal Statutes.       |
"^DIC",2005.02,2005.02,"%D",16,0)
 |                                                               |
"^DIC",2005.02,2005.02,"%D",17,0)
 +---------------------------------------------------------------+
"^DIC",2005.02,2005.02,"%D",18,0)
 
"^DIC",2005.02,2005.02,"%D",19,0)
This file contains an entry for every type of object handled by the VistA
"^DIC",2005.02,2005.02,"%D",20,0)
Imaging System. It is exported with data. All sites must have entries
"^DIC",2005.02,2005.02,"%D",21,0)
for the data types distributed in order to display objects sent via
"^DIC",2005.02,2005.02,"%D",22,0)
multimedia mail.
"^DIC",2005.02,2005.02,"%D",23,0)
 The Object Type file handles objects of various types.  These include: 
"^DIC",2005.02,2005.02,"%D",24,0)
  * still images 
"^DIC",2005.02,2005.02,"%D",25,0)
  * image groups
"^DIC",2005.02,2005.02,"%D",26,0)
  * graphics or waveforms
"^DIC",2005.02,2005.02,"%D",27,0)
  * scanned documents
"^DIC",2005.02,2005.02,"%D",28,0)
  * audio files  
"^DIC",2005.02,2005.02,"%D",29,0)
 
"^DIC",2005.02,2005.02,"%D",30,0)
 Other types are expected in the future (i.e., image overlays,
"^DIC",2005.02,2005.02,"%D",31,0)
motion video chips, and office automation files).  An object,
"^DIC",2005.02,2005.02,"%D",32,0)
such as an image series, may actually consist of multiple
"^DIC",2005.02,2005.02,"%D",33,0)
objects.  In this case, the object type is Group.  The Object
"^DIC",2005.02,2005.02,"%D",34,0)
Group multiple field is used to point to a set of objects in the
"^DIC",2005.02,2005.02,"%D",35,0)
Image file.  Each object type has associated methods (software
"^DIC",2005.02,2005.02,"%D",36,0)
routines) for performing certain actions.  For example, there are
"^DIC",2005.02,2005.02,"%D",37,0)
methods for displaying images and image abstracts.  The group
"^DIC",2005.02,2005.02,"%D",38,0)
type is used to combine multiple objects of the same or different
"^DIC",2005.02,2005.02,"%D",39,0)
types to create complex objects.
"^DIC",2005.02,2005.02,"%D",40,0)
 
"^DIC",2005.02,2005.02,"%D",41,0)
 There are different image types, for example: 
"^DIC",2005.02,2005.02,"%D",42,0)
  * black and white high-resolution x-rays
"^DIC",2005.02,2005.02,"%D",43,0)
  * black and white ultrasound images (lower resolution)
"^DIC",2005.02,2005.02,"%D",44,0)
  * pseudo-color nuclear medicine scans
"^DIC",2005.02,2005.02,"%D",45,0)
  * medium resolution true color bronchoscopy images
"^DIC",2005.02,2005.02,"%D",46,0)
  * pathology images
"^DIC",2005.02,2005.02,"%D",47,0)
 
"^DIC",2005.02,2005.02,"%D",48,0)
 Each type of object has a number of specific characteristics,
"^DIC",2005.02,2005.02,"%D",49,0)
including the methods  required to display them.  For example,
"^DIC",2005.02,2005.02,"%D",50,0)
each object type has a type name and an associated display method
"^DIC",2005.02,2005.02,"%D",51,0)
or window.
"^DIC",2005.02,2005.02,"%D",52,0)
 
"^DIC",2005.02,2005.02,"%D",53,0)
 All accesses to objects use the file finder routine ^MAGFILE or
"^DIC",2005.02,2005.02,"%D",54,0)
^MAGFILEA to find the network location needed.  Different entry
"^DIC",2005.02,2005.02,"%D",55,0)
points of this routine will find locations of full files,
"^DIC",2005.02,2005.02,"%D",56,0)
abstract files, and jukebox copies of files.  In addition, the
"^DIC",2005.02,2005.02,"%D",57,0)
network write location will be returned for image captures.
"^DIC",2005.02,"B","OBJECT TYPE",2005.02)

**END**
**END**