USRP2INI ; SLC/PKR - Inits for patch USR*1.0*2 ;1/23/1998
;;1.0;AUTHORIZATION/SUBSCRIPTION;**2**;Jun 20, 1997
;======================================================================
CFTERM ;Check for terminated users and set expiration dates.
N USRDUZ,XUIFN
S USRDUZ=""
F S USRDUZ=$O(^USR(8930.3,"B",USRDUZ)) Q:USRDUZ="" D
. I $$ISTERM^USRLM(USRDUZ) D
.. S XUIFN=USRDUZ
.. D TERM^USRLM
Q
;
;======================================================================
DDDUSCM ;Delete the data dictionary for file 8930.3
N DIU
S DIU="^USR(8930.3,"
S DIU(0)=""
D EN^DIU2
Q
;
;======================================================================
POST ;Patch USR*1.0*2 post-inits.
D XREF
D CFTERM
Q
;
;======================================================================
PRE ;Patch USR*1.0*2 pre-inits.
D DDDUSCM
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[HUSRP2INI 1204 printed Nov 22, 2024@16:49:09 Page 2
USRP2INI ; SLC/PKR - Inits for patch USR*1.0*2 ;1/23/1998
+1 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**2**;Jun 20, 1997
+2 ;======================================================================
CFTERM ;Check for terminated users and set expiration dates.
+1 NEW USRDUZ,XUIFN
+2 SET USRDUZ=""
+3 FOR
SET USRDUZ=$ORDER(^USR(8930.3,"B",USRDUZ))
if USRDUZ=""
QUIT
Begin DoDot:1
+4 IF $$ISTERM^USRLM(USRDUZ)
Begin DoDot:2
+5 SET XUIFN=USRDUZ
+6 DO TERM^USRLM
End DoDot:2
End DoDot:1
+7 QUIT
+8 ;
+9 ;======================================================================
DDDUSCM ;Delete the data dictionary for file 8930.3
+1 NEW DIU
+2 SET DIU="^USR(8930.3,"
+3 SET DIU(0)=""
+4 DO EN^DIU2
+5 QUIT
+6 ;
+7 ;======================================================================
POST ;Patch USR*1.0*2 post-inits.
+1 DO XREF
+2 DO CFTERM
+3 QUIT
+4 ;
+5 ;======================================================================
PRE ;Patch USR*1.0*2 pre-inits.
+1 DO DDDUSCM
+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
