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 ---[H[J[2J[HRGEQ 538 printed Nov 22, 2024@16:51:45 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
