MAGBRTK ;WOIFO/EdM - Routing - Keywords ; 17 Mar 2008 12:25 PM
;;3.0;IMAGING;**51,53**;Mar 19, 2002;Build 1719;Apr 28, 2010
;; Per VHA Directive 2004-038, this routine should not be modified.
;; +---------------------------------------------------------------+
;; | Property of the US Government. |
;; | No permission to copy or redistribute this software is given. |
;; | Use of unreleased versions of this software requires the user |
;; | to execute a written test agreement with the VistA Imaging |
;; | 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. |
;; | Modifications to this software may result in an adulterated |
;; | medical device under 21CFR820, the use of which is considered |
;; | to be a violation of US Federal Statutes. |
;; +---------------------------------------------------------------+
;;
Q
;
; This routine is needed on the DICOM Gateway while importing
; new rules, and on the VistA system while evaluating the rules.
;
KEYWORD ; build the KEYWORD array
N C,CD,D,KW,M,V,X
S CD="CONDITION" K KEYWORD
; Actions
F X="SEND","BALANCE","DICOM" S KEYWORD("ACTION",X)="-"
F X="DESTINATION","HOLIDAY" S KEYWORD("ACTION",X)="I"
;
F X="HIGH","NORMAL","LOW" S KEYWORD("PRIORITY",X)="-"
F X="YES","NO" S KEYWORD("PRIORSTUDY",X)="-"
;
; Fields in ^MAG(2005,
S M="LO^MAG^MAGBRTE3(IMAGE,"
S KEYWORD(CD,"ABSTRACT_REF")=M_"0,0,4,.VAL)"
S KEYWORD(CD,"ACQUISITION_DEVICE")=M_"2006.04,100,4,.VAL)"
S KEYWORD(CD,"BIG_JUKEBOX_PATH")=M_"2005.2,""FBIG"",2,.VAL)"
S KEYWORD(CD,"BIG_MAGNETIC_PATH")=M_"2005.2,""FBIG"",1,.VAL)"
S KEYWORD(CD,"CLASS")=M_"2005.82,40,2,.VAL)"
S KEYWORD(CD,"CLINIC")=M_"44,100,2,.VAL)"
S KEYWORD(CD,"CREATE_METHOD")=M_"0,""METHOD"",1,.VAL)"
S KEYWORD(CD,"DESCRIPTIVE_CATEGORY")=M_"2005.81,100,1,.VAL)"
S KEYWORD(CD,"EXPORT_REQUEST_STATUS")=M_"0,2,9,.VAL)"
S KEYWORD(CD,"FILE_REF")=M_"0,0,2,.VAL)"
S KEYWORD(CD,"IQ")=M_"0,0,11,.VAL)"
S KEYWORD(CD,"MAGNETIC_REF")=M_"0,0,3,.VAL)"
S KEYWORD(CD,"MICROSCOPIC_OBJECTIVE")=M_"0,""PATH"",5,.VAL)"
S KEYWORD(CD,"MODALITY")=M_"0,0,8,.VAL)"
S KEYWORD(CD,"OBJECT_NAME")=M_"0,0,1,.VAL)"
S KEYWORD(CD,"OBJECT_TYPE")=M_"2005.02,0,6,.VAL)"
S KEYWORD(CD,"ORIGIN_INDEX")=M_"0,40,6,.VAL)"
S KEYWORD(CD,"PACKAGE")=M_"0,40,1,.VAL)"
S KEYWORD(CD,"PACS_PROCEDURE")=M_"71,""PACS"",3,.VAL)"
S KEYWORD(CD,"PACS_UID")=M_"0,""PACS"",1,.VAL)"
S KEYWORD(CD,"PARENT_DATA")=M_"2005.03,2,6,.VAL)"
S KEYWORD(CD,"PARENT_DATA_FILE_IMAGE_POINTER")=M_"0,2,8,.VAL)"
S KEYWORD(CD,"PARENT_GLOBAL_ROOT_D0")=M_"0,2,7,.VAL)"
S KEYWORD(CD,"PARENT_GLOBAL_ROOT_D1")=M_"0,2,10,.VAL)"
S KEYWORD(CD,"PATH_ACCESSION_NUMBER")=M_"0,""PATH"",1,.VAL)"
S KEYWORD(CD,"PATIENT")=M_"2,0,7,.VAL)"
S KEYWORD(CD,"PROCEDURE")=M_"0,0,8,.VAL)"
S KEYWORD(CD,"PROCEDURE_OR_EVENT")=M_"2005.85,40,4,.VAL)"
S KEYWORD(CD,"RADIOLOGY_REPORT")=M_"74,""PACS"",2,.VAL)"
S KEYWORD(CD,"SAVED_BY")=M_"200,2,2,.VAL)"
S KEYWORD(CD,"SHORT_DESCRIPTION")=M_"0,2,4,.VAL)"
S KEYWORD(CD,"SPECIALTY")=M_"2005.84,40,5,.VAL)"
S KEYWORD(CD,"SPECIMEN")=M_"0,""PATH"",3,.VAL)"
S KEYWORD(CD,"SPECIMEN_DESCRIPTION")=M_"0,""PATH"",2,.VAL)"
S KEYWORD(CD,"STAIN")=M_"0,""PATH"",4,.VAL)"
S KEYWORD(CD,"SUMMARY")=M_"0,2,3,.VAL)"
S KEYWORD(CD,"SUMMARY_OBJECT")=M_"0,2,3,.VAL)"
S KEYWORD(CD,"TRACKING_ID")=M_"0,100,5,.VAL)"
S KEYWORD(CD,"TYPE")=M_"2005.83,40,3,.VAL)"
S KEYWORD(CD,"WORM_REF")=M_"0,0,5,.VAL)"
;
; Date and time fields
S M="DT^MAG^MAGBRTE3(IMAGE,"
S KEYWORD(CD,"EXAM_TIME")=M_"0,2,5,.VAL)"
S KEYWORD(CD,"IMAGE_SAVED")=M_"0,2,1,.VAL)"
S KEYWORD(CD,"LAST_ACCESS")=M_"0,0,9,.VAL)"
S KEYWORD(CD,"PROCEDURE_TIME")=M_"0,2,5,.VAL)"
;
S M="DT^DATE^MAGBRTE3(IMAGE,"
S KEYWORD(CD,"EXAM_TIME_FIRST")=M_"0,2,5,1,.VAL)"
S KEYWORD(CD,"EXAM_TIME_LAST")=M_"0,2,5,2,.VAL)"
S KEYWORD(CD,"IMAGE_SAVED_FIRST")=M_"0,2,1,1,.VAL)"
S KEYWORD(CD,"IMAGE_SAVED_LAST")=M_"0,2,1,2,.VAL)"
S KEYWORD(CD,"LAST_ACCESS_FIRST")=M_"0,0,9,1,.VAL)"
S KEYWORD(CD,"LAST_ACCESS_LAST")=M_"0,0,9,2,.VAL)"
S KEYWORD(CD,"PROCEDURE_TIME_FIRST")=M_"0,2,5,1,.VAL)"
S KEYWORD(CD,"PROCEDURE_TIME_LAST")=M_"0,2,5,2,.VAL)"
S KEYWORD(CD,"STUDY_TIME")=M_"0,2,5,1,.VAL)"
;
; Built-in Fields
S KEYWORD(CD,"NOW")="DT^NOW^MAGBRTE3(.VAL)"
S KEYWORD(CD,"SOURCE")="SH^SOURCE^MAGBRTE3(IMAGE,.VAL)"
S KEYWORD(CD,"URGENCY")="SH^URGENCY^MAGBRTE3(IMAGE,.VAL)"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMAGBRTK 4663 printed Apr 09, 2024@21:10:35 Page 2
MAGBRTK ;WOIFO/EdM - Routing - Keywords ; 17 Mar 2008 12:25 PM
+1 ;;3.0;IMAGING;**51,53**;Mar 19, 2002;Build 1719;Apr 28, 2010
+2 ;; Per VHA Directive 2004-038, this routine should not be modified.
+3 ;; +---------------------------------------------------------------+
+4 ;; | Property of the US Government. |
+5 ;; | No permission to copy or redistribute this software is given. |
+6 ;; | Use of unreleased versions of this software requires the user |
+7 ;; | to execute a written test agreement with the VistA Imaging |
+8 ;; | Development Office of the Department of Veterans Affairs, |
+9 ;; | telephone (301) 734-0100. |
+10 ;; | The Food and Drug Administration classifies this software as |
+11 ;; | a medical device. As such, it may not be changed in any way. |
+12 ;; | Modifications to this software may result in an adulterated |
+13 ;; | medical device under 21CFR820, the use of which is considered |
+14 ;; | to be a violation of US Federal Statutes. |
+15 ;; +---------------------------------------------------------------+
+16 ;;
+17 QUIT
+18 ;
+19 ; This routine is needed on the DICOM Gateway while importing
+20 ; new rules, and on the VistA system while evaluating the rules.
+21 ;
KEYWORD ; build the KEYWORD array
+1 NEW C,CD,D,KW,M,V,X
+2 SET CD="CONDITION"
KILL KEYWORD
+3 ; Actions
+4 FOR X="SEND","BALANCE","DICOM"
SET KEYWORD("ACTION",X)="-"
+5 FOR X="DESTINATION","HOLIDAY"
SET KEYWORD("ACTION",X)="I"
+6 ;
+7 FOR X="HIGH","NORMAL","LOW"
SET KEYWORD("PRIORITY",X)="-"
+8 FOR X="YES","NO"
SET KEYWORD("PRIORSTUDY",X)="-"
+9 ;
+10 ; Fields in ^MAG(2005,
+11 SET M="LO^MAG^MAGBRTE3(IMAGE,"
+12 SET KEYWORD(CD,"ABSTRACT_REF")=M_"0,0,4,.VAL)"
+13 SET KEYWORD(CD,"ACQUISITION_DEVICE")=M_"2006.04,100,4,.VAL)"
+14 SET KEYWORD(CD,"BIG_JUKEBOX_PATH")=M_"2005.2,""FBIG"",2,.VAL)"
+15 SET KEYWORD(CD,"BIG_MAGNETIC_PATH")=M_"2005.2,""FBIG"",1,.VAL)"
+16 SET KEYWORD(CD,"CLASS")=M_"2005.82,40,2,.VAL)"
+17 SET KEYWORD(CD,"CLINIC")=M_"44,100,2,.VAL)"
+18 SET KEYWORD(CD,"CREATE_METHOD")=M_"0,""METHOD"",1,.VAL)"
+19 SET KEYWORD(CD,"DESCRIPTIVE_CATEGORY")=M_"2005.81,100,1,.VAL)"
+20 SET KEYWORD(CD,"EXPORT_REQUEST_STATUS")=M_"0,2,9,.VAL)"
+21 SET KEYWORD(CD,"FILE_REF")=M_"0,0,2,.VAL)"
+22 SET KEYWORD(CD,"IQ")=M_"0,0,11,.VAL)"
+23 SET KEYWORD(CD,"MAGNETIC_REF")=M_"0,0,3,.VAL)"
+24 SET KEYWORD(CD,"MICROSCOPIC_OBJECTIVE")=M_"0,""PATH"",5,.VAL)"
+25 SET KEYWORD(CD,"MODALITY")=M_"0,0,8,.VAL)"
+26 SET KEYWORD(CD,"OBJECT_NAME")=M_"0,0,1,.VAL)"
+27 SET KEYWORD(CD,"OBJECT_TYPE")=M_"2005.02,0,6,.VAL)"
+28 SET KEYWORD(CD,"ORIGIN_INDEX")=M_"0,40,6,.VAL)"
+29 SET KEYWORD(CD,"PACKAGE")=M_"0,40,1,.VAL)"
+30 SET KEYWORD(CD,"PACS_PROCEDURE")=M_"71,""PACS"",3,.VAL)"
+31 SET KEYWORD(CD,"PACS_UID")=M_"0,""PACS"",1,.VAL)"
+32 SET KEYWORD(CD,"PARENT_DATA")=M_"2005.03,2,6,.VAL)"
+33 SET KEYWORD(CD,"PARENT_DATA_FILE_IMAGE_POINTER")=M_"0,2,8,.VAL)"
+34 SET KEYWORD(CD,"PARENT_GLOBAL_ROOT_D0")=M_"0,2,7,.VAL)"
+35 SET KEYWORD(CD,"PARENT_GLOBAL_ROOT_D1")=M_"0,2,10,.VAL)"
+36 SET KEYWORD(CD,"PATH_ACCESSION_NUMBER")=M_"0,""PATH"",1,.VAL)"
+37 SET KEYWORD(CD,"PATIENT")=M_"2,0,7,.VAL)"
+38 SET KEYWORD(CD,"PROCEDURE")=M_"0,0,8,.VAL)"
+39 SET KEYWORD(CD,"PROCEDURE_OR_EVENT")=M_"2005.85,40,4,.VAL)"
+40 SET KEYWORD(CD,"RADIOLOGY_REPORT")=M_"74,""PACS"",2,.VAL)"
+41 SET KEYWORD(CD,"SAVED_BY")=M_"200,2,2,.VAL)"
+42 SET KEYWORD(CD,"SHORT_DESCRIPTION")=M_"0,2,4,.VAL)"
+43 SET KEYWORD(CD,"SPECIALTY")=M_"2005.84,40,5,.VAL)"
+44 SET KEYWORD(CD,"SPECIMEN")=M_"0,""PATH"",3,.VAL)"
+45 SET KEYWORD(CD,"SPECIMEN_DESCRIPTION")=M_"0,""PATH"",2,.VAL)"
+46 SET KEYWORD(CD,"STAIN")=M_"0,""PATH"",4,.VAL)"
+47 SET KEYWORD(CD,"SUMMARY")=M_"0,2,3,.VAL)"
+48 SET KEYWORD(CD,"SUMMARY_OBJECT")=M_"0,2,3,.VAL)"
+49 SET KEYWORD(CD,"TRACKING_ID")=M_"0,100,5,.VAL)"
+50 SET KEYWORD(CD,"TYPE")=M_"2005.83,40,3,.VAL)"
+51 SET KEYWORD(CD,"WORM_REF")=M_"0,0,5,.VAL)"
+52 ;
+53 ; Date and time fields
+54 SET M="DT^MAG^MAGBRTE3(IMAGE,"
+55 SET KEYWORD(CD,"EXAM_TIME")=M_"0,2,5,.VAL)"
+56 SET KEYWORD(CD,"IMAGE_SAVED")=M_"0,2,1,.VAL)"
+57 SET KEYWORD(CD,"LAST_ACCESS")=M_"0,0,9,.VAL)"
+58 SET KEYWORD(CD,"PROCEDURE_TIME")=M_"0,2,5,.VAL)"
+59 ;
+60 SET M="DT^DATE^MAGBRTE3(IMAGE,"
+61 SET KEYWORD(CD,"EXAM_TIME_FIRST")=M_"0,2,5,1,.VAL)"
+62 SET KEYWORD(CD,"EXAM_TIME_LAST")=M_"0,2,5,2,.VAL)"
+63 SET KEYWORD(CD,"IMAGE_SAVED_FIRST")=M_"0,2,1,1,.VAL)"
+64 SET KEYWORD(CD,"IMAGE_SAVED_LAST")=M_"0,2,1,2,.VAL)"
+65 SET KEYWORD(CD,"LAST_ACCESS_FIRST")=M_"0,0,9,1,.VAL)"
+66 SET KEYWORD(CD,"LAST_ACCESS_LAST")=M_"0,0,9,2,.VAL)"
+67 SET KEYWORD(CD,"PROCEDURE_TIME_FIRST")=M_"0,2,5,1,.VAL)"
+68 SET KEYWORD(CD,"PROCEDURE_TIME_LAST")=M_"0,2,5,2,.VAL)"
+69 SET KEYWORD(CD,"STUDY_TIME")=M_"0,2,5,1,.VAL)"
+70 ;
+71 ; Built-in Fields
+72 SET KEYWORD(CD,"NOW")="DT^NOW^MAGBRTE3(.VAL)"
+73 SET KEYWORD(CD,"SOURCE")="SH^SOURCE^MAGBRTE3(IMAGE,.VAL)"
+74 SET KEYWORD(CD,"URGENCY")="SH^URGENCY^MAGBRTE3(IMAGE,.VAL)"
+75 QUIT
+76 ;