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