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 Oct 16, 2024@17:39:36 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
