- TIUHELP ; SLC/JER - On-line help library ;2/28/05
- ;;1.0;TEXT INTEGRATION UTILITIES;**100,184**;Jun 20, 1997
- ;
- LINKHELP ; Help for link protocol menus
- W !," Problems - links to problems in patient's active Problem List;"
- W !," Patient/Visit - reassigns to a different patient and/or visit;"
- W !," Other Applic - links, for example, a Consult Result to a Request, or",!," a PRF Note to a Patient Record Flag."
- Q
- ;
- PROTOCOL ; Help for protocols
- N DIRUT,DTOUT,DUOUT,TIUX,ORU,ORUPRMT,VALMDDF,VALMPGE S TIUX=X
- D FULL^VALM1
- I TIUX="?"!(TIUX="??") D G PROTX
- . I TIUX="??",($G(VALMAR)="^TMP(""TIUR"",$J)") D STATUS I $D(DIRUT) W ! Q
- . D DISP^XQORM1 W !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!
- . I TIUX="?" W:$$STOP^TIUU ""
- I TIUX="???" D MENU(XQORNOD) I $D(DIROUT) S (XQORQUIT,XQORPOP)=1 Q
- PROTX S VALMBCK="R"
- Q
- N TIUSEQ,TIUI,TIUJ D CLEAR^VALM1
- W:$$CONTINUE "Valid selections are:",!
- S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,10,TIUI)) Q:+TIUI'>0 D
- . S TIUJ=+$P($G(^ORD(101,+XQORNOD,10,TIUI,0)),U,3) S:$D(TIUSEQ(TIUJ)) TIUJ=TIUJ+.1
- . S TIUSEQ(TIUJ)=+$P(^ORD(101,+XQORNOD,10,TIUI,0),U)
- S TIUI=0 F S TIUI=$O(TIUSEQ(TIUI)) Q:+TIUI'>0!$D(DIRUT) D
- . I $D(^ORD(101,+TIUSEQ(TIUI),0)) D ITEM(+TIUSEQ(TIUI),1)
- Q
- ITEM(XQORNOD,TAB) ; Show descriptions of items
- N TIUI
- Q:$P($G(^ORD(101,+XQORNOD,0)),U,2)']""
- W:$$CONTINUE ?+$G(TAB),$G(IOINHI),$$UPPER^TIULS($P($G(^ORD(101,+XQORNOD,0)),U,2)),$G(IOINORM),!
- I $D(DIRUT) Q
- S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,1,TIUI)) Q:+TIUI'>0!$D(DIRUT) D
- . W:$$CONTINUE ?(TAB+2),$G(^ORD(101,+XQORNOD,1,TIUI,0)),! Q:$D(DIRUT)
- S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,10,TIUI)) Q:+TIUI'>0 D
- . D ITEM(+$G(^ORD(101,+XQORNOD,10,+TIUI,0))_";ORD(101,",3)
- Q
- STATUS ; Show status descriptions
- W:$$CONTINUE !!,"The Following Statuses are defined:"
- D STATEXP
- W:$$CONTINUE !!,"The Following Indicators are defined:",!!
- W:$$CONTINUE " '+' to the left of the Title or Patient's name indicates that",!," a report has addenda.",!
- W:$$CONTINUE " '*' to the left of the Title or Patient's name indicates",!," a priority (STAT) document.",!
- W:$$CONTINUE " '<' to the left of the Title or Patient's name indicates an",!," interdisciplinary note, which can be expanded to show entries.",!
- W:$$CONTINUE " '>' to the left of the Title or Patient's name indicates",!," that the note is an entry of an interdisciplinary note.",!
- ;W:$$CONTINUE "These will appear at the top of the list.",!
- Q
- CONTINUE() ; Pagination control
- N Y
- I $Y<(IOSL-2) S Y=1 G CONTX
- S Y=$$STOP^TIUU("",1) W:+Y @IOF,!
- CONTX Q Y
- STATEXP ; Explain Statuses
- N TIUI,TIUJ,TIUY S TIUI=0
- D STATUS^TIUSRVL(.TIUY,"ALL",1)
- F S TIUI=$O(TIUY(TIUI)) Q:+TIUI'>0 D
- . I TIUI>1 W:$$CONTINUE !
- . W:$$CONTINUE !,$G(IOINHI),$P(TIUY(TIUI),U,2),$G(IOINORM)
- . S TIUJ=0 F S TIUJ=$O(TIUY(TIUI,1,TIUJ)) Q:+TIUJ'>0 D
- . . W:$$CONTINUE !?2,$G(TIUY(TIUI,1,TIUJ))
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUHELP 3069 printed Jan 18, 2025@03:42:45 Page 2
- TIUHELP ; SLC/JER - On-line help library ;2/28/05
- +1 ;;1.0;TEXT INTEGRATION UTILITIES;**100,184**;Jun 20, 1997
- +2 ;
- LINKHELP ; Help for link protocol menus
- +1 WRITE !," Problems - links to problems in patient's active Problem List;"
- +2 WRITE !," Patient/Visit - reassigns to a different patient and/or visit;"
- +3 WRITE !," Other Applic - links, for example, a Consult Result to a Request, or",!," a PRF Note to a Patient Record Flag."
- +4 QUIT
- +5 ;
- PROTOCOL ; Help for protocols
- +1 NEW DIRUT,DTOUT,DUOUT,TIUX,ORU,ORUPRMT,VALMDDF,VALMPGE
- SET TIUX=X
- +2 DO FULL^VALM1
- +3 IF TIUX="?"!(TIUX="??")
- Begin DoDot:1
- +4 IF TIUX="??"
- IF ($GET(VALMAR)="^TMP(""TIUR"",$J)")
- DO STATUS
- IF $DATA(DIRUT)
- WRITE !
- QUIT
- +5 DO DISP^XQORM1
- WRITE !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!
- +6 IF TIUX="?"
- if $$STOP^TIUU
- WRITE ""
- End DoDot:1
- GOTO PROTX
- +7 IF TIUX="???"
- DO MENU(XQORNOD)
- IF $DATA(DIROUT)
- SET (XQORQUIT,XQORPOP)=1
- QUIT
- PROTX SET VALMBCK="R"
- +1 QUIT
- +1 NEW TIUSEQ,TIUI,TIUJ
- DO CLEAR^VALM1
- +2 if $$CONTINUE
- WRITE "Valid selections are:",!
- +3 SET TIUI=0
- FOR
- SET TIUI=$ORDER(^ORD(101,+XQORNOD,10,TIUI))
- if +TIUI'>0
- QUIT
- Begin DoDot:1
- +4 SET TIUJ=+$PIECE($GET(^ORD(101,+XQORNOD,10,TIUI,0)),U,3)
- if $DATA(TIUSEQ(TIUJ))
- SET TIUJ=TIUJ+.1
- +5 SET TIUSEQ(TIUJ)=+$PIECE(^ORD(101,+XQORNOD,10,TIUI,0),U)
- End DoDot:1
- +6 SET TIUI=0
- FOR
- SET TIUI=$ORDER(TIUSEQ(TIUI))
- if +TIUI'>0!$DATA(DIRUT)
- QUIT
- Begin DoDot:1
- +7 IF $DATA(^ORD(101,+TIUSEQ(TIUI),0))
- DO ITEM(+TIUSEQ(TIUI),1)
- End DoDot:1
- +8 QUIT
- ITEM(XQORNOD,TAB) ; Show descriptions of items
- +1 NEW TIUI
- +2 if $PIECE($GET(^ORD(101,+XQORNOD,0)),U,2)']""
- QUIT
- +3 if $$CONTINUE
- WRITE ?+$GET(TAB),$GET(IOINHI),$$UPPER^TIULS($PIECE($GET(^ORD(101,+XQORNOD,0)),U,2)),$GET(IOINORM),!
- +4 IF $DATA(DIRUT)
- QUIT
- +5 SET TIUI=0
- FOR
- SET TIUI=$ORDER(^ORD(101,+XQORNOD,1,TIUI))
- if +TIUI'>0!$DATA(DIRUT)
- QUIT
- Begin DoDot:1
- +6 if $$CONTINUE
- WRITE ?(TAB+2),$GET(^ORD(101,+XQORNOD,1,TIUI,0)),!
- if $DATA(DIRUT)
- QUIT
- End DoDot:1
- +7 SET TIUI=0
- FOR
- SET TIUI=$ORDER(^ORD(101,+XQORNOD,10,TIUI))
- if +TIUI'>0
- QUIT
- Begin DoDot:1
- +8 DO ITEM(+$GET(^ORD(101,+XQORNOD,10,+TIUI,0))_";ORD(101,",3)
- End DoDot:1
- +9 QUIT
- STATUS ; Show status descriptions
- +1 if $$CONTINUE
- WRITE !!,"The Following Statuses are defined:"
- +2 DO STATEXP
- +3 if $$CONTINUE
- WRITE !!,"The Following Indicators are defined:",!!
- +4 if $$CONTINUE
- WRITE " '+' to the left of the Title or Patient's name indicates that",!," a report has addenda.",!
- +5 if $$CONTINUE
- WRITE " '*' to the left of the Title or Patient's name indicates",!," a priority (STAT) document.",!
- +6 if $$CONTINUE
- WRITE " '<' to the left of the Title or Patient's name indicates an",!," interdisciplinary note, which can be expanded to show entries.",!
- +7 if $$CONTINUE
- WRITE " '>' to the left of the Title or Patient's name indicates",!," that the note is an entry of an interdisciplinary note.",!
- +8 ;W:$$CONTINUE "These will appear at the top of the list.",!
- +9 QUIT
- CONTINUE() ; Pagination control
- +1 NEW Y
- +2 IF $Y<(IOSL-2)
- SET Y=1
- GOTO CONTX
- +3 SET Y=$$STOP^TIUU("",1)
- if +Y
- WRITE @IOF,!
- CONTX QUIT Y
- STATEXP ; Explain Statuses
- +1 NEW TIUI,TIUJ,TIUY
- SET TIUI=0
- +2 DO STATUS^TIUSRVL(.TIUY,"ALL",1)
- +3 FOR
- SET TIUI=$ORDER(TIUY(TIUI))
- if +TIUI'>0
- QUIT
- Begin DoDot:1
- +4 IF TIUI>1
- if $$CONTINUE
- WRITE !
- +5 if $$CONTINUE
- WRITE !,$GET(IOINHI),$PIECE(TIUY(TIUI),U,2),$GET(IOINORM)
- +6 SET TIUJ=0
- FOR
- SET TIUJ=$ORDER(TIUY(TIUI,1,TIUJ))
- if +TIUJ'>0
- QUIT
- Begin DoDot:2
- +7 if $$CONTINUE
- WRITE !?2,$GET(TIUY(TIUI,1,TIUJ))
- End DoDot:2
- End DoDot:1
- +8 QUIT