source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUROR1.m@ 1763

Last change on this file since 1763 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1TIUROR1 ;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 ;
5ASKCTXT() ; 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 ;
17SAVE ; -- 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 ;
23RESTORE ; -- 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 ;
33BREATHE(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 ;
42RELOAD(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 ;
51LOAD(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
Note: See TracBrowser for help on using the repository browser.