PXRMP16I.m

PXRMP16I ; SLC/AGP - Inits for PXRM*2.0*16. ;12/06/2010

 ;;2.0;CLINICAL REMINDERS;**16**;Feb 04, 2005;Build 119

 Q

 ;

PRE ;

 I +$$PATCH^XPDUTL("PXRM*2.0*16")=0 Q

 ;cleanup for test sites only

 N DIU,TEXT

 D EN^DDIOL("Removing old data dictionaries.")

 S DIU(0)=""

 S DIU=801

 S TEXT=" Deleting data dictionary for file # "_DIU

 D EN^DDIOL(TEXT)

 D EN^DIU2

 Q

PXRMP16I  ; SLC/AGP - Inits for PXRM*2.0*16. ;12/06/2010

 +1       ;;2.0;CLINICAL REMINDERS;**16**;Feb 04, 2005;Build 119

 +2        QUIT 

 +3       ;

PRE       ;

 +1        IF +$$PATCH^XPDUTL("PXRM*2.0*16")=0

               QUIT 

 +2       ;cleanup for test sites only

 +3        NEW DIU,TEXT

 +4        DO EN^DDIOL("Removing old data dictionaries.")

 +5        SET DIU(0)=""

 +6        SET DIU=801

 +7        SET TEXT=" Deleting data dictionary for file # "_DIU

 +8        DO EN^DDIOL(TEXT)

 +9        DO EN^DIU2

 +10       QUIT