TIUADD ; SLC/JER - Enter/Edit an addendum online ;2/13/02
;;1.0;TEXT INTEGRATION UTILITIES;**3,88,100,112**;Jun 20, 1997
; 2/3: Update TEXTEDIT from TIUEDIT to TIUEDI4
ADDENDUM(TIUDA,TIUADD,TIUCHNG,TIUNOASK) ; Control branching
N TIUY,TIUEDIT,TIUDADD K ^TMP("TIUADD",$J)
I '$D(TIUPRM0)!'$D(TIUPRM1) D SETPARM^TIULE
S TIUCHNG("ADDM")=1
; -- Get list of existing addenda, edit existing one --
D ADDLIST(.TIUY,TIUDA)
I +$D(TIUY),+$D(@TIUY) D G:$D(DIRUT) ADDENX
. W !
. S TIUEDIT=+$$READ^TIUU("YO","Do you wish to EDIT an existing ADDENDUM","YES")
. I +TIUEDIT D EDIT(TIUY) S TIUADD=1
G:+$G(TIUADD) ADDENX
; -- Create new addendum to TIUDA: --
I +$P($G(^TIU(8925,+TIUDA,0)),U,6)'>0 D Q:$D(DIROUT)!(+TIUDADD'>0)
. S TIUDADD=$$CANDO^TIULP(TIUDA,"MAKE ADDENDUM")
. I '+TIUDADD D Q
. . W !!,$C(7),$P(TIUDADD,U,2),!
. . I $$READ^TIUU("EA","Press RETURN to continue...")
. I +TIUDADD D Q:$D(DIROUT)
. . I +$G(TIUNOASK)'>0,'+$$READ^TIUU("YO","Do you wish to ADD a new ADDENDUM","NO") Q
. . D ADD(TIUDA,.TIUCHNG)
. . ; -- Update ADDENDED? if browsing ID Note
. . I TIUCHNG,$P($G(TIUGDATA),U,2) K VALMHDR
I +$P(^TIU(8925,+TIUDA,0),U,6)>0 D
. W !!,$C(7)," You may not make an ADDENDUM to an ADDENDUM.",!
. I $$READ^TIUU("EA","Press RETURN to continue...")
ADDENX ;Exit for ADDENDUM
K ^TMP("TIUADD",$J)
;I $D(VALMAR),$$READ^TIUU("EA","Press RETURN to continue...")
Q
EDIT(TIUY) ;Edit existing addendum
N TIUED,TIUDA,DA,DIC,DIE,TIUDAUTH,TIUPT,TIURDOC,DR,X,Y,TIUCNT
S TIUCNT=0 F S TIUCNT=$O(@TIUY@(TIUCNT)) Q:TIUCNT'>0 D Q:$D(DIROUT)
. N TIUQUIT
. S TIUDA=+$G(@TIUY@(TIUCNT))
. D GETTIU^TIULD(.TIU,+TIUDA)
. W !!,"Displaying Addendum #",TIUCNT
. D EN^VALM("TIU EDIT ADDENDUM") Q:$D(DIROUT)
Q
EDADD ; Edit action
N DA,DIC,DIE,DLAYGO,DIWESUB,TIUDAUTH,TIUMD,TIUPT,TIUECOS,TIUXINI,DR,X,Y
N TIUDAD,TIUD0,TIUD12,TIUD13,TIUD14,TIUQUIT,TIUTYP,TIUT0,TIU
K TIUBY,TIUCANED
S TIUCANED=$$CANDO^TIULP(TIUDA,"EDIT RECORD")
I +TIUCANED'>0 D Q
. W !!,$P(TIUCANED,U,2)
. I $$READ^TIUU("EA","Press RETURN to continue...") ; pause
S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD12=$G(^(12)),TIUD13=$G(^(13))
S TIUD14=$G(^TIU(8925,+TIUDA,14))
S TIUDAD=+$P($G(^TIU(8925,+TIUDA,0)),U,6)
S DA=+TIUDA
W !!,"Editing ADDENDUM"
S TIUTYP=+$G(^TIU(8925,+DA,0)),TIUT0=$G(^TIU(8925.1,+TIUTYP,0))
S TIUTYP(1)="1^"_+TIUTYP_U_$P(TIUT0,U,3)_U
S TIUMD=$$ISA^USRLM(+$G(DUZ),"PROVIDER")
S TIUPT=$P($G(^DPT(+$P(TIUD0,U,2),0)),U)
S DIWESUB="Patient: "_TIUPT
S DR=$$GETTMPL^TIUEDI1(+$P(^TIU(8925,+TIUDAD,0),U))
D GETTIU^TIULD(.TIU,TIUDAD)
; -- Do DIE; get text, release, verify: --
D ADDDIE(DA,DR,TIUDAD)
I '$D(^TIU(8925,+DA,0)) S TIUCHNG=0,TIUCHNG("DELETE")=1 Q
; -- Update status, visit type, visit location: --
S DR=".05///"_$$STATUS^TIULC(DA)_";.13////"_$P($G(TIU("VSTR")),";",3)_";1211////"_$P($G(TIU("VLOC")),U),DIE=8925 D ^DIE
; -- Set TIUCHNG: e.g. TIUCHNG = 2^addmIFN (2 for entered/edited text);
; TIUCHNG("EXIST") for edited EXISTING not new addm
S TIUCHNG=2_"^"_+$G(DA),TIUCHNG("EXIST")=1,VALMBCK="Q"
; -- Sign, print: --
I +$P(TIUPRM0,U,2) D
. N TIUSIGN S TIUSIGN=$$CANDO^TIULP(DA,"SIGNATURE")
. I '+TIUSIGN D Q
. . I +$$ISA^USRLM(+$G(DUZ),"TRANSCRIPTIONIST") Q
. . W !,$C(7),$P(TIUSIGN,U,2)
. . I '$D(VALMAR),$$READ^TIUU("EA","Press RETURN to continue...")
. I +TIUSIGN D EDSIG^TIURS(DA)
. I +$P($G(TIUDPRM(0)),U,8) D PRINT^TIUEPRNT(DA)
; NOIS LOU-0598-40899
I $G(TIUQUIT),+$$EMPTYDOC^TIULF(DA) D DELETE^TIUEDIT(DA) S TIUCHNG=0,TIUCHNG("DELETE")=1 H 2 Q
Q
ADD(TIUDA,TIUCHNG) ;Add new addendum
N DA,DIC,DIE,DLAYGO,DIWESUB,DR,TIUDAUTH,TIUMD,TIUPT,TIUECOS,TIUXINI,X,Y
N TIUD0,TIUDV,TIUD12,TIUD13,TIUD14,TIUTYP,TIUT0,TIU,TIUFPRIV,TIUQUIT
N LINENO,EXPANDED
S TIUFPRIV=1
S TIUD0=$G(^TIU(8925,+TIUDA,0)),TIUD12=$G(^(12)),TIUD13=$G(^(13))
S TIUD14=$G(^TIU(8925,+TIUDA,14)),TIUDV=$P(TIUD0,U,3)
S LINENO=+$O(^TMP("TIUR",$J,"IEN",TIUDA,0))
I LINENO,$D(^TMP("TIUR",$J,"EXPAND",LINENO)) S EXPANDED=1
I '$G(EXPANDED),$$HASIDKID^TIUGBR(TIUDA) W !!," You are addending an interdisciplinary note. Your addendum will be added to",!,"the parent entry of the note." H 2
S (DIC,DLAYGO)=8925,DIC(0)="L",X=""""_"`"_$$ADDPTR_""""
D ^DIC
I +Y>0 S DA=+Y D
. W !!,"Adding ADDENDUM"
. S DIE="^TIU(8925,"
. S DR=".03////"_TIUDV_";.04////"_+$$ADDCLASS_";.05////3;.06////"_TIUDA
. S DR=DR_";1405////^S X=$P(TIUD14,U,5)"
. D ^DIE
. S TIUTYP=+$G(^TIU(8925,+DA,0)),TIUT0=$G(^TIU(8925.1,+TIUTYP,0))
. S TIUTYP(1)="1^"_+TIUTYP_U_$P(TIUT0,U,3)_U
. S TIUMD=$$ISA^USRLM(+$G(DUZ),"PROVIDER")
. S TIUPT=$P($G(^DPT(+$P(TIUD0,U,2),0)),U)
. S DIWESUB="Patient: "_TIUPT
. S DR=$$GETTMPL^TIUEDI1(+$P(^TIU(8925,+TIUDA,0),U))
. D GETTIU^TIULD(.TIU,TIUDA)
. D ADDDIE(DA,DR,TIUDA) I '$D(^TIU(8925,+DA,0)) S TIUCHNG=0,TIUCHNG("DELETE")=1 Q
. S DR=".05///"_$$STATUS^TIULC(DA),DIE=8925 D ^DIE
. S TIUCHNG=2_"^"_+$G(DA)
. I +$P(TIUPRM0,U,2) D
. . N TIUSIGN S TIUSIGN=$$CANDO^TIULP(DA,"SIGNATURE")
. . I '+TIUSIGN D Q
. . . W !,$C(7),$P(TIUSIGN,U,2)
. . . I '$D(VALMAR),$$READ^TIUU("EA","Press RETURN to continue...")
. . I +TIUSIGN D EDSIG^TIURS(DA)
. I +$P($G(TIUDPRM(0)),U,8) D PRINT^TIUEPRNT(DA)
. I $G(TIUQUIT) D DELETE^TIUEDIT(DA) S TIUCHNG=0,TIUCHNG("DELETE")=1 Q
Q
ADDPTR() ; Get record # of ADDENDUM in 8925.1
N DIC,X,Y,TIUFPRIV S TIUFPRIV=1
S DIC=8925.1,DIC(0)="FMX",X="ADDENDUM"
S DIC("S")="I $P($G(^TIU(8925.1,+Y,0)),U,4)=""DOC"""
D ^DIC K DIC("S")
Q +Y
ADDCLASS() ; Get record # of ADDENDUM Document Class in 8925.1
N DIC,X,Y,TIUFPRIV S TIUFPRIV=1
S DIC=8925.1,DIC(0)="FMX",X="ADDENDUM"
S DIC("S")="I $P($G(^TIU(8925.1,+Y,0)),U,4)=""DC"""
D ^DIC K DIC("S")
Q +Y
ADDDIE(DA,DR,TIUDA) ; Call DIE to conduct dialog
N TIUREL,TIUD0,TIUD12,TIUD13,TIUD14,DTOUT,Y,DWPK
S DIE=8925 D ^DIE
I $D(Y)!($D(DTOUT)) S TIUQUIT=1
D:+$G(TIUQUIT) SEND^TIUALRT(DA)
I '+$G(TIUQUIT) D
. D TEXTEDIT^TIUEDI4(DA)
. I $$EMPTYDOC^TIULF(DA) D DELETE^TIUEDIT(DA,0) Q
. ; -- Not clear why I need these nodes 0,12,13,14: --
. S TIUD0=$G(^TIU(8925,+DA,0)),TIUD12=$G(^(12)),TIUD13=$G(^(13))
. S TIUD14=$G(^TIU(8925,+DA,14))
. ; Execute RELEASE Logic
. D RELEASE^TIUT(DA) S TIUREL=""
. ; Execute VERIFY Logic
. D VERIFY^TIUT(DA)
. ; Send Addendum Alert
. D SENDADD^TIUALRT(DA)
Q
ADDLIST(Y,TIUDA) ; Get list of addenda for a record
N TIUI,TIUCNT S (TIUCNT,TIUI)=0 K ^TMP("TIUADD",$J)
F S TIUI=$O(^TIU(8925,"DAD",TIUDA,TIUI)) Q:+TIUI'>0 D
. Q:+$$ISADDNDM^TIULC1(TIUI)'>0
. Q:+$$CANDO^TIULP(TIUI,"EDIT RECORD")'>0
. S TIUCNT=TIUCNT+1,^TMP("TIUADD",$J,TIUCNT)=TIUI
I $D(^TMP("TIUADD",$J)) S Y=$NA(^TMP("TIUADD",$J))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUADD 6699 printed Jun 11, 2024@22:28:28 Page 2
TIUADD ; SLC/JER - Enter/Edit an addendum online ;2/13/02
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**3,88,100,112**;Jun 20, 1997
+2 ; 2/3: Update TEXTEDIT from TIUEDIT to TIUEDI4
ADDENDUM(TIUDA,TIUADD,TIUCHNG,TIUNOASK) ; Control branching
+1 NEW TIUY,TIUEDIT,TIUDADD
KILL ^TMP("TIUADD",$JOB)
+2 IF '$DATA(TIUPRM0)!'$DATA(TIUPRM1)
DO SETPARM^TIULE
+3 SET TIUCHNG("ADDM")=1
+4 ; -- Get list of existing addenda, edit existing one --
+5 DO ADDLIST(.TIUY,TIUDA)
+6 IF +$DATA(TIUY)
IF +$DATA(@TIUY)
Begin DoDot:1
+7 WRITE !
+8 SET TIUEDIT=+$$READ^TIUU("YO","Do you wish to EDIT an existing ADDENDUM","YES")
+9 IF +TIUEDIT
DO EDIT(TIUY)
SET TIUADD=1
End DoDot:1
if $DATA(DIRUT)
GOTO ADDENX
+10 if +$GET(TIUADD)
GOTO ADDENX
+11 ; -- Create new addendum to TIUDA: --
+12 IF +$PIECE($GET(^TIU(8925,+TIUDA,0)),U,6)'>0
Begin DoDot:1
+13 SET TIUDADD=$$CANDO^TIULP(TIUDA,"MAKE ADDENDUM")
+14 IF '+TIUDADD
Begin DoDot:2
+15 WRITE !!,$CHAR(7),$PIECE(TIUDADD,U,2),!
+16 IF $$READ^TIUU("EA","Press RETURN to continue...")
End DoDot:2
QUIT
+17 IF +TIUDADD
Begin DoDot:2
+18 IF +$GET(TIUNOASK)'>0
IF '+$$READ^TIUU("YO","Do you wish to ADD a new ADDENDUM","NO")
QUIT
+19 DO ADD(TIUDA,.TIUCHNG)
+20 ; -- Update ADDENDED? if browsing ID Note
+21 IF TIUCHNG
IF $PIECE($GET(TIUGDATA),U,2)
KILL VALMHDR
End DoDot:2
if $DATA(DIROUT)
QUIT
End DoDot:1
if $DATA(DIROUT)!(+TIUDADD'>0)
QUIT
+22 IF +$PIECE(^TIU(8925,+TIUDA,0),U,6)>0
Begin DoDot:1
+23 WRITE !!,$CHAR(7)," You may not make an ADDENDUM to an ADDENDUM.",!
+24 IF $$READ^TIUU("EA","Press RETURN to continue...")
End DoDot:1
ADDENX ;Exit for ADDENDUM
+1 KILL ^TMP("TIUADD",$JOB)
+2 ;I $D(VALMAR),$$READ^TIUU("EA","Press RETURN to continue...")
+3 QUIT
EDIT(TIUY) ;Edit existing addendum
+1 NEW TIUED,TIUDA,DA,DIC,DIE,TIUDAUTH,TIUPT,TIURDOC,DR,X,Y,TIUCNT
+2 SET TIUCNT=0
FOR
SET TIUCNT=$ORDER(@TIUY@(TIUCNT))
if TIUCNT'>0
QUIT
Begin DoDot:1
+3 NEW TIUQUIT
+4 SET TIUDA=+$GET(@TIUY@(TIUCNT))
+5 DO GETTIU^TIULD(.TIU,+TIUDA)
+6 WRITE !!,"Displaying Addendum #",TIUCNT
+7 DO EN^VALM("TIU EDIT ADDENDUM")
if $DATA(DIROUT)
QUIT
End DoDot:1
if $DATA(DIROUT)
QUIT
+8 QUIT
EDADD ; Edit action
+1 NEW DA,DIC,DIE,DLAYGO,DIWESUB,TIUDAUTH,TIUMD,TIUPT,TIUECOS,TIUXINI,DR,X,Y
+2 NEW TIUDAD,TIUD0,TIUD12,TIUD13,TIUD14,TIUQUIT,TIUTYP,TIUT0,TIU
+3 KILL TIUBY,TIUCANED
+4 SET TIUCANED=$$CANDO^TIULP(TIUDA,"EDIT RECORD")
+5 IF +TIUCANED'>0
Begin DoDot:1
+6 WRITE !!,$PIECE(TIUCANED,U,2)
+7 ; pause
IF $$READ^TIUU("EA","Press RETURN to continue...")
End DoDot:1
QUIT
+8 SET TIUD0=$GET(^TIU(8925,+TIUDA,0))
SET TIUD12=$GET(^(12))
SET TIUD13=$GET(^(13))
+9 SET TIUD14=$GET(^TIU(8925,+TIUDA,14))
+10 SET TIUDAD=+$PIECE($GET(^TIU(8925,+TIUDA,0)),U,6)
+11 SET DA=+TIUDA
+12 WRITE !!,"Editing ADDENDUM"
+13 SET TIUTYP=+$GET(^TIU(8925,+DA,0))
SET TIUT0=$GET(^TIU(8925.1,+TIUTYP,0))
+14 SET TIUTYP(1)="1^"_+TIUTYP_U_$PIECE(TIUT0,U,3)_U
+15 SET TIUMD=$$ISA^USRLM(+$GET(DUZ),"PROVIDER")
+16 SET TIUPT=$PIECE($GET(^DPT(+$PIECE(TIUD0,U,2),0)),U)
+17 SET DIWESUB="Patient: "_TIUPT
+18 SET DR=$$GETTMPL^TIUEDI1(+$PIECE(^TIU(8925,+TIUDAD,0),U))
+19 DO GETTIU^TIULD(.TIU,TIUDAD)
+20 ; -- Do DIE; get text, release, verify: --
+21 DO ADDDIE(DA,DR,TIUDAD)
+22 IF '$DATA(^TIU(8925,+DA,0))
SET TIUCHNG=0
SET TIUCHNG("DELETE")=1
QUIT
+23 ; -- Update status, visit type, visit location: --
+24 SET DR=".05///"_$$STATUS^TIULC(DA)_";.13////"_$PIECE($GET(TIU("VSTR")),";",3)_";1211////"_$PIECE($GET(TIU("VLOC")),U)
SET DIE=8925
DO ^DIE
+25 ; -- Set TIUCHNG: e.g. TIUCHNG = 2^addmIFN (2 for entered/edited text);
+26 ; TIUCHNG("EXIST") for edited EXISTING not new addm
+27 SET TIUCHNG=2_"^"_+$GET(DA)
SET TIUCHNG("EXIST")=1
SET VALMBCK="Q"
+28 ; -- Sign, print: --
+29 IF +$PIECE(TIUPRM0,U,2)
Begin DoDot:1
+30 NEW TIUSIGN
SET TIUSIGN=$$CANDO^TIULP(DA,"SIGNATURE")
+31 IF '+TIUSIGN
Begin DoDot:2
+32 IF +$$ISA^USRLM(+$GET(DUZ),"TRANSCRIPTIONIST")
QUIT
+33 WRITE !,$CHAR(7),$PIECE(TIUSIGN,U,2)
+34 IF '$DATA(VALMAR)
IF $$READ^TIUU("EA","Press RETURN to continue...")
End DoDot:2
QUIT
+35 IF +TIUSIGN
DO EDSIG^TIURS(DA)
+36 IF +$PIECE($GET(TIUDPRM(0)),U,8)
DO PRINT^TIUEPRNT(DA)
End DoDot:1
+37 ; NOIS LOU-0598-40899
+38 IF $GET(TIUQUIT)
IF +$$EMPTYDOC^TIULF(DA)
DO DELETE^TIUEDIT(DA)
SET TIUCHNG=0
SET TIUCHNG("DELETE")=1
HANG 2
QUIT
+39 QUIT
ADD(TIUDA,TIUCHNG) ;Add new addendum
+1 NEW DA,DIC,DIE,DLAYGO,DIWESUB,DR,TIUDAUTH,TIUMD,TIUPT,TIUECOS,TIUXINI,X,Y
+2 NEW TIUD0,TIUDV,TIUD12,TIUD13,TIUD14,TIUTYP,TIUT0,TIU,TIUFPRIV,TIUQUIT
+3 NEW LINENO,EXPANDED
+4 SET TIUFPRIV=1
+5 SET TIUD0=$GET(^TIU(8925,+TIUDA,0))
SET TIUD12=$GET(^(12))
SET TIUD13=$GET(^(13))
+6 SET TIUD14=$GET(^TIU(8925,+TIUDA,14))
SET TIUDV=$PIECE(TIUD0,U,3)
+7 SET LINENO=+$ORDER(^TMP("TIUR",$JOB,"IEN",TIUDA,0))
+8 IF LINENO
IF $DATA(^TMP("TIUR",$JOB,"EXPAND",LINENO))
SET EXPANDED=1
+9 IF '$GET(EXPANDED)
IF $$HASIDKID^TIUGBR(TIUDA)
WRITE !!," You are addending an interdisciplinary note. Your addendum will be added to",!,"the parent entry of the note."
HANG 2
+10 SET (DIC,DLAYGO)=8925
SET DIC(0)="L"
SET X=""""_"`"_$$ADDPTR_""""
+11 DO ^DIC
+12 IF +Y>0
SET DA=+Y
Begin DoDot:1
+13 WRITE !!,"Adding ADDENDUM"
+14 SET DIE="^TIU(8925,"
+15 SET DR=".03////"_TIUDV_";.04////"_+$$ADDCLASS_";.05////3;.06////"_TIUDA
+16 SET DR=DR_";1405////^S X=$P(TIUD14,U,5)"
+17 DO ^DIE
+18 SET TIUTYP=+$GET(^TIU(8925,+DA,0))
SET TIUT0=$GET(^TIU(8925.1,+TIUTYP,0))
+19 SET TIUTYP(1)="1^"_+TIUTYP_U_$PIECE(TIUT0,U,3)_U
+20 SET TIUMD=$$ISA^USRLM(+$GET(DUZ),"PROVIDER")
+21 SET TIUPT=$PIECE($GET(^DPT(+$PIECE(TIUD0,U,2),0)),U)
+22 SET DIWESUB="Patient: "_TIUPT
+23 SET DR=$$GETTMPL^TIUEDI1(+$PIECE(^TIU(8925,+TIUDA,0),U))
+24 DO GETTIU^TIULD(.TIU,TIUDA)
+25 DO ADDDIE(DA,DR,TIUDA)
IF '$DATA(^TIU(8925,+DA,0))
SET TIUCHNG=0
SET TIUCHNG("DELETE")=1
QUIT
+26 SET DR=".05///"_$$STATUS^TIULC(DA)
SET DIE=8925
DO ^DIE
+27 SET TIUCHNG=2_"^"_+$GET(DA)
+28 IF +$PIECE(TIUPRM0,U,2)
Begin DoDot:2
+29 NEW TIUSIGN
SET TIUSIGN=$$CANDO^TIULP(DA,"SIGNATURE")
+30 IF '+TIUSIGN
Begin DoDot:3
+31 WRITE !,$CHAR(7),$PIECE(TIUSIGN,U,2)
+32 IF '$DATA(VALMAR)
IF $$READ^TIUU("EA","Press RETURN to continue...")
End DoDot:3
QUIT
+33 IF +TIUSIGN
DO EDSIG^TIURS(DA)
End DoDot:2
+34 IF +$PIECE($GET(TIUDPRM(0)),U,8)
DO PRINT^TIUEPRNT(DA)
+35 IF $GET(TIUQUIT)
DO DELETE^TIUEDIT(DA)
SET TIUCHNG=0
SET TIUCHNG("DELETE")=1
QUIT
End DoDot:1
+36 QUIT
ADDPTR() ; Get record # of ADDENDUM in 8925.1
+1 NEW DIC,X,Y,TIUFPRIV
SET TIUFPRIV=1
+2 SET DIC=8925.1
SET DIC(0)="FMX"
SET X="ADDENDUM"
+3 SET DIC("S")="I $P($G(^TIU(8925.1,+Y,0)),U,4)=""DOC"""
+4 DO ^DIC
KILL DIC("S")
+5 QUIT +Y
ADDCLASS() ; Get record # of ADDENDUM Document Class in 8925.1
+1 NEW DIC,X,Y,TIUFPRIV
SET TIUFPRIV=1
+2 SET DIC=8925.1
SET DIC(0)="FMX"
SET X="ADDENDUM"
+3 SET DIC("S")="I $P($G(^TIU(8925.1,+Y,0)),U,4)=""DC"""
+4 DO ^DIC
KILL DIC("S")
+5 QUIT +Y
ADDDIE(DA,DR,TIUDA) ; Call DIE to conduct dialog
+1 NEW TIUREL,TIUD0,TIUD12,TIUD13,TIUD14,DTOUT,Y,DWPK
+2 SET DIE=8925
DO ^DIE
+3 IF $DATA(Y)!($DATA(DTOUT))
SET TIUQUIT=1
+4 if +$GET(TIUQUIT)
DO SEND^TIUALRT(DA)
+5 IF '+$GET(TIUQUIT)
Begin DoDot:1
+6 DO TEXTEDIT^TIUEDI4(DA)
+7 IF $$EMPTYDOC^TIULF(DA)
DO DELETE^TIUEDIT(DA,0)
QUIT
+8 ; -- Not clear why I need these nodes 0,12,13,14: --
+9 SET TIUD0=$GET(^TIU(8925,+DA,0))
SET TIUD12=$GET(^(12))
SET TIUD13=$GET(^(13))
+10 SET TIUD14=$GET(^TIU(8925,+DA,14))
+11 ; Execute RELEASE Logic
+12 DO RELEASE^TIUT(DA)
SET TIUREL=""
+13 ; Execute VERIFY Logic
+14 DO VERIFY^TIUT(DA)
+15 ; Send Addendum Alert
+16 DO SENDADD^TIUALRT(DA)
End DoDot:1
+17 QUIT
ADDLIST(Y,TIUDA) ; Get list of addenda for a record
+1 NEW TIUI,TIUCNT
SET (TIUCNT,TIUI)=0
KILL ^TMP("TIUADD",$JOB)
+2 FOR
SET TIUI=$ORDER(^TIU(8925,"DAD",TIUDA,TIUI))
if +TIUI'>0
QUIT
Begin DoDot:1
+3 if +$$ISADDNDM^TIULC1(TIUI)'>0
QUIT
+4 if +$$CANDO^TIULP(TIUI,"EDIT RECORD")'>0
QUIT
+5 SET TIUCNT=TIUCNT+1
SET ^TMP("TIUADD",$JOB,TIUCNT)=TIUI
End DoDot:1
+6 IF $DATA(^TMP("TIUADD",$JOB))
SET Y=$NAME(^TMP("TIUADD",$JOB))
+7 QUIT
