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