source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUFXHLX.m@ 1765

Last change on this file since 1765 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 6.5 KB
Line 
1TIUFXHLX ; SLC/MAM - Xecutable Help PAUSE, RESET, FLDDESC(FLDNO) ;10/26/95 15:33
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3 ;
4PAUSE ; Writes Press Return to Continue or ^ to exit on NEXT line without writing !'s.
5 N DIR,X,Y
6 S DIR("?")="Press the RETURN key when you have read the screen and are ready to go on"
7 S DIR(0)="FAO^1:1",DIR("A")="Press RETURN to continue or '^' or '^^' to exit: " D ^DIR
8 I X="",'$D(DTOUT) K DIRUT
9 Q
10 ;
11FLDHELP(FLDNO) ; Writes FLDNO Help Prompt
12 I $G(TIUFXNOD)["Sort" W !
13 D HELP^DIE(8925.1,"",FLDNO,"H")
14 D MSG^DIALOG("HW")
15 Q
16 ;
17FLDDESC(FILENO,FLDNO) ; Sets to scroll mode; Writes FLDNO Field Description to Screen
18 N TIUI,FLDNAME,HERE,MSG
19 K DIRUT
20 D HELP^DIE(8925.1,"",FLDNO,"D")
21 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:"")
22 I FLDNAME="" S FLDNAME=$G(^TMP("TIUF",$J,2,FLDNO,"LABEL"))
23 S FLDNAME=$P(FLDNAME,U)
24 I $D(TIUFTMPL) D FULL^VALM1 S TIUFFULL=1 W !
25 I $G(TIUFXNOD)["Sort" W !
26 I FLDNAME'="" W $$CENTER^TIULS("Description of "_FLDNAME),!!
27 D HELP^DIE(8925.1,"",FLDNO,"D")
28 S HERE=1 I $G(TIUFTMPL)="J",(FLDNO=.04)!(FLDNO=.07) S HERE=0
29 F TIUI=1:1:DIHELP S MSG=^TMP("DIHELP",$J,TIUI) D Q:$D(DIRUT)
30 . I FLDNO=.04,$G(TIUFTMPL)="J",MSG["O OBJECT" S HERE=1
31 . I FLDNO=.07,$G(TIUFTMPL)="J",MSG["OBJECT STATUS",MSG'["OBJECT STATUS," S HERE=1
32 . W:HERE&$$CONTINUE MSG,!
33 F Q:$Y>(IOSL-1) W !
34 I '$D(DIRUT) D PAUSE
35FLDDX D CLEAN^DILF
36 Q
37 ;
38RESET ; -- reset scrolling region to bottom of screen
39 N DX,DY
40 W IOELALL
41 S IOTM=10,IOBM=IOSL W IOSC W @IOSTBM W IORC
42 S DX=0,DY=(VALM("BM")+1) X IOXY
43 Q
44 ;
45NAME ;XECUTABLE HELP for .01 NAME
46 N HELPX S HELPX=X
47 I $G(TIUFSTMP)="T" D Q
48 . I HELPX="??" D PAUSE
49 . W !," Name may be a preexisting file entry OR a NEW file entry.",!
50 . W !," If Name already exists in the file, it must have the appropriate Type for",!
51 . W "the parent, must be owned by the user, must NOT already be used elsewhere",!
52 . W "(unless it is a Shared Component), must not have the same Name as any Item under",!
53 . W "the parent, and must pass Check as OK.",!
54 . W !," Option Add Items does not accept and does not list other Names as choices.",!
55 . 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.",!
56 . I HELPX'["?" W !," Name is 3-60 characters, not starting with punctuation.",! ; One ?; No to list
57 . I HELPX="??" D FLDDESC(8925.1,.01)
58 ; Edit Basics, Add Entry, Create Entry, Name (Edit Name from front Template):
59 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.",!
60 I HELPX="?" D FLDHELP(.01)
61 I HELPX="??" D FLDDESC(8925.1,.01)
62 Q
63 ;
64TYPE ; XECUTABLE HELP for .04 TYPE
65 N HELPX S HELPX=X
66 ; For choosing sort criteria, TIUFXNOD="Sort"
67 ; Otherwise, 3rd Piece of TIUFXNOD = "Change View" "Basics" "Create"
68 ;"Class/DocumentClass" "Title" "Component" "Create Document Definitions"
69 I HELPX="?" D FLDHELP(.04),TYPELST
70 I HELPX="??" D FLDDESC(8925.1,.04)
71 Q
72 ;
73TYPELST ; Writes remarks, list of type choices
74 ; Requires TIUFTMSG, TIUFTLST from TIUFLF7 if editing type
75 N OKTYPES,TAB
76 I $G(TIUFXNOD)["Basics" W !," Permitted Types are limited by Parent Type."
77 I $G(TIUFXNOD)["Change View"!($G(TIUFXNOD)["Sort") W !," File may contain (faulty) entries with no Type (NONE)."
78 I $G(TIUFXNOD)["Sort" W !!," You are limiting the list of entries you will see to those with a",!,"particular Type."
79 I $G(TIUFXNOD)["Create Doc" W !," Type is limited by the Type of your Current Position (Highlighted)."
80 I $G(TIUFXNOD)'["Sort" D PAUSE
81 S OKTYPES=$S($D(TIUFTLST):TIUFTLST,1:"^CL^DC^DOC^CO^O^N^") ;for Sort, Change View
82 I $D(TIUFTMSG(1)) W !,TIUFTMSG(1) W:$D(TIUFTMSG(2)) !,TIUFTMSG(2),! D PAUSE
83 I OKTYPES="" W !,"Type problem; See IRM" Q
84 S TAB=5
85 I $G(TIUFXNOD)["Sort" W !
86 W !,"Choose from:"
87 I OKTYPES["CL" W:TAB=5 ! W ?TAB,"Class" S TAB=$S(TAB=51:5,1:TAB+23)
88 I OKTYPES["DC" W:TAB=5 ! W ?TAB,"Document Class" S TAB=$S(TAB=51:5,1:TAB+23)
89 I OKTYPES["DOC" W:TAB=5 ! W ?TAB,"Title" S TAB=$S(TAB=51:5,1:TAB+23)
90 I OKTYPES["CO" W:TAB=5 ! W ?TAB,"Component" S TAB=$S(TAB=51:5,1:TAB+23)
91 I OKTYPES["^O^" W:TAB=5 ! W ?TAB,"Object" S TAB=$S(TAB=51:5,1:TAB+23)
92 I OKTYPES["N" W:TAB=5 ! W ?TAB,"NONE"
93 I $G(TIUFXNOD)["Sort" W !!
94 Q
95 ;
96STATUS ; XECUTABLE HELP for .07 STATUS
97 N HELPX S HELPX=X ;DO I NEED DBIA? MAM
98 I HELPX="?" D
99 . I $D(TIUFSMSG) W !,TIUFSMSG,! D PAUSE Q:$D(DIRUT)
100 . I $G(TIUFSMSG)["OBJECT" D OBJMSG,PAUSE W ! D:'$D(DIRUT) SLIST Q
101 . D FLDHELP(.07),SLIST
102 I HELPX="??" D FLDDESC(8925.1,.07) W !
103 Q
104 ;
105OBJMSG ; Writes msg about Object Status
106 W !," Objects may have Status Active or Inactive. Active designates objects as ready"
107 W !,"for use. It is up to the SITE to embed only Active Objects in Boilerplate Text."
108 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"
109 Q
110 ;
111SLIST ; Writes remarks, list of Status choices
112 ; If used for edit status rather than select status for sort, requires TIUFSLST as set in SELSTAT^TIUFLF5
113 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
114 I $G(TIUFXNOD)["Create",TIUFTMPL="A" W !,"Status is limited to Inactive until the entry is added to the Hierarchy." D PAUSE
115 I $G(TIUFXNOD)["Sort"!($G(TIUFXNOD)["Change View") W !," File may contain (faulty) entries with no Status (NONE)."
116 I $G(TIUFXNOD)["Sort" W !!,"You are limiting the list of entries you will see to those with a",!,"particular Status.",!
117 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" !
118 I $G(TIUFSLST)="" W !,"Status problem; See IRM"
119 Q
120 ;
121HELP1(FLDNO) ; Xe help for FLDNO's 5, 6, 6.1, 6.12, 6.13, 6.14, 7, 8
122 N HELPX S HELPX=X
123 I HELPX="??" D FLDDESC(8925.1,FLDNO)
124 Q
125 ;
126CUSTOM ; Xe help for Allow Custom Form Headers
127 N HELPX S HELPX=X
128 I HELPX="?" D PAUSE
129 I HELPX="??" D FLDDESC(8925.1,6.14)
130 Q
131 ;
132HELP2(FLDNO) ; XECUTABLE HELP for FLDNO's .1 SHARED and .13 Nat'l
133 N HELPX S HELPX=X
134 I HELPX="?" D FLDHELP(FLDNO)
135 I HELPX="??" D FULL^VALM1,FLDDESC(8925.1,FLDNO)
136 Q
137 ;
138CONTINUE() ; Pagination control
139 N Y
140 I $Y<(IOSL-2) S Y=1 G CONTX
141 S Y=$$STOP^TIUU("",1) W:+Y @IOF,!!
142CONTX Q Y
143 ;
Note: See TracBrowser for help on using the repository browser.