|
Last change
on this file since 623 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
546 bytes
|
| Line | |
|---|
| 1 | DGPTRAM ;ALB/BOK - ENTER RAM COSTS ; 11 MAR 87
|
|---|
| 2 | ;;5.3;Registration;**164**;Aug 13, 1993
|
|---|
| 3 | ASK N X,Y,DIR
|
|---|
| 4 | S DIR("A")="Enter RAM costs for fiscal year: ",DIR(0)="DAO^2800101::E^K:'(X?2N!(X?4N)) X"
|
|---|
| 5 | S DIR("?")="^D HELP^DGPTRAM"
|
|---|
| 6 | D ^DIR
|
|---|
| 7 | I 'Y G QUIT
|
|---|
| 8 | S DGFY=Y(0)
|
|---|
| 9 | W ! S DIC="^DG(43,",DIC(0)="AEQMZ" D ^DIC Q:Y'>0
|
|---|
| 10 | S DA=+Y,DR="300///"_DGFY,DR(2,43.06)="1;2;4",DIE="^DG(43," D ^DIE
|
|---|
| 11 | QUIT K DGFY,DA,DIC,DIE,DR Q
|
|---|
| 12 | Q
|
|---|
| 13 | HELP D BMES^XPDUTL("Enter Fiscal Year for data entry, 2 or 4 digits (e.g.: 97 or 1997)")
|
|---|
| 14 | D MES^XPDUTL(" >> Must not be before 1980 <<")
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
