Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: TIUSRVPL

TIUSRVPL.m

Go to the documentation of this file.
  1. TIUSRVPL ; SLC/JER - RPC's Supporting Links ;4/20/2001 09:46
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**63,114**;Jun 20, 1997
  1. PUTIMAGE(TIUY,TIUDA,IMGDA) ; Create link Image-to-Document
  1. N D,D0,DI,DQ,DIC,DA,DIE,DR,X,Y
  1. I $S('+$G(IMGDA):1,'$D(^MAG(2005,+IMGDA,0)):1,1:0) D Q
  1. . S TIUY="0^ Invalid Image Pointer."
  1. I $S('+$G(TIUDA):1,'$D(^TIU(8925,+TIUDA,0)):1,1:0) D Q
  1. . S TIUY="0^ Invalid Document Pointer."
  1. I $$DUPLINK(TIUDA,IMGDA) S TIUY="0^ Document already linked to this image." Q
  1. S X=""""_"`"_TIUDA_"""",(DIC,DLAYGO)=8925.91,DIC(0)="LX"
  1. D ^DIC I +Y'>0 S TIUY="0^ Unable to create Image Link" Q
  1. S TIUY=+Y
  1. S DIE=DIC,DR=".02////^S X=IMGDA" D ^DIE
  1. Q
  1. Q $S(+$O(^TIU(8925.91,"ADI",+TIUDA,+IMGDA,0)):1,1:0)
  1. DELIMAGE(TIUY,TIUDA,IMGDA) ; Delete link Image-to-Document
  1. N TIUI
  1. I '+$O(^TIU(8925.91,"ADI",TIUDA,IMGDA,0)) D Q
  1. . S TIUY="0^ Document and Image not currently linked."
  1. S TIUI=0
  1. F S TIUI=$O(^TIU(8925.91,"ADI",TIUDA,IMGDA,TIUI)) Q:+TIUI'>0 D
  1. . N DIDEL,DIE,DA,DR
  1. . S (DIE,DIDEL)=8925.91,DR=".01///@",DA=TIUI D ^DIE
  1. S TIUY=1
  1. Q
  1. GETILST(TIUY,TIUDA) ; Given a document, get list of associated images
  1. N IMGDA,TIUI S (IMGDA,TIUI)=0
  1. F S IMGDA=$O(^TIU(8925.91,"ADI",TIUDA,IMGDA)) Q:+IMGDA'>0 D
  1. . S TIUI=TIUI+1,TIUY(TIUI)=IMGDA
  1. Q
  1. GETDLST(TIUY,IMGDA) ; Given an Image, get list of associated documents
  1. N TIUDA,TIUI S (TIUDA,TIUI)=0
  1. F S TIUDA=$O(^TIU(8925.91,"AID",IMGDA,TIUDA)) Q:+TIUDA'>0 D
  1. . S TIUI=TIUI+1,TIUY(TIUI)=TIUDA
  1. Q