source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAIPRE.m@ 1806

Last change on this file since 1806 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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