- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSULRHL1.m
r628 r636 1 PSULRHL1 ;HCIOFO/BH/RDC - Process real time HL7 Lab messages ; 8/1/07 11:26am2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;**3 ,11**;MARCH, 2005;Build 81 PSULRHL1 ;HCIOFO/BH/RDC - Process real time HL7 Lab messages ; 5/15/04 3:10pm 2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;**3**;MARCH, 2005 3 3 ; 4 4 ; DBIA 3565 to subscribe to the LR7O ALL EVSEND RESULTS protocol … … 156 156 S LABS=$P(REC,PSUHLFS,4) 157 157 S LR60=$P(LABS,"^",4) 158 I LR60']"" Q159 158 S LRDN=$G(^LAB(60,LR60,0)) 160 159 S LRDN=$P($P(LRDN,"^",5),";",2) ; DBIA 91 for data name … … 162 161 ; Make the call to LRRPU to get the LOINC code for this test 163 162 ; 164 I LRDN']"" Q165 163 S RES=$$TSTRES^LRRPU(LRDFN,LRSS,LRIDT,LRDN,LR60,1) 166 164 ;
Note:
See TracChangeset
for help on using the changeset viewer.