ROUTINE GMTSOBJ

From VistApedia
Jump to: navigation, 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)
 ;