USRP2INI.m

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 ---USRP2INI   1204     printed  Apr 09, 2024@20:44                                                                                                                                                                                                       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