source: IHS-VA_UTILITIES-XB/trunk/XBHEDDH1.m@ 1250

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

Modified directory structure; moved routines.

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.