Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: PRCHFPDT

Package: IFCAP

Routine: PRCHFPDT


Information

PRCHFPDT ;WISC/RWS-FPDS SCREENS FOR FY89 ;12/20/96 2:02 PM

Source Information

Source file <PRCHFPDT.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**79**;Oct 20, 2000
PREF ;Screen for Pref Prog. Codes
PREF2 ;Z2=COMPETITIVE STATUS/BUSINESS, Z1=PREFERENCE PROGRAM CODE, PRCHN("MB")=METHOD OF BUSINESS
PREFQ
BREAK ;Setting BREAKOUT CODE (# 442.16)
COMP ;template [PRCHAMT89 NEW] calls COMP
COMP2 ;
COMPQ
CHK ; CHECK FOR VARIOUS COMBINATIONS OF 'SOCIOECONOMIC GROUP (FY89)' CODES IN VENDOR FILE.
EX
ERR
D1 ; DISPLAY BREAKOUT CODES BROUGHT FROM VENDOR FILE IN ROUTINE PREF (CALLED FROM INPUT TEMPLATE [PRCHAMT89 NEW])

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Possible Preference Program Codes: "
  • Line Location: PREF+3
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: I
  • Line Location: PREF+4
Function Call: WRITE
  • Prompt: $P(^PRCD(420.6,Y,0),U,1)
  • Line Location: PREF+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PREF+11
Function Call: WRITE
  • Prompt: !!,"Possible Competitive Status/Business codes: "
  • Line Location: COMP+3
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: I
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: $P(^PRCD(420.6,Y,0),U,1)
  • Line Location: COMP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: COMP+6
Function Call: WRITE
  • Prompt: $C(7),!!,"You CANNOT have a Socioeconomic Group of OO--NONE OF THE OTHER CATEGORIES",!,"in combination with any other Socioeconomic Group",!,"RE-ENTER ALL!!!",!
  • Line Location: CHK+4
Function Call: WRITE
  • Prompt: $C(7),!!,"You CANNOT have the Socioeconomic Group of P--JAVITS-WAGNER-O'DAY",!,"in combination with any LARGE group",!,"RE-ENTER ALL!!!",!
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: $C(7),!!,"Category RV--SERVICE-DISABLED VETERAN must also include S--VETERAN-OWNED SM BUSINESS",!,"RE-ENTER ALL!!!"
  • Line Location: CHK+6
Function Call: WRITE
  • Prompt: !!,"Following Socioeconomic Group Codes brought over from Vendor File:",!
  • Condition for execution: J=1
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: ?5,$P(X,"^",1)_" "_$P(X,"^",2),!
  • Line Location: D1+1
Info |  Source |  Entry Points |  Interaction Calls