TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
;
Q
;
UPDTDOC ;update status
N TIULINE,TIUDA,TIUSEL,TIUC
D FULL^VALM1
S TIUSEL=""
F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
.S TIULINE=$P(^TMP("TIUSEL",$J,TIUSEL),U)
.S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
.S TIUDA=TIUC(TIULINE)
.Q:'TIUDA
.I $P(^TIU(8925,TIUDA,0),U,5)=7 Q
.I $$UPDATE^TIUSUPN1(TIUDA) D
..D FLDTEXT^VALM10(TIULINE,"STATUS",$$GET1^DIQ(8925,TIUDA,.05))
..D SELECT^VALM10(TIULINE,1)
K VALMY S VALMBCK="R"
Q
;
UPDATE(DA) ;
N TIUSTAT,DIE,DR,TIUCOS,TIUCOSDT,TIULFLAG,TIUPFLAG,TIUD15
S (TIULFLAG,TIUPFLAG)=0
I DA'>0 Q 0
S TIUD15=$G(^TIU(8925,DA,15))
S TIUCOS=+$P(TIUD15,U,6),TIUCOSDT=+$P(TIUD15,U,7)
I TIUCOS,TIUCOSDT'>0 S TIUSTAT="uncosigned"
E S TIUSTAT="completed"
L +^TIU(8925,DA):1 I '$T S TIULFLAG=1
I 'TIULFLAG S DIE=8925,DR=".05///^S X=TIUSTAT" D ^DIE S TIUPFLAG=1
E W !,DA," is being edited by another user."
L -^TIU(8925,DA)
Q TIUPFLAG
;
BROWSE ;browse documents
N TIULINE,TIUDA,TIUSEL,TIUC
D FULL^VALM1
S TIUSEL=""
F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
.S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
.S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
.S TIUDA=TIUC(TIULINE)
.Q:'TIUDA
.D EN^VALM("TIU BROWSE FOR READ ONLY")
K ^TMP("TIUSEL",$J),VALMY S VALMBCK="R"
Q
;
DISP ; detailed display
N TIULINE,TIUDA,TIUSEL,TIUC,TIUVIEW,RSTRCTD
D FULL^VALM1
S TIUSEL=""
F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
.S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
.S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
.S TIUDA=TIUC(TIULINE)
.Q:'TIUDA
.S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
.I +TIUVIEW'>0 D Q
.. W !!,$C(7),$P(TIUVIEW,U,2),!
.. I $$READ^TIUU("EA","RETURN to continue...") ; pause
.S RSTRCTD=$$DOCRES^TIULRR(TIUDA)
.I RSTRCTD D Q
.. W !!,$C(7),"Ok, no harm done...",!
.. I $$READ^TIUU("EA","RETURN to continue...") ; pause
.D EN^TIUAUDIT
.I +$G(TIUQUIT) D FIXLSTNW^TIULM Q
K VALMY,^TMP("TIUSEL",$J) S VALMBCK="R"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUSUPN1 2111 printed Nov 22, 2024@17:56:10 Page 2
TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
+1 ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
+2 ;
+3 QUIT
+4 ;
UPDTDOC ;update status
+1 NEW TIULINE,TIUDA,TIUSEL,TIUC
+2 DO FULL^VALM1
+3 SET TIUSEL=""
+4 FOR
SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
if 'TIUSEL
QUIT
Begin DoDot:1
+5 SET TIULINE=$PIECE(^TMP("TIUSEL",$JOB,TIUSEL),U)
+6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
+7 SET TIUDA=TIUC(TIULINE)
+8 if 'TIUDA
QUIT
+9 IF $PIECE(^TIU(8925,TIUDA,0),U,5)=7
QUIT
+10 IF $$UPDATE^TIUSUPN1(TIUDA)
Begin DoDot:2
+11 DO FLDTEXT^VALM10(TIULINE,"STATUS",$$GET1^DIQ(8925,TIUDA,.05))
+12 DO SELECT^VALM10(TIULINE,1)
End DoDot:2
End DoDot:1
+13 KILL VALMY
SET VALMBCK="R"
+14 QUIT
+15 ;
UPDATE(DA) ;
+1 NEW TIUSTAT,DIE,DR,TIUCOS,TIUCOSDT,TIULFLAG,TIUPFLAG,TIUD15
+2 SET (TIULFLAG,TIUPFLAG)=0
+3 IF DA'>0
QUIT 0
+4 SET TIUD15=$GET(^TIU(8925,DA,15))
+5 SET TIUCOS=+$PIECE(TIUD15,U,6)
SET TIUCOSDT=+$PIECE(TIUD15,U,7)
+6 IF TIUCOS
IF TIUCOSDT'>0
SET TIUSTAT="uncosigned"
+7 IF '$TEST
SET TIUSTAT="completed"
+8 LOCK +^TIU(8925,DA):1
IF '$TEST
SET TIULFLAG=1
+9 IF 'TIULFLAG
SET DIE=8925
SET DR=".05///^S X=TIUSTAT"
DO ^DIE
SET TIUPFLAG=1
+10 IF '$TEST
WRITE !,DA," is being edited by another user."
+11 LOCK -^TIU(8925,DA)
+12 QUIT TIUPFLAG
+13 ;
BROWSE ;browse documents
+1 NEW TIULINE,TIUDA,TIUSEL,TIUC
+2 DO FULL^VALM1
+3 SET TIUSEL=""
+4 FOR
SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
if 'TIUSEL
QUIT
Begin DoDot:1
+5 SET TIULINE=^TMP("TIUSEL",$JOB,TIUSEL)
+6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
+7 SET TIUDA=TIUC(TIULINE)
+8 if 'TIUDA
QUIT
+9 DO EN^VALM("TIU BROWSE FOR READ ONLY")
End DoDot:1
+10 KILL ^TMP("TIUSEL",$JOB),VALMY
SET VALMBCK="R"
+11 QUIT
+12 ;
DISP ; detailed display
+1 NEW TIULINE,TIUDA,TIUSEL,TIUC,TIUVIEW,RSTRCTD
+2 DO FULL^VALM1
+3 SET TIUSEL=""
+4 FOR
SET TIUSEL=$ORDER(^TMP("TIUSEL",$JOB,TIUSEL))
if 'TIUSEL
QUIT
Begin DoDot:1
+5 SET TIULINE=^TMP("TIUSEL",$JOB,TIUSEL)
+6 SET TIUC(TIULINE)=$ORDER(@VALMAR@("IDX",TIULINE,""))
+7 SET TIUDA=TIUC(TIULINE)
+8 if 'TIUDA
QUIT
+9 SET TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
+10 IF +TIUVIEW'>0
Begin DoDot:2
+11 WRITE !!,$CHAR(7),$PIECE(TIUVIEW,U,2),!
+12 ; pause
IF $$READ^TIUU("EA","RETURN to continue...")
End DoDot:2
QUIT
+13 SET RSTRCTD=$$DOCRES^TIULRR(TIUDA)
+14 IF RSTRCTD
Begin DoDot:2
+15 WRITE !!,$CHAR(7),"Ok, no harm done...",!
+16 ; pause
IF $$READ^TIUU("EA","RETURN to continue...")
End DoDot:2
QUIT
+17 DO EN^TIUAUDIT
+18 IF +$GET(TIUQUIT)
DO FIXLSTNW^TIULM
QUIT
End DoDot:1
+19 KILL VALMY,^TMP("TIUSEL",$JOB)
SET VALMBCK="R"
+20 QUIT
