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