source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUSRVLI.m@ 1078

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

initial load of WorldVistAEHR

File size: 2.5 KB
Line 
1TIUSRVLI ; SLC/JER - Server fns - lists for CPRS ;13-NOV-2001 08:21:33
2 ;;1.0;TEXT INTEGRATION UTILITIES;**108,122**;Jun 20, 1997
3HASDAD(DA) ; Evaluate whether a document has a parent
4 Q $S(+$P($G(^TIU(8925,+DA,0)),U,6):1,+$G(^TIU(8925,+DA,21)):1,1:0)
5 ;
6SETDAD(TIUY,DA,TIUI) ; Set parent in return array
7 N DADA,TIUD0,TIUD21
8 ; Exclude components
9 Q:'+$$ISDOC(DA)
10 S TIUD0=$G(^TIU(8925,DA,0)),TIUD21=$G(^(21))
11 S DADA=$S(+$P(TIUD0,U,6):+$P(TIUD0,U,6),+TIUD21:+TIUD21,1:0)
12 Q:+DADA'>0
13 Q:+$D(@TIUY@("INDX",DADA))
14 Q:+$D(^TIU(8925,DADA,0))=0
15 S TIUI=$S(SEQUENCE="A":+$G(TIUI)-1,1:+$G(TIUI)+1)
16 S @TIUY@(TIUI)=DADA_U_$$RESOLVE^TIUSRVLO(DADA)
17 S @TIUY@("INDX",DADA,TIUI)=""
18 I +$G(SHOWADD) D SETKIDS(.TIUY,DADA,.TIUI)
19 I +$$HASDAD(DADA) D SETDAD(.TIUY,DADA,.TIUI)
20 Q
21 ;
22HASKIDS(DA) ; Evaluate whether a document has children
23 N TIUY,KIDA S (KIDA,TIUY)=0
24 ; Check for addenda
25 F S KIDA=$O(^TIU(8925,"DAD",DA,KIDA)) Q:+TIUY!(+KIDA'>0) D
26 . I '+$$ISCOMP^TIUSRVR1(KIDA) S TIUY=1
27 I +TIUY G HASKIDX
28 ; Next, look for ID Entries
29 S TIUY=$S(+$O(^TIU(8925,"GDAD",DA,0)):1,1:0)
30HASKIDX Q TIUY
31 ;
32SETKIDS(TIUY,DA,TIUI) ; Set children in return array
33 N KIDA S KIDA=0
34 ; Begin with addenda
35 F S KIDA=$O(^TIU(8925,"DAD",DA,KIDA)) Q:+KIDA'>0 D
36 . Q:'+$$ISDOC(KIDA)
37 . Q:+$D(@TIUY@("INDX",KIDA))
38 . S TIUI=$S(SEQUENCE="A":+$G(TIUI)-1,1:+$G(TIUI)+1)
39 . S @TIUY@(TIUI)=KIDA_U_$$RESOLVE^TIUSRVLO(KIDA)
40 . S @TIUY@("INDX",KIDA,TIUI)=""
41 ; Next do ID entries
42 S KIDA=0
43 F S KIDA=$O(^TIU(8925,"GDAD",DA,KIDA)) Q:+KIDA'>0 D
44 . Q:+$D(@TIUY@("INDX",KIDA))
45 . S TIUI=$S(SEQUENCE="A":+$G(TIUI)-1,1:+$G(TIUI)+1)
46 . S @TIUY@(TIUI)=KIDA_U_$$RESOLVE^TIUSRVLO(KIDA)
47 . S @TIUY@("INDX",KIDA,TIUI)=""
48 . I +$$HASKIDS(KIDA) D SETKIDS(.TIUY,KIDA,.TIUI)
49 Q
50ISDOC(DA) ; Evaluate whether a given record is a document
51 N TIUY,TIUTYP
52 S TIUTYP=+$G(^TIU(8925,DA,0))
53 S TIUY=$S($P($G(^TIU(8925.1,+TIUTYP,0)),U,4)="DOC":1,1:0)
54 Q TIUY
55GETUND(TIUY,CLASS,DFN,TIME1,TIME2,TIUJ,SEQUENCE) ; Get undictated docs
56 N TIUTYP,TIUI,DATTIM
57 D DOCTYPE^TIUSRVL(.TIUTYP,CLASS) Q:+$D(TIUTYP)'>9
58 S TIUI=0
59 F S TIUI=$O(TIUTYP(TIUI)) Q:+TIUI'>0 D
60 . N STATUS
61 . F STATUS=1:1:2 D
62 . . S DATTIM=TIME1-.0000001
63 . . F S DATTIM=$O(^TIU(8925,"APT",DFN,+TIUTYP(TIUI),STATUS,DATTIM)) Q:+DATTIM'>0 D
64 . . . N TIUDA S TIUDA=0
65 . . . F S TIUDA=$O(^TIU(8925,"APT",DFN,+TIUTYP(TIUI),STATUS,DATTIM,TIUDA)) Q:+TIUDA'>0 D
66 . . . . Q:+$D(@TIUY@("INDX",TIUDA))
67 . . . . S TIUJ=$S(SEQUENCE="A":+$G(TIUJ)-1,1:+$G(TIUJ)+1)
68 . . . . S @TIUY@(TIUJ)=TIUDA_U_$$RESOLVE^TIUSRVLO(TIUDA)
69 . . . . S @TIUY@("INDX",TIUDA,TIUJ)=""
70 Q
Note: See TracBrowser for help on using the repository browser.