RGEQ.m

RGEQ ;BHM/RGY,DKM-Queue processor ;17-Feb-98

 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

EN(TYPE,STUB) ;

 ;This routine creates stub event queue entries which are later processed

 ;by the Event Queue Daemon.  The Event Queue Daemon then creates and

 ;broadcasts HL7 messages.

 ;

 ; Input: Required Variables

 ;

 ;  TYPE - data class (Ex. "CH" for CHemistry)

 ;  STUB - event stub (Ex. 91;7048784.917679;238

 ;           translated LRDFN;Inverse date  ;data name)

 ;

 I $$SEND^RGJUSITE=0 Q

 S ^RGEQ(TYPE,STUB)=""

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RGEQ   538     printed  Apr 09, 2024@20:46:54                                                                                                                                                                                                         Page 2

RGEQ      ;BHM/RGY,DKM-Queue processor ;17-Feb-98

 +1       ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99

EN(TYPE,STUB) ;

 +1       ;This routine creates stub event queue entries which are later processed

 +2       ;by the Event Queue Daemon.  The Event Queue Daemon then creates and

 +3       ;broadcasts HL7 messages.

 +4       ;

 +5       ; Input: Required Variables

 +6       ;

 +7       ;  TYPE - data class (Ex. "CH" for CHemistry)

 +8       ;  STUB - event stub (Ex. 91;7048784.917679;238

 +9       ;           translated LRDFN;Inverse date  ;data name)

 +10      ;

 +11       IF $$SEND^RGJUSITE=0

               QUIT 

 +12       SET ^RGEQ(TYPE,STUB)=""

 +13       QUIT