- 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 Apr 23, 2025@18:56:48 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
