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

TIUFXHLX.m

Go to the documentation of this file.
  1. TIUFXHLX ; SLC/MAM - Xecutable Help PAUSE, RESET, FLDDESC(FLDNO) ;10/26/95 15:33
  1. ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
  1. ;
  1. PAUSE ; Writes Press Return to Continue or ^ to exit on NEXT line without writing !'s.
  1. N DIR,X,Y
  1. S DIR("?")="Press the RETURN key when you have read the screen and are ready to go on"
  1. S DIR(0)="FAO^1:1",DIR("A")="Press RETURN to continue or '^' or '^^' to exit: " D ^DIR
  1. I X="",'$D(DTOUT) K DIRUT
  1. Q
  1. ;
  1. FLDHELP(FLDNO) ; Writes FLDNO Help Prompt
  1. I $G(TIUFXNOD)["Sort" W !
  1. D HELP^DIE(8925.1,"",FLDNO,"H")
  1. D MSG^DIALOG("HW")
  1. Q
  1. ;
  1. FLDDESC(FILENO,FLDNO) ; Sets to scroll mode; Writes FLDNO Field Description to Screen
  1. N TIUI,FLDNAME,HERE,MSG
  1. K DIRUT
  1. D HELP^DIE(8925.1,"",FLDNO,"D")
  1. S FLDNAME=$S(FILENO=8925.1:$G(^TMP("TIUF",$J,FLDNO,"LABEL")),FILENO=8925.14:$G(^TMP("TIUF",$J,10,FLDNO)),FILENO=8925.11:$G(^TMP("TIUF",$J,1,FLDNO,"LABEL")),1:"")
  1. I FLDNAME="" S FLDNAME=$G(^TMP("TIUF",$J,2,FLDNO,"LABEL"))
  1. S FLDNAME=$P(FLDNAME,U)
  1. I $D(TIUFTMPL) D FULL^VALM1 S TIUFFULL=1 W !
  1. I $G(TIUFXNOD)["Sort" W !
  1. I FLDNAME'="" W $$CENTER^TIULS("Description of "_FLDNAME),!!
  1. D HELP^DIE(8925.1,"",FLDNO,"D")
  1. S HERE=1 I $G(TIUFTMPL)="J",(FLDNO=.04)!(FLDNO=.07) S HERE=0
  1. F TIUI=1:1:DIHELP S MSG=^TMP("DIHELP",$J,TIUI) D Q:$D(DIRUT)
  1. . I FLDNO=.04,$G(TIUFTMPL)="J",MSG["O OBJECT" S HERE=1
  1. . I FLDNO=.07,$G(TIUFTMPL)="J",MSG["OBJECT STATUS",MSG'["OBJECT STATUS," S HERE=1
  1. . W:HERE&$$CONTINUE MSG,!
  1. F Q:$Y>(IOSL-1) W !
  1. I '$D(DIRUT) D PAUSE
  1. FLDDX D CLEAN^DILF
  1. Q
  1. ;
  1. RESET ; -- reset scrolling region to bottom of screen
  1. N DX,DY
  1. W IOELALL
  1. S IOTM=10,IOBM=IOSL W IOSC W @IOSTBM W IORC
  1. S DX=0,DY=(VALM("BM")+1) X IOXY
  1. Q
  1. ;
  1. NAME ;XECUTABLE HELP for .01 NAME
  1. N HELPX S HELPX=X
  1. I $G(TIUFSTMP)="T" D Q
  1. . I HELPX="??" D PAUSE
  1. . W !," Name may be a preexisting file entry OR a NEW file entry.",!
  1. . W !," If Name already exists in the file, it must have the appropriate Type for",!
  1. . W "the parent, must be owned by the user, must NOT already be used elsewhere",!
  1. . W "(unless it is a Shared Component), must not have the same Name as any Item under",!
  1. . W "the parent, and must pass Check as OK.",!
  1. . W !," Option Add Items does not accept and does not list other Names as choices.",!
  1. . W !," If file already has an available entry of a given name and you want to enter a",!,"new entry of that name instead, enclose it in quotation marks.",!
  1. . I HELPX'["?" W !," Name is 3-60 characters, not starting with punctuation.",! ; One ?; No to list
  1. . I HELPX="??" D FLDDESC(8925.1,.01)
  1. ; Edit Basics, Add Entry, Create Entry, Name (Edit Name from front Template):
  1. I $G(TIUFTMPL)="C",$G(TIUFSTMP)="" W !!,"You are creating a new entry of Type "_$P(TIUFXNOD,U,3)_" to hang ",!,"under "_$G(TIUFCNM)_". 3-60 characters, not starting with punctuation.",!
  1. I HELPX="?" D FLDHELP(.01)
  1. I HELPX="??" D FLDDESC(8925.1,.01)
  1. Q
  1. ;
  1. TYPE ; XECUTABLE HELP for .04 TYPE
  1. N HELPX S HELPX=X
  1. ; For choosing sort criteria, TIUFXNOD="Sort"
  1. ; Otherwise, 3rd Piece of TIUFXNOD = "Change View" "Basics" "Create"
  1. ;"Class/DocumentClass" "Title" "Component" "Create Document Definitions"
  1. I HELPX="?" D FLDHELP(.04),TYPELST
  1. I HELPX="??" D FLDDESC(8925.1,.04)
  1. Q
  1. ;
  1. TYPELST ; Writes remarks, list of type choices
  1. ; Requires TIUFTMSG, TIUFTLST from TIUFLF7 if editing type
  1. N OKTYPES,TAB
  1. I $G(TIUFXNOD)["Basics" W !," Permitted Types are limited by Parent Type."
  1. I $G(TIUFXNOD)["Change View"!($G(TIUFXNOD)["Sort") W !," File may contain (faulty) entries with no Type (NONE)."
  1. I $G(TIUFXNOD)["Sort" W !!," You are limiting the list of entries you will see to those with a",!,"particular Type."
  1. I $G(TIUFXNOD)["Create Doc" W !," Type is limited by the Type of your Current Position (Highlighted)."
  1. I $G(TIUFXNOD)'["Sort" D PAUSE
  1. S OKTYPES=$S($D(TIUFTLST):TIUFTLST,1:"^CL^DC^DOC^CO^O^N^") ;for Sort, Change View
  1. I $D(TIUFTMSG(1)) W !,TIUFTMSG(1) W:$D(TIUFTMSG(2)) !,TIUFTMSG(2),! D PAUSE
  1. I OKTYPES="" W !,"Type problem; See IRM" Q
  1. S TAB=5
  1. I $G(TIUFXNOD)["Sort" W !
  1. W !,"Choose from:"
  1. I OKTYPES["CL" W:TAB=5 ! W ?TAB,"Class" S TAB=$S(TAB=51:5,1:TAB+23)
  1. I OKTYPES["DC" W:TAB=5 ! W ?TAB,"Document Class" S TAB=$S(TAB=51:5,1:TAB+23)
  1. I OKTYPES["DOC" W:TAB=5 ! W ?TAB,"Title" S TAB=$S(TAB=51:5,1:TAB+23)
  1. I OKTYPES["CO" W:TAB=5 ! W ?TAB,"Component" S TAB=$S(TAB=51:5,1:TAB+23)
  1. I OKTYPES["^O^" W:TAB=5 ! W ?TAB,"Object" S TAB=$S(TAB=51:5,1:TAB+23)
  1. I OKTYPES["N" W:TAB=5 ! W ?TAB,"NONE"
  1. I $G(TIUFXNOD)["Sort" W !!
  1. Q
  1. ;
  1. STATUS ; XECUTABLE HELP for .07 STATUS
  1. N HELPX S HELPX=X ;DO I NEED DBIA? MAM
  1. I HELPX="?" D
  1. . I $D(TIUFSMSG) W !,TIUFSMSG,! D PAUSE Q:$D(DIRUT)
  1. . I $G(TIUFSMSG)["OBJECT" D OBJMSG,PAUSE W ! D:'$D(DIRUT) SLIST Q
  1. . D FLDHELP(.07),SLIST
  1. I HELPX="??" D FLDDESC(8925.1,.07) W !
  1. Q
  1. ;
  1. OBJMSG ; Writes msg about Object Status
  1. W !," Objects may have Status Active or Inactive. Active designates objects as ready"
  1. W !,"for use. It is up to the SITE to embed only Active Objects in Boilerplate Text."
  1. W !,"Objects must be Inactive before they can be edited. Inactive objects in",!,"boilerplate text don't retrieve data. For more, enter ??? and see OBJECT STATUS"
  1. Q
  1. ;
  1. SLIST ; Writes remarks, list of Status choices
  1. ; If used for edit status rather than select status for sort, requires TIUFSLST as set in SELSTAT^TIUFLF5
  1. I $G(TIUFXNOD)["Basics" W !,"Statuses are limited by Entry Type. Statuses are also limited (to Inactive)",!,"by faults in Entry or by parent with Inactive Status." D PAUSE
  1. I $G(TIUFXNOD)["Create",TIUFTMPL="A" W !,"Status is limited to Inactive until the entry is added to the Hierarchy." D PAUSE
  1. I $G(TIUFXNOD)["Sort"!($G(TIUFXNOD)["Change View") W !," File may contain (faulty) entries with no Status (NONE)."
  1. I $G(TIUFXNOD)["Sort" W !!,"You are limiting the list of entries you will see to those with a",!,"particular Status.",!
  1. W !,"Choose from:"_$S($G(TIUFSLST)["A":" ACTIVE",1:"")_$S($G(TIUFSLST)["I":" INACTIVE",1:"")_$S($G(TIUFSLST)["T":" TEST",1:"")_$S($G(TIUFSLST)["N":" NONE",1:"") W:$G(TIUFXNOD)["Sort" !! W:$G(TIUFXNOD)["Change View" !
  1. I $G(TIUFSLST)="" W !,"Status problem; See IRM"
  1. Q
  1. ;
  1. HELP1(FLDNO) ; Xe help for FLDNO's 5, 6, 6.1, 6.12, 6.13, 6.14, 7, 8
  1. N HELPX S HELPX=X
  1. I HELPX="??" D FLDDESC(8925.1,FLDNO)
  1. Q
  1. ;
  1. CUSTOM ; Xe help for Allow Custom Form Headers
  1. N HELPX S HELPX=X
  1. I HELPX="?" D PAUSE
  1. I HELPX="??" D FLDDESC(8925.1,6.14)
  1. Q
  1. ;
  1. HELP2(FLDNO) ; XECUTABLE HELP for FLDNO's .1 SHARED and .13 Nat'l
  1. N HELPX S HELPX=X
  1. I HELPX="?" D FLDHELP(FLDNO)
  1. I HELPX="??" D FULL^VALM1,FLDDESC(8925.1,FLDNO)
  1. Q
  1. ;
  1. CONTINUE() ; Pagination control
  1. N Y
  1. I $Y<(IOSL-2) S Y=1 G CONTX
  1. S Y=$$STOP^TIUU("",1) W:+Y @IOF,!!
  1. CONTX Q Y
  1. ;