source: WorldVistAEHR/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USRP3INI.m@ 1766

Last change on this file since 1766 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 554 bytes
Line 
1USRP3INI ; SLC/PKR - Inits for patch USR*1.0*3 ;5/06/1998
2 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997
3 ;======================================================================
4POST ;Patch USR*1.0*2 post-inits.
5 D XREF
6 Q
7 ;
8 ;======================================================================
9XREF ;Rebuild the cross-references for file 8930.3.
10 N DIK
11 ;First delete all the old cross-references.
12 K ^USR(8930.3,"ACU")
13 K ^USR(8930.3,"AUC")
14 K ^USR(8930.3,"AUHX")
15 K ^USR(8930.3,"B")
16 ;Now rebuild them.
17 S DIK="^USR(8930.3,"
18 D IXALL^DIK
19 Q
Note: See TracBrowser for help on using the repository browser.