| 1 | USRHELP ; SLC/JER,PKR - On-line help library ;2/9/98
|
|---|
| 2 | ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997
|
|---|
| 3 | ;This is a direct copy of TIUHELP with TIU only portions removed.
|
|---|
| 4 | ;======================================================================
|
|---|
| 5 | PROTOCOL ; Help for protocols
|
|---|
| 6 | N DIRUT,DTOUT,DUOUT,USRX,ORU,ORUPRMT,VALMDDF,VALMPGE S USRX=X
|
|---|
| 7 | D FULL^VALM1
|
|---|
| 8 | I USRX="?"!(USRX="??") D G PROTX
|
|---|
| 9 | . D DISP^XQORM1 W !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!
|
|---|
| 10 | . I USRX="?" W:$$STOP^USRU ""
|
|---|
| 11 | I USRX="???" D MENU(XQORNOD) I $D(DIROUT) S (XQORQUIT,XQORPOP)=1 Q
|
|---|
| 12 | PROTX S VALMBCK="R"
|
|---|
| 13 | Q
|
|---|
| 14 | ;======================================================================
|
|---|
| 15 | MENU(XQORNOD) ; Unwind protocol menus for help
|
|---|
| 16 | N USRSEQ,USRI,USRJ D CLEAR^VALM1
|
|---|
| 17 | W:$$CONTINUE "Valid selections are:",!
|
|---|
| 18 | S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0 D
|
|---|
| 19 | . S USRJ=+$P($G(^ORD(101,+XQORNOD,10,USRI,0)),U,3) S:$D(USRSEQ(USRJ)) USRJ=USRJ+.1
|
|---|
| 20 | . S USRSEQ(USRJ)=+$P(^ORD(101,+XQORNOD,10,USRI,0),U)
|
|---|
| 21 | S USRI=0 F S USRI=$O(USRSEQ(USRI)) Q:+USRI'>0!$D(DIRUT) D
|
|---|
| 22 | . I $D(^ORD(101,+USRSEQ(USRI),0)) D ITEM(+USRSEQ(USRI),1)
|
|---|
| 23 | Q
|
|---|
| 24 | ;======================================================================
|
|---|
| 25 | ITEM(XQORNOD,TAB) ; Show descriptions of items
|
|---|
| 26 | N USRI
|
|---|
| 27 | Q:$P($G(^ORD(101,+XQORNOD,0)),U,2)']""
|
|---|
| 28 | W:$$CONTINUE ?+$G(TAB),$G(IOINHI),$$UPPER^USRLS($P($G(^ORD(101,+XQORNOD,0)),U,2)),$G(IOINORM),!
|
|---|
| 29 | I $D(DIRUT) Q
|
|---|
| 30 | S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,1,USRI)) Q:+USRI'>0!$D(DIRUT) D
|
|---|
| 31 | . W:$$CONTINUE ?(TAB+2),$G(^ORD(101,+XQORNOD,1,USRI,0)),! Q:$D(DIRUT)
|
|---|
| 32 | S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0 D
|
|---|
| 33 | . D ITEM(+$G(^ORD(101,+XQORNOD,10,+USRI,0))_";ORD(101,",3)
|
|---|
| 34 | Q
|
|---|
| 35 | ;======================================================================
|
|---|
| 36 | CONTINUE() ; Pagination control
|
|---|
| 37 | N Y
|
|---|
| 38 | I $Y<(IOSL-2) S Y=1 G CONTX
|
|---|
| 39 | S Y=$$STOP^USRU("",1) W:+Y @IOF,!
|
|---|
| 40 | CONTX Q Y
|
|---|
