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)

 ;