source: WorldVistAEHR/trunk/r/HEALTH_LEVEL_SEVEN-HL/HLEVX.m@ 691

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

initial load of WorldVistAEHR

File size: 928 bytes
Line 
1HLEVX ;O-OIFO/LJA - VistA HL7 Event Monitor Code ;02/04/2004 15:25
2 ;;1.6;HEALTH LEVEL SEVEN;**109**;Oct 13, 1995
3 ;
4 ; All official event code for the VistA HL7 package will be included
5 ; in the LIST subroutine below (for internal team use.)
6 ;
7CTRL D LIST
8 F QUIT:($Y+3)>IOSL W !
9 S X=$$BTE^HLCSMON("Press RETURN to exit... ")
10 Q
11 ;
12LIST 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)
13 ;;
14 ;;The "monitors" that are officially included in the VistA HL7 package are
15 ;;listed below.
16 ;;
17 ;;Routine Monitor-Name
18 ;;==============================================================================
19 ;;SYSTEM^HLEVX001^EVENT MONITOR
20 ;;CHK870^HLEVX000^STUB 870 SEARCH & MORE
21 ;;CHKXREF^HLEVX002^XREF CHECK - FILE 772 & 773
22 Q
23 ;
24EOR ;HLEVX - VistA HL7 Event Monitor Code ;5/30/03 15:25
Note: See TracBrowser for help on using the repository browser.