- XBHEDDH2 ;402,DJB,10/23/91,EDD - Help Text - Main Menu cont.
- ;;2.6;IHS UTILITIES;;JUN 28, 1993
- ;;David Bolduc - Togus, ME
- F I=1:1 S TEXT=$P($T(TXT+I),";;;",2) Q:TEXT="***" W !,TEXT I $Y>SIZE D PAGE Q:FLAGQ
- Q
- TXT ;
- ;;;
- ;;; 6) Individual Field Summary - Lists contents of the Data Dictionary
- ;;; for selected field. This option is equivalent
- ;;; to Filemanager's LIST FILE ATTRIBUTES.
- ;;;
- ;;; 7) Field Global Location - List of all fields and their global
- ;;; location (NODE;PIECE). See the 'HELP' that's
- ;;; available in this option.
- ;;;
- ;;; 8) Templates - Lists Print, Sort, and Input templates. If
- ;;; listing is too long for any type, you may
- ;;; enter 'S' and skip over to next type.
- ;;;
- ;;; 9) File Description - Narrative describing the selected file.
- ;;;
- ;;; 10) List Globals In ASCII Order - Gives listing of your system's globals
- ;;; sorted in ASCII order. Includes file number
- ;;; and name. Example: If you are looking at the
- ;;; RADIOLOGY PATIENT file, the Main Menu screen
- ;;; shows it's data global as ^RADPT. If you
- ;;; wanted to identify other Radiology files,
- ;;; you would use this option and start the
- ;;; listing at ^R.
- ;;;
- ;;; 11) File Characteristics - Displays post-selection actions, special
- ;;; look-up programs, and identifiers. For more
- ;;; information on any of these topics see Chapter 5
- ;;; Section D of the VA Fileman Programmers' manual
- ;;; (Version 18).
- ;;;
- ;;; 12) Printing On/Off - Allows you to send screens to a printer. You will
- ;;; be offered the DEVICE: prompt. Enter printer.
- ;;; After <RETURN>, Main Menu will reappear and
- ;;; PRINTING STATUS, in the top half of the screen,
- ;;; will be set to 'ON'. You then select a Main
- ;;; Menu option and output will go to the selected
- ;;; device. When you return to the Main Menu,
- ;;; PRINTING STATUS will be 'OFF'. To print again
- ;;; you must select Printing On/Off option again
- ;;; to reset PRINTING STATUS to 'ON'. If PRINTING
- ;;; STATUS is 'ON' you may turn it off by selecting
- ;;; Printing On/Off option again. To slave
- ;;; print, enter '0;;60' at the DEVICE: prompt.
- ;;;
- ;;; NOTE: Since all screens are designed to be
- ;;; displayed on a CRT, printing to a 10 pitch,
- ;;; 80 margin printer looks best.
- ;;;***
- 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
- XBHEDDH2 ;402,DJB,10/23/91,EDD - Help Text - Main Menu cont.
- +1 ;;2.6;IHS UTILITIES;;JUN 28, 1993
- +2 ;;David Bolduc - Togus, ME
- +3 FOR I=1:1
- SET TEXT=$PIECE($TEXT(TXT+I),";;;",2)
- IF TEXT="***"
- QUIT
- WRITE !,TEXT
- IF $Y>SIZE
- DO PAGE
- IF FLAGQ
- QUIT
- +4 QUIT
- TXT ;
- +1 ;;;
- +2 ;;; 6) Individual Field Summary - Lists contents of the Data Dictionary
- +3 ;;; for selected field. This option is equivalent
- +4 ;;; to Filemanager's LIST FILE ATTRIBUTES.
- +5 ;;;
- +6 ;;; 7) Field Global Location - List of all fields and their global
- +7 ;;; location (NODE;PIECE). See the 'HELP' that's
- +8 ;;; available in this option.
- +9 ;;;
- +10 ;;; 8) Templates - Lists Print, Sort, and Input templates. If
- +11 ;;; listing is too long for any type, you may
- +12 ;;; enter 'S' and skip over to next type.
- +13 ;;;
- +14 ;;; 9) File Description - Narrative describing the selected file.
- +15 ;;;
- +16 ;;; 10) List Globals In ASCII Order - Gives listing of your system's globals
- +17 ;;; sorted in ASCII order. Includes file number
- +18 ;;; and name. Example: If you are looking at the
- +19 ;;; RADIOLOGY PATIENT file, the Main Menu screen
- +20 ;;; shows it's data global as ^RADPT. If you
- +21 ;;; wanted to identify other Radiology files,
- +22 ;;; you would use this option and start the
- +23 ;;; listing at ^R.
- +24 ;;;
- +25 ;;; 11) File Characteristics - Displays post-selection actions, special
- +26 ;;; look-up programs, and identifiers. For more
- +27 ;;; information on any of these topics see Chapter 5
- +28 ;;; Section D of the VA Fileman Programmers' manual
- +29 ;;; (Version 18).
- +30 ;;;
- +31 ;;; 12) Printing On/Off - Allows you to send screens to a printer. You will
- +32 ;;; be offered the DEVICE: prompt. Enter printer.
- +33 ;;; After <RETURN>, Main Menu will reappear and
- +34 ;;; PRINTING STATUS, in the top half of the screen,
- +35 ;;; will be set to 'ON'. You then select a Main
- +36 ;;; Menu option and output will go to the selected
- +37 ;;; device. When you return to the Main Menu,
- +38 ;;; PRINTING STATUS will be 'OFF'. To print again
- +39 ;;; you must select Printing On/Off option again
- +40 ;;; to reset PRINTING STATUS to 'ON'. If PRINTING
- +41 ;;; STATUS is 'ON' you may turn it off by selecting
- +42 ;;; Printing On/Off option again. To slave
- +43 ;;; print, enter '0;;60' at the DEVICE: prompt.
- +44 ;;;
- +45 ;;; NOTE: Since all screens are designed to be
- +46 ;;; displayed on a CRT, printing to a 10 pitch,
- +47 ;;; 80 margin printer looks best.
- +48 ;;;***
- 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