RAIPS169 ;HISC/GJC RA5_0P169 post-install ; May 08, 2020@11:27:52
;;5.0;Radiology/Nuclear Medicine;**169**;Mar 16, 1998;Build 2
;
;IA Type File Routine Tag
;------------------------------------------------
;2053 (S) DIE WP
;
EN ;update DESCRIPTION (#4) field for ^DIC(75.1,
;
;First parameter: File 1: File of Files (FoF)
;Second Parameter: IEN of RAD/NUC MED ORDERS file (#75.1)
;Third parameter: word-processing (WP) field updated in FoF #4 DESCRIPTION
; ^DD(1,"B","DESCRIPTION",4)=""
; ^DD(1,4,0)="DESCRIPTION^1.001^^%D;0"
;fourth parameter:
;'A' - Append new word-processing (WP) text to the current word-processing data.
; If this flag is not sent, the current contents of the WORD-PROCESSING
; field are completely erased before the new word-processing data is filed.
;'K' - LocK the entry or subentry before changing the word-processing data.
;
;fifth parameter: data_root (the global where the WP data is.
;
;
;D APEND ;leave existing description and append to it
K ^TMP($J,"RA751")
D UPDATE ;kill existing description update to the new description
;delete existing WP test from the DESCRIPTION (fld: 4; node: %D)
D WP^DIE(1,"75.1,",4,"","^TMP($J,""RA751"")")
;the DESCRIPTION field has been update
K ^TMP($J,"RA751")
Q
;
UPDATE ;original text
S ^TMP($J,"RA751",1,0)="This file contains all information pertaining to an imaging order entered" S ^TMP($J,"RA751",2,0)="for a patient. The file structure is like that of the Rad/Nuc Med Patient"
S ^TMP($J,"RA751",3,0)="file. This imaging order file allows the storage of General Radiology,"
S ^TMP($J,"RA751",4,0)="Nuclear Medicine, Magnetic Resonance Imaging, Computed Tomography,"
S ^TMP($J,"RA751",5,0)="Ultrasound and other types of imaging modality data."
S ^TMP($J,"RA751",6,0)=" "
S ^TMP($J,"RA751",7,0)=" "
S ^TMP($J,"RA751",8,0)=" "
S ^TMP($J,"RA751",9,0)="Data Storage"
S ^TMP($J,"RA751",10,0)="------------"
S ^TMP($J,"RA751",11,0)="The data for 'RAD/NUC MED ORDERS' file is stored in the ^RAO(75.1,global.."
S ^TMP($J,"RA751",12,0)="This file is very volatile and should be journaled and translated if the"
S ^TMP($J,"RA751",13,0)="operating system supports these two functions."
S ^TMP($J,"RA751",14,0)=" "
S ^TMP($J,"RA751",15,0)=" "
S ^TMP($J,"RA751",16,0)=" "
S ^TMP($J,"RA751",17,0)="Input Templates"
S ^TMP($J,"RA751",18,0)="---------------"
S ^TMP($J,"RA751",19,0)="The following is a list of input templates used by the package"
S ^TMP($J,"RA751",20,0)="and in the OPTIONS file (#19) that uses the template:"
S ^TMP($J,"RA751",21,0)=" "
S ^TMP($J,"RA751",22,0)=" "
S ^TMP($J,"RA751",23,0)="Input Template Name Input Template Description Option(s)"
S ^TMP($J,"RA751",24,0)="------------------- -------------------------- ---------"
S ^TMP($J,"RA751",25,0)="RA ORDER EXAM Enter an order for a VistA RAORDER EXAM "
S ^TMP($J,"RA751",26,0)=" Radiology procedure."
S ^TMP($J,"RA751",27,0)=" "
S ^TMP($J,"RA751",28,0)="RA QUICK EXAM ORDER Allows quick entry of one or RAQUICK EXAM ORDER"
S ^TMP($J,"RA751",29,0)=" multiple exams for a patient."
S ^TMP($J,"RA751",30,0)=" "
S ^TMP($J,"RA751",31,0)="RA OERR EDIT Edit an unreleased order that"
S ^TMP($J,"RA751",32,0)=" was entered through the OE/RR package."
S ^TMP($J,"RA751",33,0)=" "
S ^TMP($J,"RA751",34,0)=" "
S ^TMP($J,"RA751",35,0)=" "
S ^TMP($J,"RA751",36,0)="Print Templates"
S ^TMP($J,"RA751",37,0)="---------------"
S ^TMP($J,"RA751",38,0)="There are no print templates associated with this file."
S ^TMP($J,"RA751",39,0)=" "
S ^TMP($J,"RA751",40,0)=" "
S ^TMP($J,"RA751",41,0)=" "
S ^TMP($J,"RA751",42,0)="Sort Templates"
S ^TMP($J,"RA751",43,0)="--------------"
S ^TMP($J,"RA751",44,0)="There are no sort templates associated with this file."
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPS169 4049 printed Dec 13, 2024@02:36:10 Page 2
RAIPS169 ;HISC/GJC RA5_0P169 post-install ; May 08, 2020@11:27:52
+1 ;;5.0;Radiology/Nuclear Medicine;**169**;Mar 16, 1998;Build 2
+2 ;
+3 ;IA Type File Routine Tag
+4 ;------------------------------------------------
+5 ;2053 (S) DIE WP
+6 ;
EN ;update DESCRIPTION (#4) field for ^DIC(75.1,
+1 ;
+2 ;First parameter: File 1: File of Files (FoF)
+3 ;Second Parameter: IEN of RAD/NUC MED ORDERS file (#75.1)
+4 ;Third parameter: word-processing (WP) field updated in FoF #4 DESCRIPTION
+5 ; ^DD(1,"B","DESCRIPTION",4)=""
+6 ; ^DD(1,4,0)="DESCRIPTION^1.001^^%D;0"
+7 ;fourth parameter:
+8 ;'A' - Append new word-processing (WP) text to the current word-processing data.
+9 ; If this flag is not sent, the current contents of the WORD-PROCESSING
+10 ; field are completely erased before the new word-processing data is filed.
+11 ;'K' - LocK the entry or subentry before changing the word-processing data.
+12 ;
+13 ;fifth parameter: data_root (the global where the WP data is.
+14 ;
+15 ;
+16 ;D APEND ;leave existing description and append to it
+17 KILL ^TMP($JOB,"RA751")
+18 ;kill existing description update to the new description
DO UPDATE
+19 ;delete existing WP test from the DESCRIPTION (fld: 4; node: %D)
+20 DO WP^DIE(1,"75.1,",4,"","^TMP($J,""RA751"")")
+21 ;the DESCRIPTION field has been update
+22 KILL ^TMP($JOB,"RA751")
+23 QUIT
+24 ;
UPDATE ;original text
+1 SET ^TMP($JOB,"RA751",1,0)="This file contains all information pertaining to an imaging order entered"
SET ^TMP($JOB,"RA751",2,0)="for a patient. The file structure is like that of the Rad/Nuc Med Patient"
+2 SET ^TMP($JOB,"RA751",3,0)="file. This imaging order file allows the storage of General Radiology,"
+3 SET ^TMP($JOB,"RA751",4,0)="Nuclear Medicine, Magnetic Resonance Imaging, Computed Tomography,"
+4 SET ^TMP($JOB,"RA751",5,0)="Ultrasound and other types of imaging modality data."
+5 SET ^TMP($JOB,"RA751",6,0)=" "
+6 SET ^TMP($JOB,"RA751",7,0)=" "
+7 SET ^TMP($JOB,"RA751",8,0)=" "
+8 SET ^TMP($JOB,"RA751",9,0)="Data Storage"
+9 SET ^TMP($JOB,"RA751",10,0)="------------"
+10 SET ^TMP($JOB,"RA751",11,0)="The data for 'RAD/NUC MED ORDERS' file is stored in the ^RAO(75.1,global.."
+11 SET ^TMP($JOB,"RA751",12,0)="This file is very volatile and should be journaled and translated if the"
+12 SET ^TMP($JOB,"RA751",13,0)="operating system supports these two functions."
+13 SET ^TMP($JOB,"RA751",14,0)=" "
+14 SET ^TMP($JOB,"RA751",15,0)=" "
+15 SET ^TMP($JOB,"RA751",16,0)=" "
+16 SET ^TMP($JOB,"RA751",17,0)="Input Templates"
+17 SET ^TMP($JOB,"RA751",18,0)="---------------"
+18 SET ^TMP($JOB,"RA751",19,0)="The following is a list of input templates used by the package"
+19 SET ^TMP($JOB,"RA751",20,0)="and in the OPTIONS file (#19) that uses the template:"
+20 SET ^TMP($JOB,"RA751",21,0)=" "
+21 SET ^TMP($JOB,"RA751",22,0)=" "
+22 SET ^TMP($JOB,"RA751",23,0)="Input Template Name Input Template Description Option(s)"
+23 SET ^TMP($JOB,"RA751",24,0)="------------------- -------------------------- ---------"
+24 SET ^TMP($JOB,"RA751",25,0)="RA ORDER EXAM Enter an order for a VistA RAORDER EXAM "
+25 SET ^TMP($JOB,"RA751",26,0)=" Radiology procedure."
+26 SET ^TMP($JOB,"RA751",27,0)=" "
+27 SET ^TMP($JOB,"RA751",28,0)="RA QUICK EXAM ORDER Allows quick entry of one or RAQUICK EXAM ORDER"
+28 SET ^TMP($JOB,"RA751",29,0)=" multiple exams for a patient."
+29 SET ^TMP($JOB,"RA751",30,0)=" "
+30 SET ^TMP($JOB,"RA751",31,0)="RA OERR EDIT Edit an unreleased order that"
+31 SET ^TMP($JOB,"RA751",32,0)=" was entered through the OE/RR package."
+32 SET ^TMP($JOB,"RA751",33,0)=" "
+33 SET ^TMP($JOB,"RA751",34,0)=" "
+34 SET ^TMP($JOB,"RA751",35,0)=" "
+35 SET ^TMP($JOB,"RA751",36,0)="Print Templates"
+36 SET ^TMP($JOB,"RA751",37,0)="---------------"
+37 SET ^TMP($JOB,"RA751",38,0)="There are no print templates associated with this file."
+38 SET ^TMP($JOB,"RA751",39,0)=" "
+39 SET ^TMP($JOB,"RA751",40,0)=" "
+40 SET ^TMP($JOB,"RA751",41,0)=" "
+41 SET ^TMP($JOB,"RA751",42,0)="Sort Templates"
+42 SET ^TMP($JOB,"RA751",43,0)="--------------"
+43 SET ^TMP($JOB,"RA751",44,0)="There are no sort templates associated with this file."
+44 QUIT
+45 ;
