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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSRP3INI 573 printed Dec 13, 2024@01:38:57 Page 2
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
