| 1 | RA65PST ;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
|
|---|
