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

TIURL1.m

Go to the documentation of this file.
  1. TIURL1 ; SLC/JER - List Management Library ;11/26/00
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
  1. ; New rtn created 11/14/00 by splitting TIURL
  1. ;
  1. UPIDDATA(TIUDA) ; Update (or kill) ^TMP("TIUR",$J,"IDDATA",TIUDA)
  1. K ^TMP("TIUR",$J,"IDDATA",TIUDA)
  1. Q:'$D(^TIU(8925,TIUDA))
  1. S IDDATA=$$IDDATA^TIURECL1(TIUDA) ; =TIUDA^hasIDkid^IDdadDA^prmsort
  1. I IDDATA S ^TMP("TIUR",$J,"IDDATA",TIUDA)=IDDATA
  1. Q
  1. ;
  1. UPPFIX(TIUDA,OLDPFIX) ; Returns prefix with indicators updated
  1. ;for changes to record TIUDA (e.g. has new addendum).
  1. ; Returned prefix has same level as received prefix OLDPFIX.
  1. ; Returned prefix is set for UNEXPANDED state of record.
  1. ; OLDPFIX may be that of a record at any level of the treeview,
  1. ;in any state of expansion.
  1. N ORIGPFIX,NEWPFIX
  1. S ORIGPFIX=$$PREFIX^TIULA2(TIUDA,0)
  1. I OLDPFIX["|_" S NEWPFIX=$P(OLDPFIX,"|_")_"|_"_ORIGPFIX
  1. E S NEWPFIX=ORIGPFIX
  1. Q NEWPFIX
  1. ;
  1. SETPT(LINENO) ; Set prefix_patient column of ^TMP("TIUR",$J,LINENO,0)
  1. ;after item prefix is changed (e.g. item has new addendum).
  1. ; Updated prefix is at same level of treeview as received prefix,
  1. ;has updated indicators, but is in UNEXPANDED state.
  1. N CURPFIX,TEXT,TIUDA,IDDATA,NEWPFIX,ITEMNODE
  1. S ITEMNODE=^TMP("TIURIDX",$J,LINENO)
  1. S TIUDA=$P(ITEMNODE,U,2),CURPFIX=$P(ITEMNODE,U,3)
  1. S NEWPFIX=$$UPPFIX(TIUDA,CURPFIX)
  1. S TEXT=^TMP("TIUR",$J,LINENO,0)
  1. S TEXT=$$SETTLPT^TIURECL1(TEXT,TIUDA,NEWPFIX)
  1. S ^TMP("TIUR",$J,LINENO,0)=TEXT
  1. S $P(^TMP("TIURIDX",$J,LINENO),U,3)=NEWPFIX
  1. Q
  1. ;
  1. ITEM(TIUDA) ; Find which item in the list is occupied by TIUDA
  1. N TIUI,TIUY S (TIUI,TIUY)=0
  1. F S TIUI=$O(^TMP("TIURIDX",$J,TIUI)) Q:+TIUI'>0!+TIUY D
  1. . I $P(^TMP("TIURIDX",$J,TIUI),U,2)=TIUDA S TIUY=TIUI
  1. Q TIUY
  1. BREATHE(ITEM,ONCE) ; Collapse/Expand treeview on changes
  1. D EC1^TIURECL(ITEM,1) ; Collapse or expand once
  1. D:'+$D(ONCE) EC1^TIURECL(ITEM,1) ; if ONCE is not sent, do it again
  1. Q