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

TIUROR1.m

Go to the documentation of this file.
  1. TIUROR1 ;SLC/JER - New PATIENT Review screen ; 12/3/00
  1. ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
  1. ; New, created 11/27/00 by splitting TIUROR
  1. ;
  1. ASKCTXT() ; Ask user for new context
  1. N TIUY,DIR,Y
  1. ; newed Y 9/21
  1. S DIR(0)="SAO^1:SIGNED;2:UNSIGNED;3:UNCOSIGNED;4:AUTHOR;5:DATES"
  1. S DIR("A")="Select context: ",DIR("A",1)="Valid selections are:"
  1. S DIR("A",2)=" 1 - signed notes (all) 2 - unsigned notes 3 - uncosigned notes"
  1. S DIR("A",3)=" 4 - signed notes/author 5 - signed notes/dates",DIR("A",4)=" "
  1. S DIR("?",1)="To change which notes are displayed, select the number"
  1. S DIR("?")="of the context you wish to work within.",DIR("B")="1"
  1. W ! D ^DIR
  1. Q +Y
  1. ;
  1. SAVE ; -- Set aside original list
  1. K ^TMP("TIURSAVE",$J)
  1. M ^TMP("TIURSAVE",$J)=^TMP("TIUR",$J)
  1. M ^TMP("TIURSAVIDX",$J)=^TMP("TIURIDX",$J)
  1. Q
  1. ;
  1. RESTORE ; -- restore original All Signed list
  1. I '$D(^TMP("TIURSAVE",$J)) D Q
  1. . D INIT^TIUROR(+$G(^TMP("TIUR",$J,"CLASS")),1,+$G(^("DFN")),9999999)
  1. . S VALMBCK="R",VALMBG=1,VALMCNT=+$G(^TMP("TIUR",$J,0))
  1. K ^TMP("TIUR",$J)
  1. M ^TMP("TIUR",$J)=^TMP("TIURSAVE",$J)
  1. M ^TMP("TIURIDX",$J)=^TMP("TIURSAVIDX",$J)
  1. S VALMBCK="R",VALMBG=1,VALMCNT=+$G(^TMP("TIUR",$J,0))
  1. Q
  1. ;
  1. BREATHE(ONCE) ; -- Collapse/Re-expand in reverse order to avoid collisions
  1. N TIUI
  1. S TIUI=""
  1. F S TIUI=$O(^TMP("TIUR",$J,"EXPAND",TIUI),-1) Q:+TIUI'>0 D
  1. . D EC1^TIURECL(TIUI,1) ; Inhale
  1. . D:'+$D(ONCE) EC1^TIURECL(TIUI,1) ; Exhale
  1. . W "."
  1. Q
  1. ;
  1. RELOAD(TIUEXP) ; Reload ^TMP("TIUR",$J,"EXPAND") w IFNs to expand, gotten
  1. ;from previous user expansions. (Line numbers have changed.)
  1. N TIUI S TIUI=0
  1. F S TIUI=$O(TIUEXP(TIUI)) Q:+TIUI'>0 D
  1. . N TIUDA,TIUJ
  1. . S TIUDA=$G(TIUEXP(TIUI)),TIUJ=$O(^TMP("TIUR",$J,"IEN",TIUDA,0)) Q:+TIUJ'>0
  1. . S ^TMP("TIUR",$J,"EXPAND",TIUJ)=TIUDA_U_1
  1. Q
  1. ;
  1. LOAD(TIUXCTXT,TIUXCTX2) ; Load ^TMP("TIUR",$J,"EXPAND") w IFNs to expand,
  1. ;gotten from doing CONTEXT^TIUSRVLL
  1. ; These are parent records that must be expanded to display ID kids or
  1. ;addenda under them that fall within search criteria.
  1. N TIUDA,LINENO
  1. S TIUDA=0
  1. F S TIUDA=$O(TIUXCTXT(TIUDA)) Q:'TIUDA D
  1. . S LINENO=$O(^TMP("TIUR",$J,"IEN",TIUDA,0))
  1. . I 'LINENO S TIUXCTX2(TIUDA)="" Q
  1. . S ^TMP("TIUR",$J,"EXPAND",LINENO)=TIUDA_U_1
  1. Q