- 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
- ;======================================================================
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HUSRHELP 1934 printed Jan 18, 2025@02:39:58 Page 2
- 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 ;======================================================================
- +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