Last change
on this file since 862 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
712 bytes
|
Rev | Line | |
---|
[613] | 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.