| [613] | 1 | RAIPRE ;HIRMFO/GJC- Pre-init Driver ;11/12/97 11:42
|
|---|
| 2 | VERSION ;;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
|
|---|
