source: WorldVistAEHR/trunk/r/HEALTH_SUMMARY-GMTS/GMTSOBH.m@ 1578

Last change on this file since 1578 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 7.6 KB
Line 
1GMTSOBH ; SLC/KER - HS Object - Help ; 01/06/2003
2 ;;2.7;Health Summary;**58**;Oct 20, 1995
3 ;
4 ; External References
5 ; DBIA 10103 $$FMTE^XLFDT
6 ; DBIA 10103 $$NOW^XLFDT
7 ; DBIA 10088 ENDR^%ZISS
8 ;
9 Q
10PLB ; Print Object Label
11 D ATTR
12 W !," Do you want to print a label before printing a Health Summary Object?"
13 W !," Both the label and object will be embedded in another document.",!
14 W !," <document text>",$G(BOLD)
15 W !," <object label>",$G(NORM)
16 W !," <Health Summary object>"
17 W !," <document text continued>"
18 D KATTR
19 Q
20LBH ; Object Label
21 D ATTR
22 W !," Enter a label for this object, 3 to 60 characters in length (optional)."
23 W !," This label will be embedded in another document along with the Health"
24 W !," Summary Type and will be printed as the first line of the object, before"
25 W !," the Health Summary Prints.",!
26 W !," <document>",$G(BOLD)
27 W !," <object label>",$G(NORM)
28 W !," <Health Summary object>"
29 W !," <document>",!
30 D KATTR
31 Q
32LBLH ; Label Blank Line
33 D ATTR
34 W !," If there is a Label for the object and the Label is to be printed,"
35 W !," then a blank line may be printed after the object label.",!
36 W !," <document text>"
37 W !," <object label>",$G(BOLD)
38 W !," <blank line> ",$G(NORM)
39 W !," <Health Summary object>"
40 W !," <document text continued>"
41 D KATTR
42 Q
43HSTH ; Health Summary Type
44 W !," Enter the name of an existing Health Summary Type (file 142)"
45 W !," that you wish to embedded in another document as an object.",!
46 Q
47ALL ; Suppress all of hte Health Summary Header
48 N GMTSDLD S GMTSDLD=$$EDT^GMTSU($$NOW^XLFDT)
49 W !," Print the following lines from the standard Health Summary"
50 W !," Header with the Object?"
51 W !," "
52 W !," 1 "_GMTSDLD
53 W !," 2 ***************** CONFIDENTIAL HEALTH SUMMARY ******************"
54 W !," 3 PATIENT NAME SSN-SSN-SSAN WARD/LOCATTION DATE OF BIRTH"
55 W !," 4 <blank>"
56 W !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
57 W !," 6 <blank>"
58 W !," "
59 Q
60RD ; Report Date and Time
61 N GMTSDLD S GMTSDLD=$TR($$FMTE^XLFDT($$NOW^XLFDT,"5ZM"),"@"," ") D ATTR
62 W !," Print the report date/time with Health Summary Objects?"
63 W !," "
64 W !," "_$G(BOLD)_">>>>> 1 DATE/TIME <<<<<"_$G(NORM)
65 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
66 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
67 W !," 4 <blank>"
68 W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
69 W !," 6 <blank>"
70 W !," "
71 D KATTR
72 Q
73RH ; Report Header
74 D ATTR
75 W !," Print the report header with Health Summary Objects?"
76 W !," "
77 W !," 1 DATE/TIME"
78 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
79 W !,$G(BOLD)_" >>>>> 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB <<<<<"_$G(NORM)
80 W !,$G(BOLD)_" >>>>> 4 <blank> <<<<<"_$G(NORM)
81 W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
82 W !," 6 <blank>"
83 W !," "
84 D KATTR
85 Q
86RC ; Confidentiality Banner
87 D ATTR
88 W !," Print the confidentiality banner with Health Summary Objects?"
89 W !," "
90 W !," 1 DATE/TIME"
91 W !,$G(BOLD)_" >>>>> 2 *********** CONFIDENTIAL HEALTH SUMMARY ************ <<<<<"_$G(NORM)
92 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
93 W !," 4 <blank>"
94 W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
95 W !," 6 <blank>"
96 W !," "
97 D KATTR
98 Q
99CHU ; Component Header Underlined
100 N GMTSCHU S GMTSCHU=""
101CH ; Component Header
102 D ATTR
103 W:'$D(GMTSCHU) !," Print the standard component header with Health Summary Objects?"
104 W:$D(GMTSCHU) !," Underline the standard component header with a single line of dashes?"
105 W !," "
106 W !," 1 DATE/TIME"
107 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
108 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
109 W !," 4 <blank>"
110 W:'$D(GMTSCHU) !,$G(BOLD)_" >>>>> "_$G(NORM)_" 5 "_$G(BOLD)_"PN - Progress Notes "_$G(NORM)_"(max 10 occ or 1 yr) "_$G(BOLD)_"<<<<<"_$G(NORM)
111 W:'$D(GMTSCHU) !,$G(BOLD)_" "_$G(NORM)_" "_$G(BOLD)_"|-------------------| "_$G(NORM)
112 W:$D(GMTSCHU) !," 5 PN - Progress Notes"
113 W:$D(GMTSCHU) !,$G(BOLD)," >>>>> ------------------- <<<<<"_$G(NORM)
114 W !," "
115 D KATTR
116 Q
117LM ; Time and Occurence Limits
118 D ATTR
119 W !," Print report time and occurence limits with the component header?"
120 W !," "
121 W !," 1 DATE/TIME"
122 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
123 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
124 W !," 4 <blank>"
125 W !," "_$G(BOLD)_" >>>>> "_$G(NORM)_" 5 PN - Progress Notes "_$G(BOLD)_"(max 10 occ or 1 yr) "_$G(NORM)_" "_$G(BOLD)_"<<<<<"_$G(NORM)
126 W !," "_$G(BOLD)_"|--------------------| "_$G(NORM)
127 W !," "
128 D KATTR
129 Q
130BL ; Blank Line
131 D ATTR
132 W !," Print a Blank Line after the Component Header?"
133 W !," "
134 W !," 1 DATE/TIME"
135 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
136 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
137 W !," 4 <blank>"
138 W:$D(GMTSOBJ("LIMITS")) !," 5 PN - Progress Notes (max 10 occurrences or 1 year)"
139 W:'$D(GMTSOBJ("LIMITS")) !," 5 PN - Progress Notes"
140 W !," "_$G(BOLD)_" >>>>> 6 <blank> <<<<<"_$G(NORM)
141 W !," "
142 D KATTR
143 Q
144DE ; Deceased
145 D ATTR
146 W !," Print the date deceased with Health Summary Objects?"
147 W !," "
148 W !," 1 DATE/TIME"
149 W !," 2 *********** CONFIDENTIAL HEALTH SUMMARY ************"
150 W !," 3 PATIENT NAME SSN-SS-SSAN WARD/LOCATION DOB"
151 W !," 4 <blank>"
152 W !," 5 PN - Progress Notes (max 10 occ or 1 yr)"
153 W !," 6 <blank>"
154 W !,$G(BOLD)_" * >>>>> 7 ** DECEASED DATE/TIME ** <<<<<"_$G(NORM)
155 W !," "
156 W !," "_$G(BOLD)_"*"_$G(NORM)_" This is a conditional line of the Health Summary report "
157 W !," header which is only printed for deceased patients"
158 W !," "
159 D KATTR
160 Q
161SC ; Suppress Components Without Data
162 D ATTR
163 W !," If this field is set to 1 (YES) and a Health Summary component does "
164 W !," not have any data, the component will be suppressed.",!
165 W !," If this field is NOT set to 1 (Null or 0 = NO) and the component does"
166 W !," not have any data, then the component will print with the statement"
167 W !," ""No data available""",!
168 W !," Example:",!
169 W !,$G(BOLD)," PN - Progress Notes",$G(NORM)
170 W !,$G(BOLD)," No data available",$G(NORM)
171 D KATTR
172 Q
173TRIM(X) ; Trim Spaces
174 S X=$G(X) F Q:$E(X,1)'=" " S X=$E(X,2,$L(X))
175 F Q:$E(X,$L(X))'=" " S X=$E(X,1,($L(X)-1))
176 Q X
177ATTR ; Set Screen Attributes
178 N X,IOINHI,IOINORM S X="IOINHI;IOINORM" D ENDR^%ZISS S BOLD=$G(IOINHI),NORM=$G(IOINORM) D ENDR^%ZISS
179 Q
180KATTR ; Kill Screen Attributes
181 K NORM,BOLD
182 Q
Note: See TracBrowser for help on using the repository browser.