source: IHS-VA_UTILITIES-XB/trunk/XBLMP.m@ 1044

Last change on this file since 1044 was 642, checked in by Sam Habiel, 15 years ago

Modified directory structure; moved routines.

File size: 518 bytes
Line 
1XBLMP ; ; 16-MAY-1995
2 ;;4.0;XB;;Jul 20, 2009;Build 2
3 ;; ;
4EN ; -- main entry point for XB DISPLAY (PROTOCAL)
5 D EN^VALM("XB DISPLAY (PROTOCAL)")
6 Q
7 ;
8HDR ; -- header code
9 S VALMHDR(1)="This is a test header for XB DISPLAY (PROTOCAL)."
10 S VALMHDR(2)="This is the second line"
11 Q
12 ;
13INIT ; -- init variables and list array
14 F LINE=1:1:30 D SET^VALM10(LINE,LINE_" Line number "_LINE)
15 S VALMCNT=30
16 Q
17 ;
18HELP ; -- help code
19 S X="?" D DISP^XQORM1 W !!
20 Q
21 ;
22EXIT ; -- exit code
23 Q
24 ;
25EXPND ; -- expand code
26 Q
27 ;
Note: See TracBrowser for help on using the repository browser.