| [613] | 1 | RAIPST ;HIRMFO/GJC- Post-init Driver ;12/22/97 08:32
|
|---|
| 2 | VERSION ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | N RACHK
|
|---|
| 5 | S RACHK=$$NEWCP^XPDUTL("POST1","EN1^RAIPST1")
|
|---|
| 6 | ; Install signon-alert into XU Menu
|
|---|
| 7 | ;
|
|---|
| 8 | S RACHK=$$NEWCP^XPDUTL("POST2","EN2^RAIPST1")
|
|---|
| 9 | ; Delete obsolete *CREDIT CLINIC STOP data dictionary
|
|---|
| 10 | ; (resides in file 71.1)
|
|---|
| 11 | ;
|
|---|
| 12 | S RACHK=$$NEWCP^XPDUTL("POST3","EN3^RAIPST1")
|
|---|
| 13 | ; Convert free-text pointer data for the Device file
|
|---|
| 14 | ; to pointer data in its true form.
|
|---|
| 15 | ;
|
|---|
| 16 | S RACHK=$$NEWCP^XPDUTL("POST31")
|
|---|
| 17 | ; Keep track of internal entry numbers in '^RAMIS(71,' when we
|
|---|
| 18 | ; convert free-text pointer data from the Device file to
|
|---|
| 19 | ; pointer data in its true form.
|
|---|
| 20 | ;
|
|---|
| 21 | S RACHK=$$NEWCP^XPDUTL("POST311")
|
|---|
| 22 | ; Keep track of internal entry numbers in '^RA(79.1,' when we
|
|---|
| 23 | ; convert free-text pointer data from the Device file to
|
|---|
| 24 | ; pointer data in its true form.
|
|---|
| 25 | ;
|
|---|
| 26 | S RACHK=$$NEWCP^XPDUTL("POST4","EN4^RAIPST1")
|
|---|
| 27 | ; Convert "Allow 'Released/Unverified'" data from the Rad
|
|---|
| 28 | ; Nuc/Med Division '^RA(79,' file to the Imaging Locations
|
|---|
| 29 | ; '^RA(79.1,' file.
|
|---|
| 30 | ;
|
|---|
| 31 | ;S RACHK=$$NEWCP^XPDUTL("POST6","EN2^RAIPST2")
|
|---|
| 32 | ; Delete incomplete reports from the Rad/Nuc Med Reports file.
|
|---|
| 33 | ; These reports are deleted because they are incomplete, i.e,
|
|---|
| 34 | ; missing Report Text, missing Impression Text, and a report
|
|---|
| 35 | ; Status of 'Draft'. These reports must not have a pointer
|
|---|
| 36 | ; to the Image (2005) file and must not be purged.
|
|---|
| 37 | ; ('PURGE' node must not exist.)
|
|---|
| 38 | ;
|
|---|
| 39 | ;
|
|---|
| 40 | ;S RACHK=$$NEWCP^XPDUTL("POST61")
|
|---|
| 41 | ; Track the internal entry numbers of the records checked in the
|
|---|
| 42 | ; Rad/Nuc Med Reports file. Used to check for incomplete Report
|
|---|
| 43 | ; records.
|
|---|
| 44 | ;
|
|---|
| 45 | S RACHK=$$NEWCP^XPDUTL("POST7","EN3^RAIPST2")
|
|---|
| 46 | ; Update the value of the REPORT RIGHT MARGIN of the IMAGING
|
|---|
| 47 | ; LOCATIONS file.
|
|---|
| 48 | ;
|
|---|
| 49 | S RACHK=$$NEWCP^XPDUTL("POST8","EN4^RAIPST2")
|
|---|
| 50 | ; Set the 'ASK RADIOPHARMS & DOSAGES?' field (.61) to 'Yes'
|
|---|
| 51 | ; for for the Examinations Status 'EXAMINED' whose Imaging
|
|---|
| 52 | ; Type has the 'RADIOPHARMACEUTICALS USED?' field set to 'Yes'.
|
|---|
| 53 | ;
|
|---|
| 54 | S RACHK=$$NEWCP^XPDUTL("POST9","EN5^RAIPST2")
|
|---|
| 55 | ; Add 'Mammography' as a new Imaging Type in file 79.2
|
|---|
| 56 | ; Populate the following fields: Operating Conditions
|
|---|
| 57 | ; Abbreviation, Report Cut-Off, Clinical History Cut-Off
|
|---|
| 58 | ; Tracking Time Cut-Off & Order Data Cut-Off
|
|---|
| 59 | ;
|
|---|
| 60 | S RACHK=$$NEWCP^XPDUTL("POST10","EN1^RAIPST4")
|
|---|
| 61 | ; Add Exam Statuses with an Imaging Type of 'Mammography'.
|
|---|
| 62 | ; Exam Statuses created: Cancelled; Waiting For Exam; Called
|
|---|
| 63 | ; For Exam; Examined; Transcribed and Complete.
|
|---|
| 64 | ;
|
|---|
| 65 | S RACHK=$$NEWCP^XPDUTL("POSTCLN","CLEANUP^RAIPST2")
|
|---|
| 66 | ; Queue off the RADIOLOGY/NUCLEAR MEDICINE CLEANUP 5.0 build.
|
|---|
| 67 | ; This build removes obsolete data and fields from the database.
|
|---|
| 68 | ;
|
|---|
| 69 | S RACHK=$$NEWCP^XPDUTL("POST11","EN2^RAIPST4")
|
|---|
| 70 | ; If the HL7 Application Parameter (file 771) 'Radiology'
|
|---|
| 71 | ; does not exist, create it. Populate the fields with the
|
|---|
| 72 | ; required data. If the entry exists, change the 'ORU' HL7
|
|---|
| 73 | ; Message processing routine from RAHLO to RAHLBKVR.
|
|---|
| 74 | ; Change the 'QRY' HL7 Message processing routine from RAHLQ
|
|---|
| 75 | ; to RAHLBKVQ.
|
|---|
| 76 | ;
|
|---|
| 77 | S RACHK=$$NEWCP^XPDUTL("POST12","PRO101^RAIPST5")
|
|---|
| 78 | ; Add the following protocols to file 101 iff they are new
|
|---|
| 79 | ; to the Protocol (101) file: RA CANCEL, RA EVSEND OR,
|
|---|
| 80 | ; RA EXAMINED, RA RECEIVE, RA REG, RA RPT, RA SEND ORM &
|
|---|
| 81 | ; RA SEND ORU
|
|---|
| 82 | ;
|
|---|
| 83 | Q
|
|---|
