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