TIULMED2.m

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

TIULMED2  ; SLC/JMH - used for transition to pharmacy APIs ;12/14/06

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**193,197,213**;Jun 20, 1997;Build 3

 +2       ;

IENNAME(NAME) ; 

 +1        NEW LIST,OUT

 +2        SET LIST="TIULMED"

 +3       ;IA 4533

           DO ARWS^PSS50("",NAME,LIST)

 +4        SET OUT=$ORDER(^TMP($JOB,LIST,"B",NAME,""))

 +5        KILL ^TMP($JOB,LIST)

 +6        QUIT OUT

DRGIEN(IEN) ;

 +1        NEW LIST,OUT

 +2        SET LIST="TIULMED"

 +3       ;IA 4549

           DO ZERO^PSS52P6(IEN,"","",LIST)

 +4       ;P213

           SET OUT=+$GET(^TMP($JOB,LIST,IEN,1))

 +5        KILL ^TMP($JOB,LIST)

 +6        QUIT OUT

DRGCLASS(IEN) ;

 +1        NEW LIST,OUT

 +2        SET LIST="TIULMED"

 +3       ;IA 4533

           DO ZERO^PSS50(IEN,"","","","",LIST)

 +4        SET OUT=$GET(^TMP($JOB,LIST,IEN,2))

 +5        KILL ^TMP($JOB,LIST)

 +6        QUIT OUT

DEA(IEN)  ;

 +1        NEW LIST,OUT

 +2        SET LIST="TIULMED"

 +3        DO ZERO^PSS50(IEN,"","","","",LIST)

 +4        SET OUT=$GET(^TMP($JOB,LIST,IEN,3))

 +5        KILL ^TMP($JOB,LIST)

 +6        QUIT OUT