source: WorldVistAEHR/trunk/r/AUTHORIZATION_SUBSCRIPTION-USR/USRHELP.m@ 700

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

initial load of WorldVistAEHR

File size: 1.8 KB
RevLine 
[613]1USRHELP ; 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 ;======================================================================
5PROTOCOL ; 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
12PROTX S VALMBCK="R"
13 Q
14 ;======================================================================
15MENU(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 ;======================================================================
25ITEM(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 ;======================================================================
36CONTINUE() ; Pagination control
37 N Y
38 I $Y<(IOSL-2) S Y=1 G CONTX
39 S Y=$$STOP^USRU("",1) W:+Y @IOF,!
40CONTX Q Y
Note: See TracBrowser for help on using the repository browser.