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 Apr 09, 2024@21:43:49 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
