Changeset 636 for FOIAVistA/tag/r/HEALTH_LEVEL_SEVEN-HL/HLOAPP.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/HLOAPP.m
r628 r636 1 HLOAPP ;ALB/CJM-HL7 -Application Registry ; 07/09/20072 ;;1.6;HEALTH LEVEL SEVEN;**126,132 ,137**;Oct 13, 1995;Build 211 HLOAPP ;ALB/CJM-HL7 -Application Registry ;10/31/2006 2 ;;1.6;HEALTH LEVEL SEVEN;**126,132**;Oct 13, 1995;Build 6 3 3 ;Per VHA Directive 2004-038, this routine should not be modified. 4 4 ; 5 5 GETIEN(NAME) ;given the application name, it finds the ien. Returns 0 on failure 6 6 Q:'$L($G(NAME)) 0 7 Q +$O(^HLD(779.2,"C",$E(NAME,1,60),0)) 7 N IEN,SUB 8 S SUB=$E(NAME,1,60) 9 S IEN=0 10 F S IEN=$O(^HLD(779.2,"B",SUB,IEN)) Q:'IEN Q:$P($G(^HLD(779.2,IEN,0)),"^")=NAME 11 Q +IEN 8 12 ; 9 13 ACTION(HEADER,ACTION,QUEUE) ;Given the parsed header of a message it returns both the action that should be performed in response to the message and the incoming queue that it should be placed on. … … 93 97 S:SUBIEN ACTIVE='(+$P($G(^HLD(779.2,IEN,1,SUBIEN,0)),"^",7)) 94 98 Q ACTIVE 95 ;96 EXCEPT(APPNAME) ;97 ;returns the exception handler (tag^routine) that should be invoked98 ;when an applicaiton's messages are being sequenced and an app ack99 ;is not timely received100 ;101 N IEN,RTN102 S IEN=$$GETIEN($G(APPNAME))103 I IEN S RTN=$P($G(^HLD(779.2,IEN,0)),"^",10,11)104 I $L($G(RTN))>1 Q RTN105 Q "DEFAULT^HLOAPP"106 ;107 DEFAULT ;default exception handler if the app doesn't specify one108 S ^TMP("HLO SEQUENCING EXCEPTION",$J,$$NOW^XLFDT,+$G(HLMSGIEN))=""109 Q110 ;111 TIMEOUT(APPNAME) ;112 N IEN,TIME113 S IEN=$$GETIEN($G(APPNAME))114 I IEN S TIME=$P($G(^HLD(779.2,IEN,0)),"^",12)115 Q:'$G(TIME) 10116 Q TIME
Note:
See TracChangeset
for help on using the changeset viewer.