Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: USRHELP

USRHELP.m

Go to the documentation of this file.
  1. USRHELP ; SLC/JER,PKR - On-line help library ;2/9/98
  1. ;;1.0;AUTHORIZATION/SUBSCRIPTION;**3**;Jun 20, 1997
  1. ;This is a direct copy of TIUHELP with TIU only portions removed.
  1. ;======================================================================
  1. PROTOCOL ; Help for protocols
  1. N DIRUT,DTOUT,DUOUT,USRX,ORU,ORUPRMT,VALMDDF,VALMPGE S USRX=X
  1. D FULL^VALM1
  1. I USRX="?"!(USRX="??") D G PROTX
  1. . D DISP^XQORM1 W !!,"Enter selection by typing the name, or abbreviation.",!,"Enter '??' or '???' for additional details.",!
  1. . I USRX="?" W:$$STOP^USRU ""
  1. I USRX="???" D MENU(XQORNOD) I $D(DIROUT) S (XQORQUIT,XQORPOP)=1 Q
  1. PROTX S VALMBCK="R"
  1. Q
  1. ;======================================================================
  1. N USRSEQ,USRI,USRJ D CLEAR^VALM1
  1. W:$$CONTINUE "Valid selections are:",!
  1. S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0 D
  1. . S USRJ=+$P($G(^ORD(101,+XQORNOD,10,USRI,0)),U,3) S:$D(USRSEQ(USRJ)) USRJ=USRJ+.1
  1. . S USRSEQ(USRJ)=+$P(^ORD(101,+XQORNOD,10,USRI,0),U)
  1. S USRI=0 F S USRI=$O(USRSEQ(USRI)) Q:+USRI'>0!$D(DIRUT) D
  1. . I $D(^ORD(101,+USRSEQ(USRI),0)) D ITEM(+USRSEQ(USRI),1)
  1. Q
  1. ;======================================================================
  1. ITEM(XQORNOD,TAB) ; Show descriptions of items
  1. N USRI
  1. Q:$P($G(^ORD(101,+XQORNOD,0)),U,2)']""
  1. W:$$CONTINUE ?+$G(TAB),$G(IOINHI),$$UPPER^USRLS($P($G(^ORD(101,+XQORNOD,0)),U,2)),$G(IOINORM),!
  1. I $D(DIRUT) Q
  1. S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,1,USRI)) Q:+USRI'>0!$D(DIRUT) D
  1. . W:$$CONTINUE ?(TAB+2),$G(^ORD(101,+XQORNOD,1,USRI,0)),! Q:$D(DIRUT)
  1. S USRI=0 F S USRI=$O(^ORD(101,+XQORNOD,10,USRI)) Q:+USRI'>0 D
  1. . D ITEM(+$G(^ORD(101,+XQORNOD,10,+USRI,0))_";ORD(101,",3)
  1. Q
  1. ;======================================================================
  1. CONTINUE() ; Pagination control
  1. N Y
  1. I $Y<(IOSL-2) S Y=1 G CONTX
  1. S Y=$$STOP^USRU("",1) W:+Y @IOF,!
  1. CONTX Q Y