source: IHS-VA_UTILITIES-XB/XBHEDDH1.m@ 641

Last change on this file since 641 was 641, checked in by Sam Habiel, 15 years ago

Initial commit of XB, move away from sf.net.
Includes kids file and documentation.

File size: 3.7 KB
Line 
1XBHEDDH1 ;402,DJB,10/23/91,EDD - Help Text - Main Menu
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;;David Bolduc - Togus, ME
4 ;;Called by XBHEDD1
5 D INIT G:FLAGQ EX
6 I FLAGP,IO'=IO(0) W !!!
7 F I=1:1 S TEXT=$P($T(TXT+I),";;;",2) Q:TEXT="***" W !,TEXT I $Y>SIZE D PAGE Q:FLAGQ
8 I 'FLAGQ D ^XBHEDDH2
9EX ;
10 K TEXT Q
11TXT ;Start of text
12 ;;; E D D - Electonic Data Dictionary
13 ;;; Version 2.2 David Bolduc Togus,ME
14 ;;;==============================================================================
15 ;;; HELP [] HELP [] HELP [] HELP [] HELP [] HELP [] HELP [] HELP
16 ;;;==============================================================================
17 ;;; NOTE: When you're in EDD, enter '?' at any prompt for help.
18 ;;;
19 ;;; A) E N T R Y P O I N T S:
20 ;;;
21 ;;; DO ^XBHEDD - Main entry point. At 'Select FILE:' prompt
22 ;;; enter File Name, File Number, or File Global
23 ;;; in the form '^DG' or '^RA('.
24 ;;; DO GL^XBHEDD - Gives listing of your system's globals sorted
25 ;;; in ASCII order, including file number and name.
26 ;;; DO PRT^XBHEDD - Bypasses opening screen and suppressess some page
27 ;;; feeds. Use if you're on a printing/keyboard device
28 ;;; such as a counsol.
29 ;;; DO DIR^XBHEDD - Bypasses opening screen.
30 ;;;
31 ;;; B) M E N U O P T I O N S:
32 ;;;
33 ;;; 1) Cross References - An '*' in the far left column indicates this
34 ;;; XREF can be used for lookup purposes. If you
35 ;;; concantenate the global shown on the Main Menu
36 ;;; screen with this XREF, there will be data.
37 ;;;
38 ;;; 2) Pointers To This File - Lists all files that point to this file.
39 ;;;
40 ;;; 3) Pointers From This File - Lists all fields in this file that are
41 ;;; pointers, and the files they point to. An 'M' in
42 ;;; the far left column indicates the pointing field
43 ;;; is a multiple. Use 'Trace a Field' to determine
44 ;;; it's path.
45 ;;;
46 ;;; 4) Groups - In Filenanager Groups are a shorthand way for a user to
47 ;;; call up several fields at once for Print or
48 ;;; Entry/Edit purposes. Also, some programmers
49 ;;; use Groups to keep track of locally added/alterred
50 ;;; fields. See VA FILEMAN USER'S MANUAL to learn
51 ;;; how to use Groups.
52 ;;;
53 ;;; 5) Trace a Field - Displays the pathway to fields that are decendent
54 ;;; from a multiple.
55 ;;; Example: When looking at PATIENT file, you type
56 ;;; 'MOV' at the 'Enter Field Name:' prompt. Trace
57 ;;; a Field will display:
58 ;;; 401 Admission Date/Time
59 ;;; 5 Treating Specialty
60 ;;; 1000 Movement Number
61 ;;; This is the pathway to the MOVEMENT NUMBER field.
62 ;;; You can now select 'I' and type in the field
63 ;;; number of each field in the path. You will get
64 ;;; the Individual Field Listing for the MOVEMENT
65 ;;; NUMBER field.
66 ;;;***
67PAGE ;
68 I FLAGP,IO'=IO(0) W @IOF,!!! Q
69 R !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME S:'$T XX="^" S:XX["^" FLAGQ=1 I FLAGQ Q
70 W @IOF Q
71INIT ;
72 I FLAGP,IO=IO(0),IOSL>25 D SCROLL^XBHEDD7 Q:FLAGQ
73 I FLAGP W:IO'=IO(0) " Printing.." U IO
74 W @IOF Q
Note: See TracBrowser for help on using the repository browser.