source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUALSET.m@ 1489

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

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1TIUALSET ;SLC/AJB - TIU Alerts ; Mar 17, 2003
2 ;;1.0;TEXT INTEGRATION UTILITIES;**158**;Jun 20, 1997
3 ;
4 Q
5DETDISP ; detailed display
6 N D0,DIROUT,RSTRCTD,TIUDA,TIUD,TIUDATA,TIUGDATA,TIUSEL,TIUI,TIUQUIT,Y
7 D FULL^VALM1
8 I TIU("CNT")=0 W !,"No documents to select." H 3 Q
9 S TIUSEL=$P(XQORNOD(0),"=",2)
10 I TIUSEL="" D Q:TIUSEL=U!($D(DIRUT))
11 . N DIR,X,Y
12 . S DIR("A")="Select Document: (1-"_VALMLST_") "
13 . S DIR(0)="NA^1:"_VALMLST
14 . D ^DIR S TIUSEL=Y
15 I $A($E(TIUSEL,$L(TIUSEL)))<48!($A($E(TIUSEL,$L(TIUSEL)))>57) S TIUSEL=$E(TIUSEL,1,$L(TIUSEL)-1)
16 F X=1:1 Q:$P(TIUSEL,",",X)="" S TIUC($P(TIUSEL,",",X))=$O(@VALMAR@("IDX",$P(TIUSEL,",",X),""))
17 S TIUDA=TIUC(TIUSEL)
18 D
19 . N TIUVIEW
20 . D CLEAR^VALM1
21 . S TIUVIEW=$$CANDO^TIULP(TIUDA,"VIEW")
22 . I +TIUVIEW'>0 D Q
23 . . W !!,$C(7),$P(TIUVIEW,U,2),!
24 . . I $$READ^TIUU("EA","RETURN to continue...") ; pause
25 . S RSTRCTD=$$DOCRES^TIULRR(TIUDA)
26 . I RSTRCTD D Q
27 . . W !!,$C(7),"Ok, no harm done...",!
28 . . I $$READ^TIUU("EA","RETURN to continue...") ; pause
29 . D EN^TIUAUDIT
30 . I +$G(TIUQUIT) D FIXLSTNW^TIULM Q
31 K VALMY S VALMBCK="R"
32 Q
33UPDATE ; update LM display for edited documents
34 ;
35 N TIUAS,TIUDISP
36 S TIUAS="",TIUAS=$O(^TIU(8925.7,"AE",TIUDA,TIU("P"),TIUAS))
37 S TIUDISP=@VALMAR@(TIUSEL,0)
38 S TIUDISP("REFDT")=$$FMTDT^TIUAL1(+^TIU(8925,TIUDA,13))
39 S TIUDISP("S")=$$GET1^DIQ(8925,TIUDA,.05)
40 S TIUDISP("A/D")=$$GET1^DIQ(8925,TIUDA,1202)
41 S TIUDISP("EC")=$$GET1^DIQ(8925,TIUDA,1208)
42 S TIUDISP("ATT")=$$GET1^DIQ(8925,TIUDA,1209)
43 S TIUDISP("ADS")=$$GET1^DIQ(8925.7,TIUAS,.03)
44 S TIUDISP=$$SETSTR^VALM1(TIUDISP("REFDT"),TIUDISP,60,68)
45 S TIUDISP=$$SETSTR^VALM1($$LOW^XLFSTR(TIUDISP("S")),TIUDISP,70,80)
46 S TIUDISP=$$SETSTR^VALM1(TIUSEL,TIUDISP,81,86)
47 S TIUDISP=$$SETSTR^VALM1($E(TIUDISP("A/D"),1,17),TIUDISP,88,105)
48 S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP("EC")),1,17),TIUDISP,107,124)
49 S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP("ATT")),1,17),TIUDISP,126,143)
50 S TIUDISP=$$SETSTR^VALM1($E($G(TIUDISP("ADS")),1,15),TIUDISP,145,160)
51 D SET^VALM10(TIUSEL,TIUDISP,TIUDA)
52 D RE^VALM4
53 Q
54SETUP ; user required input for search parameters
55 N TIUCAT,TIUCNT,TIUPERS,TIUTMP,TIUSTAT
56 D I TIUSTAT=-1 S TIU("QUIT")=1 Q
57 . S TIUSTAT=$$SELSTAT^TIUAL1(.TIUSTAT,"A","UNSIGNED","TIU STATUS MENU")
58 D I TIUCAT=-1 S TIU("QUIT")=1 Q
59 . S TIUCAT=$$SELSTAT^TIUAL1(.TIUCAT,"A","AUTHOR","TIU ALERTS SEARCH MENU")
60 D I TIUPERS=-1 S TIU("QUIT")=1 Q
61 . N DIC
62 . S DIC="^VA(200,",DIC(0)="AEMQ"
63 . S DIC("A")="Select NEW PERSON: "
64 . D ^DIC S TIUPERS=+Y
65 . I $$GET1^DIQ(200,+Y,7,"I")!$$GET1^DIQ(200,+Y,9.2,"I") D
66 . . W !
67 . . W:$$GET1^DIQ(200,+Y,7,"I") !,$$GET1^DIQ(200,+Y,.01)," is INACTIVE (DIUSER'd)"
68 . . W:$$GET1^DIQ(200,+Y,9.2,"I") !,$$GET1^DIQ(200,+Y,.01)," has a termination date of ",$$GET1^DIQ(200,+Y,9.2)
69 . . W !
70 D I '$G(TIUTMP("DT1"))!('$G(TIUTMP("DT2"))) S TIU("QUIT")=1 Q ; select date range
71 . F TIUCNT=1:1:2 D
72 . . N %DT S %DT="AET"
73 . . S %DT("A")=$S(TIUCNT=1:" Start Reference Date [Time]: ",TIUCNT=2:"Ending Reference Date [Time]: ")
74 . . S %DT("B")=$S(TIUCNT=1:"T-7",TIUCNT=2:$P($$HTE^XLFDT($H),"@"))
75 . . D ^%DT
76 . . I Y=-1 S TIUCNT=2 Q
77 . . I TIUCNT=1 S TIUTMP("DT1")=+Y
78 . . I TIUTMP("DT1")>+Y S TIUTMP("DT3")=TIUTMP("DT1"),TIUTMP("DT1")=+Y,Y=TIUTMP("DT3")
79 . . I TIUCNT=2,Y["." S TIUTMP("DT2")=+Y
80 . . E I TIUCNT=2 S TIUTMP("DT2")=+Y_".24"
81 K TIU
82 F TIUCNT=1:1:TIUCAT D
83 . S TIUCAT=$S(+TIUCAT(TIUCNT)=1:"CA",+TIUCAT(TIUCNT)=2:"CA",+TIUCAT(TIUCNT)=3:"CS",+TIUCAT(TIUCNT)=4:"CS",+TIUCAT(TIUCNT)=5:"AE") S:'$D(TIU("C",TIUCAT)) TIU("C",TIUCAT)=""
84 . S TIU("C",TIUCAT)=TIU("C",TIUCAT)_U_$S(+TIUCAT(TIUCNT)=1:"Author",+TIUCAT(TIUCNT)=2:"Dictator",+TIUCAT(TIUCNT)=3:"Expected Cosigner",+TIUCAT(TIUCNT)=4:"Attending Physician",+TIUCAT(TIUCNT)=5:"Add'l Signer")
85 S TIU("P")=+TIUPERS
86 S TIU("S")=TIUSTAT
87 F TIUCNT=1:1:TIUSTAT S TIU("S",TIUCNT)=TIUSTAT(TIUCNT) S $P(TIU("S",TIUCNT),U)=$S(+TIU("S",TIUCNT)=10:14,+TIU("S",TIUCNT)=11:15,1:+TIU("S",TIUCNT))
88 S TIU("D",1)=TIUTMP("DT1")
89 S TIU("D",2)=TIUTMP("DT2")
90 Q
Note: See TracBrowser for help on using the repository browser.