source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTRAM.m@ 677

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

initial load of FOIAVistA 6/30/08 version

File size: 546 bytes
Line 
1DGPTRAM ;ALB/BOK - ENTER RAM COSTS ; 11 MAR 87
2 ;;5.3;Registration;**164**;Aug 13, 1993
3ASK 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
11QUIT K DGFY,DA,DIC,DIE,DR Q
12 Q
13HELP 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.