RA65PST.m

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 ---RA65PST   1299     printed  Apr 09, 2024@21:42:03                                                                                                                                                                                                     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