Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCHFPDS

Package: IFCAP

Routine: PRCHFPDS


Information

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

Source Information

Source file <PRCHFPDS.m>

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCHAMT89  PRCHAMT89 NEW  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**16,59,79**;Oct 20, 2000
PROC ;Screen for Proc. Method/Bus. codes
PROCQ
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)
  • ICR #6879
    • Status: Active
    • Usage: Private
    COMP ;template PRCHAMT89 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)

    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+8
    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(440 - [#440] CHK+2, CHK+3, ERR!
    ^PRC(442 - [#442] PREF2+6, BREAK+3*, BREAK+4*, BREAK+5*, BREAK+7*, BREAK+8, D1+1
    ^PRCD(420.6 - [#420.6] PROC+1, PREF+4, PREF+5, PREF2+1, PREF2+2, PREF2+6, BREAK+8, COMP+4, COMP2+1, D1+1

    Label References

    Name Line Occurrences
    COMP2 COMP+4
    COMPQ COMP2+1
    ERR CHK+2, CHK+4, CHK+5, CHK+6
    EX ERR+1
    PREF2 PREF+4
    PREFQ PREF2+2, PREF2+5, PREF2+8, PREF2+9, PREF2+11, PREF2+12
    PROCQ PROC+1, PROC+4, PROC+7, PROC+9

    Naked Globals

    Name Field # of Occurrence
    ^(0 PROC+1, COMP2+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> DA PREF2+6, BREAK+3, BREAK+4, BREAK+5, BREAK+7, BREAK+8, CHK+2, CHK+3, ERR, D1+1
    >> DA(1 PREF2+6
    I PREF+4*, BREAK+7*, BREAK+8*, COMP+4*, CHK+3*, EX!, D1+1*
    >> J D1+1*
    >> PRCH PROC+4, PROC+7, PROC+9
    >> PRCHB( BREAK+7
    >> PRCHB(0 BREAK+7
    >> PRCHDISP PREF+4, PREF+5*
    >> PRCHDT PROC+1, PREF2+2, COMP2+1
    >> PRCHN("MB" PROC+4, PROC+7, PROC+9, PROC+10, PREF2+11, PREF2+12, COMP2+4
    >> PRCHN("TC" BREAK+8*
    >> PRCHPO BREAK+3, BREAK+4, BREAK+5, BREAK+7, BREAK+8, D1+1
    >> PRCHSC BREAK+2
    PRCHTO CHK+1!, EX!
    PRCHTO( CHK+3*
    PRCHTO(0 CHK+4
    PRCHTO(153 CHK+5
    PRCHTO(157 CHK+5
    PRCHTO(161 CHK+4!
    PRCHTO(162 CHK+6
    PRCHTO(163 CHK+5
    PRCHTO(164 CHK+5
    PRCHTO(167 CHK+6
    U PROC+1, PREF+4, PREF+5, PREF2+1, PREF2+2, PREF2+6, COMP+4, COMP2+1
    >> X D1+1*
    >> Y PROC+1, PREF+4*, PREF+5, PREF+10*, PREF2+1, PREF2+2, PREF2+5, COMP+4*, COMP+7*, COMP2+1
    , ERR*
    Z PREF+11!, COMP+8!
    Z0 PROC+1*, PROC+4*, PROC+7*, PROC+9*, PROC+10*, PROCQ, PROCQ+2!, PREF2+1*, PREF2+11*, PREF2+12*
    , PREFQ, PREFQ+1!, COMP2+1*, COMP2+4*, COMPQ, COMPQ+1!
    Z1 PROC+1*, PROC+4, PROC+7, PROC+9, PROC+10, PROCQ+2!, PREF+11!, PREF2+1*, PREF2+8, PREF2+9
    , PREF2+12, PREFQ+1!, COMP+8!, COMP2+1*, COMP2+4, COMPQ+1!
    >> Z2 PREF2+6*, PREF2+8, PREF2+9
    Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All