25 lines
928 B
Mathematica
25 lines
928 B
Mathematica
HLEVX ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25
|
|
;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
|
|
;
|
|
; All official event code for the VistA HL7 package will be included
|
|
; in the LIST subroutine below (for internal team use.)
|
|
;
|
|
CTRL D LIST
|
|
F QUIT:($Y+3)>IOSL W !
|
|
S X=$$BTE^HLCSMON("Press RETURN to exit... ")
|
|
Q
|
|
;
|
|
LIST N I,T W @IOF,$$CJ^XLFSTR("Official VistA HL7 Event Monitor Code",IOM),!,$$REPEAT^XLFSTR("=",IOM) F I=1:1 S T=$T(LIST+I) Q:T'[";;" S T=$P(T,";;",2,99) W !,$P(T,U,1,2),?18,$P(T,U,3)
|
|
;;
|
|
;;The "monitors" that are officially included in the VistA HL7 package are
|
|
;;listed below.
|
|
;;
|
|
;;Routine Monitor-Name
|
|
;;==============================================================================
|
|
;;SYSTEM^HLEVX001^EVENT MONITOR
|
|
;;CHK870^HLEVX000^STUB 870 SEARCH & MORE
|
|
;;CHKXREF^HLEVX002^XREF CHECK - FILE 772 & 773
|
|
Q
|
|
;
|
|
EOR ;HLEVX - VistA HL7 Event Monitor Code ;5/30/03 15:25
|