USRHELP.m

USRHELP ; SLC/JER,PKR - On-line help library ;2/9/98

 ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 ;This is a direct copy of TIUHELP with TIU only portions removed.

 ;======================================================================

PROTOCOL ; Help for protocols

 N DIRUT,DTOUT,DUOUT,USRX,ORU,ORUPRMT,VALMDDF,VALMPGE S USRX=X

 D FULL^VALM1

 I USRX="?"!(USRX="??") D  G PROTX

 . D DISP^XQORM1 W !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!

 . I USRX="?" W:$$STOP^USRU ""

 I USRX="???" D MENU(XQORNOD) I $D(DIROUT) S (XQORQUIT,XQORPOP)=1 Q

PROTX S VALMBCK="R"

 Q

 ;======================================================================

MENU(XQORNOD) ; Unwind protocol menus for help

 N USRSEQ,USRI,USRJ D CLEAR^VALM1

 W:$$CONTINUE "Valid selections are:",!

 S USRI=0 F  S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0  D

 . S USRJ=+$P($G(^ORD(101,+XQORNOD,10,USRI,0)),U,3) S:$D(USRSEQ(USRJ)) USRJ=USRJ+.1

 . S USRSEQ(USRJ)=+$P(^ORD(101,+XQORNOD,10,USRI,0),U)

 S USRI=0 F  S USRI=$O(USRSEQ(USRI)) Q:+USRI'>0!$D(DIRUT)  D

 . I $D(^ORD(101,+USRSEQ(USRI),0)) D ITEM(+USRSEQ(USRI),1)

 Q

 ;======================================================================

ITEM(XQORNOD,TAB) ; Show descriptions of items

 N USRI

 Q:$P($G(^ORD(101,+XQORNOD,0)),U,2)']""

 W:$$CONTINUE ?+$G(TAB),$G(IOINHI),$$UPPER^USRLS($P($G(^ORD(101,+XQORNOD,0)),U,2)),$G(IOINORM),!

 I $D(DIRUT) Q

 S USRI=0 F  S USRI=$O(^ORD(101,+XQORNOD,1,USRI)) Q:+USRI'>0!$D(DIRUT)  D

 . W:$$CONTINUE ?(TAB+2),$G(^ORD(101,+XQORNOD,1,USRI,0)),! Q:$D(DIRUT)

 S USRI=0 F  S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0  D

 . D ITEM(+$G(^ORD(101,+XQORNOD,10,+USRI,0))_";ORD(101,",3)

 Q

 ;======================================================================

CONTINUE() ; Pagination control

 N Y

 I $Y<(IOSL-2) S Y=1 G CONTX

 S Y=$$STOP^USRU("",1) W:+Y @IOF,!

CONTX Q Y

USRHELP   ; SLC/JER,PKR - On-line help library ;2/9/98

 +1       ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997

 +2       ;This is a direct copy of TIUHELP with TIU only portions removed.

 +3       ;======================================================================

PROTOCOL  ; Help for protocols

 +1        NEW DIRUT,DTOUT,DUOUT,USRX,ORU,ORUPRMT,VALMDDF,VALMPGE

           SET USRX=X

 +2        DO FULL^VALM1

 +3        IF USRX="?"!(USRX="??")

               Begin DoDot:1

 +4                DO DISP^XQORM1

                   WRITE !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!

 +5                IF USRX="?"

                       IF $$STOP^USRU

                           WRITE ""

               End DoDot:1

               GOTO PROTX

 +6        IF USRX="???"

               DO MENU(XQORNOD)

               IF $DATA(DIROUT)

                   SET (XQORQUIT,XQORPOP)=1

                   QUIT 

PROTX      SET VALMBCK="R"

 +1        QUIT 

 +2       ;======================================================================

MENU(XQORNOD) ; Unwind protocol menus for help

 +1        NEW USRSEQ,USRI,USRJ

           DO CLEAR^VALM1

 +2        IF $$CONTINUE

               WRITE "Valid selections are:",!

 +3        SET USRI=0

           FOR 

               SET USRI=$ORDER(^ORD(101,+XQORNOD,10,USRI))

               IF +USRI'>0

                   QUIT 

               Begin DoDot:1

 +4                SET USRJ=+$PIECE($GET(^ORD(101,+XQORNOD,10,USRI,0)),U,3)

                   IF $DATA(USRSEQ(USRJ))

                       SET USRJ=USRJ+.1

 +5                SET USRSEQ(USRJ)=+$PIECE(^ORD(101,+XQORNOD,10,USRI,0),U)

               End DoDot:1

 +6        SET USRI=0

           FOR 

               SET USRI=$ORDER(USRSEQ(USRI))

               IF +USRI'>0!$DATA(DIRUT)

                   QUIT 

               Begin DoDot:1

 +7                IF $DATA(^ORD(101,+USRSEQ(USRI),0))

                       DO ITEM(+USRSEQ(USRI),1)

               End DoDot:1

 +8        QUIT 

 +9       ;======================================================================

ITEM(XQORNOD,TAB) ; Show descriptions of items

 +1        NEW USRI

 +2        IF $PIECE($GET(^ORD(101,+XQORNOD,0)),U,2)']""

               QUIT 

 +3        IF $$CONTINUE

               WRITE ?+$GET(TAB),$GET(IOINHI),$$UPPER^USRLS($PIECE($GET(^ORD(101,+XQORNOD,0)),U,2)),$GET(IOINORM),!

 +4        IF $DATA(DIRUT)

               QUIT 

 +5        SET USRI=0

           FOR 

               SET USRI=$ORDER(^ORD(101,+XQORNOD,1,USRI))

               IF +USRI'>0!$DATA(DIRUT)

                   QUIT 

               Begin DoDot:1

 +6                IF $$CONTINUE

                       WRITE ?(TAB+2),$GET(^ORD(101,+XQORNOD,1,USRI,0)),!

                   IF $DATA(DIRUT)

                       QUIT 

               End DoDot:1

 +7        SET USRI=0

           FOR 

               SET USRI=$ORDER(^ORD(101,+XQORNOD,10,USRI))

               IF +USRI'>0

                   QUIT 

               Begin DoDot:1

 +8                DO ITEM(+$GET(^ORD(101,+XQORNOD,10,+USRI,0))_";ORD(101,",3)

               End DoDot:1

 +9        QUIT 

 +10      ;======================================================================

CONTINUE() ; Pagination control

 +1        NEW Y

 +2        IF $Y<(IOSL-2)

               SET Y=1

               GOTO CONTX

 +3        SET Y=$$STOP^USRU("",1)

           IF +Y

               WRITE @IOF,!

CONTX      QUIT Y