|
|
| (5 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>
| |
