|
|
| (6 intermediate revisions by the same user not shown) |
| Line 1: |
Line 1: |
| − | <pre>
| + | == VERSIONS == |
| − | 202 +4 D SO^C9CGMTSOBS(+($G(X)))
| + | * [[ROUTINE_C9CGMTSOBJ_*58,63,LOCAL*_ZTPP| C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP]] |
| − | 203 +5 Q
| + | === LINKS === |
| − | 204 EXTRACT(X,ARY) --
| + | [[CATEGORY:ROUTINE]] |
| − | ; 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
| |
| − | </pre>== DEF^C9CGMTSOBJ<pre>
| |
| − | 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
| |
| − | </pre>== DIS^C9CGMTSOBJ<pre>
| |
| − | 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
| |
| − | </pre>
| |
