USRP3INI.m

USRP3INI ; SLC/PKR - Inits for patch USR*1.0*3 ;5/06/1998

 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 ;======================================================================

POST ;Patch USR*1.0*2 post-inits.

 D XREF

 Q

 ;

 ;======================================================================

XREF ;Rebuild the cross-references for file 8930.3.

 N DIK

 ;First delete all the old cross-references.

 K ^USR(8930.3,"ACU")

 K ^USR(8930.3,"AUC")

 K ^USR(8930.3,"AUHX")

 K ^USR(8930.3,"B")

 ;Now rebuild them.

 S DIK="^USR(8930.3,"

 D IXALL^DIK

 Q

USRP3INI  ; SLC/PKR - Inits for patch USR*1.0*3 ;5/06/1998

 +1       ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 +2       ;======================================================================

POST      ;Patch USR*1.0*2 post-inits.

 +1        DO XREF

 +2        QUIT 

 +3       ;

 +4       ;======================================================================

XREF      ;Rebuild the cross-references for file 8930.3.

 +1        NEW DIK

 +2       ;First delete all the old cross-references.

 +3        KILL ^USR(8930.3,"ACU")

 +4        KILL ^USR(8930.3,"AUC")

 +5        KILL ^USR(8930.3,"AUHX")

 +6        KILL ^USR(8930.3,"B")

 +7       ;Now rebuild them.

 +8        SET DIK="^USR(8930.3,"

 +9        DO IXALL^DIK

 +10       QUIT