| 1 | TIUSRVLI ; SLC/JER - Server fns - lists for CPRS ;13-NOV-2001 08:21:33
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**108,122**;Jun 20, 1997
|
|---|
| 3 | HASDAD(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 | ;
|
|---|
| 6 | SETDAD(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 | ;
|
|---|
| 22 | HASKIDS(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)
|
|---|
| 30 | HASKIDX Q TIUY
|
|---|
| 31 | ;
|
|---|
| 32 | SETKIDS(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
|
|---|
| 50 | ISDOC(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
|
|---|
| 55 | GETUND(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
|
|---|
