ROUTINE C9CGMTSOBJ - Revision history

DavidWhitten at 19:15, 7 May 2015

2015-05-07T19:15:35Z

← Older revision		Revision as of 19:15, 7 May 2015
Line 1:		Line 1:
	== VERSIONS ==		== VERSIONS ==
	* [[ROUTINE_C9CGMTSOBJ_58,63,LOCAL_ZTPP\| C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP]]		* [[ROUTINE_C9CGMTSOBJ_58,63,LOCAL_ZTPP\| C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP]]
			=== LINKS ===
	[[CATEGORY:ROUTINE]]		[[CATEGORY:ROUTINE]]

DavidWhitten: Replaced content with "== VERSIONS == * C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP CATEGORY:ROUTINE"

2015-05-07T18:49:37Z

Replaced content with "== VERSIONS == * C9CGMTSOBJ with patches 58,63,LOCAL printed by ZTPP CATEGORY:ROUTINE"

Show changes

DavidWhitten: /* MSTRECADM^C9CGMTSOBJ */

2015-05-07T18:09:06Z

MSTRECADM^C9CGMTSOBJ

← Older revision		Revision as of 18:09, 7 May 2015
Line 229:		Line 229:
	159 MSTRECADM(DFN) --		159 MSTRECADM(DFN) --
	;		;

			160 +1 ;Output Most Recent Admission for patient DFN - 1day
	160 +1 N (DUZ,U,DT,DFN) N VAROOT,INDATA,VAHOW,VAIP		160 +1 N (DUZ,U,DT,DFN) N VAROOT,INDATA,VAHOW,VAIP
	161 +2 SET VAROOT="INDATA",VAHOW=2,VAIP("D")="LAST"		161 +2 SET VAROOT="INDATA",VAHOW=2,VAIP("D")="LAST"
	162 +3 DO IN5^VADPT		162 +3 DO IN5^VADPT
	163 +4 Q $P(INDATA(13,1),U)		163 +4 ; want to start searching one day before recorded Admission Date
	~~164~~ +5 ;		163 +4 S INDATA=$$FMADD^XLFDT($P(INDATA(13,1),U),-1)
			163 +4 Q INDATA
	</pre>		</pre>

	== ARY^C9CGMTSOBJ ==		== ARY^C9CGMTSOBJ ==
	<pre>		<pre>

DavidWhitten at 16:57, 7 May 2015

2015-05-07T16:57:53Z

← Older revision		Revision as of 16:57, 7 May 2015
Line 1:		Line 1:
	__TOC__		__TOC__
			== ^C9CGMTSOBJ ==
	<pre>		<pre>
	C9CGMTSOBJ * * 242 LINES, 10209 BYTES, RSUM: 12810294/57868899 Page 1		C9CGMTSOBJ * * 242 LINES, 10209 BYTES, RSUM: 12810294/57868899 Page 1

DavidWhitten at 16:57, 7 May 2015

2015-05-07T16:57:27Z

Show changes

DavidWhitten at 16:48, 7 May 2015

2015-05-07T16:48:28Z

@@ Line 1: / Line 1: @@
 <pre>
 +4     D SO^C9CGMTSOBS(+($G(X)))
 +5     Q
 EXTRACT(X,ARY) --
              ; Show a Health Summary Object Definition

DavidWhitten at 16:47, 7 May 2015

2015-05-07T16:47:03Z

← Older revision		Revision as of 16:47, 7 May 2015
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

DavidWhitten: Created page with "

 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     ..."

2015-05-07T16:46:11Z

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 ..."

New page

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