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