XBHEDDH1.m

XBHEDDH1 ;402,DJB,10/23/91,EDD - Help Text - Main Menu

 ;;2.6;IHS UTILITIES;;JUN 28, 1993

 ;;David Bolduc - Togus, ME

 ;;Called by XBHEDD1

 D INIT G:FLAGQ EX

 I FLAGP,IO'=IO(0) W !!!

 F I=1:1 S TEXT=$P($T(TXT+I),";;;",2) Q:TEXT="***"  W !,TEXT I $Y>SIZE D PAGE Q:FLAGQ

 I 'FLAGQ D ^XBHEDDH2

EX ;

 K TEXT Q

TXT ;Start of text

 ;;;                  E D D  -  Electonic Data Dictionary

 ;;;                 Version 2.2    David Bolduc   Togus,ME

 ;;;==============================================================================

 ;;; HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP

 ;;;==============================================================================

 ;;; NOTE: When you're in EDD, enter '?' at any prompt for help.

 ;;;

 ;;; A)  E N T R Y   P O I N T S:

 ;;;

 ;;;      DO ^XBHEDD    - Main entry point. At 'Select FILE:' prompt

 ;;;                      enter File Name, File Number, or File Global

 ;;;                      in the form '^DG' or '^RA('.

 ;;;      DO GL^XBHEDD  - Gives listing of your system's globals sorted

 ;;;                      in ASCII order, including file number and name.

 ;;;      DO PRT^XBHEDD - Bypasses opening screen and suppressess some page

 ;;;                      feeds. Use if you're on a printing/keyboard device

 ;;;                      such as a counsol.

 ;;;      DO DIR^XBHEDD - Bypasses opening screen.

 ;;;

 ;;;  B)  M E N U   O P T I O N S:

 ;;;

 ;;;     1) Cross References - An '*' in the far left column indicates this

 ;;;                           XREF can be used for lookup purposes. If you

 ;;;                           concantenate the global shown on the Main Menu

 ;;;                           screen with this XREF, there will be data.

 ;;;

 ;;;     2) Pointers To This File - Lists all files that point to this file.

 ;;;

 ;;;     3) Pointers From This File - Lists all fields in this file that are

 ;;;                            pointers, and the files they point to. An 'M' in

 ;;;                            the far left column indicates the pointing field

 ;;;                            is a multiple. Use 'Trace a Field' to determine

 ;;;                            it's path.

 ;;;

 ;;;     4) Groups - In Filenanager Groups are a shorthand way for a user to

 ;;;                            call up several fields at once for Print or

 ;;;                            Entry/Edit purposes. Also, some programmers

 ;;;                            use Groups to keep track of locally added/alterred

 ;;;                            fields. See VA FILEMAN USER'S MANUAL to learn

 ;;;                            how to use Groups.

 ;;;

 ;;;     5) Trace a Field - Displays the pathway to fields that are decendent

 ;;;                          from a multiple.

 ;;;                          Example: When looking at PATIENT file, you type

 ;;;                          'MOV' at the 'Enter Field Name:' prompt. Trace

 ;;;                          a Field will display:

 ;;;                                  401 Admission Date/Time

 ;;;                                    5 Treating Specialty

 ;;;                                 1000 Movement Number

 ;;;                           This is the pathway to the MOVEMENT NUMBER field.

 ;;;                           You can now select 'I' and type in the field

 ;;;                           number of each field in the path. You will get

 ;;;                           the Individual Field Listing for the MOVEMENT

 ;;;                           NUMBER field.

 ;;;***

PAGE ;

 I FLAGP,IO'=IO(0) W @IOF,!!! Q

 R !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME S:'$T XX="^" S:XX["^" FLAGQ=1 I FLAGQ Q

 W @IOF Q

INIT ;

 I FLAGP,IO=IO(0),IOSL>25 D SCROLL^XBHEDD7 Q:FLAGQ

 I FLAGP W:IO'=IO(0) "  Printing.." U IO

 W @IOF Q

XBHEDDH1  ;402,DJB,10/23/91,EDD - Help Text - Main Menu

 +1       ;;2.6;IHS UTILITIES;;JUN 28, 1993

 +2       ;;David Bolduc - Togus, ME

 +3       ;;Called by XBHEDD1

 +4        DO INIT

           IF FLAGQ

               GOTO EX

 +5        IF FLAGP

               IF IO'=IO(0)

                   WRITE !!!

 +6        FOR I=1:1

               SET TEXT=$PIECE($TEXT(TXT+I),";;;",2)

               IF TEXT="***"

                   QUIT 

               WRITE !,TEXT

               IF $Y>SIZE

                   DO PAGE

                   IF FLAGQ

                       QUIT 

 +7        IF 'FLAGQ

               DO ^XBHEDDH2

EX        ;

 +1        KILL TEXT

           QUIT 

TXT       ;Start of text

 +1       ;;;                  E D D  -  Electonic Data Dictionary

 +2       ;;;                 Version 2.2    David Bolduc   Togus,ME

 +3       ;;;==============================================================================

 +4       ;;; HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP  []  HELP

 +5       ;;;==============================================================================

 +6       ;;; NOTE: When you're in EDD, enter '?' at any prompt for help.

 +7       ;;;

 +8       ;;; A)  E N T R Y   P O I N T S:

 +9       ;;;

 +10      ;;;      DO ^XBHEDD    - Main entry point. At 'Select FILE:' prompt

 +11      ;;;                      enter File Name, File Number, or File Global

 +12      ;;;                      in the form '^DG' or '^RA('.

 +13      ;;;      DO GL^XBHEDD  - Gives listing of your system's globals sorted

 +14      ;;;                      in ASCII order, including file number and name.

 +15      ;;;      DO PRT^XBHEDD - Bypasses opening screen and suppressess some page

 +16      ;;;                      feeds. Use if you're on a printing/keyboard device

 +17      ;;;                      such as a counsol.

 +18      ;;;      DO DIR^XBHEDD - Bypasses opening screen.

 +19      ;;;

 +20      ;;;  B)  M E N U   O P T I O N S:

 +21      ;;;

 +22      ;;;     1) Cross References - An '*' in the far left column indicates this

 +23      ;;;                           XREF can be used for lookup purposes. If you

 +24      ;;;                           concantenate the global shown on the Main Menu

 +25      ;;;                           screen with this XREF, there will be data.

 +26      ;;;

 +27      ;;;     2) Pointers To This File - Lists all files that point to this file.

 +28      ;;;

 +29      ;;;     3) Pointers From This File - Lists all fields in this file that are

 +30      ;;;                            pointers, and the files they point to. An 'M' in

 +31      ;;;                            the far left column indicates the pointing field

 +32      ;;;                            is a multiple. Use 'Trace a Field' to determine

 +33      ;;;                            it's path.

 +34      ;;;

 +35      ;;;     4) Groups - In Filenanager Groups are a shorthand way for a user to

 +36      ;;;                            call up several fields at once for Print or

 +37      ;;;                            Entry/Edit purposes. Also, some programmers

 +38      ;;;                            use Groups to keep track of locally added/alterred

 +39      ;;;                            fields. See VA FILEMAN USER'S MANUAL to learn

 +40      ;;;                            how to use Groups.

 +41      ;;;

 +42      ;;;     5) Trace a Field - Displays the pathway to fields that are decendent

 +43      ;;;                          from a multiple.

 +44      ;;;                          Example: When looking at PATIENT file, you type

 +45      ;;;                          'MOV' at the 'Enter Field Name:' prompt. Trace

 +46      ;;;                          a Field will display:

 +47      ;;;                                  401 Admission Date/Time

 +48      ;;;                                    5 Treating Specialty

 +49      ;;;                                 1000 Movement Number

 +50      ;;;                           This is the pathway to the MOVEMENT NUMBER field.

 +51      ;;;                           You can now select 'I' and type in the field

 +52      ;;;                           number of each field in the path. You will get

 +53      ;;;                           the Individual Field Listing for the MOVEMENT

 +54      ;;;                           NUMBER field.

 +55      ;;;***

PAGE      ;

 +1        IF FLAGP

               IF IO'=IO(0)

                   WRITE @IOF,!!!

                   QUIT 

 +2        READ !!?2,"<RETURN> to continue, '^' to quit: ",XX:DTIME

           IF '$TEST

               SET XX="^"

           IF XX["^"

               SET FLAGQ=1

           IF FLAGQ

               QUIT 

 +3        WRITE @IOF

           QUIT 

INIT      ;

 +1        IF FLAGP

               IF IO=IO(0)

                   IF IOSL>25

                       DO SCROLL^XBHEDD7

                       IF FLAGQ

                           QUIT 

 +2        IF FLAGP

               IF IO'=IO(0)

                   WRITE "  Printing.."

               USE IO

 +3        WRITE @IOF

           QUIT