RAIPST2 ;HIRMFO/GJC - Post-init number two ;6/16/97 07:59
|action||A||extended action||Ea||event driver||Ed||subscriber||Su||protocol||O||limited protocol||LP||run routine||RR||broker||B||edit||E||server||Se||P||screenman||SM||inquire||I|
|VERSION||;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|EN2||; Delete incomplete reports from the Rad/Nuc Med Reports file.
; These reports are deleted because they are incomplete, i.e,
; missing Report Text, missing Impression Text, and a Report
; Status of 'Draft'. These reports must not have a pointer
; to the Image (2005) file and must not be purged.
; ('PURGE' node must not exist.)
|EN3||; Update the value of the REPORT RIGHT MARGIN of the IMAGING LOCATIONS
|EN4||; Set the 'ASK RADIOPHARMS & DOSAGES?' field (.61) to 'Yes'
; for for the Examinations Status 'EXAMINED' whose Imaging
; Type has the 'RADIOPHARMACEUTICALS USED?' field set to 'Yes'.
|EN5||; Add 'Mammography' as a new Imaging Type in file 79.2
; Populate the following fields: Operating Conditions
; Abbreviation, Report Cut-Off, Clinical History Cut-Off
; Tracking Time Cut-Off & Order Data Cut-Off
|CLEANUP||; This entry point is called to queue off the RADIOLOGY/NUCLEAR
; MEDICINE CLEANUP 5.0 build. This build removes obsolete data and
; fields from the database.
|CNVFLG()||; This code checks to see if the Right Margin field for the
; Imaging Locations file has had its data converted by a prior install
; of Rad/Nuc Med v5. We check to see if the 'ASK RADIOPHARMS &
; DOSAGES?' field (.61) is set to 'Yes'. If so, the post-init must
; have run in the past.
|>>||Not killed explicitly|
|Name||Field # of Occurrence|
|I||EN4+3~*, EN4+4*, EN4+5, EN4+6, CNVFLG+9~*, CNVFLG+10*, CNVFLG+11|
|RA791||EN3+3~, EN3+9*, EN3+10|
|RAERR||EN3+14!, EN5+5!, EN5+19!|
|RAFDA||EN3+3~, EN3+14!, EN4+3~, EN4+8, EN5+5~|
|RAFDA(||EN3+13*, EN5+8*, EN5+9*, EN5+10*, EN5+11*|
|RAFLG||CNVFLG+9~*, CNVFLG+10, CNVFLG+11*, CNVFLG+13|
|RAIEN||EN3+3~*, EN3+8*, EN3+9, EN3+13|
|RALEFT||EN3+3~, EN3+10*, EN3+11, EN3+12|
|RANRIT||EN3+3~, EN3+12*, EN3+13|
|RAPKG||CLEANUP+3~, CLEANUP+4*, CLEANUP+14|
|RARIT||EN3+3~, EN3+10*, EN3+11, EN3+12|
|RASTAT||CLEANUP+3~, CLEANUP+7*, CLEANUP+8|
|RATXT||EN3+3~, EN3+7!, EN5+5!, EN5+7!, EN5+17, EN5+19!, CLEANUP+13~, CLEANUP+15|
|RATXT(1||EN3+4*, EN5+5*, EN5+14*, CLEANUP+13*|
|RATXT(2||EN3+5*, EN5+6*, EN5+15*, CLEANUP+14*|
|RATXT(3||EN3+6*, EN5+16*, CLEANUP+15*|
|XPDA||CLEANUP+3~, CLEANUP+6*, CLEANUP+7, CLEANUP+9|
|Y||CLEANUP+3~, CLEANUP+5, CLEANUP+6|