Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
Print Page as PDF
Routine: GMTSOBH

Package: Health Summary

Routine: GMTSOBH


Information

GMTSOBH ; SLC/KER - HS Object - Help ; 01/06/2003

Source Information

Source file <GMTSOBH.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 2 ENDR^%ZISS  ($$FMTE,$$NOW)^XLFDT  
Health Summary 1 $$EDT^GMTSU  

Entry Points

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

External References

Name Field # of Occurrence
ENDR^%ZISS ATTR+1
$$EDT^GMTSU ALL+1
$$FMTE^XLFDT RD+1
$$NOW^XLFDT ALL+1, RD+1

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

Label References

Name Line Occurrences
ATTR PLB+1, LBH+1, LBLH+1, RD+1, RH+1, RC+1, CH+1, LM+1, BL+1, DE+1
, SC+1
KATTR PLB+8, LBH+10, LBLH+9, RD+11, RH+11, RC+11, CH+14, LM+11, BL+12, DE+15
, SC+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BOLD PLB+4, LBH+6, LBLH+5, RD+4, RH+6, RH+7, RC+5, CH+9, CH+10, CH+12
, LM+8, LM+9, BL+10, DE+10, DE+12, SC+8, SC+9, ATTR+1*, KATTR+1!
GMTSCHU CHU+1~*, CH+2, CH+3, CH+9, CH+10, CH+11, CH+12
GMTSDLD ALL+1~*, ALL+5, RD+1~*
>> GMTSOBJ("LIMITS" BL+8, BL+9
IOINHI ATTR+1~
IOINORM ATTR+1~
NORM PLB+5, LBH+7, LBLH+6, RD+4, RH+6, RH+7, RC+5, CH+9, CH+10, CH+12
, LM+8, LM+9, BL+10, DE+10, DE+12, SC+8, SC+9, ATTR+1*, KATTR+1!
X TRIM~, TRIM+1*, TRIM+2*, TRIM+3, ATTR+1~*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All