32 lines
712 B
Mathematica
32 lines
712 B
Mathematica
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
|