Routine: RAIPST2

Information

RAIPST2 ;HIRMFO/GJC - Post-init number two ;6/16/97 07:59

Source file <RAIPST2.m>

Package	Total	Call Graph
Kernel	4	^%ZTLOAD ($$FMADD,$$NOW)^XLFDT $$UP^XLFSTR MES^XPDUTL
VA Fileman	3	^DIC (FILE,UPDATE)^DIE $$GET1^DIQ
Radiology Nuclear Medicine	1	$$CNVFLG^RAIPST2

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RAIPST2

Name	Comments	DBIA/ICR reference
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.
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.)
VERSION	;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
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'.
EN3	; Update the value of the REPORT RIGHT MARGIN of the IMAGING LOCATIONS ; file.
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

FileNo	Call Tags
^RA(79.2 - [#79.2]	GET1^DIQ
^XPD(9.7 - [#9.7]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RA(72 - [#72]	EN4+4, EN4+5, CNVFLG+10, CNVFLG+11
^RA(79.1 - [#79.1]	EN3+8, EN3+9
^RA(79.2 - [#79.2]	EN5+4
^XTMP("XPDI"	CLEANUP+9

Name	Field # of Occurrence
%	CLEANUP+3~
DIC	CLEANUP+3~, CLEANUP+5*
DIC(0	CLEANUP+5*
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!
RAERR("DIERR"	EN5+13
RAFDA	EN3+3~, EN3+14!, EN4+3~, EN4+8, EN5+5~
RAFDA(	EN3+13, EN5+8, EN5+9, EN5+10, EN5+11*
RAFDA(72	EN4+6*
RAFLG	CNVFLG+9~, CNVFLG+10, CNVFLG+11, CNVFLG+13
RAIEN	EN3+3~, EN3+8, EN3+9, EN3+13
RAITY	EN4+5~*, EN4+6
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*
RATXT(4	EN3+7*
X	CLEANUP+3~, CLEANUP+4*
XPDA	CLEANUP+3~, CLEANUP+6*, CLEANUP+7, CLEANUP+9
Y	CLEANUP+3~, CLEANUP+5, CLEANUP+6
ZTDESC	CLEANUP+10~, CLEANUP+11*
ZTDTH	CLEANUP+10~, CLEANUP+12*
ZTIO	CLEANUP+10~*
ZTRTN	CLEANUP+10~, CLEANUP+11*
ZTSAVE	CLEANUP+10~
ZTSAVE("XPDA"	CLEANUP+12*
>> ZTSK	CLEANUP+15

Name	Field # of Occurrence
$T(	CLEANUP+4