25 lines
1.0 KiB
Mathematica
25 lines
1.0 KiB
Mathematica
|
TIUSRVLR ; SLC/JER - TIU RPCs ; 02/25/04
|
||
|
|
;;1.0;TEXT INTEGRATION UTILITIES;**112**;Jun 20, 1997
|
||
|
|
GETDOCS(TIUY,OVP,SEQUENCE) ; Get TIU Documents for a given Consult or
|
||
|
|
; Surgical Case
|
||
|
|
N TIUDA,TIUI
|
||
|
|
;Initialize vars
|
||
|
|
S (TIUDA,TIUI)=0,TIUY=$NA(^TMP("TIULIST",$J)) K @TIUY
|
||
|
|
S SEQUENCE=$S($G(SEQUENCE)]"":$G(SEQUENCE),1:"D")
|
||
|
|
;Loop through "G" X-ref in 8925 to find associated documents
|
||
|
|
F S TIUDA=$O(^TIU(8925,"G",OVP,TIUDA)) Q:+TIUDA'>0 D
|
||
|
|
. S TIUI=TIUI+1
|
||
|
|
. ; Cross-check value of field 1405 with x-ref value
|
||
|
|
. I OVP'=$P($G(^TIU(8925,TIUDA,14)),U,5) Q
|
||
|
|
. ; If a document is an ID Entry, get its parent
|
||
|
|
. ; I +$G(^TIU(8925,TIUDA,21)) S TIUDA=+$G(^TIU(8925,TIUDA,21))
|
||
|
|
. ; Don't include entry in list more than once
|
||
|
|
. I +$O(@TIUY@("INDX",TIUDA,0)) Q
|
||
|
|
. ; Don't include entry in list if RETRACTED
|
||
|
|
. I $P($G(^TIU(8925,TIUDA,0)),U,5)=15 Q
|
||
|
|
. S @TIUY@(TIUI)=TIUDA_U_$$RESOLVE^TIUSRVLO(TIUDA)
|
||
|
|
. S @TIUY@("INDX",TIUDA,TIUI)=""
|
||
|
|
. I +$$HASDAD^TIUSRVLI(TIUDA) D SETDAD^TIUSRVLI(.TIUY,TIUDA,.TIUI)
|
||
|
|
. I +$$HASKIDS^TIUSRVLI(TIUDA) D SETKIDS^TIUSRVLI(.TIUY,TIUDA,.TIUI)
|
||
|
|
Q
|