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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIULMED2 743 printed Dec 13, 2024@02:42:17 Page 2
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
