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