RA41PRE ;HOIFO/SWM-Pre install ;3/1/04 11:28
;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998
; This is the pre-install routine for patch RA*5.0*41
;
; This routine may be deleted after RA*5.0*41 is installed.
;
; Three field descriptions (not data) will be deleted:
; Subfile 70.03 field 26 CREDIT METHOD
; File 79.1 field 21 CREDIT METHOD
; File 75.1 field 14 REQUESTING PHYSICIAN
; Their descriptions will be put back in by the
; installation with new information.
;
I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
K %,%Z,DA,DIC,DIK,X,Y
N RATXT
S DIK="^DD(70.03,",DA(1)=70.03,DA=26 D ^DIK
S RATXT(1)=" Temporarily removed description for subfile 70.03, field 26 CREDIT METHOD."
S RATXT(2)=" "
D MES^XPDUTL(.RATXT)
K %,%Z,DA,DIC,DIK,X,Y
S DIK="^DD(79.1,",DA(1)=79.1,DA=21 D ^DIK
S RATXT(1)=" Temporarily removed description for file 79.1, field 21 CREDIT METHOD."
D MES^XPDUTL(.RATXT)
K %,%Z,DA,DIC,DIK,X,Y
S DIK="^DD(75.1,",DA(1)=75.1,DA=14 D ^DIK
S RATXT(1)=" Temporarily removed description for file 75.1, field 14 REQUESTING PHYSICIAN."
D MES^XPDUTL(.RATXT)
K %,%Z,DA,DIC,DIK,X,Y
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRA41PRE 1261 printed Nov 22, 2024@17:43:16 Page 2
RA41PRE ;HOIFO/SWM-Pre install ;3/1/04 11:28
+1 ;;5.0;Radiology/Nuclear Medicine;**41**;Mar 16, 1998
+2 ; This is the pre-install routine for patch RA*5.0*41
+3 ;
+4 ; This routine may be deleted after RA*5.0*41 is installed.
+5 ;
+6 ; Three field descriptions (not data) will be deleted:
+7 ; Subfile 70.03 field 26 CREDIT METHOD
+8 ; File 79.1 field 21 CREDIT METHOD
+9 ; File 75.1 field 14 REQUESTING PHYSICIAN
+10 ; Their descriptions will be put back in by the
+11 ; installation with new information.
+12 ;
+13 IF '$DATA(XPDNM)#2
DO EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)")
QUIT
+14 KILL %,%Z,DA,DIC,DIK,X,Y
+15 NEW RATXT
+16 SET DIK="^DD(70.03,"
SET DA(1)=70.03
SET DA=26
DO ^DIK
+17 SET RATXT(1)=" Temporarily removed description for subfile 70.03, field 26 CREDIT METHOD."
+18 SET RATXT(2)=" "
+19 DO MES^XPDUTL(.RATXT)
+20 KILL %,%Z,DA,DIC,DIK,X,Y
+21 SET DIK="^DD(79.1,"
SET DA(1)=79.1
SET DA=21
DO ^DIK
+22 SET RATXT(1)=" Temporarily removed description for file 79.1, field 21 CREDIT METHOD."
+23 DO MES^XPDUTL(.RATXT)
+24 KILL %,%Z,DA,DIC,DIK,X,Y
+25 SET DIK="^DD(75.1,"
SET DA(1)=75.1
SET DA=14
DO ^DIK
+26 SET RATXT(1)=" Temporarily removed description for file 75.1, field 14 REQUESTING PHYSICIAN."
+27 DO MES^XPDUTL(.RATXT)
+28 KILL %,%Z,DA,DIC,DIK,X,Y
+29 QUIT
