Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
712 bytes
|
Line | |
---|
1 | TIULMED2 ; SLC/JMH - used for transition to pharmacy APIs ;12/14/06
|
---|
2 | ;;1.0;TEXT INTEGRATION UTILITIES;**193,197,213**;Jun 20, 1997;Build 3
|
---|
3 | ;
|
---|
4 | IENNAME(NAME) ;
|
---|
5 | N LIST,OUT
|
---|
6 | S LIST="TIULMED"
|
---|
7 | D ARWS^PSS50("",NAME,LIST) ;IA 4533
|
---|
8 | S OUT=$O(^TMP($J,LIST,"B",NAME,""))
|
---|
9 | K ^TMP($J,LIST)
|
---|
10 | Q OUT
|
---|
11 | DRGIEN(IEN) ;
|
---|
12 | N LIST,OUT
|
---|
13 | S LIST="TIULMED"
|
---|
14 | D ZERO^PSS52P6(IEN,"","",LIST) ;IA 4549
|
---|
15 | S OUT=+$G(^TMP($J,LIST,IEN,1)) ;P213
|
---|
16 | K ^TMP($J,LIST)
|
---|
17 | Q OUT
|
---|
18 | DRGCLASS(IEN) ;
|
---|
19 | N LIST,OUT
|
---|
20 | S LIST="TIULMED"
|
---|
21 | D ZERO^PSS50(IEN,"","","","",LIST) ;IA 4533
|
---|
22 | S OUT=$G(^TMP($J,LIST,IEN,2))
|
---|
23 | K ^TMP($J,LIST)
|
---|
24 | Q OUT
|
---|
25 | DEA(IEN) ;
|
---|
26 | N LIST,OUT
|
---|
27 | S LIST="TIULMED"
|
---|
28 | D ZERO^PSS50(IEN,"","","","",LIST)
|
---|
29 | S OUT=$G(^TMP($J,LIST,IEN,3))
|
---|
30 | K ^TMP($J,LIST)
|
---|
31 | Q OUT
|
---|
Note:
See
TracBrowser
for help on using the repository browser.