Difference between revisions of "ROUTINE C9CGMTSOBJ"
From VistApedia
DavidWhitten (talk | contribs) (Created page with "<pre> 202 +4 D SO^C9CGMTSOBS(+($G(X))) 203 +5 Q 204 EXTRACT(X,ARY) -- ; Show a Health Summary Object Definition 205 +1 ; 206 +2 ; Input X ...") |
DavidWhitten (talk | contribs) |
||
| Line 16: | Line 16: | ||
215 +11 D GET^C9CGMTSOBS2(+($G(X)),.ARY) | 215 +11 D GET^C9CGMTSOBS2(+($G(X)),.ARY) | ||
216 +12 Q | 216 +12 Q | ||
| − | </pre>== DEF^C9CGMTSOBJ<pre> | + | </pre> |
| + | == DEF^C9CGMTSOBJ == | ||
| + | <pre> | ||
217 DEF(X,ARY) -- | 217 DEF(X,ARY) -- | ||
; Extract a Health Summary Object Definition | ; Extract a Health Summary Object Definition | ||
| Line 31: | Line 33: | ||
228 +11 D DEF^C9CGMTSOBS(+($G(X)),.ARY) | 228 +11 D DEF^C9CGMTSOBS(+($G(X)),.ARY) | ||
229 +12 Q | 229 +12 Q | ||
| − | </pre>== DIS^C9CGMTSOBJ<pre> | + | </pre> |
| + | == DIS^C9CGMTSOBJ == | ||
| + | <pre> | ||
230 DIS(DFN,OBJ) -- | 230 DIS(DFN,OBJ) -- | ||
; Display Object | ; Display Object | ||
Revision as of 16:47, 7 May 2015
202 +4 D SO^C9CGMTSOBS(+($G(X)))
203 +5 Q
204 EXTRACT(X,ARY) --
; Show a Health Summary Object Definition
205 +1 ;
206 +2 ; Input X IEN for Health Summary Object (#142.5)
207 +3 ; Output ARY() Array of fields and values
208 +4 ; (passed by reference)
209 +5 ;
210 +6 ; ARY(IEN,<field #>,"I") = Internal Value
211 +7 ; ARY(IEN,<field #>,"E") = External Value
212 +8 ; ARY(IEN,<field #>,"NAME") = Field Name
213 +9 ; ARY(IEN,<field #>,"PROMT") = Mixed Case of Field Name
214 +10 ;
215 +11 D GET^C9CGMTSOBS2(+($G(X)),.ARY)
216 +12 Q
DEF^C9CGMTSOBJ
217 DEF(X,ARY) --
; Extract a Health Summary Object Definition
218 +1 ;
219 +2 ; Input X IEN for Health Summary Object (#142.5)
220 +3 ; Output ARY() Array of fields and values
221 +4 ; (passed by reference)
222 +5 ;
223 +6 ; ARY("D",0) = # of lines in Definition
224 +7 ; ARY("D",#) = Definition Text
225 +8 ; ARY("E",0) = # of lines in Example
226 +9 ; ARY("E",#) = Example Text
227 +10 ;
228 +11 D DEF^C9CGMTSOBS(+($G(X)),.ARY)
229 +12 Q
DIS^C9CGMTSOBJ
230 DIS(DFN,OBJ) --
; Display Object
231 +1 ;
232 +2 ; Input DFN IEN for Patient (#2)
233 +3 ; OBJ IEN for Health Summary Object (#142.5)
234 +4 ;
235 +5 ; Output Display of Health Summary data
236 +6 ;
237 +7 D DIS^C9CGMTSOBS2(+($G(DFN)),$G(OBJ))
238 +8 Q
239 STMP ; Show TMP
240 +1 N GMTSNN,GMTSNC S GMTSNN="^TMP(""GMTSOBJ"","_$J_",""OGBL"")",GMTSNC
="^TMP(""GMTSOBJ"","_$J_",""OGBL"","
241 +2 F S GMTSNN=$Q(@GMTSNN) Q:GMTSNN=""!(GMTSNN'[GMTSNC) W !,GMTSNN,"=
",@GMTSNN
242 +3 Q
