- QAQAHOCH ;HISC/DAD-AD HOC REPORTS: HELP TEXT [ 10/20/92 7:11 pm ] ;10/28/92 12:43
- ;;1.7;QM Integration Module;;07/25/1995
- EN(QAQLABEL) ; *** Print the help text
- N QA,X Q:$T(@QAQLABEL)=""
- F QA=1:1 S X=$P($T(@QAQLABEL+QA),";;",2,99) Q:X="^" W !,X
- Q
- H1 ;; *** Sort help
- ;;Macro functions: [L Load sort macro [S Save sort macro
- ;; [O Output macro [I Inquire sort macro [D Delete sort macro
- ;;
- ;;Sort prefixes: (e.g. enter +1 to turn on totaling for field 1)
- ;; + Totalled fields - Reverse sort order ! Sequence/ranking number
- ;; # New page on sort @ Suppress sub-header ' Range without sorting
- ;;
- ;;Sort suffixes: (e.g. enter 1;C5 to print the field 1 sub-header at column 5)
- ;; ;Cn - Start the sub-header ;Ln - Use the first n characters of
- ;; caption at column n a field value for sorting
- ;; ;Sn - Skip n lines every time the ;"xxx" - Use xxx as the sub-header
- ;; sort field value changes caption, for no caption ;""
- ;;^
- H2 ;; *** Print help
- ;;Macro functions: [L Load print macro [S Save print macro
- ;; [O Output macro [I Inquire print macro [D Delete print macro
- ;;
- ;;Print prefixes: (e.g. enter !1 to turn on counting for field 1)
- ;; & Total ! Count + Total, Count & Mean
- ;; # Total, Count, Mean, Maximum, Minimum, and Standard Deviation
- ;;
- ;;Print suffixes: (e.g. enter 1;C5 to print the field 1 value at column 5)
- ;; ;Cn - Start output at column n ;Yn - Start output at line n
- ;; Use ;C-n to start output n Use ;Y-n to start output n
- ;; columns from the right margin lines from the bottom margin
- ;; ;Ln - Left justify data in an ;Rn - Right justify data in an
- ;; output field of n characters output field of n characters
- ;; Will truncate the output Will not truncate the output
- ;; ;Wn - Wrap output in a field of n ;X - Omit spaces between print
- ;; characters, breaks at word fields and suppress the
- ;; divisions, default wrap ;W column header
- ;; ;Sn - Skip n lines before printing ;Dn - Output numeric value with n
- ;; Use ;S to skip one line decimal places (rounds off)
- ;; ;N - Do not print duplicated data ;T - Use field Title as header
- ;; ;"" - Suppress column header ;"xxx" - Use xxx as column header
- ;;^
- H3 ;; *** Beginning sort help
- ;;
- ;; Enter the beginning sort value or press <RETURN> to start with BEGINNING.
- ;;^
- H4 ;; *** Ending sort help
- ;;
- ;; Enter the ending sort value or press <RETURN> to stop with ENDING.
- ;;^
- H5 ;; *** Report header help
- ;; Enter header (60 characters maximum), press <RETURN>
- ;; for standard VA FileMan header, ^ to exit.
- ;;^
- H6 ;; *** Routine name
- ;;
- ;; Enter the name of a MUMPS routine that will be used
- ;; as the interface to the Ad Hoc Report Generator.
- ;; The routine name must start with an uppercase letter
- ;; and may continue with numbers and uppercase letters.
- ;; The routine name must be from 2 to 8 characters in length.
- ;;^
- H7 ;; *** Field name
- ;;
- ;; Enter the menu text that will appear on the Ad Hoc
- ;; sort/print menus. Must be 2 to 30 characters.
- ;;^
- H8 ;; *** No data found message help
- ;;
- ;; No output will occur if there is no data found that meets the
- ;; user's sort specifications. Answering Y(es) to this question will
- ;; produce a "No data found..." message under these circumstances.
- ;;^
- H9 ;; *** Menu header help
- ;;
- ;; Enter the text you want displayed at the top of the sort
- ;; and print menu screens. The header will be 'Text' followed
- ;; by 'Ad Hoc Report Generator'. The header text is optional
- ;; and may be null. To suppress the header altogether enter '@'.
- ;; The header text must be from 0 to 45 characters in length.
- ;;^
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAQAHOCH 4207 printed Feb 18, 2025@23:57:47 Page 2
- QAQAHOCH ;HISC/DAD-AD HOC REPORTS: HELP TEXT [ 10/20/92 7:11 pm ] ;10/28/92 12:43
- +1 ;;1.7;QM Integration Module;;07/25/1995
- EN(QAQLABEL) ; *** Print the help text
- +1 NEW QA,X
- if $TEXT(@QAQLABEL)=""
- QUIT
- +2 FOR QA=1:1
- SET X=$PIECE($TEXT(@QAQLABEL+QA),";;",2,99)
- if X="^"
- QUIT
- WRITE !,X
- +3 QUIT
- H1 ;; *** Sort help
- +1 ;;Macro functions: [L Load sort macro [S Save sort macro
- +2 ;; [O Output macro [I Inquire sort macro [D Delete sort macro
- +3 ;;
- +4 ;;Sort prefixes: (e.g. enter +1 to turn on totaling for field 1)
- +5 ;; + Totalled fields - Reverse sort order ! Sequence/ranking number
- +6 ;; # New page on sort @ Suppress sub-header ' Range without sorting
- +7 ;;
- +8 ;;Sort suffixes: (e.g. enter 1;C5 to print the field 1 sub-header at column 5)
- +9 ;; ;Cn - Start the sub-header ;Ln - Use the first n characters of
- +10 ;; caption at column n a field value for sorting
- +11 ;; ;Sn - Skip n lines every time the ;"xxx" - Use xxx as the sub-header
- +12 ;; sort field value changes caption, for no caption ;""
- +13 ;;^
- H2 ;; *** Print help
- +1 ;;Macro functions: [L Load print macro [S Save print macro
- +2 ;; [O Output macro [I Inquire print macro [D Delete print macro
- +3 ;;
- +4 ;;Print prefixes: (e.g. enter !1 to turn on counting for field 1)
- +5 ;; & Total ! Count + Total, Count & Mean
- +6 ;; # Total, Count, Mean, Maximum, Minimum, and Standard Deviation
- +7 ;;
- +8 ;;Print suffixes: (e.g. enter 1;C5 to print the field 1 value at column 5)
- +9 ;; ;Cn - Start output at column n ;Yn - Start output at line n
- +10 ;; Use ;C-n to start output n Use ;Y-n to start output n
- +11 ;; columns from the right margin lines from the bottom margin
- +12 ;; ;Ln - Left justify data in an ;Rn - Right justify data in an
- +13 ;; output field of n characters output field of n characters
- +14 ;; Will truncate the output Will not truncate the output
- +15 ;; ;Wn - Wrap output in a field of n ;X - Omit spaces between print
- +16 ;; characters, breaks at word fields and suppress the
- +17 ;; divisions, default wrap ;W column header
- +18 ;; ;Sn - Skip n lines before printing ;Dn - Output numeric value with n
- +19 ;; Use ;S to skip one line decimal places (rounds off)
- +20 ;; ;N - Do not print duplicated data ;T - Use field Title as header
- +21 ;; ;"" - Suppress column header ;"xxx" - Use xxx as column header
- +22 ;;^
- H3 ;; *** Beginning sort help
- +1 ;;
- +2 ;; Enter the beginning sort value or press <RETURN> to start with BEGINNING.
- +3 ;;^
- H4 ;; *** Ending sort help
- +1 ;;
- +2 ;; Enter the ending sort value or press <RETURN> to stop with ENDING.
- +3 ;;^
- H5 ;; *** Report header help
- +1 ;; Enter header (60 characters maximum), press <RETURN>
- +2 ;; for standard VA FileMan header, ^ to exit.
- +3 ;;^
- H6 ;; *** Routine name
- +1 ;;
- +2 ;; Enter the name of a MUMPS routine that will be used
- +3 ;; as the interface to the Ad Hoc Report Generator.
- +4 ;; The routine name must start with an uppercase letter
- +5 ;; and may continue with numbers and uppercase letters.
- +6 ;; The routine name must be from 2 to 8 characters in length.
- +7 ;;^
- H7 ;; *** Field name
- +1 ;;
- +2 ;; Enter the menu text that will appear on the Ad Hoc
- +3 ;; sort/print menus. Must be 2 to 30 characters.
- +4 ;;^
- H8 ;; *** No data found message help
- +1 ;;
- +2 ;; No output will occur if there is no data found that meets the
- +3 ;; user's sort specifications. Answering Y(es) to this question will
- +4 ;; produce a "No data found..." message under these circumstances.
- +5 ;;^
- H9 ;; *** Menu header help
- +1 ;;
- +2 ;; Enter the text you want displayed at the top of the sort
- +3 ;; and print menu screens. The header will be 'Text' followed
- +4 ;; by 'Ad Hoc Report Generator'. The header text is optional
- +5 ;; and may be null. To suppress the header altogether enter '@'.
- +6 ;; The header text must be from 0 to 45 characters in length.
- +7 ;;^