source: FOIAVistA/trunk/r/CLINICAL_INFO_RESOURCE_NETWORK-MRF-RGE--RG--RGED--RGUT--RGWB/RGEQ.m@ 846

Last change on this file since 846 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 522 bytes
Line 
1RGEQ ;BHM/RGY,DKM-Queue processor ;17-Feb-98
2 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
3EN(TYPE,STUB) ;
4 ;This routine creates stub event queue entries which are later processed
5 ;by the Event Queue Daemon. The Event Queue Daemon then creates and
6 ;broadcasts HL7 messages.
7 ;
8 ; Input: Required Variables
9 ;
10 ; TYPE - data class (Ex. "CH" for CHemistry)
11 ; STUB - event stub (Ex. 91;7048784.917679;238
12 ; translated LRDFN;Inverse date ;data name)
13 ;
14 I $$SEND^RGJUSITE=0 Q
15 S ^RGEQ(TYPE,STUB)=""
16 Q
Note: See TracBrowser for help on using the repository browser.