- PRCB0A ;WISC/PLT-Help Execution Utility ;7/24/00 23:24
- V ;;5.1;IFCAP;;Oct 20, 2000
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- QUIT ;invalid entry
- ;
- HE(X) ;Help Execution
- N A,B
- F A=0:1 S @("B=$P($T("_X_"+A),"";"",3,999)") Q:B="" D EN^DDIOL(B)
- D EN^DDIOL(" ")
- QUIT
- ;
- BBFY ;;This is the beginning year of a Fund. For example, If the Fund is a
- ;;multi-year fund, good from 1992-1994, the beginning year would be
- ;;1992. If the Fund is a single year Fund, good for 1992 only, the
- ;;beginning year would be 1992.
- ;
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCB0A 565 printed Feb 18, 2025@23:26:30 Page 2
- PRCB0A ;WISC/PLT-Help Execution Utility ;7/24/00 23:24
- V ;;5.1;IFCAP;;Oct 20, 2000
- +1 ;Per VHA Directive 10-93-142, this routine should not be modified.
- +2 ;invalid entry
- QUIT
- +3 ;
- HE(X) ;Help Execution
- +1 NEW A,B
- +2 FOR A=0:1
- SET @("B=$P($T("_X_"+A),"";"",3,999)")
- if B=""
- QUIT
- DO EN^DDIOL(B)
- +3 DO EN^DDIOL(" ")
- +4 QUIT
- +5 ;
- BBFY ;;This is the beginning year of a Fund. For example, If the Fund is a
- +1 ;;multi-year fund, good from 1992-1994, the beginning year would be
- +2 ;;1992. If the Fund is a single year Fund, good for 1992 only, the
- +3 ;;beginning year would be 1992.
- +4 ;