Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RAIPRE

RAIPRE.m

Go to the documentation of this file. 
  1. RAIPRE ;HIRMFO/GJC- Pre-init Driver ;11/12/97  11:42
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
  1.  I +$G(DIFROM)'=+$P($T(VERSION),";",3) S XPDQUIT=1 Q
  1.  Q:$G(^RADPT(0))']""  ; Virgin install, quit!
  1.  N RAIPRE
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREA1","EN1^RAIPRE1")
  1.  ;        Delete the Stop Codes multiple from the Rad/Nuc Med Procedures
  1.  ;        data dictionary.  Delete Stop Code data from the Rad/Nuc Med
  1.  ;        Procedures file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREA2","EN2^RAIPRE1")
  1.  ;        Delete the Principal Clinic field from the Imaging Locations
  1.  ;        data dictionary.  Delete Principal Clinic data from the
  1.  ;        Imaging Locations file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREA4","EN4^RAIPRE1")
  1.  ;        Delete the Common Procedure Group field from the Rad/Nuc Med
  1.  ;        Common Procedure data dictionary.  Delete Common Procedure
  1.  ;        Group data from the Rad/Nuc Med Common Procedure file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREA10","EN10^RAIPRE1")
  1.  ;        Delete the Input Devices multiple from the Imaging Locations
  1.  ;        data dictionary.  Delete Input Devices data from the Imaging
  1.  ;        Locations file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREA11","EN11^RAIPRE1")
  1.  ;        Delete the Device Assignment Explanation field (75) from
  1.  ;        the Imaging Type data dictionary. Delete Device Assignment
  1.  ;        Explanation data from the Imaging Type file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB1","EN1^RAIPRE2")
  1.  ;        Delete the Allow 'VA' Patient Entry field from the data
  1.  ;        dictionary of the Rad/Nuc Med Division file.  Delete Allow
  1.  ;        'VA' Patient Entry data from the Rad/Nuc Med Division file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB2","EN2^RAIPRE2")
  1.  ;        Delete the Allow 'NON-VA' Patient Entry field from the data
  1.  ;        dictionary of the Rad/Nuc Med Division file.  Delete Allow
  1.  ;        'NON-VA' Patient Entry data from the Rad/Nuc Med Division file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB3","EN3^RAIPRE2")
  1.  ;        Delete the Ask 'Requesting Physician' field from the data
  1.  ;        dictionary of the Rad/Nuc Med Division file.  Delete Ask
  1.  ;        'Requesting Physician' data from the Rad/Nuc Med Division file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB4","EN4^RAIPRE2")
  1.  ;        Delete the following fields from the Rad/Nuc Med Division
  1.  ;        data dictionary: Last DFN Converted (75.1), Conversion Start
  1.  ;        Time (75.1), Conversion Stop Time (75.1), Last DFN Converted
  1.  ;        (70), Conversion Start Time (70) & Conversion Stop Time (70).
  1.  ;        All data associated with these fields will also be deleted.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB5","EN5^RAIPRE2")
  1.  ;        Change the name of 'Radiology Location' in the Label Print
  1.  ;        Fields file (78.7) to 'Imaging Location'.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB7","EN7^RAIPRE2")
  1.  ;        Un-compile the 'RA STATUS CHANGE' and 'RA EXAM EDIT'
  1.  ;        input templates on the Rad/Nuc Med Patient file.
  1.  ;
  1.  S RAIPRE=$$NEWCP^XPDUTL("PREB8","EN8^RAIPRE3")
  1.  ;        See that the "NM" nodes for sub-files 200.072 (Rad/Nuc Med
  1.  ;        Classification) and sub-file 200.074 (Rad/Nuc Med Location
  1.  ;        Access) are correct.  If nodes need to be corrected, delete
  1.  ;        the sub-file and retain the data.
  1.  Q