Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: USRP2INI

USRP2INI.m

Go to the documentation of this file. 
  1. USRP2INI ; SLC/PKR - Inits for patch USR*1.0*2 ;1/23/1998
  1.  ;;1.0;AUTHORIZATION/SUBSCRIPTION;**2**;Jun 20, 1997
  1.  ;======================================================================
  1. CFTERM ;Check for terminated users and set expiration dates.
  1.  N USRDUZ,XUIFN
  1.  S USRDUZ=""
  1.  F  S USRDUZ=$O(^USR(8930.3,"B",USRDUZ)) Q:USRDUZ=""  D
  1.  . I $$ISTERM^USRLM(USRDUZ) D
  1.  .. S XUIFN=USRDUZ
  1.  .. D TERM^USRLM
  1.  Q
  1.  ;
  1.  ;======================================================================
  1. DDDUSCM ;Delete the data dictionary for file 8930.3
  1.  N DIU
  1.  S DIU="^USR(8930.3,"
  1.  S DIU(0)=""
  1.  D EN^DIU2
  1.  Q
  1.  ;
  1.  ;======================================================================
  1. POST ;Patch USR*1.0*2 post-inits.
  1.  D XREF
  1.  D CFTERM
  1.  Q
  1.  ;
  1.  ;======================================================================
  1. PRE ;Patch USR*1.0*2 pre-inits.
  1.  D DDDUSCM
  1.  Q
  1.  ;
  1.  ;======================================================================
  1. XREF ;Rebuild the cross-references for file 8930.3.
  1.  N DIK
  1.  ;First delete all the old cross-references.
  1.  K ^USR(8930.3,"ACU")
  1.  K ^USR(8930.3,"AUC")
  1.  K ^USR(8930.3,"AUHX")
  1.  K ^USR(8930.3,"B")
  1.  ;Now rebuild them.
  1.  S DIK="^USR(8930.3,"
  1.  D IXALL^DIK
  1.  Q