Last change
on this file since 1766 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
928 bytes
|
Rev | Line | |
---|
[613] | 1 | HLEVX ;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 | ;
|
---|
| 7 | CTRL D LIST
|
---|
| 8 | F QUIT:($Y+3)>IOSL W !
|
---|
| 9 | S X=$$BTE^HLCSMON("Press RETURN to exit... ")
|
---|
| 10 | Q
|
---|
| 11 | ;
|
---|
| 12 | 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)
|
---|
| 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 | ;
|
---|
| 24 | EOR ;HLEVX - VistA HL7 Event Monitor Code ;5/30/03 15:25
|
---|
Note:
See
TracBrowser
for help on using the repository browser.