RAIPS169.m

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 ---RAIPS169   4049     printed  Mar 13, 2025@21:40:55                                                                                                                                                                                                    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      ;