| 1 | TIUHELP ; SLC/JER - On-line help library ;2/28/05
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**100,184**;Jun 20, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | LINKHELP ; Help for link protocol menus
|
|---|
| 5 | W !," Problems - links to problems in patient's active Problem List;"
|
|---|
| 6 | W !," Patient/Visit - reassigns to a different patient and/or visit;"
|
|---|
| 7 | W !," Other Applic - links, for example, a Consult Result to a Request, or",!," a PRF Note to a Patient Record Flag."
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | PROTOCOL ; Help for protocols
|
|---|
| 11 | N DIRUT,DTOUT,DUOUT,TIUX,ORU,ORUPRMT,VALMDDF,VALMPGE S TIUX=X
|
|---|
| 12 | D FULL^VALM1
|
|---|
| 13 | I TIUX="?"!(TIUX="??") D G PROTX
|
|---|
| 14 | . I TIUX="??",($G(VALMAR)="^TMP(""TIUR"",$J)") D STATUS I $D(DIRUT) W ! Q
|
|---|
| 15 | . D DISP^XQORM1 W !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!
|
|---|
| 16 | . I TIUX="?" W:$$STOP^TIUU ""
|
|---|
| 17 | I TIUX="???" D MENU(XQORNOD) I $D(DIROUT) S (XQORQUIT,XQORPOP)=1 Q
|
|---|
| 18 | PROTX S VALMBCK="R"
|
|---|
| 19 | Q
|
|---|
| 20 | MENU(XQORNOD) ; Unwind protocol menus for help
|
|---|
| 21 | N TIUSEQ,TIUI,TIUJ D CLEAR^VALM1
|
|---|
| 22 | W:$$CONTINUE "Valid selections are:",!
|
|---|
| 23 | S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,10,TIUI)) Q:+TIUI'>0 D
|
|---|
| 24 | . S TIUJ=+$P($G(^ORD(101,+XQORNOD,10,TIUI,0)),U,3) S:$D(TIUSEQ(TIUJ)) TIUJ=TIUJ+.1
|
|---|
| 25 | . S TIUSEQ(TIUJ)=+$P(^ORD(101,+XQORNOD,10,TIUI,0),U)
|
|---|
| 26 | S TIUI=0 F S TIUI=$O(TIUSEQ(TIUI)) Q:+TIUI'>0!$D(DIRUT) D
|
|---|
| 27 | . I $D(^ORD(101,+TIUSEQ(TIUI),0)) D ITEM(+TIUSEQ(TIUI),1)
|
|---|
| 28 | Q
|
|---|
| 29 | ITEM(XQORNOD,TAB) ; Show descriptions of items
|
|---|
| 30 | N TIUI
|
|---|
| 31 | Q:$P($G(^ORD(101,+XQORNOD,0)),U,2)']""
|
|---|
| 32 | W:$$CONTINUE ?+$G(TAB),$G(IOINHI),$$UPPER^TIULS($P($G(^ORD(101,+XQORNOD,0)),U,2)),$G(IOINORM),!
|
|---|
| 33 | I $D(DIRUT) Q
|
|---|
| 34 | S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,1,TIUI)) Q:+TIUI'>0!$D(DIRUT) D
|
|---|
| 35 | . W:$$CONTINUE ?(TAB+2),$G(^ORD(101,+XQORNOD,1,TIUI,0)),! Q:$D(DIRUT)
|
|---|
| 36 | S TIUI=0 F S TIUI=$O(^ORD(101,+XQORNOD,10,TIUI)) Q:+TIUI'>0 D
|
|---|
| 37 | . D ITEM(+$G(^ORD(101,+XQORNOD,10,+TIUI,0))_";ORD(101,",3)
|
|---|
| 38 | Q
|
|---|
| 39 | STATUS ; Show status descriptions
|
|---|
| 40 | W:$$CONTINUE !!,"The Following Statuses are defined:"
|
|---|
| 41 | D STATEXP
|
|---|
| 42 | W:$$CONTINUE !!,"The Following Indicators are defined:",!!
|
|---|
| 43 | W:$$CONTINUE " '+' to the left of the Title or Patient's name indicates that",!," a report has addenda.",!
|
|---|
| 44 | W:$$CONTINUE " '*' to the left of the Title or Patient's name indicates",!," a priority (STAT) document.",!
|
|---|
| 45 | W:$$CONTINUE " '<' to the left of the Title or Patient's name indicates an",!," interdisciplinary note, which can be expanded to show entries.",!
|
|---|
| 46 | W:$$CONTINUE " '>' to the left of the Title or Patient's name indicates",!," that the note is an entry of an interdisciplinary note.",!
|
|---|
| 47 | ;W:$$CONTINUE "These will appear at the top of the list.",!
|
|---|
| 48 | Q
|
|---|
| 49 | CONTINUE() ; Pagination control
|
|---|
| 50 | N Y
|
|---|
| 51 | I $Y<(IOSL-2) S Y=1 G CONTX
|
|---|
| 52 | S Y=$$STOP^TIUU("",1) W:+Y @IOF,!
|
|---|
| 53 | CONTX Q Y
|
|---|
| 54 | STATEXP ; Explain Statuses
|
|---|
| 55 | N TIUI,TIUJ,TIUY S TIUI=0
|
|---|
| 56 | D STATUS^TIUSRVL(.TIUY,"ALL",1)
|
|---|
| 57 | F S TIUI=$O(TIUY(TIUI)) Q:+TIUI'>0 D
|
|---|
| 58 | . I TIUI>1 W:$$CONTINUE !
|
|---|
| 59 | . W:$$CONTINUE !,$G(IOINHI),$P(TIUY(TIUI),U,2),$G(IOINORM)
|
|---|
| 60 | . S TIUJ=0 F S TIUJ=$O(TIUY(TIUI,1,TIUJ)) Q:+TIUJ'>0 D
|
|---|
| 61 | . . W:$$CONTINUE !?2,$G(TIUY(TIUI,1,TIUJ))
|
|---|
| 62 | Q
|
|---|
