Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: GMTSOBH

Package: Health Summary

Routine: GMTSOBH


Information

GMTSOBH ; SLC/KER - HS Object - Help ; 05/22/2008

Source Information

Source file <GMTSOBH.m>

Entry Points

Name Comments DBIA/ICR reference
PLB ; Print Object Label
LBH ; Object Label
LBLH ; Label Blank Line
HSTH ; Health Summary Type
ALL ; Suppress all of hte Health Summary Header
RD ; Report Date and Time
RH ; Report Header
RC ; Confidentiality Banner
CHU ; Component Header Underlined
CH ; Component Header
LM ; Time and Occurence Limits
BL ; Blank Line
DE ; Deceased
SC ; Suppress Components Without Data
NODATA ; Overwrite No data available message
TRIM(X) ; Trim Spaces
ATTR ; Set Screen Attributes
KATTR ; Kill Screen Attributes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Do you want to print a label before printing a Health Summary Object?"
  • Line Location: PLB+2
Function Call: WRITE
  • Prompt: !," Both the label and object will be embedded in another document.",!
  • Line Location: PLB+3
Function Call: WRITE
  • Prompt: !," <document text>",$G(BOLD)
  • Line Location: PLB+4
Function Call: WRITE
  • Prompt: !," <object label>",$G(NORM)
  • Line Location: PLB+5
Function Call: WRITE
  • Prompt: !," <Health Summary object>"
  • Line Location: PLB+6
Function Call: WRITE
  • Prompt: !," <document text continued>"
  • Line Location: PLB+7
Function Call: WRITE
  • Prompt: !," Enter a label for this object, 3 to 60 characters in length (optional)."
  • Line Location: LBH+2
Function Call: WRITE
  • Prompt: !," This label will be embedded in another document along with the Health"
  • Line Location: LBH+3
Function Call: WRITE
  • Prompt: !," Summary Type and will be printed as the first line of the object, before"
  • Line Location: LBH+4
Function Call: WRITE
  • Prompt: !," the Health Summary Prints.",!
  • Line Location: LBH+5
Function Call: WRITE
  • Prompt: !," <document>",$G(BOLD)
  • Line Location: LBH+6
Function Call: WRITE
  • Prompt: !," <object label>",$G(NORM)
  • Line Location: LBH+7
Function Call: WRITE
  • Prompt: !," <Health Summary object>"
  • Line Location: LBH+8
Function Call: WRITE
  • Prompt: !," <document>",!
  • Line Location: LBH+9
Function Call: WRITE
  • Prompt: !," If there is a Label for the object and the Label is to be printed,"
  • Line Location: LBLH+2
Function Call: WRITE
  • Prompt: !," then a blank line may be printed after the object label.",!
  • Line Location: LBLH+3
Function Call: WRITE
  • Prompt: !," <document text>"
  • Line Location: LBLH+4
Function Call: WRITE
  • Prompt: !," <object label>",$G(BOLD)
  • Line Location: LBLH+5
Function Call: WRITE
  • Prompt: !," <blank line> ",$G(NORM)
  • Line Location: LBLH+6
Function Call: WRITE
  • Prompt: !," <Health Summary object>"
  • Line Location: LBLH+7
Function Call: WRITE
  • Prompt: !," <document text continued>"
  • Line Location: LBLH+8
Function Call: WRITE
  • Prompt: !," Enter the name of an existing Health Summary Type (file 142)"
  • Line Location: HSTH+1
Function Call: WRITE
  • Prompt: !," that you wish to embedded in another document as an object.",!
  • Line Location: HSTH+2
Function Call: WRITE
  • Prompt: !," Print the following lines from the standard Health Summary"
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !," Header with the Object?"
  • Line Location: ALL+3
Function Call: WRITE
  • Prompt: !," "
  • Line Location: ALL+4
Function Call: WRITE
  • Prompt: !," 1 "_GMTSDLD
  • Line Location: ALL+5
Function Call: WRITE
  • Prompt: !," 2 ***************** CONFIDENTIAL HEALTH SUMMARY ******************"
  • Line Location: ALL+6
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
  • Line Location: ALL+7
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: ALL+8
Function Call: WRITE
  • Prompt: !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
  • Line Location: ALL+9
Function Call: WRITE
  • Prompt: !," 6 <blank>"
  • Line Location: ALL+10
Function Call: WRITE
  • Prompt: !," "
  • Line Location: ALL+11
Function Call: WRITE
  • Prompt: !," Print the report date/time with Health Summary Objects?"
  • Line Location: RD+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RD+3
Function Call: WRITE
  • Prompt: !," "_$G(BOLD)_">>>>> 1 DATE/TIME <<<<<"_$G(NORM)
  • Line Location: RD+4
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: RD+5
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: RD+6
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: RD+7
Function Call: WRITE
  • Prompt: !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
  • Line Location: RD+8
Function Call: WRITE
  • Prompt: !," 6 <blank>"
  • Line Location: RD+9
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RD+10
Function Call: WRITE
  • Prompt: !," Print the report header with Health Summary Objects?"
  • Line Location: RH+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RH+3
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: RH+4
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: RH+5
Function Call: WRITE
  • Prompt: !,$G(BOLD)_" >>>>> 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB <<<<<"_$G(NORM)
  • Line Location: RH+6
Function Call: WRITE
  • Prompt: !,$G(BOLD)_" >>>>> 4 <blank> <<<<<"_$G(NORM)
  • Line Location: RH+7
Function Call: WRITE
  • Prompt: !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
  • Line Location: RH+8
Function Call: WRITE
  • Prompt: !," 6 <blank>"
  • Line Location: RH+9
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RH+10
Function Call: WRITE
  • Prompt: !," Print the confidentiality banner with Health Summary Objects?"
  • Line Location: RC+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RC+3
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: RC+4
Function Call: WRITE
  • Prompt: !,$G(BOLD)_" >>>>> 2 *********** CONFIDENTIAL HEALTH SUMMARY ************ <<<<<"_$G(NORM)
  • Line Location: RC+5
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: RC+6
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: RC+7
Function Call: WRITE
  • Prompt: !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
  • Line Location: RC+8
Function Call: WRITE
  • Prompt: !," 6 <blank>"
  • Line Location: RC+9
Function Call: WRITE
  • Prompt: !," "
  • Line Location: RC+10
Function Call: WRITE
  • Prompt: !," "
  • Line Location: CH+4
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: CH+5
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: CH+6
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: CH+7
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: CH+8
Function Call: WRITE
  • Prompt: !," "
  • Line Location: CH+13
Function Call: WRITE
  • Prompt: !," Print report time and occurence limits with the component header?"
  • Line Location: LM+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: LM+3
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: LM+4
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: LM+5
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: LM+6
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: LM+7
Function Call: WRITE
  • Prompt: !," "_$G(BOLD)_" >>>>> "_$G(NORM)_" 5 PN - Progress Notes "_$G(BOLD)_"(max 10 occ or 1 yr) "_$G(NORM)_" "_$G(BOLD)_"<<<<<"_$G(NORM)
  • Line Location: LM+8
Function Call: WRITE
  • Prompt: !," "_$G(BOLD)_"|--------------------| "_$G(NORM)
  • Line Location: LM+9
Function Call: WRITE
  • Prompt: !," "
  • Line Location: LM+10
Function Call: WRITE
  • Prompt: !," Print a Blank Line after the Component Header?"
  • Line Location: BL+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: BL+3
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: BL+4
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: BL+5
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: BL+6
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: BL+7
Function Call: WRITE
  • Prompt: !," "_$G(BOLD)_" >>>>> 6 <blank> <<<<<"_$G(NORM)
  • Line Location: BL+10
Function Call: WRITE
  • Prompt: !," "
  • Line Location: BL+11
Function Call: WRITE
  • Prompt: !," Print the date deceased with Health Summary Objects?"
  • Line Location: DE+2
Function Call: WRITE
  • Prompt: !," "
  • Line Location: DE+3
Function Call: WRITE
  • Prompt: !," 1 DATE/TIME"
  • Line Location: DE+4
Function Call: WRITE
  • Prompt: !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
  • Line Location: DE+5
Function Call: WRITE
  • Prompt: !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
  • Line Location: DE+6
Function Call: WRITE
  • Prompt: !," 4 <blank>"
  • Line Location: DE+7
Function Call: WRITE
  • Prompt: !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
  • Line Location: DE+8
Function Call: WRITE
  • Prompt: !," 6 <blank>"
  • Line Location: DE+9
Function Call: WRITE
  • Prompt: !,$G(BOLD)_" * >>>>> 7 ** DECEASED DATE/TIME ** <<<<<"_$G(NORM)
  • Line Location: DE+10
Function Call: WRITE
  • Prompt: !," "
  • Line Location: DE+11
Function Call: WRITE
  • Prompt: !," "_$G(BOLD)_"*"_$G(NORM)_" This is a conditional line of the Health Summary report "
  • Line Location: DE+12
Function Call: WRITE
  • Prompt: !," header which is only printed for deceased patients"
  • Line Location: DE+13
Function Call: WRITE
  • Prompt: !," "
  • Line Location: DE+14
Function Call: WRITE
  • Prompt: !," If this field is set to 1 (YES) and a Health Summary component does "
  • Line Location: SC+2
Function Call: WRITE
  • Prompt: !," not have any data, the component will be suppressed.",!
  • Line Location: SC+3
Function Call: WRITE
  • Prompt: !," If this field is NOT set to 1 (Null or 0 = NO) and the component does"
  • Line Location: SC+4
Function Call: WRITE
  • Prompt: !," not have any data, then the component will print with the statement"
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !," ""No data available""",!
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: !," Example:",!
  • Line Location: SC+7
Function Call: WRITE
  • Prompt: !,$G(BOLD)," PN - Progress Notes",$G(NORM)
  • Line Location: SC+8
Function Call: WRITE
  • Prompt: !,$G(BOLD)," No data available",$G(NORM)
  • Line Location: SC+9
Function Call: WRITE
  • Prompt: !," If text is define in this field and the Suppress Components "
  • Line Location: NODATA+2
Function Call: WRITE
  • Prompt: !," Without Data is set to Yes, If the Health Summary Report "
  • Line Location: NODATA+3
Function Call: WRITE
  • Prompt: !," does not find data for the patient then the text define in"
  • Line Location: NODATA+4
Function Call: WRITE
  • Prompt: !," this field will display in CPRS instead of the standard"
  • Line Location: NODATA+5
Function Call: WRITE
  • Prompt: !," ""No data available"" message.",!
  • Line Location: NODATA+6
Info |  Source |  Entry Points |  Interaction Calls