TIULMED2 ; SLC/JMH - used for transition to pharmacy APIs ;12/14/06
 ;;1.0;TEXT INTEGRATION UTILITIES;**193,197,213**;Jun 20, 1997;Build 3
 ;
IENNAME(NAME) ; 
 N LIST,OUT
 S LIST="TIULMED"
 D ARWS^PSS50("",NAME,LIST) ;IA 4533
 S OUT=$O(^TMP($J,LIST,"B",NAME,""))
 K ^TMP($J,LIST)
 Q OUT
DRGIEN(IEN) ;
 N LIST,OUT
 S LIST="TIULMED"
 D ZERO^PSS52P6(IEN,"","",LIST) ;IA 4549
 S OUT=+$G(^TMP($J,LIST,IEN,1)) ;P213
 K ^TMP($J,LIST)
 Q OUT
DRGCLASS(IEN) ;
 N LIST,OUT
 S LIST="TIULMED"
 D ZERO^PSS50(IEN,"","","","",LIST) ;IA 4533
 S OUT=$G(^TMP($J,LIST,IEN,2))
 K ^TMP($J,LIST)
 Q OUT
DEA(IEN) ;
 N LIST,OUT
 S LIST="TIULMED"
 D ZERO^PSS50(IEN,"","","","",LIST)
 S OUT=$G(^TMP($J,LIST,IEN,3))
 K ^TMP($J,LIST)
 Q OUT