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

RAIPST.m

Go to the documentation of this file. 
  1. RAIPST ;HIRMFO/GJC- Post-init Driver ;12/22/97  08:32
  1. VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
  1.  ;
  1.  N RACHK
  1.  S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAIPST1")
  1.  ;         Install signon-alert into XU Menu
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST2","EN2^RAIPST1")
  1.  ;         Delete obsolete *CREDIT CLINIC STOP data dictionary
  1.  ;         (resides in file 71.1)
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST3","EN3^RAIPST1")
  1.  ;         Convert free-text pointer data for the Device file
  1.  ;                to pointer data in its true form.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST31")
  1.  ;         Keep track of internal entry numbers in '^RAMIS(71,' when we
  1.  ;         convert free-text pointer data from the Device file to
  1.  ;         pointer data in its true form.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST311")
  1.  ;         Keep track of internal entry numbers in '^RA(79.1,' when we
  1.  ;         convert free-text pointer data from the Device file to
  1.  ;         pointer data in its true form.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST4","EN4^RAIPST1")
  1.  ;        Convert "Allow 'Released/Unverified'" data from the Rad
  1.  ;        Nuc/Med Division '^RA(79,' file to the Imaging Locations
  1.  ;        '^RA(79.1,' file.
  1.  ;
  1.  ;S RACHK=$$NEWCP^XPDUTL("POST6","EN2^RAIPST2")
  1.  ;        Delete incomplete reports from the Rad/Nuc Med Reports file.
  1.  ;        These reports are deleted because they are incomplete, i.e,
  1.  ;        missing Report Text, missing Impression Text, and a report
  1.  ;        Status of 'Draft'.  These reports must not have a pointer
  1.  ;        to the Image (2005) file and must not be purged.
  1.  ;        ('PURGE' node must not exist.)
  1.  ;
  1.  ;
  1.  ;S RACHK=$$NEWCP^XPDUTL("POST61")
  1.  ;        Track the internal entry numbers of the records checked in the
  1.  ;        Rad/Nuc Med Reports file.  Used to check for incomplete Report
  1.  ;        records.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST7","EN3^RAIPST2")
  1.  ;        Update the value of the REPORT RIGHT MARGIN of the IMAGING
  1.  ;        LOCATIONS file.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST8","EN4^RAIPST2")
  1.  ;        Set the 'ASK RADIOPHARMS & DOSAGES?' field (.61) to 'Yes'
  1.  ;        for for the Examinations Status 'EXAMINED' whose Imaging
  1.  ;        Type has the 'RADIOPHARMACEUTICALS USED?' field set to 'Yes'.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST9","EN5^RAIPST2")
  1.  ;        Add 'Mammography' as a new Imaging Type in file 79.2
  1.  ;        Populate the following fields: Operating Conditions
  1.  ;        Abbreviation, Report Cut-Off, Clinical History Cut-Off
  1.  ;        Tracking Time Cut-Off & Order Data Cut-Off
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST10","EN1^RAIPST4")
  1.  ;        Add Exam Statuses with an Imaging Type of 'Mammography'.
  1.  ;        Exam Statuses created: Cancelled; Waiting For Exam; Called
  1.  ;        For Exam; Examined; Transcribed and Complete.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POSTCLN","CLEANUP^RAIPST2")
  1.  ;        Queue off the RADIOLOGY/NUCLEAR MEDICINE CLEANUP 5.0 build.
  1.  ;        This build removes obsolete data and fields from the database.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST11","EN2^RAIPST4")
  1.  ;        If the HL7 Application Parameter (file 771) 'Radiology'
  1.  ;        does not exist, create it.  Populate the fields with the
  1.  ;        required data.  If the entry exists, change the 'ORU' HL7
  1.  ;        Message processing routine from RAHLO to RAHLBKVR.
  1.  ;        Change the 'QRY' HL7 Message processing routine from RAHLQ
  1.  ;        to RAHLBKVQ.
  1.  ;
  1.  S RACHK=$$NEWCP^XPDUTL("POST12","PRO101^RAIPST5")
  1.  ;        Add the following protocols to file 101 iff they are new
  1.  ;        to the Protocol (101) file: RA CANCEL, RA EVSEND OR,
  1.  ;        RA EXAMINED, RA RECEIVE, RA REG, RA RPT, RA SEND ORM &
  1.  ;        RA SEND ORU
  1.  ;
  1.  Q