RAIPRE ;HIRMFO/GJC- Pre-init Driver ;11/12/97 11:42
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
I +$G(DIFROM)'=+$P($T(VERSION),";",3) S XPDQUIT=1 Q
Q:$G(^RADPT(0))']"" ; Virgin install, quit!
N RAIPRE
S RAIPRE=$$NEWCP^XPDUTL("PREA1","EN1^RAIPRE1")
; Delete the Stop Codes multiple from the Rad/Nuc Med Procedures
; data dictionary. Delete Stop Code data from the Rad/Nuc Med
; Procedures file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREA2","EN2^RAIPRE1")
; Delete the Principal Clinic field from the Imaging Locations
; data dictionary. Delete Principal Clinic data from the
; Imaging Locations file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREA4","EN4^RAIPRE1")
; Delete the Common Procedure Group field from the Rad/Nuc Med
; Common Procedure data dictionary. Delete Common Procedure
; Group data from the Rad/Nuc Med Common Procedure file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREA10","EN10^RAIPRE1")
; Delete the Input Devices multiple from the Imaging Locations
; data dictionary. Delete Input Devices data from the Imaging
; Locations file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREA11","EN11^RAIPRE1")
; Delete the Device Assignment Explanation field (75) from
; the Imaging Type data dictionary. Delete Device Assignment
; Explanation data from the Imaging Type file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB1","EN1^RAIPRE2")
; Delete the Allow 'VA' Patient Entry field from the data
; dictionary of the Rad/Nuc Med Division file. Delete Allow
; 'VA' Patient Entry data from the Rad/Nuc Med Division file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB2","EN2^RAIPRE2")
; Delete the Allow 'NON-VA' Patient Entry field from the data
; dictionary of the Rad/Nuc Med Division file. Delete Allow
; 'NON-VA' Patient Entry data from the Rad/Nuc Med Division file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB3","EN3^RAIPRE2")
; Delete the Ask 'Requesting Physician' field from the data
; dictionary of the Rad/Nuc Med Division file. Delete Ask
; 'Requesting Physician' data from the Rad/Nuc Med Division file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB4","EN4^RAIPRE2")
; Delete the following fields from the Rad/Nuc Med Division
; data dictionary: Last DFN Converted (75.1), Conversion Start
; Time (75.1), Conversion Stop Time (75.1), Last DFN Converted
; (70), Conversion Start Time (70) & Conversion Stop Time (70).
; All data associated with these fields will also be deleted.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB5","EN5^RAIPRE2")
; Change the name of 'Radiology Location' in the Label Print
; Fields file (78.7) to 'Imaging Location'.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB7","EN7^RAIPRE2")
; Un-compile the 'RA STATUS CHANGE' and 'RA EXAM EDIT'
; input templates on the Rad/Nuc Med Patient file.
;
S RAIPRE=$$NEWCP^XPDUTL("PREB8","EN8^RAIPRE3")
; See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
; Classification) and sub-file 200.074 (Rad/Nuc Med Location
; Access) are correct. If nodes need to be corrected, delete
; the sub-file and retain the data.
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRAIPRE 3279 printed Nov 22, 2024@17:45:54 Page 2
RAIPRE ;HIRMFO/GJC- Pre-init Driver ;11/12/97 11:42
VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
+1 IF +$GET(DIFROM)'=+$PIECE($TEXT(VERSION),";",3)
SET XPDQUIT=1
QUIT
+2 ; Virgin install, quit!
if $GET(^RADPT(0))']""
QUIT
+3 NEW RAIPRE
+4 SET RAIPRE=$$NEWCP^XPDUTL("PREA1","EN1^RAIPRE1")
+5 ; Delete the Stop Codes multiple from the Rad/Nuc Med Procedures
+6 ; data dictionary. Delete Stop Code data from the Rad/Nuc Med
+7 ; Procedures file.
+8 ;
+9 SET RAIPRE=$$NEWCP^XPDUTL("PREA2","EN2^RAIPRE1")
+10 ; Delete the Principal Clinic field from the Imaging Locations
+11 ; data dictionary. Delete Principal Clinic data from the
+12 ; Imaging Locations file.
+13 ;
+14 SET RAIPRE=$$NEWCP^XPDUTL("PREA4","EN4^RAIPRE1")
+15 ; Delete the Common Procedure Group field from the Rad/Nuc Med
+16 ; Common Procedure data dictionary. Delete Common Procedure
+17 ; Group data from the Rad/Nuc Med Common Procedure file.
+18 ;
+19 SET RAIPRE=$$NEWCP^XPDUTL("PREA10","EN10^RAIPRE1")
+20 ; Delete the Input Devices multiple from the Imaging Locations
+21 ; data dictionary. Delete Input Devices data from the Imaging
+22 ; Locations file.
+23 ;
+24 SET RAIPRE=$$NEWCP^XPDUTL("PREA11","EN11^RAIPRE1")
+25 ; Delete the Device Assignment Explanation field (75) from
+26 ; the Imaging Type data dictionary. Delete Device Assignment
+27 ; Explanation data from the Imaging Type file.
+28 ;
+29 SET RAIPRE=$$NEWCP^XPDUTL("PREB1","EN1^RAIPRE2")
+30 ; Delete the Allow 'VA' Patient Entry field from the data
+31 ; dictionary of the Rad/Nuc Med Division file. Delete Allow
+32 ; 'VA' Patient Entry data from the Rad/Nuc Med Division file.
+33 ;
+34 SET RAIPRE=$$NEWCP^XPDUTL("PREB2","EN2^RAIPRE2")
+35 ; Delete the Allow 'NON-VA' Patient Entry field from the data
+36 ; dictionary of the Rad/Nuc Med Division file. Delete Allow
+37 ; 'NON-VA' Patient Entry data from the Rad/Nuc Med Division file.
+38 ;
+39 SET RAIPRE=$$NEWCP^XPDUTL("PREB3","EN3^RAIPRE2")
+40 ; Delete the Ask 'Requesting Physician' field from the data
+41 ; dictionary of the Rad/Nuc Med Division file. Delete Ask
+42 ; 'Requesting Physician' data from the Rad/Nuc Med Division file.
+43 ;
+44 SET RAIPRE=$$NEWCP^XPDUTL("PREB4","EN4^RAIPRE2")
+45 ; Delete the following fields from the Rad/Nuc Med Division
+46 ; data dictionary: Last DFN Converted (75.1), Conversion Start
+47 ; Time (75.1), Conversion Stop Time (75.1), Last DFN Converted
+48 ; (70), Conversion Start Time (70) & Conversion Stop Time (70).
+49 ; All data associated with these fields will also be deleted.
+50 ;
+51 SET RAIPRE=$$NEWCP^XPDUTL("PREB5","EN5^RAIPRE2")
+52 ; Change the name of 'Radiology Location' in the Label Print
+53 ; Fields file (78.7) to 'Imaging Location'.
+54 ;
+55 SET RAIPRE=$$NEWCP^XPDUTL("PREB7","EN7^RAIPRE2")
+56 ; Un-compile the 'RA STATUS CHANGE' and 'RA EXAM EDIT'
+57 ; input templates on the Rad/Nuc Med Patient file.
+58 ;
+59 SET RAIPRE=$$NEWCP^XPDUTL("PREB8","EN8^RAIPRE3")
+60 ; See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
+61 ; Classification) and sub-file 200.074 (Rad/Nuc Med Location
+62 ; Access) are correct. If nodes need to be corrected, delete
+63 ; the sub-file and retain the data.
+64 QUIT
