;Entry point to identify documents pointing to a different patient's
EN
;Entry point to queue a job to identify documents linked to a
SETXTMP(TIUDA,TIUVSIT)
;Set ^XTMP for entries processed
; Input -- TIUDA TIU Document file (#8925) IEN
; TIUVSIT VIsit file (#9000010) IEN
; Output -- Set ^XTMP("TIUP146","EX",TIUDA)=TIUVSIT
ENDBI
;Entry point to remove documents pointing to a visit of IEN=1