| 1 | TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
|
|---|
| 2 | ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | UPDTDOC ;update status
|
|---|
| 7 | N TIULINE,TIUDA,TIUSEL,TIUC
|
|---|
| 8 | D FULL^VALM1
|
|---|
| 9 | S TIUSEL=""
|
|---|
| 10 | F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
|
|---|
| 11 | .S TIULINE=$P(^TMP("TIUSEL",$J,TIUSEL),U)
|
|---|
| 12 | .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
|
|---|
| 13 | .S TIUDA=TIUC(TIULINE)
|
|---|
| 14 | .Q:'TIUDA
|
|---|
| 15 | .I $P(^TIU(8925,TIUDA,0),U,5)=7 Q
|
|---|
| 16 | .I $$UPDATE^TIUSUPN1(TIUDA) D
|
|---|
| 17 | ..D FLDTEXT^VALM10(TIULINE,"STATUS",$$GET1^DIQ(8925,TIUDA,.05))
|
|---|
| 18 | ..D SELECT^VALM10(TIULINE,1)
|
|---|
| 19 | K VALMY S VALMBCK="R"
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | UPDATE(DA) ;
|
|---|
| 23 | N TIUSTAT,DIE,DR,TIUCOS,TIUCOSDT,TIULFLAG,TIUPFLAG,TIUD15
|
|---|
| 24 | S (TIULFLAG,TIUPFLAG)=0
|
|---|
| 25 | I DA'>0 Q 0
|
|---|
| 26 | S TIUD15=$G(^TIU(8925,DA,15))
|
|---|
| 27 | S TIUCOS=+$P(TIUD15,U,6),TIUCOSDT=+$P(TIUD15,U,7)
|
|---|
| 28 | I TIUCOS,TIUCOSDT'>0 S TIUSTAT="uncosigned"
|
|---|
| 29 | E S TIUSTAT="completed"
|
|---|
| 30 | L +^TIU(8925,DA):1 I '$T S TIULFLAG=1
|
|---|
| 31 | I 'TIULFLAG S DIE=8925,DR=".05///^S X=TIUSTAT" D ^DIE S TIUPFLAG=1
|
|---|
| 32 | E W !,DA," is being edited by another user."
|
|---|
| 33 | L -^TIU(8925,DA)
|
|---|
| 34 | Q TIUPFLAG
|
|---|
| 35 | ;
|
|---|
| 36 | BROWSE ;browse documents
|
|---|
| 37 | N TIULINE,TIUDA,TIUSEL,TIUC
|
|---|
| 38 | D FULL^VALM1
|
|---|
| 39 | S TIUSEL=""
|
|---|
| 40 | F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
|
|---|
| 41 | .S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
|
|---|
| 42 | .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
|
|---|
| 43 | .S TIUDA=TIUC(TIULINE)
|
|---|
| 44 | .Q:'TIUDA
|
|---|
| 45 | .D EN^VALM("TIU BROWSE FOR READ ONLY")
|
|---|
| 46 | K ^TMP("TIUSEL",$J),VALMY S VALMBCK="R"
|
|---|
| 47 | Q
|
|---|
| 48 | ;
|
|---|
| 49 | DISP ; detailed display
|
|---|
| 50 | N TIULINE,TIUDA,TIUSEL,TIUC,TIUVIEW,RSTRCTD
|
|---|
| 51 | D FULL^VALM1
|
|---|
| 52 | S TIUSEL=""
|
|---|
| 53 | F S TIUSEL=$O(^TMP("TIUSEL",$J,TIUSEL)) Q:'TIUSEL D
|
|---|
| 54 | .S TIULINE=^TMP("TIUSEL",$J,TIUSEL)
|
|---|
| 55 | .S TIUC(TIULINE)=$O(@VALMAR@("IDX",TIULINE,""))
|
|---|
| 56 | .S TIUDA=TIUC(TIULINE)
|
|---|
| 57 | .Q:'TIUDA
|
|---|
| 58 | .S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
|
|---|
| 59 | .I +TIUVIEW'>0 D Q
|
|---|
| 60 | .. W !!,$C(7),$P(TIUVIEW,U,2),!
|
|---|
| 61 | .. I $$READ^TIUU("EA","RETURN to continue...") ; pause
|
|---|
| 62 | .S RSTRCTD=$$DOCRES^TIULRR(TIUDA)
|
|---|
| 63 | .I RSTRCTD D Q
|
|---|
| 64 | .. W !!,$C(7),"Ok, no harm done...",!
|
|---|
| 65 | .. I $$READ^TIUU("EA","RETURN to continue...") ; pause
|
|---|
| 66 | .D EN^TIUAUDIT
|
|---|
| 67 | .I +$G(TIUQUIT) D FIXLSTNW^TIULM Q
|
|---|
| 68 | K VALMY,^TMP("TIUSEL",$J) S VALMBCK="R"
|
|---|
| 69 | Q
|
|---|
