|
|
| (4 intermediate revisions by the same user not shown) |
| Line 1: |
Line 1: |
| − | __TOC__
| + | == VERSIONS == |
| − | <pre>
| + | * [[ROUTINE_C9CGMTSOBJ_*58,63,LOCAL*_ZTPP| C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP]] |
| − | 182 +17 D OPEN^%ZISH("WRITEFILE",GMTSPATH,GMTSFILE,"W"),DIS(+($G(DFN)),+($G
| + | === LINKS === |
| − | (OBJ)))
| + | [[CATEGORY:ROUTINE]] |
| − | 183 +18 D CLOSE^%ZISH("WRITEFILE") K ^TMP("GMTSOBJ",$J,"OGBL")
| |
| − | 184 +19 S Y=$$FTG^%ZISH(GMTSPATH,GMTSFILE,$NA(^TMP("GMTSOBJ",$J,"OGBL",1)),
| |
| − | 4)
| |
| − | 185 +20 S GMTSHFN(GMTSFILE)="",Y=$$DEL^%ZISH(GMTSPATH,$NA(GMTSHFN))
| |
| − | 186 +21 S (GMTSBLK,GMTSNCT,GMTSPRE)=0 S GMTSNN="^TMP(""GMTSOBJ"","_$J_",""O
| |
| − | GBL"")"
| |
| − | 187 +22 S GMTSNC="^TMP(""GMTSOBJ"","_$J_",""OGBL"","
| |
| − | 188 +23 F S GMTSNN=$Q(@GMTSNN) Q:GMTSNN=""!(GMTSNN'[GMTSNC) D
| |
| − | 189 +24 . S GMTSND=@GMTSNN,GMTSNDT=$$TRIM^C9CGMTSOBV(GMTSND)
| |
| − | 190 +25 . I 'GMTSBLK S:GMTSNDT="" GMTSBLK=1 Q:GMTSBLK
| |
| − | 191 +26 . Q:GMTSPRE&(GMTSNDT="") S GMTSNCT=GMTSNCT+1
| |
| − | 192 +27 . S @(GMTSRTO_GMTSNCT_",0)")=GMTSND
| |
| − | 193 +28 . S @GMTS0=$G(@GMTS0)+1
| |
| − | 194 +29 . S GMTSPRE=$S(GMTSNDT="":1,1:0)
| |
| − | 195 +30 K ^TMP("GMTSOBJ",$J,"OGBL")
| |
| − | 196 +31 Q
| |
| − | 197 +32 ;
| |
| − | </pre>
| |
| − | == SHOW^C9CGMTSOBJ ==
| |
| − | <pre>
| |
| − | 198 SHOW(X) ; Show a Health Summary Object Definition
| |
| − | 199 +1 ;
| |
| − | 200 +2 ; Input X IEN for Health Summary Object (#142.5)
| |
| − | 201 +3 ;
| |
| − | 202 +4 D SO^C9CGMTSOBS(+($G(X)))
| |
| − | 203 +5 Q
| |
| − | </pre>
| |
| − | == EXTRACT^C9CGMTSOBJ ==
| |
| − | <pre>
| |
| − | 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
| |
| − | </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>
| |
