source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA65PST.m@ 699

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1RA65PST ;HOIFO/SWM-Post install ;1/24/06 13:51
2 ;;5.0;Radiology/Nuclear Medicine;**65**;Mar 16,1998;Build 8
3 ;This is the post-install routine for patch RA*5.0*65
4 ;Supported IA #5122 Remove Rad/Nuc Med dd Screen of Sub field #70.15
5 ;Supported IA #5123 Remove Rad/Nuc Med dd Screen of Sub field #70.21
6 ;Supported IA #5124 Remove Rad/Nuc Med dd Screen of Sub field #71.055
7 ;Supported IA #5125 Remove Rad/Nuc Med dd Screen of Sub field #71.08
8 ;Supported IA #5126 Remove Rad/Nuc Med dd Screen of File 71.9 field #5
9 ;Supported IA #5127 Set Rad/Nuc Med data dictionary 'ID','WRIT
10 ;Supported IA #10142 Classic FileMan API: Loader EN^DDIOL
11 ;
12 ;This routine may be deleted after RA*5.0*65 is installed.
13 ;
14 ;1. delete identifier RADIOPHARM from file 71.9
15 ;2. set Write node so file 71.9 lookup would include RADIOPHARM
16 ;3. remove obsolete ^DD(-,,12) and ^DD(-,,12.1) data screen nodes
17 ;
18 I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
19 ;1.
20 K ^DD(71.9,0,"ID",5)
21 ;
22 ;2.
23 S ^DD(71.9,0,"ID","WRITE")="D EN^DDIOL($$EN5^RAPSAPI,"""",""?30"")"
24 ;
25 ;3.
26 K ^DD(70.15,.01,12),^(12.1)
27 K ^DD(70.21,.01,12),^(12.1)
28 K ^DD(71.055,.01,12),^(12.1)
29 K ^DD(71.08,.01,12),^(12.1)
30 K ^DD(71.9,5,12),^(12.1)
31 Q
Note: See TracBrowser for help on using the repository browser.