ORY106.m

ORY106 ;SLC/DAN - Postinit for patch OR*3*92 ;2/1/01  16:18

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**106**;Dec 17, 1997

 ;

POST ; -- postinit

 N MSG

 S MSG(1)=""

 S MSG(2)="This patch imports the ORDER TEXT and LAB TEST entries"

 S MSG(3)="from the OE/RR PRINT FIELDS file.  As a result, the entries"

 S MSG(4)="in the OE/RR PRINT FORMAT file need to be recompiled."

 S MSG(5)=""

 S MSG(6)="**NOTE: If you have made local modifications to the compiled"

 S MSG(7)="code in the OE/RR PRINT FORMAT file they will be OVERWRITTEN."

 S MSG(8)=""

 S MSG(9)="Recompiling..."

 D MES^XPDUTL(.MSG) H 3

 D RECMPL^ORPR00 K MSG

 Q

ORY106    ;SLC/DAN - Postinit for patch OR*3*92 ;2/1/01  16:18

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**106**;Dec 17, 1997

 +2       ;

POST      ; -- postinit

 +1        NEW MSG

 +2        SET MSG(1)=""

 +3        SET MSG(2)="This patch imports the ORDER TEXT and LAB TEST entries"

 +4        SET MSG(3)="from the OE/RR PRINT FIELDS file.  As a result, the entries"

 +5        SET MSG(4)="in the OE/RR PRINT FORMAT file need to be recompiled."

 +6        SET MSG(5)=""

 +7        SET MSG(6)="**NOTE: If you have made local modifications to the compiled"

 +8        SET MSG(7)="code in the OE/RR PRINT FORMAT file they will be OVERWRITTEN."

 +9        SET MSG(8)=""

 +10       SET MSG(9)="Recompiling..."

 +11       DO MES^XPDUTL(.MSG)

           HANG 3

 +12       DO RECMPL^ORPR00

           KILL MSG

 +13       QUIT