TIUFHA3 ; SLC/MAM - LM Templates H, A Action Edit Status, INACTIVE(TYPE,FILEDA,NODE0), WARNING, WARNOBJI(FILEDA) ; 03/16/2007
;;1.0;TEXT INTEGRATION UTILITIES;**13,64,211,225**;Jun 20, 1997;Build 13
;
EDSTAT ; Action Edit Status for Templates H, A, J, C
N STATUS,TIUFXNOD,TIUFFULL
N DTOUT,DIRUT,DIROUT
S VALMBCK="",TIUFXNOD=$G(XQORNOD(0))
S STATUS=$$SELSTAT^TIUFLF5,STATUS=$P(STATUS,U,2) I $D(DTOUT)!(STATUS="") G EDSTX
I "AJ"[TIUFTMPL D TMPLA(STATUS) G EDSTX
; Template H, C
I STATUS'="ACTIVE" D ONE(STATUS) G EDSTX
D MANY(STATUS)
EDSTX I $D(DTOUT) S VALMBCK="Q" Q
I $G(TIUFFULL) S VALMBCK="R" D RESET^TIUFXHLX
Q
;
MANY(STATUS) ; Select multiple entries for Status ACTIVE for Templates H, C.
; Requires STATUS
N LINENO,INFO,TIUFQUIT
I $P(TIUFXNOD,U,4)'["=" W !!," Selecting Entries for Status ACTIVE. You may enter multiple entries",!,"at the same time."
D EN^VALM2(TIUFXNOD,"O") Q:'$O(VALMY(0)) K DIRUT
S (LINENO,TIUFQUIT)=0 F S LINENO=$O(VALMY(LINENO)) Q:'LINENO S INFO=$G(^TMP("TIUF1IDX",$J,LINENO)) D EDONE(STATUS,INFO,.TIUFQUIT) Q:TIUFQUIT D LINEUP^TIUFLLM1(INFO,TIUFTMPL) Q:$D(DIRUT)
Q
;
ONE(STATUS) ; Select one entry (in loop) for Status INACTIVE or TEST for Templates H, C.
N INFO,TIUFQUIT,EXPAND
I $P(TIUFXNOD,U,4)'["=" W !!," Selecting Entry for Status ",STATUS,". Please select ONE entry. You will be",!,"prompted for another." K DIRUT
F D EN^VALM2(TIUFXNOD,"SO") Q:'$O(VALMY(0)) S INFO=$G(^TMP("TIUF1IDX",$J,$O(VALMY(0)))) D Q:TIUFQUIT!$D(DIRUT)
. I STATUS="TEST" W " ... "
. S (EXPAND,TIUFQUIT)=0 K DIRUT D EDONE(STATUS,.INFO,.TIUFQUIT,.EXPAND) Q:TIUFQUIT!$D(DIRUT)
. D LINEUP^TIUFLLM1(INFO,TIUFTMPL)
. I EXPAND D EXPAND1^TIUFH1(.INFO) S VALMCNT=VALMCNT+$P(INFO,U,3)
. I VALMBCK="R" S VALMSG=$$VMSG^TIUFL D RE^VALM4
. S $P(TIUFXNOD,U,4)="ST"
. W !!,"Selecting Another Entry for Status "_STATUS_":"
Q
;
TMPLA(STATUS) ; Select multiple entries for Status edit for Template A
; Requires STATUS
N LINENO,INFO,TIUFQUIT
I $P(TIUFXNOD,U,4)'["=" W !!," Selecting Entries for Status ",STATUS,". You may enter multiple entries",!,"at the same time."
D EN^VALM2(TIUFXNOD,"O") Q:'$O(VALMY(0)) K DIRUT
S (LINENO,TIUFQUIT)=0 F S LINENO=$O(VALMY(LINENO)) Q:'LINENO S INFO=$G(^TMP("TIUF1IDX",$J,LINENO)) D EDONE(STATUS,INFO,.TIUFQUIT) Q:TIUFQUIT!$D(DIRUT)
I VALMBCK="R" D INIT^TIUFA
Q
;
EDONE(STATUS,INFO,TIUFQUIT,EXPAND) ; Edit Status for one LM entry.
; Requires STATUS,INFO; returns TIUFQUIT, EXPAND.
N FILEDA,NODE0,TYPE,MSG,STATOK,PFILEDA,LIST
S (TIUFQUIT,EXPAND)=0 S:STATUS'="ACTIVE" VALMBCK=""
I 'INFO W !!," Missing List Manager Information; See IRM",! D PAUSE^TIUFXHLX S TIUFQUIT=1 G EDONX
S FILEDA=+$P(INFO,U,2),NODE0=$G(^TIU(8925.1,FILEDA,0))
I NODE0="" W !!," Entry "_+INFO_" does not exist in the File; See IRM",! D PAUSE^TIUFXHLX S TIUFQUIT=1 G EDONX
S TYPE=$P(NODE0,U,4)
I FILEDA=81!(FILEDA=512) S MSG=" Addendum; Can't edit Status" W !!,MSG,! D PAUSE^TIUFXHLX G EDONX ;P64
I $P(NODE0,U,13),TYPE'="DOC",TIUFWHO'="N" S MSG=" Entry "_+INFO_" is National; Can't edit Status" W !!,MSG,! D PAUSE^TIUFXHLX G EDONX ;P64 restrict msg to nontitles
I TYPE="O" W !!,"Entry "_+INFO_" is an Object. To edit Status please select action Detailed",!,"Display and then select Basics.",! D PAUSE^TIUFXHLX G EDONX
I "AJ"[TIUFTMPL!(STATUS="ACTIVE") S MSG=" Editing Status for Entry "_+INFO_" ... " W !!,MSG H 1
I TYPE="CO",$P(NODE0,U,10) S MSG=" Shared Components have no Status; Can't Edit Status" W !,MSG,! D PAUSE^TIUFXHLX G EDONX
I TYPE="CO" S MSG=" Component Status is determined by Parent; Can't Edit Status" W !,MSG,! D PAUSE^TIUFXHLX G EDONX
L +^TIU(8925.1,FILEDA):1 I '$T W !!," Another user is editing this entry; please try later.",! D PAUSE^TIUFXHLX G EDONX
S PFILEDA=+$O(^TIU(8925.1,"AD",FILEDA,0))
D STATLIST^TIUFLF5(FILEDA,PFILEDA,$E(STATUS),.MSG,.LIST) G:$D(DTOUT) EDONX I LIST'[$E(STATUS) W !,MSG,! D PAUSE^TIUFXHLX G EDONX
I $$STATWORD^TIUFLF5($P(NODE0,U,7))=STATUS S MSG=" Status already "_STATUS W MSG,! D PAUSE^TIUFXHLX G EDONX
D INACTIVE(TYPE,FILEDA,NODE0):STATUS="INACTIVE",TEST(FILEDA,NODE0):STATUS="TEST",ACTIVE(FILEDA,NODE0):STATUS="ACTIVE"
I STATUS="INACTIVE",TYPE="CL"!(TYPE="DC")!(TYPE="DOC") D COLLEXPD(.INFO,0,.EXPAND)
I STATUS="ACTIVE",TYPE="DOC" D COLLEXPD(.INFO,1)
I STATUS="TEST" D COLLEXPD(.INFO,0,.EXPAND)
S VALMSG=$$VMSG^TIUFL
EDONX L -^TIU(8925.1,FILEDA)
Q
;
INACTIVE(TYPE,FILEDA,NODE0) ; Change Status to Inactive.
; Requires TYPE, FILEDA, NODE0
N CONTINUE
I TYPE="O" S CONTINUE=$$WARNOBJI(FILEDA) D G:'CONTINUE INACX
. I CONTINUE W " Inactivated" H 1 Q
. W " NOT Inactivated" H 1
I TYPE="CL"!(TYPE="DC"),$$HASITEMS^TIUFLF1(FILEDA) S CONTINUE=$$WARNING I 'CONTINUE W " NOT Inactivated" H 1 G INACX
I TYPE'="O" D
. I $G(CONTINUE) W !," Entry and descendants Inactivated" H 1 Q
. I TYPE="DOC" W !," Entry (& any nonShared Components) Inactivated" H 1 Q
. W " Entry Inactivated" H 1
D AUTOSTAT^TIUFLF6(FILEDA,NODE0,"INACTIVE") S:$P(TIUFXNOD,U,3)["Status" VALMBCK="R"
INACX Q
;
COLLEXPD(INFO,EXPDFLG,EXPAND) ; Collapse entry, reexpand (to items only) if EXPDFLG=1
; Requires string INFO. Passes back array INFO. If 'EXPDFLG, must reexpand later, or reinit the whole screen.
S EXPAND=$P(INFO,U,3) Q:'EXPAND
D PARSE^TIUFLLM(.INFO),COLLAPSE^TIUFH1(.INFO)
I $G(EXPDFLG) D EXPAND1^TIUFH1(.INFO)
S VALMCNT=$S($G(EXPDFLG):VALMCNT-EXPAND+$P(INFO,U,3),1:VALMCNT-EXPAND)
Q
;
WARNING() ; Function Warns user who asks to Inactivate, Returns 1 to Inactivate, 0 to not Inactivate.
N DIR,X,Y
S DIR(0)="Y",DIR("B")="NO",DIR("A",1)=" This will Inactivate ALL DESCENDANTS (except Shared Components). Before"
S DIR("A",2)="Inactivating, please note which Descendants are presently Inactive. This will"
S DIR("A",3)="help you know which Descendants NOT to reactivate later."
S DIR("A")=" Sure you want to Inactivate"
D ^DIR W " ... "
Q Y
;
ACTIVE(FILEDA,NODE0) ; Change Status to Active.
N TIUOUT
D FULL^VALM1
I ($P(NODE0,U,4)="DOC"),(+$G(^TIU(8925.1,FILEDA,15))'>0) D Q:+$G(TIUOUT)
. W !!,$C(7),"You MUST first map ",$P(NODE0,U),!
. D DIRECT^TIUMAP2(FILEDA)
. I +$G(^TIU(8925.1,FILEDA,15))'>0 W $C(7)," Status unchanged...",! H 2
. I S TIUOUT=1,VALMBCK="R"
D AUTOSTAT^TIUFLF6(FILEDA,NODE0,"ACTIVE") S VALMBCK="R"
I $P(NODE0,U,4)="DOC" W " Entry and any (nonShared) Components Activated",! H 1 Q
W " Entry Activated",! H 1
Q
;
TEST(FILEDA,NODE0) ; Change Status to Test.
; Requires FILEDA, NODE0, INFO from EDSTAT.
D AUTOSTAT^TIUFLF6(FILEDA,NODE0,"TEST") S VALMBCK="R"
W !," Entry & any (nonShared) Components changed to TEST",! H 1
Q
;
WARNOBJI(FILEDA) ; Function Warns user inactivating an object, Returns 1 to Proceed, 0 to Stop.
N DIR,X,Y,USED,WARNANS
S USED=$$OBJUSED^TIUFLJ(FILEDA) I USED'["A" S WARNANS=1 G WARNX
S DIR(0)="Y",DIR("B")="NO",DIR("A",1)=" WARNING: Object is embedded in boilerplate text of active titles. If you"
S DIR("A",2)="inactivate the object, it will not function when users enter documents against"
S DIR("A",3)="such titles. You might want to warn users or even take such titles offline"
S DIR("A",4)="while the Object is inactive."
S DIR("A")=" Continue"
D ^DIR W " ... " S WARNANS=Y
WARNX Q WARNANS
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFHA3 7335 printed Apr 09, 2024@21:42:14 Page 2
TIUFHA3 ; SLC/MAM - LM Templates H, A Action Edit Status, INACTIVE(TYPE,FILEDA,NODE0), WARNING, WARNOBJI(FILEDA) ; 03/16/2007
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**13,64,211,225**;Jun 20, 1997;Build 13
+2 ;
EDSTAT ; Action Edit Status for Templates H, A, J, C
+1 NEW STATUS,TIUFXNOD,TIUFFULL
+2 NEW DTOUT,DIRUT,DIROUT
+3 SET VALMBCK=""
SET TIUFXNOD=$GET(XQORNOD(0))
+4 SET STATUS=$$SELSTAT^TIUFLF5
SET STATUS=$PIECE(STATUS,U,2)
IF $DATA(DTOUT)!(STATUS="")
GOTO EDSTX
+5 IF "AJ"[TIUFTMPL
DO TMPLA(STATUS)
GOTO EDSTX
+6 ; Template H, C
+7 IF STATUS'="ACTIVE"
DO ONE(STATUS)
GOTO EDSTX
+8 DO MANY(STATUS)
EDSTX IF $DATA(DTOUT)
SET VALMBCK="Q"
QUIT
+1 IF $GET(TIUFFULL)
SET VALMBCK="R"
DO RESET^TIUFXHLX
+2 QUIT
+3 ;
MANY(STATUS) ; Select multiple entries for Status ACTIVE for Templates H, C.
+1 ; Requires STATUS
+2 NEW LINENO,INFO,TIUFQUIT
+3 IF $PIECE(TIUFXNOD,U,4)'["="
WRITE !!," Selecting Entries for Status ACTIVE. You may enter multiple entries",!,"at the same time."
+4 DO EN^VALM2(TIUFXNOD,"O")
if '$ORDER(VALMY(0))
QUIT
KILL DIRUT
+5 SET (LINENO,TIUFQUIT)=0
FOR
SET LINENO=$ORDER(VALMY(LINENO))
if 'LINENO
QUIT
SET INFO=$GET(^TMP("TIUF1IDX",$JOB,LINENO))
DO EDONE(STATUS,INFO,.TIUFQUIT)
if TIUFQUIT
QUIT
DO LINEUP^TIUFLLM1(INFO,TIUFTMPL)
if $DATA(DIRUT)
QUIT
+6 QUIT
+7 ;
ONE(STATUS) ; Select one entry (in loop) for Status INACTIVE or TEST for Templates H, C.
+1 NEW INFO,TIUFQUIT,EXPAND
+2 IF $PIECE(TIUFXNOD,U,4)'["="
WRITE !!," Selecting Entry for Status ",STATUS,". Please select ONE entry. You will be",!,"prompted for another."
KILL DIRUT
+3 FOR
DO EN^VALM2(TIUFXNOD,"SO")
if '$ORDER(VALMY(0))
QUIT
SET INFO=$GET(^TMP("TIUF1IDX",$JOB,$ORDER(VALMY(0))))
Begin DoDot:1
+4 IF STATUS="TEST"
WRITE " ... "
+5 SET (EXPAND,TIUFQUIT)=0
KILL DIRUT
DO EDONE(STATUS,.INFO,.TIUFQUIT,.EXPAND)
if TIUFQUIT!$DATA(DIRUT)
QUIT
+6 DO LINEUP^TIUFLLM1(INFO,TIUFTMPL)
+7 IF EXPAND
DO EXPAND1^TIUFH1(.INFO)
SET VALMCNT=VALMCNT+$PIECE(INFO,U,3)
+8 IF VALMBCK="R"
SET VALMSG=$$VMSG^TIUFL
DO RE^VALM4
+9 SET $PIECE(TIUFXNOD,U,4)="ST"
+10 WRITE !!,"Selecting Another Entry for Status "_STATUS_":"
End DoDot:1
if TIUFQUIT!$DATA(DIRUT)
QUIT
+11 QUIT
+12 ;
TMPLA(STATUS) ; Select multiple entries for Status edit for Template A
+1 ; Requires STATUS
+2 NEW LINENO,INFO,TIUFQUIT
+3 IF $PIECE(TIUFXNOD,U,4)'["="
WRITE !!," Selecting Entries for Status ",STATUS,". You may enter multiple entries",!,"at the same time."
+4 DO EN^VALM2(TIUFXNOD,"O")
if '$ORDER(VALMY(0))
QUIT
KILL DIRUT
+5 SET (LINENO,TIUFQUIT)=0
FOR
SET LINENO=$ORDER(VALMY(LINENO))
if 'LINENO
QUIT
SET INFO=$GET(^TMP("TIUF1IDX",$JOB,LINENO))
DO EDONE(STATUS,INFO,.TIUFQUIT)
if TIUFQUIT!$DATA(DIRUT)
QUIT
+6 IF VALMBCK="R"
DO INIT^TIUFA
+7 QUIT
+8 ;
EDONE(STATUS,INFO,TIUFQUIT,EXPAND) ; Edit Status for one LM entry.
+1 ; Requires STATUS,INFO; returns TIUFQUIT, EXPAND.
+2 NEW FILEDA,NODE0,TYPE,MSG,STATOK,PFILEDA,LIST
+3 SET (TIUFQUIT,EXPAND)=0
if STATUS'="ACTIVE"
SET VALMBCK=""
+4 IF 'INFO
WRITE !!," Missing List Manager Information; See IRM",!
DO PAUSE^TIUFXHLX
SET TIUFQUIT=1
GOTO EDONX
+5 SET FILEDA=+$PIECE(INFO,U,2)
SET NODE0=$GET(^TIU(8925.1,FILEDA,0))
+6 IF NODE0=""
WRITE !!," Entry "_+INFO_" does not exist in the File; See IRM",!
DO PAUSE^TIUFXHLX
SET TIUFQUIT=1
GOTO EDONX
+7 SET TYPE=$PIECE(NODE0,U,4)
+8 ;P64
IF FILEDA=81!(FILEDA=512)
SET MSG=" Addendum; Can't edit Status"
WRITE !!,MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+9 ;P64 restrict msg to nontitles
IF $PIECE(NODE0,U,13)
IF TYPE'="DOC"
IF TIUFWHO'="N"
SET MSG=" Entry "_+INFO_" is National; Can't edit Status"
WRITE !!,MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+10 IF TYPE="O"
WRITE !!,"Entry "_+INFO_" is an Object. To edit Status please select action Detailed",!,"Display and then select Basics.",!
DO PAUSE^TIUFXHLX
GOTO EDONX
+11 IF "AJ"[TIUFTMPL!(STATUS="ACTIVE")
SET MSG=" Editing Status for Entry "_+INFO_" ... "
WRITE !!,MSG
HANG 1
+12 IF TYPE="CO"
IF $PIECE(NODE0,U,10)
SET MSG=" Shared Components have no Status; Can't Edit Status"
WRITE !,MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+13 IF TYPE="CO"
SET MSG=" Component Status is determined by Parent; Can't Edit Status"
WRITE !,MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+14 LOCK +^TIU(8925.1,FILEDA):1
IF '$TEST
WRITE !!," Another user is editing this entry; please try later.",!
DO PAUSE^TIUFXHLX
GOTO EDONX
+15 SET PFILEDA=+$ORDER(^TIU(8925.1,"AD",FILEDA,0))
+16 DO STATLIST^TIUFLF5(FILEDA,PFILEDA,$EXTRACT(STATUS),.MSG,.LIST)
if $DATA(DTOUT)
GOTO EDONX
IF LIST'[$EXTRACT(STATUS)
WRITE !,MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+17 IF $$STATWORD^TIUFLF5($PIECE(NODE0,U,7))=STATUS
SET MSG=" Status already "_STATUS
WRITE MSG,!
DO PAUSE^TIUFXHLX
GOTO EDONX
+18 if STATUS="INACTIVE"
DO INACTIVE(TYPE,FILEDA,NODE0)
if STATUS="TEST"
DO TEST(FILEDA,NODE0)
if STATUS="ACTIVE"
DO ACTIVE(FILEDA,NODE0)
+19 IF STATUS="INACTIVE"
IF TYPE="CL"!(TYPE="DC")!(TYPE="DOC")
DO COLLEXPD(.INFO,0,.EXPAND)
+20 IF STATUS="ACTIVE"
IF TYPE="DOC"
DO COLLEXPD(.INFO,1)
+21 IF STATUS="TEST"
DO COLLEXPD(.INFO,0,.EXPAND)
+22 SET VALMSG=$$VMSG^TIUFL
EDONX LOCK -^TIU(8925.1,FILEDA)
+1 QUIT
+2 ;
INACTIVE(TYPE,FILEDA,NODE0) ; Change Status to Inactive.
+1 ; Requires TYPE, FILEDA, NODE0
+2 NEW CONTINUE
+3 IF TYPE="O"
SET CONTINUE=$$WARNOBJI(FILEDA)
Begin DoDot:1
+4 IF CONTINUE
WRITE " Inactivated"
HANG 1
QUIT
+5 WRITE " NOT Inactivated"
HANG 1
End DoDot:1
if 'CONTINUE
GOTO INACX
+6 IF TYPE="CL"!(TYPE="DC")
IF $$HASITEMS^TIUFLF1(FILEDA)
SET CONTINUE=$$WARNING
IF 'CONTINUE
WRITE " NOT Inactivated"
HANG 1
GOTO INACX
+7 IF TYPE'="O"
Begin DoDot:1
+8 IF $GET(CONTINUE)
WRITE !," Entry and descendants Inactivated"
HANG 1
QUIT
+9 IF TYPE="DOC"
WRITE !," Entry (& any nonShared Components) Inactivated"
HANG 1
QUIT
+10 WRITE " Entry Inactivated"
HANG 1
End DoDot:1
+11 DO AUTOSTAT^TIUFLF6(FILEDA,NODE0,"INACTIVE")
if $PIECE(TIUFXNOD,U,3)["Status"
SET VALMBCK="R"
INACX QUIT
+1 ;
COLLEXPD(INFO,EXPDFLG,EXPAND) ; Collapse entry, reexpand (to items only) if EXPDFLG=1
+1 ; Requires string INFO. Passes back array INFO. If 'EXPDFLG, must reexpand later, or reinit the whole screen.
+2 SET EXPAND=$PIECE(INFO,U,3)
if 'EXPAND
QUIT
+3 DO PARSE^TIUFLLM(.INFO)
DO COLLAPSE^TIUFH1(.INFO)
+4 IF $GET(EXPDFLG)
DO EXPAND1^TIUFH1(.INFO)
+5 SET VALMCNT=$SELECT($GET(EXPDFLG):VALMCNT-EXPAND+$PIECE(INFO,U,3),1:VALMCNT-EXPAND)
+6 QUIT
+7 ;
WARNING() ; Function Warns user who asks to Inactivate, Returns 1 to Inactivate, 0 to not Inactivate.
+1 NEW DIR,X,Y
+2 SET DIR(0)="Y"
SET DIR("B")="NO"
SET DIR("A",1)=" This will Inactivate ALL DESCENDANTS (except Shared Components). Before"
+3 SET DIR("A",2)="Inactivating, please note which Descendants are presently Inactive. This will"
+4 SET DIR("A",3)="help you know which Descendants NOT to reactivate later."
+5 SET DIR("A")=" Sure you want to Inactivate"
+6 DO ^DIR
WRITE " ... "
+7 QUIT Y
+8 ;
ACTIVE(FILEDA,NODE0) ; Change Status to Active.
+1 NEW TIUOUT
+2 DO FULL^VALM1
+3 IF ($PIECE(NODE0,U,4)="DOC")
IF (+$GET(^TIU(8925.1,FILEDA,15))'>0)
Begin DoDot:1
+4 WRITE !!,$CHAR(7),"You MUST first map ",$PIECE(NODE0,U),!
+5 DO DIRECT^TIUMAP2(FILEDA)
+6 IF +$GET(^TIU(8925.1,FILEDA,15))'>0
WRITE $CHAR(7)," Status unchanged...",!
HANG 2
+7 IF $TEST
SET TIUOUT=1
SET VALMBCK="R"
End DoDot:1
if +$GET(TIUOUT)
QUIT
+8 DO AUTOSTAT^TIUFLF6(FILEDA,NODE0,"ACTIVE")
SET VALMBCK="R"
+9 IF $PIECE(NODE0,U,4)="DOC"
WRITE " Entry and any (nonShared) Components Activated",!
HANG 1
QUIT
+10 WRITE " Entry Activated",!
HANG 1
+11 QUIT
+12 ;
TEST(FILEDA,NODE0) ; Change Status to Test.
+1 ; Requires FILEDA, NODE0, INFO from EDSTAT.
+2 DO AUTOSTAT^TIUFLF6(FILEDA,NODE0,"TEST")
SET VALMBCK="R"
+3 WRITE !," Entry & any (nonShared) Components changed to TEST",!
HANG 1
+4 QUIT
+5 ;
WARNOBJI(FILEDA) ; Function Warns user inactivating an object, Returns 1 to Proceed, 0 to Stop.
+1 NEW DIR,X,Y,USED,WARNANS
+2 SET USED=$$OBJUSED^TIUFLJ(FILEDA)
IF USED'["A"
SET WARNANS=1
GOTO WARNX
+3 SET DIR(0)="Y"
SET DIR("B")="NO"
SET DIR("A",1)=" WARNING: Object is embedded in boilerplate text of active titles. If you"
+4 SET DIR("A",2)="inactivate the object, it will not function when users enter documents against"
+5 SET DIR("A",3)="such titles. You might want to warn users or even take such titles offline"
+6 SET DIR("A",4)="while the Object is inactive."
+7 SET DIR("A")=" Continue"
+8 DO ^DIR
WRITE " ... "
SET WARNANS=Y
WARNX QUIT WARNANS
+1 ;
