source: WorldVistAEHR/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIULMED2.m@ 724

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 
1TIULMED2 ; 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 ;
4IENNAME(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
11DRGIEN(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
18DRGCLASS(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
25DEA(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.