| 1 | PRCFFUC1 ;WISC/SJG-UTILITY ROUTINE FOR HOLD FUNCTIONALITY ;7/18/95 10:39
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | H1 ; Help prompt for new accounting period
|
|---|
| 6 | K MSG S HELP=1,MSG(1)=" "
|
|---|
| 7 | S MSG(2)="Enter the calendar month and year of the accounting period that"
|
|---|
| 8 | S MSG(3)="this transaction should affect FMS. Usually, accounting period"
|
|---|
| 9 | S MSG(4)="is used during the overlap period to affect the previous open"
|
|---|
| 10 | S MSG(5)="accounting period, so the default provided is the previous accounting"
|
|---|
| 11 | S MSG(6)="period. FMS will accept any OPEN previous accounting period, but if you"
|
|---|
| 12 | S MSG(7)="choose one that is closed in FMS, the document will reject."
|
|---|
| 13 | S MSG(8)="Enter '??' at the accounting period prompt to view a table showing"
|
|---|
| 14 | S MSG(9)="the Accounting Periods."
|
|---|
| 15 | S MSG(10)=" "
|
|---|
| 16 | D EN^DDIOL(.MSG) K MSG D PAUSE
|
|---|
| 17 | Q
|
|---|
| 18 | H2 ; Help for relating accounting period to calendar month
|
|---|
| 19 | N LN,BAR S BAR="|",HELP=1
|
|---|
| 20 | W !,"The values relationship between the Calendar Month",!,"and the Accounting Period and Fiscal Months is as follows:"
|
|---|
| 21 | S $P(LN,"_",45)="" W !,LN K LN S $P(LN,"-",45)=""
|
|---|
| 22 | W !?15,BAR,?18,"Accounting",?30,BAR,?33,"Calendar"
|
|---|
| 23 | W !?3,"Month",?15,BAR,?20,"Period",?30,BAR,?34,"Month",!,LN
|
|---|
| 24 | W !?3,"October",?15,BAR,?22,"01",?30,BAR,?36,"10"
|
|---|
| 25 | W !?3,"November",?15,BAR,?22,"02",?30,BAR,?36,"11"
|
|---|
| 26 | W !?3,"December",?15,BAR,?22,"03",?30,BAR,?36,"12"
|
|---|
| 27 | W !?3,"January",?15,BAR,?22,"04",?30,BAR,?36,"01"
|
|---|
| 28 | W !?3,"February",?15,BAR,?22,"05",?30,BAR,?36,"02"
|
|---|
| 29 | W !?3,"March",?15,BAR,?22,"06",?30,BAR,?36,"03"
|
|---|
| 30 | W !?3,"April",?15,BAR,?22,"07",?30,BAR,?36,"04"
|
|---|
| 31 | W !?3,"May",?15,BAR,?22,"08",?30,BAR,?36,"05"
|
|---|
| 32 | W !?3,"June",?15,BAR,?22,"09",?30,BAR,?36,"06"
|
|---|
| 33 | W !?3,"July",?15,BAR,?22,"10",?30,BAR,?36,"07"
|
|---|
| 34 | W !?3,"August",?15,BAR,?22,"11",?30,BAR,?36,"08"
|
|---|
| 35 | W !?3,"September",?15,BAR,?22,"12",?30,BAR,?36,"09"
|
|---|
| 36 | K LN S $P(LN,"_",45)="" W !,LN K LN
|
|---|
| 37 | W !!,"Example:"
|
|---|
| 38 | W !,"March is Accounting Period '06' and Calendar Month '03'"
|
|---|
| 39 | D PAUSE
|
|---|
| 40 | Q
|
|---|
| 41 | PAUSE ; Pause screen when data is displayed
|
|---|
| 42 | W !!,"Press 'RETURN' to continue" R X:DTIME
|
|---|
| 43 | Q
|
|---|
