ROUTINE GMTSOBJ

VERSIONS

 * ROUTINE GMTSOBJ*CURRENT*
 * ROUTINE GMTSOBJ*CRH-CURRENT*
 * ROUTINE GMTSOBJ*58,63*

LINKS

 * The ROUTINE C9CGMTSOBJ
 * 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)
 * ;                   ^TMP("TIUHSOBJ",$J,"FGBL",0)
 * ;                   ^TMP("TIUHSOBJ",$J,"FGBL",#,0)
 * ;                   ^TMP("TIUHSOBJ",$J,"FGBL",#,0)