source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RA41PRE.m@ 789

Last change on this file since 789 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1RA41PRE ;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
Note: See TracBrowser for help on using the repository browser.