TIUFD3 ; SLC/MAM - LM Template D Actions Edit Items, Edit Boilerplate Text ;4/17/97 11:02
;;1.0;TEXT INTEGRATION UTILITIES;**17**;Jun 20, 1997
;
EDITEMS ; Templates H, C, A, D Action Edit Items. Calls LM Template TIUFT.
; Requires TIUFTMPL.
; Requires TIUFWHO, set in Options TIUF/A/C/H EDIT/SORT/CREATE DDEFS CLIN/MGR/NATL.
; Sets TIUFACTT for Subtemplate T. Sets TIUFSTMP = T.
I $G(TIUFSTMP)="D" G EDITEMS1
N TIUFINFO,TIUFNOD0,TIUFVCN1,MISSITEM,TIUFXNOD,DTOUT,DIRUT,DIROUT
S VALMBCK="",TIUFVCN1=VALMCNT,TIUFXNOD=$G(XQORNOD(0))
I TIUFXNOD'["=" W !!," You may edit the Items of ONE Entry. Please select an Entry from the List.",!!
D EN^VALM2(TIUFXNOD,"SO") Q:'$O(VALMY(0)) S TIUFINFO=$G(^TMP("TIUF1IDX",$J,$O(VALMY(0)))) I 'TIUFINFO W !!," Missing List Manager Data; See IRM",! D PAUSE^TIUFXHLX S VALMBCK="Q" G EDITX
S FILEDA=$P(TIUFINFO,U,2),MISSITEM=$$MISSITEM^TIUFLF4(FILEDA) I MISSITEM W !!," Can't Edit Items: File Entry "_FILEDA_" Has Nonexistent Item "_MISSITEM_" ; See IRM.",! D PAUSE^TIUFXHLX S VALMBCK="Q" G EDITX
D PARSE^TIUFLLM(.TIUFINFO)
D NODE0ARR^TIUFLF(TIUFINFO("FILEDA"),.TIUFNOD0) G:$D(DTOUT) EDITX
EDITEMS1 ; Entry point called by Edit Items of Template D.
; Requires CURRENT array TIUFINFO, CURRENT variable TIUFVCN1
;as set in EDVIEW^TIUFHA, updated (if Template A has changed)
;in AUPDATE^TIUFLA1, or (if Template H has changed) in UPDATE^TIUFLLM1.
;WARNING: +TIUFINFO may = 0 if Template A has changed!
; Requires array TIUFNOD0; Updates TIUFNOD0 upon return from Template T.
; If called from D, requires TIUFILIN as set in DSITEMS^TIUFD.
; If called from D, requires TIUFSTMP="D"
N SUBTEMPL
S SUBTEMPL=$G(TIUFSTMP)
S VALMBCK=""
N FILEDA,TYPE,STATUS,MSG,SHARED,USROWNS
S FILEDA=TIUFINFO("FILEDA"),TYPE=$P(TIUFNOD0,U,4),SHARED=$P(TIUFNOD0,U,10)
S USROWNS=$$PERSOWNS^TIUFLF2(FILEDA,DUZ)
I TIUFWHO="C",'$$HASITEMS^TIUFLF1(FILEDA) D I $D(MSG) G EDITX
. I USROWNS Q:TYPE="DOC" Q:TYPE="CO"&'SHARED
. S MSG=" Entry has no Items",VALMBCK=""
I TYPE="O" S MSG=" Objects do not have Items",VALMBCK="" G EDITX
N TIUREC,TIUFVCN3,TIUFBG3,TIUFSTMP,TIUFACTT,TIUFIXED,EXPAND
S TIUFSTMP="T" ;Items
S TIUFACTT=$S("NM"[TIUFWHO:"A",TIUFWHO="C":"E",1:"V") ;Add, Edit, View
S STATUS=$$STATWORD^TIUFLF5($P(TIUFNOD0,U,7)) ; e.g. INACTIVE
D
. I TYPE="" S TIUFACTT="V",MSG=" Entry has no Type; View Only" Q
. I SHARED,TIUFTMPL'="A" S TIUFACTT="V",MSG=" Shared Components can be edited only through the SORT Option: View Only." Q
. I 'SHARED,TYPE="DOC"!(TYPE="CO"),STATUS'="INACTIVE" S TIUFACTT="V",MSG=" Can't edit Items of a Title/Component unless entry is Inactive; View Only." Q
. I SHARED,'$$CANEDIT^TIUFLF6(FILEDA) S TIUFACTT="V",MSG=" Shared Component with parent that isn't Inactive; View Only." Q
. I USROWNS="" S TIUFACTT="V",MSG=" Entry has no Owner; View Only" Q
. I USROWNS=0,TIUFWHO="C" S TIUFACTT="V",MSG=" Non-Owner; View Only" Q
. I USROWNS=0,TIUFWHO'="C",SHARED S TIUFACTT="V",MSG=" Only the Owner can edit a Shared Component; View Only"
K DIRUT I $D(MSG) W !!,MSG,! D PAUSE^TIUFXHLX K MSG I $D(DIRUT) Q
; If came from Template H rather than A AND If Edited Items directly from H rather than thru Edit/View (D), AND If H entry was expanded, then collapse entry (reexpand to items only when return):
I TIUFTMPL="H",SUBTEMPL'="D" S EXPAND=TIUFINFO("XPDLCNT") I EXPAND D COLLAPSE^TIUFH1(.TIUFINFO) S VALMCNT=VALMCNT-EXPAND
S TIUFVCN3=VALMCNT,TIUFBG3=VALMBG,TIUFIXED=$G(VALM("FIXED"))
I TIUFACTT="A" D
. I "NM"[TIUFWHO D EN^VALM("TIUFT ITEMS ADD/EDIT/VIEW MGR")
D:TIUFACTT="E" EN^VALM("TIUFT ITEMS EDIT/VIEW CLIN")
D:TIUFACTT="V" EN^VALM("TIUFT ITEMS VIEW MGR/CLIN")
S VALMCNT=TIUFVCN3,VALMBG=TIUFBG3
D NODE0ARR^TIUFLF(FILEDA,.TIUFNOD0) G:$D(DTOUT) EDITX
; If came from Template H rather than A AND If Edited Items directly from H rather than thru Edit/View (D), then update + for H and If H entry was expanded, reexpand to items only:
I TIUFTMPL="H",SUBTEMPL'="D" D
. ;Since Template is H, then need +. If 'Expand, just update +:
. I 'EXPAND S TIUREC=^TMP("TIUF1",$J,+TIUFINFO,0),TIUREC=$$PLUSUP^TIUFLLM(.TIUFINFO,TIUREC),^TMP("TIUF1",$J,+TIUFINFO,0)=TIUREC
. ;If Expand, that will automatically update + for template H:
. I EXPAND D EXPAND1^TIUFH1(.TIUFINFO) S VALMCNT=VALMCNT+$P(TIUFINFO,U,3)
; Edit Items affects parentage: if came from Template A and sort by parentage, redo all of A:
I TIUFTMPL="A" D:$E(TIUFATTR)="P" INIT^TIUFA G:$D(DTOUT) EDITX
; If not sort by parentage, don't update A here: Template A has been updated with each change to Template T.
I SUBTEMPL="D" D DSITEMS^TIUFD(.TIUFILIN) S VALMCNT=TIUFILIN ;Update Items to end on Template D.
S VALMBCK="R"
EDITX ;
I $D(MSG) W !!,MSG,! H 2
I $D(DTOUT) S VALMBCK="Q"
Q
;
EDBOILTX ;Templates D, X Action Edit Boilerplate Text
; Requires CURRENT arrays TIUFINFO, TIUFNOD0.
; Requires TIUFBLIN as set in DSBOILTX^TIUFD.
N FILEDA,LINENO,CNTCHNG,TIUFXNOD,MSG,STATUS,DTOUT,DIRUT,DIROUT
S FILEDA=TIUFINFO("FILEDA")
S VALMBCK="R",TIUFXNOD=$G(XQORNOD(0))
S STATUS=$$STATWORD^TIUFLF5($P(^TIU(8925.1,FILEDA,0),U,7))
I STATUS'="INACTIVE" W !!,"Entry is not Inactive: Can't edit Boilerplate Text" D PAUSE^TIUFXHLX S VALMBCK="" G EDBOX
I $P(TIUFNOD0,U,10) D G:$D(MSG) EDBOX
. I '$$PERSOWNS^TIUFLF2(FILEDA,DUZ) S MSG=" Shared Component: Only Owner can Edit Boilerplate Text"
. I '$$CANEDIT^TIUFLF6(FILEDA) S MSG=" Shared Component with parent that isn't Inactive: Can't Edit Boilerplate Text"
. I $D(MSG) W !!,MSG D PAUSE^TIUFXHLX S VALMBCK=""
I TIUFSTMP="X" L +^TIU(8925.1,FILEDA):1 I '$T W !!," Another user is editing this entry.",! H 2 G EDBOX
D EDBOIL^TIUFLD1(FILEDA,TIUFNOD0) G:$D(DTOUT) EDBOX
D DEDBOIL^TIUFLD1(FILEDA) G:$D(DTOUT) EDBOX
D NODE0ARR^TIUFLF(FILEDA,.TIUFNOD0) G:$D(DTOUT) EDBOX
; Update template D or X:
S LINENO=TIUFBLIN D DSBOILTX^TIUFD(.LINENO) G:$D(DTOUT) EDBOX S VALMCNT=LINENO
I TIUFTMPL="A" D AUPDATE^TIUFLA1(TIUFNOD0,FILEDA,.CNTCHNG) S:CNTCHNG TIUFVCN1=TIUFVCN1-1 ;doesn't match.
I "HC"[TIUFTMPL D LINEUP^TIUFLLM1(.TIUFINFO,TIUFTMPL)
EDBOX ;
I TIUFSTMP="X" L -^TIU(8925.1,+$G(FILEDA))
I $D(DTOUT) S VALMBCK="Q"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUFD3 6199 printed Sep 15, 2024@22:04:39 Page 2
TIUFD3 ; SLC/MAM - LM Template D Actions Edit Items, Edit Boilerplate Text ;4/17/97 11:02
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**17**;Jun 20, 1997
+2 ;
EDITEMS ; Templates H, C, A, D Action Edit Items. Calls LM Template TIUFT.
+1 ; Requires TIUFTMPL.
+2 ; Requires TIUFWHO, set in Options TIUF/A/C/H EDIT/SORT/CREATE DDEFS CLIN/MGR/NATL.
+3 ; Sets TIUFACTT for Subtemplate T. Sets TIUFSTMP = T.
+4 IF $GET(TIUFSTMP)="D"
GOTO EDITEMS1
+5 NEW TIUFINFO,TIUFNOD0,TIUFVCN1,MISSITEM,TIUFXNOD,DTOUT,DIRUT,DIROUT
+6 SET VALMBCK=""
SET TIUFVCN1=VALMCNT
SET TIUFXNOD=$GET(XQORNOD(0))
+7 IF TIUFXNOD'["="
WRITE !!," You may edit the Items of ONE Entry. Please select an Entry from the List.",!!
+8 DO EN^VALM2(TIUFXNOD,"SO")
if '$ORDER(VALMY(0))
QUIT
SET TIUFINFO=$GET(^TMP("TIUF1IDX",$JOB,$ORDER(VALMY(0))))
IF 'TIUFINFO
WRITE !!," Missing List Manager Data; See IRM",!
DO PAUSE^TIUFXHLX
SET VALMBCK="Q"
GOTO EDITX
+9 SET FILEDA=$PIECE(TIUFINFO,U,2)
SET MISSITEM=$$MISSITEM^TIUFLF4(FILEDA)
IF MISSITEM
WRITE !!," Can't Edit Items: File Entry "_FILEDA_" Has Nonexistent Item "_MISSITEM_" ; See IRM.",!
DO PAUSE^TIUFXHLX
SET VALMBCK="Q"
GOTO EDITX
+10 DO PARSE^TIUFLLM(.TIUFINFO)
+11 DO NODE0ARR^TIUFLF(TIUFINFO("FILEDA"),.TIUFNOD0)
if $DATA(DTOUT)
GOTO EDITX
EDITEMS1 ; Entry point called by Edit Items of Template D.
+1 ; Requires CURRENT array TIUFINFO, CURRENT variable TIUFVCN1
+2 ;as set in EDVIEW^TIUFHA, updated (if Template A has changed)
+3 ;in AUPDATE^TIUFLA1, or (if Template H has changed) in UPDATE^TIUFLLM1.
+4 ;WARNING: +TIUFINFO may = 0 if Template A has changed!
+5 ; Requires array TIUFNOD0; Updates TIUFNOD0 upon return from Template T.
+6 ; If called from D, requires TIUFILIN as set in DSITEMS^TIUFD.
+7 ; If called from D, requires TIUFSTMP="D"
+8 NEW SUBTEMPL
+9 SET SUBTEMPL=$GET(TIUFSTMP)
+10 SET VALMBCK=""
+11 NEW FILEDA,TYPE,STATUS,MSG,SHARED,USROWNS
+12 SET FILEDA=TIUFINFO("FILEDA")
SET TYPE=$PIECE(TIUFNOD0,U,4)
SET SHARED=$PIECE(TIUFNOD0,U,10)
+13 SET USROWNS=$$PERSOWNS^TIUFLF2(FILEDA,DUZ)
+14 IF TIUFWHO="C"
IF '$$HASITEMS^TIUFLF1(FILEDA)
Begin DoDot:1
+15 IF USROWNS
if TYPE="DOC"
QUIT
if TYPE="CO"&'SHARED
QUIT
+16 SET MSG=" Entry has no Items"
SET VALMBCK=""
End DoDot:1
IF $DATA(MSG)
GOTO EDITX
+17 IF TYPE="O"
SET MSG=" Objects do not have Items"
SET VALMBCK=""
GOTO EDITX
+18 NEW TIUREC,TIUFVCN3,TIUFBG3,TIUFSTMP,TIUFACTT,TIUFIXED,EXPAND
+19 ;Items
SET TIUFSTMP="T"
+20 ;Add, Edit, View
SET TIUFACTT=$SELECT("NM"[TIUFWHO:"A",TIUFWHO="C":"E",1:"V")
+21 ; e.g. INACTIVE
SET STATUS=$$STATWORD^TIUFLF5($PIECE(TIUFNOD0,U,7))
+22 Begin DoDot:1
+23 IF TYPE=""
SET TIUFACTT="V"
SET MSG=" Entry has no Type; View Only"
QUIT
+24 IF SHARED
IF TIUFTMPL'="A"
SET TIUFACTT="V"
SET MSG=" Shared Components can be edited only through the SORT Option: View Only."
QUIT
+25 IF 'SHARED
IF TYPE="DOC"!(TYPE="CO")
IF STATUS'="INACTIVE"
SET TIUFACTT="V"
SET MSG=" Can't edit Items of a Title/Component unless entry is Inactive; View Only."
QUIT
+26 IF SHARED
IF '$$CANEDIT^TIUFLF6(FILEDA)
SET TIUFACTT="V"
SET MSG=" Shared Component with parent that isn't Inactive; View Only."
QUIT
+27 IF USROWNS=""
SET TIUFACTT="V"
SET MSG=" Entry has no Owner; View Only"
QUIT
+28 IF USROWNS=0
IF TIUFWHO="C"
SET TIUFACTT="V"
SET MSG=" Non-Owner; View Only"
QUIT
+29 IF USROWNS=0
IF TIUFWHO'="C"
IF SHARED
SET TIUFACTT="V"
SET MSG=" Only the Owner can edit a Shared Component; View Only"
End DoDot:1
+30 KILL DIRUT
IF $DATA(MSG)
WRITE !!,MSG,!
DO PAUSE^TIUFXHLX
KILL MSG
IF $DATA(DIRUT)
QUIT
+31 ; If came from Template H rather than A AND If Edited Items directly from H rather than thru Edit/View (D), AND If H entry was expanded, then collapse entry (reexpand to items only when return):
+32 IF TIUFTMPL="H"
IF SUBTEMPL'="D"
SET EXPAND=TIUFINFO("XPDLCNT")
IF EXPAND
DO COLLAPSE^TIUFH1(.TIUFINFO)
SET VALMCNT=VALMCNT-EXPAND
+33 SET TIUFVCN3=VALMCNT
SET TIUFBG3=VALMBG
SET TIUFIXED=$GET(VALM("FIXED"))
+34 IF TIUFACTT="A"
Begin DoDot:1
+35 IF "NM"[TIUFWHO
DO EN^VALM("TIUFT ITEMS ADD/EDIT/VIEW MGR")
End DoDot:1
+36 if TIUFACTT="E"
DO EN^VALM("TIUFT ITEMS EDIT/VIEW CLIN")
+37 if TIUFACTT="V"
DO EN^VALM("TIUFT ITEMS VIEW MGR/CLIN")
+38 SET VALMCNT=TIUFVCN3
SET VALMBG=TIUFBG3
+39 DO NODE0ARR^TIUFLF(FILEDA,.TIUFNOD0)
if $DATA(DTOUT)
GOTO EDITX
+40 ; If came from Template H rather than A AND If Edited Items directly from H rather than thru Edit/View (D), then update + for H and If H entry was expanded, reexpand to items only:
+41 IF TIUFTMPL="H"
IF SUBTEMPL'="D"
Begin DoDot:1
+42 ;Since Template is H, then need +. If 'Expand, just update +:
+43 IF 'EXPAND
SET TIUREC=^TMP("TIUF1",$JOB,+TIUFINFO,0)
SET TIUREC=$$PLUSUP^TIUFLLM(.TIUFINFO,TIUREC)
SET ^TMP("TIUF1",$JOB,+TIUFINFO,0)=TIUREC
+44 ;If Expand, that will automatically update + for template H:
+45 IF EXPAND
DO EXPAND1^TIUFH1(.TIUFINFO)
SET VALMCNT=VALMCNT+$PIECE(TIUFINFO,U,3)
End DoDot:1
+46 ; Edit Items affects parentage: if came from Template A and sort by parentage, redo all of A:
+47 IF TIUFTMPL="A"
if $EXTRACT(TIUFATTR)="P"
DO INIT^TIUFA
if $DATA(DTOUT)
GOTO EDITX
+48 ; If not sort by parentage, don't update A here: Template A has been updated with each change to Template T.
+49 ;Update Items to end on Template D.
IF SUBTEMPL="D"
DO DSITEMS^TIUFD(.TIUFILIN)
SET VALMCNT=TIUFILIN
+50 SET VALMBCK="R"
EDITX ;
+1 IF $DATA(MSG)
WRITE !!,MSG,!
HANG 2
+2 IF $DATA(DTOUT)
SET VALMBCK="Q"
+3 QUIT
+4 ;
EDBOILTX ;Templates D, X Action Edit Boilerplate Text
+1 ; Requires CURRENT arrays TIUFINFO, TIUFNOD0.
+2 ; Requires TIUFBLIN as set in DSBOILTX^TIUFD.
+3 NEW FILEDA,LINENO,CNTCHNG,TIUFXNOD,MSG,STATUS,DTOUT,DIRUT,DIROUT
+4 SET FILEDA=TIUFINFO("FILEDA")
+5 SET VALMBCK="R"
SET TIUFXNOD=$GET(XQORNOD(0))
+6 SET STATUS=$$STATWORD^TIUFLF5($PIECE(^TIU(8925.1,FILEDA,0),U,7))
+7 IF STATUS'="INACTIVE"
WRITE !!,"Entry is not Inactive: Can't edit Boilerplate Text"
DO PAUSE^TIUFXHLX
SET VALMBCK=""
GOTO EDBOX
+8 IF $PIECE(TIUFNOD0,U,10)
Begin DoDot:1
+9 IF '$$PERSOWNS^TIUFLF2(FILEDA,DUZ)
SET MSG=" Shared Component: Only Owner can Edit Boilerplate Text"
+10 IF '$$CANEDIT^TIUFLF6(FILEDA)
SET MSG=" Shared Component with parent that isn't Inactive: Can't Edit Boilerplate Text"
+11 IF $DATA(MSG)
WRITE !!,MSG
DO PAUSE^TIUFXHLX
SET VALMBCK=""
End DoDot:1
if $DATA(MSG)
GOTO EDBOX
+12 IF TIUFSTMP="X"
LOCK +^TIU(8925.1,FILEDA):1
IF '$TEST
WRITE !!," Another user is editing this entry.",!
HANG 2
GOTO EDBOX
+13 DO EDBOIL^TIUFLD1(FILEDA,TIUFNOD0)
if $DATA(DTOUT)
GOTO EDBOX
+14 DO DEDBOIL^TIUFLD1(FILEDA)
if $DATA(DTOUT)
GOTO EDBOX
+15 DO NODE0ARR^TIUFLF(FILEDA,.TIUFNOD0)
if $DATA(DTOUT)
GOTO EDBOX
+16 ; Update template D or X:
+17 SET LINENO=TIUFBLIN
DO DSBOILTX^TIUFD(.LINENO)
if $DATA(DTOUT)
GOTO EDBOX
SET VALMCNT=LINENO
+18 ;doesn't match.
IF TIUFTMPL="A"
DO AUPDATE^TIUFLA1(TIUFNOD0,FILEDA,.CNTCHNG)
if CNTCHNG
SET TIUFVCN1=TIUFVCN1-1
+19 IF "HC"[TIUFTMPL
DO LINEUP^TIUFLLM1(.TIUFINFO,TIUFTMPL)
EDBOX ;
+1 IF TIUFSTMP="X"
LOCK -^TIU(8925.1,+$GET(FILEDA))
+2 IF $DATA(DTOUT)
SET VALMBCK="Q"
+3 QUIT
+4 ;