- XTVSHLP1 ;ALBANY FO/GTS - VistA Package Sizing Manager; 25-JAN-2019
- ;;7.3;TOOLKIT;**143,152**;Apr 25, 1995;Build 3
- ;Per VA Directive 6402, this routine should not be modified.
- ;
- LNTXT ; Help Text [Extract Manager]
- ;;Descriptions:
- ;;
- ;; Extract Package Data - This action extracts pertinent data from the local
- ;; Package file and loads it into the ^XTMP("XTSIZE",$J) global. The extract
- ;; is added to the Extract Manager list. If an extract in the ^XTMP("XTSIZE")
- ;; global with the same $JOB value exists, the user is prompted to confirm
- ;; overwrite of the existing ^XTMP global.
- ;;
- ;; Delete Extract - This action prompts the user for an extract to delete.
- ;; The ^XTMP extract global is selected by entry of the Process ID.
- ;;
- ;; Display Extract - This action prompts the user for an extract to display.
- ;; The ^XTMP extract global is selected by entry of the Process ID. The
- ;; Display Extract list presents the extract in a user readable format.
- ;;$PAUSE
- ;;
- ;; Convert Extract to Parameter list - This action prompts the user for a Process
- ;; ID and displays the Package Parameters list. The Package Parameters list
- ;; includes actions to assist review of the parameters for accuracy.
- ;;
- ;; Email Extract Global - This action prompts the user for a Process ID and
- ;; sends the ^XTMP("XTSIZE",$J) global to entered Email addresses. This
- ;; allows the extract to be sent to a fully patched VistA instance.
- ;;
- ;; Remote VistA Extract Query - This action prompts the user for a VistA site
- ;; to query a Package file extract. If Forum is queried, the user has the
- ;; option of requesting a VistA Package size report for all packages on Forum.
- ;; NOTE: VistA Size Reports returned from Forum will use the Package file
- ;; extract (returned with the request) to calculate package sizes.
- ;;
- ;;
- ;; NOTE: Delete Extract, Display Extract, Convert Extract to Parameter list, and
- ;; Email Extract Global require an ^XTMP("XTSIZE") global to exist before
- ;; they may be invoked. (E.G. An extract must be listed)
- ;;
- ;;$PAUSE
- ;;$END
- ;
- LPTXT ; Help Text [Parameter Display]
- ;;Descriptions:
- ;;
- ;; Display Package Overlap List - This action compares package file and
- ;; prefix assignments. It reports files and prefixes that are assigned
- ;; to multiple packages.
- ;;
- ;; Display Captioned Parameters - This action redisplays the data elements
- ;; in the Parameter Display in a user readable form with the data element
- ;; caption. The Captioned List display includes actions to edit package
- ;; parameters, delete packages and save changes to the Package Parameter
- ;; file.
- ;;
- ;;$PAUSE
- ;; Display Parameter File Data Map - This action lists the data elements
- ;; delimited by the up caret (^). It also indicates the data element
- ;; name and the field in the Forum system Package file where the source
- ;; data is usually extracted. This information can be helpful when reading
- ;; the Parameter file listed.
- ;;
- ;; Parameter File Comparison - This action prompts the user for a Parameter
- ;; File to compare to the displayed Parameter File. It then lists the
- ;; differences between the two files.
- ;;
- ;;$END
- ;
- LPCTXT ; ?? Help Text [Parameter Compare]
- ;;HINTS for using the Comparison Report:
- ;; The 'Selected' file is the one you are reviewing. It is reported as the
- ;; 'SEL' file. One way to use this report is to identify updates needed in
- ;; the 'SEL' file and add the changes to make it the most up-to-date Package
- ;; Parameter file. In this use-case, the 'SEL' file might be derived from
- ;; the most recent VistA Package file extract.
- ;;
- ;; The 'Comparison' file can be used as a baseline from which to find changes
- ;; needed to create a new Parameter file. This report identifies it as the
- ;; 'CPR' file and differences between it and the 'SEL' file are reported.
- ;; One use-case is to select the most up-to-date Package Parameters file
- ;; and compare it to the 'SEL' (Selected) file.
- ;;
- ;; The Comparison Report answers the question: What was done to the 'SEL' file
- ;; to make the differences between it and the 'CPR' file? For example...
- ;; - If package A in the 'CPR' file has a 'File Numbers' list of '7|8|9|'
- ;; and the 'SEL' file does not have any files defined in the 'File Numbers'
- ;; list (for package A), the report would be:
- ;; Package: A
- ;; Files
- ;; Deleted entire list in SEL file:
- ;; 7|8|9
- ;;$PAUSE
- ;; This report is designed for use by package Subject Matter Experts (SMEs).
- ;; Package SMEs have the technical knowledge of package components to
- ;; cleanup incorrect parameters and add missing parameters.
- ;;
- ;; It is important to remember that new Package Parameter files may be created
- ;; by updating Package Parameter data derived from a Vista Package file
- ;; extract. When an old Package Parameter file is used for comparison [CPR],
- ;; it may have been previously reviewed by an SME. An SME may have corrected
- ;; data in the 'CPR' Package Parameter file that has long been incorrect in
- ;; a new VistA Package file extract. [The SME should contact the VistA
- ;; DBA to update the Package definition in the Forum Package File (#9.4).]
- ;;
- ;; In the above instance, the Comparison Report might indicate that data has been
- ;; deleted from a 'SEL' Package Parameter file. If the 'CPR' Package Parameter
- ;; file was updated by an SME and the data is missing from the 'SEL' Parameter
- ;; file, the missing data may need to be added to the 'SEL' Parameter file
- ;; again.
- ;;
- ;; {See the example on the following screen}
- ;;$PAUSE
- ;; For example:
- ;; 1) VistA Package file entry 'APP A' does not include Additional Prefix "A".
- ;; 2) An SME created Package Parameter file "X" from a VistA Package file
- ;; extract and added Additional Prefix "A" to the 'APP A' package.
- ;; 3) A User extracts data from the VistA Package file with 'APP A' still
- ;; missing Additional Prefix "A".
- ;; 4) The User creates Package Parameter file "Y" from the new VistA Package
- ;; file extract.
- ;; 5) A comparison of old Parameter file "X" [CPR] to new Parameter file "Y"
- ;; [SEL] reports that Additional Prefix "A" is missing from 'APP A' in
- ;; the new Package Parameter file "Y" [SEL].
- ;;
- ;; An SME analysis of Package Parameter file "Y" could determine...
- ;; a) Additional Prefix "A" needs to be added to 'APP A' in the Package
- ;; Parameter file "Y".
- ;; OR
- ;; b) Additional Prefix "A" was removed from 'APP A' in the VistA Package
- ;; file since the last extract, and the Package Parameter file "Y" is
- ;; correct.
- ;;
- ;; Unless a new Package definition change has been made to VistA, the
- ;; correction is to add Additional Prefix "A" to Package Parameter file "Y".
- ;;$PAUSE
- ;;$END
- ;
- LPDCTXT ; Help Text [Captioned List]
- ;;Descriptions:
- ;;
- ;; Edit Package Parameters - This action prompts the user for a package to
- ;; edit. If the package is not defined, the user is prompted to add the
- ;; package. Selecting to add the package will prompt for the data elements.
- ;; Selecting to NOT add the package will prompt to display a list of packages.
- ;; If the selected package is defined, the user is prompted to enter the
- ;; data elements.
- ;;
- ;; NOTE: Rearranging data on "Additional Prefixes', 'Excepted Prefixes'
- ;; 'File Numbers', or 'File Ranges' is NOT a parameter edit and will
- ;; not be saved.
- ;;
- ;;$PAUSE
- ;; Save Package Parameter Changes - When edits (package add, change, or delete)
- ;; are made to the Parameter list, {EDITED} is displayed in the header to
- ;; indicate the Parameter list has unsaved edits. The Save Package Parameter
- ;; Changes action prompts the user to save the changes to either a new
- ;; Parameter file or overwrite the displayed Parameter file. If the Parameter
- ;; file is overwritten, it is first copied to a file of the same name with a
- ;; ".BAK" extension. Only one ".BAK" file is retained with the most recent
- ;; 'before save' copy of the Parameter file.
- ;;
- ;; Delete Package Parameter Entry - This action prompts the user for a Package
- ;; to delete. The user is then prompted to confirm deletion. When a package
- ;; is deleted, {EDITED} is displayed in the header until the deletion is
- ;; saved to the file.
- ;;
- ;;
- ;; NOTE: Parameter changes are not saved to the disk file until the user either
- ;; invokes the "Save Package Parameter Changes" action or confirms saving
- ;; the Parameter file when exiting the parameter Captioned List display
- ;; with unsaved edits in the Parameter file.
- ;;
- ;;$PAUSE
- ;;$END
- ;
- LRTXT ; ?? Help Text [Package Statistics]
- ;;Descriptions:
- ;;
- ;; Create Text File - This action writes the displayed report to a text file
- ;; in the default host file directory. The default text file name is in
- ;; the form:
- ;; VistAPkgSize_{julian data/time}.txt
- ;; The user may change the directory where the file is written or the file
- ;; name at the respective prompts.
- ;;
- ;; Email Rpt Attachment - This action prompts the user for Email addresses,
- ;; bundles the displayed Package Statistics report into a file, includes
- ;; the file as an attachment in the message and sends the message to the
- ;; recipients. The text file name is in the form:
- ;; VistAPkgSize_{julian data/time}.txt
- ;; The message indicates the creation date, attached file name and the data
- ;; in the file. Alternately, the file text can be sent in the message.
- ;;$PAUSE
- ;; Remote VistA Size Query - This action prompts the user for a package in
- ;; the selected Package Parameter file and a VistA server to query. The
- ;; report from the remote VistA is sent to the users' VA MailMan address.
- ;;
- ;; Swap Header - This action is available when a user readable VistA package
- ;; size report for ALL packages is displayed. It will toggle the header
- ;; area on the report screen between the "VistA Package Size Analysis
- ;; Manager - Package Statistics" heading and the report column headings.
- ;; This allows a user who has progressed beyond the first screen of the
- ;; report to display the column headings. The action is inactive when
- ;; displaying a size report for a SINGLE package or a caret (^) delimited
- ;; report of ALL packages.
- ;;
- ;;
- ;;$PAUSE
- ;; The Package Statistics lists the following size data for each package:
- ;; - Number of Routines
- ;; - Total size of all routines (# of characters)
- ;; - Number of Files
- ;; - Number of Fields
- ;; - Number of Options
- ;; - Number of Protocols
- ;; - Number of RPCs
- ;; - Number of Fileman Templates (Print, Sort, & Input Templates)
- ;;
- ;; NOTE: Namespaces duplicated in 'Additional Prefixes' for multiple packages
- ;; will not be counted in component totals for any package EXCEPT the
- ;; Package that has the namespace defined for the 'Primary Prefix'
- ;; and/or the prefix defined for the KIDS package.
- ;;
- ;; * THE PARAMETER FILE USED TO CREATE A SIZE REPORT NEEDS TO HAVE *
- ;; * CORRECTLY DEFINED PACKAGES AND PARAMETERS FOR A CORRECT REPORT. *
- ;;$PAUSE
- ;;$END
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTVSHLP1 11766 printed Feb 19, 2025@00:08:32 Page 2
- XTVSHLP1 ;ALBANY FO/GTS - VistA Package Sizing Manager; 25-JAN-2019
- +1 ;;7.3;TOOLKIT;**143,152**;Apr 25, 1995;Build 3
- +2 ;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- LNTXT ; Help Text [Extract Manager]
- +1 ;;Descriptions:
- +2 ;;
- +3 ;; Extract Package Data - This action extracts pertinent data from the local
- +4 ;; Package file and loads it into the ^XTMP("XTSIZE",$J) global. The extract
- +5 ;; is added to the Extract Manager list. If an extract in the ^XTMP("XTSIZE")
- +6 ;; global with the same $JOB value exists, the user is prompted to confirm
- +7 ;; overwrite of the existing ^XTMP global.
- +8 ;;
- +9 ;; Delete Extract - This action prompts the user for an extract to delete.
- +10 ;; The ^XTMP extract global is selected by entry of the Process ID.
- +11 ;;
- +12 ;; Display Extract - This action prompts the user for an extract to display.
- +13 ;; The ^XTMP extract global is selected by entry of the Process ID. The
- +14 ;; Display Extract list presents the extract in a user readable format.
- +15 ;;$PAUSE
- +16 ;;
- +17 ;; Convert Extract to Parameter list - This action prompts the user for a Process
- +18 ;; ID and displays the Package Parameters list. The Package Parameters list
- +19 ;; includes actions to assist review of the parameters for accuracy.
- +20 ;;
- +21 ;; Email Extract Global - This action prompts the user for a Process ID and
- +22 ;; sends the ^XTMP("XTSIZE",$J) global to entered Email addresses. This
- +23 ;; allows the extract to be sent to a fully patched VistA instance.
- +24 ;;
- +25 ;; Remote VistA Extract Query - This action prompts the user for a VistA site
- +26 ;; to query a Package file extract. If Forum is queried, the user has the
- +27 ;; option of requesting a VistA Package size report for all packages on Forum.
- +28 ;; NOTE: VistA Size Reports returned from Forum will use the Package file
- +29 ;; extract (returned with the request) to calculate package sizes.
- +30 ;;
- +31 ;;
- +32 ;; NOTE: Delete Extract, Display Extract, Convert Extract to Parameter list, and
- +33 ;; Email Extract Global require an ^XTMP("XTSIZE") global to exist before
- +34 ;; they may be invoked. (E.G. An extract must be listed)
- +35 ;;
- +36 ;;$PAUSE
- +37 ;;$END
- +38 ;
- LPTXT ; Help Text [Parameter Display]
- +1 ;;Descriptions:
- +2 ;;
- +3 ;; Display Package Overlap List - This action compares package file and
- +4 ;; prefix assignments. It reports files and prefixes that are assigned
- +5 ;; to multiple packages.
- +6 ;;
- +7 ;; Display Captioned Parameters - This action redisplays the data elements
- +8 ;; in the Parameter Display in a user readable form with the data element
- +9 ;; caption. The Captioned List display includes actions to edit package
- +10 ;; parameters, delete packages and save changes to the Package Parameter
- +11 ;; file.
- +12 ;;
- +13 ;;$PAUSE
- +14 ;; Display Parameter File Data Map - This action lists the data elements
- +15 ;; delimited by the up caret (^). It also indicates the data element
- +16 ;; name and the field in the Forum system Package file where the source
- +17 ;; data is usually extracted. This information can be helpful when reading
- +18 ;; the Parameter file listed.
- +19 ;;
- +20 ;; Parameter File Comparison - This action prompts the user for a Parameter
- +21 ;; File to compare to the displayed Parameter File. It then lists the
- +22 ;; differences between the two files.
- +23 ;;
- +24 ;;$END
- +25 ;
- LPCTXT ; ?? Help Text [Parameter Compare]
- +1 ;;HINTS for using the Comparison Report:
- +2 ;; The 'Selected' file is the one you are reviewing. It is reported as the
- +3 ;; 'SEL' file. One way to use this report is to identify updates needed in
- +4 ;; the 'SEL' file and add the changes to make it the most up-to-date Package
- +5 ;; Parameter file. In this use-case, the 'SEL' file might be derived from
- +6 ;; the most recent VistA Package file extract.
- +7 ;;
- +8 ;; The 'Comparison' file can be used as a baseline from which to find changes
- +9 ;; needed to create a new Parameter file. This report identifies it as the
- +10 ;; 'CPR' file and differences between it and the 'SEL' file are reported.
- +11 ;; One use-case is to select the most up-to-date Package Parameters file
- +12 ;; and compare it to the 'SEL' (Selected) file.
- +13 ;;
- +14 ;; The Comparison Report answers the question: What was done to the 'SEL' file
- +15 ;; to make the differences between it and the 'CPR' file? For example...
- +16 ;; - If package A in the 'CPR' file has a 'File Numbers' list of '7|8|9|'
- +17 ;; and the 'SEL' file does not have any files defined in the 'File Numbers'
- +18 ;; list (for package A), the report would be:
- +19 ;; Package: A
- +20 ;; Files
- +21 ;; Deleted entire list in SEL file:
- +22 ;; 7|8|9
- +23 ;;$PAUSE
- +24 ;; This report is designed for use by package Subject Matter Experts (SMEs).
- +25 ;; Package SMEs have the technical knowledge of package components to
- +26 ;; cleanup incorrect parameters and add missing parameters.
- +27 ;;
- +28 ;; It is important to remember that new Package Parameter files may be created
- +29 ;; by updating Package Parameter data derived from a Vista Package file
- +30 ;; extract. When an old Package Parameter file is used for comparison [CPR],
- +31 ;; it may have been previously reviewed by an SME. An SME may have corrected
- +32 ;; data in the 'CPR' Package Parameter file that has long been incorrect in
- +33 ;; a new VistA Package file extract. [The SME should contact the VistA
- +34 ;; DBA to update the Package definition in the Forum Package File (#9.4).]
- +35 ;;
- +36 ;; In the above instance, the Comparison Report might indicate that data has been
- +37 ;; deleted from a 'SEL' Package Parameter file. If the 'CPR' Package Parameter
- +38 ;; file was updated by an SME and the data is missing from the 'SEL' Parameter
- +39 ;; file, the missing data may need to be added to the 'SEL' Parameter file
- +40 ;; again.
- +41 ;;
- +42 ;; {See the example on the following screen}
- +43 ;;$PAUSE
- +44 ;; For example:
- +45 ;; 1) VistA Package file entry 'APP A' does not include Additional Prefix "A".
- +46 ;; 2) An SME created Package Parameter file "X" from a VistA Package file
- +47 ;; extract and added Additional Prefix "A" to the 'APP A' package.
- +48 ;; 3) A User extracts data from the VistA Package file with 'APP A' still
- +49 ;; missing Additional Prefix "A".
- +50 ;; 4) The User creates Package Parameter file "Y" from the new VistA Package
- +51 ;; file extract.
- +52 ;; 5) A comparison of old Parameter file "X" [CPR] to new Parameter file "Y"
- +53 ;; [SEL] reports that Additional Prefix "A" is missing from 'APP A' in
- +54 ;; the new Package Parameter file "Y" [SEL].
- +55 ;;
- +56 ;; An SME analysis of Package Parameter file "Y" could determine...
- +57 ;; a) Additional Prefix "A" needs to be added to 'APP A' in the Package
- +58 ;; Parameter file "Y".
- +59 ;; OR
- +60 ;; b) Additional Prefix "A" was removed from 'APP A' in the VistA Package
- +61 ;; file since the last extract, and the Package Parameter file "Y" is
- +62 ;; correct.
- +63 ;;
- +64 ;; Unless a new Package definition change has been made to VistA, the
- +65 ;; correction is to add Additional Prefix "A" to Package Parameter file "Y".
- +66 ;;$PAUSE
- +67 ;;$END
- +68 ;
- LPDCTXT ; Help Text [Captioned List]
- +1 ;;Descriptions:
- +2 ;;
- +3 ;; Edit Package Parameters - This action prompts the user for a package to
- +4 ;; edit. If the package is not defined, the user is prompted to add the
- +5 ;; package. Selecting to add the package will prompt for the data elements.
- +6 ;; Selecting to NOT add the package will prompt to display a list of packages.
- +7 ;; If the selected package is defined, the user is prompted to enter the
- +8 ;; data elements.
- +9 ;;
- +10 ;; NOTE: Rearranging data on "Additional Prefixes', 'Excepted Prefixes'
- +11 ;; 'File Numbers', or 'File Ranges' is NOT a parameter edit and will
- +12 ;; not be saved.
- +13 ;;
- +14 ;;$PAUSE
- +15 ;; Save Package Parameter Changes - When edits (package add, change, or delete)
- +16 ;; are made to the Parameter list, {EDITED} is displayed in the header to
- +17 ;; indicate the Parameter list has unsaved edits. The Save Package Parameter
- +18 ;; Changes action prompts the user to save the changes to either a new
- +19 ;; Parameter file or overwrite the displayed Parameter file. If the Parameter
- +20 ;; file is overwritten, it is first copied to a file of the same name with a
- +21 ;; ".BAK" extension. Only one ".BAK" file is retained with the most recent
- +22 ;; 'before save' copy of the Parameter file.
- +23 ;;
- +24 ;; Delete Package Parameter Entry - This action prompts the user for a Package
- +25 ;; to delete. The user is then prompted to confirm deletion. When a package
- +26 ;; is deleted, {EDITED} is displayed in the header until the deletion is
- +27 ;; saved to the file.
- +28 ;;
- +29 ;;
- +30 ;; NOTE: Parameter changes are not saved to the disk file until the user either
- +31 ;; invokes the "Save Package Parameter Changes" action or confirms saving
- +32 ;; the Parameter file when exiting the parameter Captioned List display
- +33 ;; with unsaved edits in the Parameter file.
- +34 ;;
- +35 ;;$PAUSE
- +36 ;;$END
- +37 ;
- LRTXT ; ?? Help Text [Package Statistics]
- +1 ;;Descriptions:
- +2 ;;
- +3 ;; Create Text File - This action writes the displayed report to a text file
- +4 ;; in the default host file directory. The default text file name is in
- +5 ;; the form:
- +6 ;; VistAPkgSize_{julian data/time}.txt
- +7 ;; The user may change the directory where the file is written or the file
- +8 ;; name at the respective prompts.
- +9 ;;
- +10 ;; Email Rpt Attachment - This action prompts the user for Email addresses,
- +11 ;; bundles the displayed Package Statistics report into a file, includes
- +12 ;; the file as an attachment in the message and sends the message to the
- +13 ;; recipients. The text file name is in the form:
- +14 ;; VistAPkgSize_{julian data/time}.txt
- +15 ;; The message indicates the creation date, attached file name and the data
- +16 ;; in the file. Alternately, the file text can be sent in the message.
- +17 ;;$PAUSE
- +18 ;; Remote VistA Size Query - This action prompts the user for a package in
- +19 ;; the selected Package Parameter file and a VistA server to query. The
- +20 ;; report from the remote VistA is sent to the users' VA MailMan address.
- +21 ;;
- +22 ;; Swap Header - This action is available when a user readable VistA package
- +23 ;; size report for ALL packages is displayed. It will toggle the header
- +24 ;; area on the report screen between the "VistA Package Size Analysis
- +25 ;; Manager - Package Statistics" heading and the report column headings.
- +26 ;; This allows a user who has progressed beyond the first screen of the
- +27 ;; report to display the column headings. The action is inactive when
- +28 ;; displaying a size report for a SINGLE package or a caret (^) delimited
- +29 ;; report of ALL packages.
- +30 ;;
- +31 ;;
- +32 ;;$PAUSE
- +33 ;; The Package Statistics lists the following size data for each package:
- +34 ;; - Number of Routines
- +35 ;; - Total size of all routines (# of characters)
- +36 ;; - Number of Files
- +37 ;; - Number of Fields
- +38 ;; - Number of Options
- +39 ;; - Number of Protocols
- +40 ;; - Number of RPCs
- +41 ;; - Number of Fileman Templates (Print, Sort, & Input Templates)
- +42 ;;
- +43 ;; NOTE: Namespaces duplicated in 'Additional Prefixes' for multiple packages
- +44 ;; will not be counted in component totals for any package EXCEPT the
- +45 ;; Package that has the namespace defined for the 'Primary Prefix'
- +46 ;; and/or the prefix defined for the KIDS package.
- +47 ;;
- +48 ;; * THE PARAMETER FILE USED TO CREATE A SIZE REPORT NEEDS TO HAVE *
- +49 ;; * CORRECTLY DEFINED PACKAGES AND PARAMETERS FOR A CORRECT REPORT. *
- +50 ;;$PAUSE
- +51 ;;$END