Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOMSG.m
- 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/HEALTH_LEVEL_SEVEN-HL/HLOMSG.m
r628 r636 1 HLOMSG ;ALB/CJM-HL7 - APIs for files 777/778 ;0 7/25/20072 ;;1.6;HEALTH LEVEL SEVEN;**126,134 ,137**;Oct 13, 1995;Build 211 HLOMSG ;ALB/CJM-HL7 - APIs for files 777/778 ;02/04/2004 2 ;;1.6;HEALTH LEVEL SEVEN;**126,134**;Oct 13, 1995;Build 30 3 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; … … 43 43 ; "PURGE" - scheduled purge dt/tm 44 44 ; "QUEUE" - the queue that the message was placed on 45 ; "SEQUENCE QUEUE" - the sequence queue (optional)46 45 ; 47 46 K MSG … … 96 95 .S MSG("MESSAGE TYPE")=$P(NODE,"^",3) 97 96 .S MSG("EVENT")=$P(NODE,"^",4) 98 I MSG("DIRECTION")="OUT" D99 .N NODE5100 .S NODE5=$G(^HLB(IEN,5))101 .S MSG("STATUS","SEQUENCE QUEUE")=$P(NODE5,"^")102 .S MSG("STATUS","MOVED TO OUT QUEUE")=$P(NODE5,"^",2)103 .S MSG("STATUS","SEQUENCE EXCEPTION RAISED")=$P(NODE5,"^",3)104 97 Q 1 105 98 ;
Note:
See TracChangeset
for help on using the changeset viewer.