source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSUPN1.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1TIUSUPN1 ;SLC/TT - SIGNED DOCUMENT WITH UNSIGNED STATUS; 11/23/04
2 ;;1.0; TEXT INTEGRATION UTILITIES;**180**;Jun 20, 1997
3 ;
4 Q
5 ;
6UPDTDOC ;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 ;
22UPDATE(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 ;
36BROWSE ;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 ;
49DISP ; 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
Note: See TracBrowser for help on using the repository browser.