RA41PRE.m

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 ---RA41PRE   1261     printed  Apr 09, 2024@21:35:26                                                                                                                                                                                                     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