| 1 | TIUROR1 ;SLC/JER - New PATIENT Review screen ; 12/3/00
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**100**;Jun 20, 1997
|
|---|
| 3 | ; New, created 11/27/00 by splitting TIUROR
|
|---|
| 4 | ;
|
|---|
| 5 | ASKCTXT() ; Ask user for new context
|
|---|
| 6 | N TIUY,DIR,Y
|
|---|
| 7 | ; newed Y 9/21
|
|---|
| 8 | S DIR(0)="SAO^1:SIGNED;2:UNSIGNED;3:UNCOSIGNED;4:AUTHOR;5:DATES"
|
|---|
| 9 | S DIR("A")="Select context: ",DIR("A",1)="Valid selections are:"
|
|---|
| 10 | S DIR("A",2)=" 1 - signed notes (all) 2 - unsigned notes 3 - uncosigned notes"
|
|---|
| 11 | S DIR("A",3)=" 4 - signed notes/author 5 - signed notes/dates",DIR("A",4)=" "
|
|---|
| 12 | S DIR("?",1)="To change which notes are displayed, select the number"
|
|---|
| 13 | S DIR("?")="of the context you wish to work within.",DIR("B")="1"
|
|---|
| 14 | W ! D ^DIR
|
|---|
| 15 | Q +Y
|
|---|
| 16 | ;
|
|---|
| 17 | SAVE ; -- Set aside original list
|
|---|
| 18 | K ^TMP("TIURSAVE",$J)
|
|---|
| 19 | M ^TMP("TIURSAVE",$J)=^TMP("TIUR",$J)
|
|---|
| 20 | M ^TMP("TIURSAVIDX",$J)=^TMP("TIURIDX",$J)
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | RESTORE ; -- restore original All Signed list
|
|---|
| 24 | I '$D(^TMP("TIURSAVE",$J)) D Q
|
|---|
| 25 | . D INIT^TIUROR(+$G(^TMP("TIUR",$J,"CLASS")),1,+$G(^("DFN")),9999999)
|
|---|
| 26 | . S VALMBCK="R",VALMBG=1,VALMCNT=+$G(^TMP("TIUR",$J,0))
|
|---|
| 27 | K ^TMP("TIUR",$J)
|
|---|
| 28 | M ^TMP("TIUR",$J)=^TMP("TIURSAVE",$J)
|
|---|
| 29 | M ^TMP("TIURIDX",$J)=^TMP("TIURSAVIDX",$J)
|
|---|
| 30 | S VALMBCK="R",VALMBG=1,VALMCNT=+$G(^TMP("TIUR",$J,0))
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | BREATHE(ONCE) ; -- Collapse/Re-expand in reverse order to avoid collisions
|
|---|
| 34 | N TIUI
|
|---|
| 35 | S TIUI=""
|
|---|
| 36 | F S TIUI=$O(^TMP("TIUR",$J,"EXPAND",TIUI),-1) Q:+TIUI'>0 D
|
|---|
| 37 | . D EC1^TIURECL(TIUI,1) ; Inhale
|
|---|
| 38 | . D:'+$D(ONCE) EC1^TIURECL(TIUI,1) ; Exhale
|
|---|
| 39 | . W "."
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | RELOAD(TIUEXP) ; Reload ^TMP("TIUR",$J,"EXPAND") w IFNs to expand, gotten
|
|---|
| 43 | ;from previous user expansions. (Line numbers have changed.)
|
|---|
| 44 | N TIUI S TIUI=0
|
|---|
| 45 | F S TIUI=$O(TIUEXP(TIUI)) Q:+TIUI'>0 D
|
|---|
| 46 | . N TIUDA,TIUJ
|
|---|
| 47 | . S TIUDA=$G(TIUEXP(TIUI)),TIUJ=$O(^TMP("TIUR",$J,"IEN",TIUDA,0)) Q:+TIUJ'>0
|
|---|
| 48 | . S ^TMP("TIUR",$J,"EXPAND",TIUJ)=TIUDA_U_1
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | LOAD(TIUXCTXT,TIUXCTX2) ; Load ^TMP("TIUR",$J,"EXPAND") w IFNs to expand,
|
|---|
| 52 | ;gotten from doing CONTEXT^TIUSRVLL
|
|---|
| 53 | ; These are parent records that must be expanded to display ID kids or
|
|---|
| 54 | ;addenda under them that fall within search criteria.
|
|---|
| 55 | N TIUDA,LINENO
|
|---|
| 56 | S TIUDA=0
|
|---|
| 57 | F S TIUDA=$O(TIUXCTXT(TIUDA)) Q:'TIUDA D
|
|---|
| 58 | . S LINENO=$O(^TMP("TIUR",$J,"IEN",TIUDA,0))
|
|---|
| 59 | . I 'LINENO S TIUXCTX2(TIUDA)="" Q
|
|---|
| 60 | . S ^TMP("TIUR",$J,"EXPAND",LINENO)=TIUDA_U_1
|
|---|
| 61 | Q
|
|---|
