source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUHELP.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.9 KB
Line 
1TIUHELP ; SLC/JER - On-line help library ;2/28/05
2 ;;1.0;TEXT INTEGRATION UTILITIES;**100,184**;Jun 20, 1997
3 ;
4LINKHELP ; 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 ;
10PROTOCOL ; 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
18PROTX S VALMBCK="R"
19 Q
20MENU(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
29ITEM(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
39STATUS ; 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
49CONTINUE() ; Pagination control
50 N Y
51 I $Y<(IOSL-2) S Y=1 G CONTX
52 S Y=$$STOP^TIUU("",1) W:+Y @IOF,!
53CONTX Q Y
54STATEXP ; 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
Note: See TracBrowser for help on using the repository browser.