source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAIPST.m@ 1800

Last change on this file since 1800 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1RAIPST ;HIRMFO/GJC- Post-init Driver ;12/22/97 08:32
2VERSION ;;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
Note: See TracBrowser for help on using the repository browser.