ROUTINE GMTSOBJ

From VistApedia
Jump to navigationJump to search

VERSIONS

LINKS

is a modified copy of this routine to support CTO (Continuity of Text Objects)
  • This ROUTINE GMTSOBJ' at tag OBJ^GMTSOBJ
is called from menu option OPTION GMTS OBJ ENTER/EDIT.

TAGS

  • OBJ - called for ENTER/EDIT
  • TIU
TIU(DFN,OBJ) ; Get Health Summary Object (TIU)
;
; Input DFN IEN for Patient (#2)
; OBJ IEN for Health Summary Object (#142.5)
;
; Output Global array of Health Summary data
;
; ^TMP("TIUHSOBJ",$J,"FGBL",0)
; ^TMP("TIUHSOBJ",$J,"FGBL",#,0)
;