source: FOIAVistA/trunk/r/CAPACITY_MANAGEMENT_RUM-KMPR/KMPRSSB.m@ 1397

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

initial load of FOIAVistA 6/30/08 version

File size: 742 bytes
Line 
1KMPRSSB ;OAK/RAK - RUM Status using List Manager ;11/19/04 10:35
2 ;;2.0;CAPACITY MANAGEMENT - RUM;**1**;May 28, 2003
3 ;
4EN ; -- main entry point for KMPR STATUS
5 ;
6 D EN^VALM("KMPR STATUS")
7 ;
8 Q
9 ;
10HDR ; -- header code
11 ;
12 N TEXT,VERSION
13 ;
14 ; version data
15 S VERSION=$$VERSION^KMPRUTL
16 ; header text
17 S TEXT="Environment Check for RUM"
18 S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
19 S VALMHDR(1)=TEXT
20 S TEXT="CAPACITY MANAGEMENT - RUM v"_$P(VERSION,U)_" "_$P(VERSION,U,2)
21 S TEXT=$J(" ",IOM-$L(TEXT)\2)_TEXT
22 S VALMHDR(2)=TEXT
23 ;
24 Q
25 ;
26INIT ; -- init variables and list array
27 ;
28 D FORMAT^KMPRSSA(.VALMCNT)
29 ;
30 Q
31 ;
32HELP ; -- help code
33 ;
34 S X="?" D DISP^XQORM1 W !!
35 ;
36 Q
37 ;
38EXIT ; -- exit code
39 ;
40 K @VALMAR
41 ;
42 Q
43 ;
44EXPND ; -- expand code
45 ;
46 Q
Note: See TracBrowser for help on using the repository browser.