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

Package: IFCAP

Routine: PRCHNPO7


Information

PRCHNPO7 ;WISC/RHD-MISCELLANEOUS ROUTINES FROM P.O.ADD/EDIT 442 ; 7/27/05 10:16am

Source Information

Source file <PRCHNPO7.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 6 ^PRCFYN  EN5^PRCHCRD  (EN10,EN11,EN12,EN8)^PRCHCRD1  ENS^PRCHSTAT  WORD^PRCHUTL  ($$ACCT,$$NSN)^PRCPUX1  
VA FileMan 4 %XY^%RCR  EN^DDIOL  ^DIC  ^DIK  

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: 19

Package Total Caller Graph
IFCAP 19 ITEM  PRCHEB  PRCHMA  PRCHNPO1  PRCHNPO4  PRCHNPO8  PRCHNRQ  PRCHT112  
PRCHT113  PRCHT114  PRCHT12  PRCHT16  PRCHT311  PRCHT312  PRCHT313  PRCHT33  
PRCHT37  ^PRC(442  ^PRC(443.6  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**79,100**;Oct 20, 2000
EN1 ;INPUT TRANSFORM-FILE 442, NSN #9.5
EN10 ;UPDATE FEDERAL SUPPLY CLASSIFICATION/PRODUCT SERVICE CODE (FSC/PSC), field #8, file #442.
EN11
EN100 ;Come here for amended orders - check FSC/PSC, field #8, file #443.6.
EN101 ;Check Request for Quotations - check FSC/PSC, field #4, file #444.
EN102 ;Stop assignment of a PSC to an item.
EN103 ;Stop assignment of an FSC to a service.
EN104 ;Stop user if commodity code is missing.
EN105 ;Stop a PO if a line item does not contain an FSC or PSC. This tag is
  • ICR #6640
    • Status: Active
    • Usage: Private
    EN106 ;PRC*5.1*100: stop amended PO with line items lacking an FSC or PSC.
    EN2 ;IF 'ESTIMATED P.O.' MOVE VERBAGE INTO COMMENTS
  • ICR #6640
    • Status: Active
    • Usage: Private
    EN2A ;CHECK DELIVERY SCHEDULES-QUANTITY DELIVERED MUST BE >0
    EN3 ;COMPLETE DEPOT/GSA PUSH ORDERS
    EN30
    EN31
    EN6 ;FILE 442, SKU #9.4
    EN7 ;FILE 442, UNIT CONVERSION FACTOR #9.7
    VEN
    VENA
    VEN1
    VEN1A
    SUPBOC(QUIETLY) ;stmts.to compute pre-implied BOC, moved from template PRCH2138 into this routine and also called in BOC input transform
    EN8 ;FILE 442, ITEM #40; BOC #3.5 -- Z0 must = BOC on entry
    EN88 ;FILE 442, EST. SHIPPING BOC #13.05 -- Z0 must = BOC on entry
    EN9 ;CHECK FOR PAYMENT FIELDS AND OTHER FIELDS IN VENDOR FILE
    EXIT
    EN12 ;UPDATE NATIONAL DRUG CODE #9.3
    EN13 ;FILE 443.6, ITEM #40;BOC #3.5, EST. SHIPPING BOC #13.05
    EN133 ;FILE 443.6, EST. SHIPPING BOC #13.05

    External References

    Name Field # of Occurrence
    %XY^%RCR EN9+5
    EN^DDIOL EN100+2, EN102+3, EN103+3, EN104+3, EN105+4, EN106+2
    ^DIC EN8+4, EN88+2, EN13+1, EN133+1
    ^DIK EN2A+6
    ^PRCFYN EN30
    EN5^PRCHCRD EN1+7
    EN10^PRCHCRD1 EN6+2
    EN11^PRCHCRD1 EN7+2
    EN12^PRCHCRD1 EN12+2
    EN8^PRCHCRD1 EN11, EN100+11, EN101+8
    ENS^PRCHSTAT EN31
    WORD^PRCHUTL EN2+3
    $$ACCT^PRCPUX1 SUPBOC+6
    $$NSN^PRCPUX1 SUPBOC+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,$C(7),"Invalid NSN--first 4 characters must be FSC code!!"
    • Line Location: EN1+1
    Function Call: WRITE
    • Prompt: !!,$C(7),"This NSN has already been assigned to item # "_$O(^(0))_"!!"
    • Line Location: EN1+3
    Function Call: WRITE
    • Prompt: $C(7),!,"Commodity Code missing on this FSC--Required for LOG code sheets!"
    • Line Location: EN1+4
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: EN3+2
    Function Call: WRITE
    • Prompt: !!,"You can either enter the total dollar amount for the entire PUSH, or just the",!,"dollar amount for this part (regular, subsistence or drugs). This is just",!,"used to update the P.O.register."
    • Line Location: EN3+4
    Function Call: WRITE
    • Prompt: $C(7),"??"
    • Line Location: EN3+5
    Function Call: WRITE
    • Prompt: !!,"Vendor must be entered before items ! ",$C(7)
    • Line Location: VEN+0
    Function Call: WRITE
    • Prompt: !!,"Vendor must be entered before items ! ",$C(7)
    • Line Location: VENA+0
    Function Call: WRITE
    • Prompt: !!,"Vendor must be entered before items ! ",$C(7)
    • Line Location: VEN1+0
    Function Call: WRITE
    • Prompt: !!,"Vendor must be entered before items ! ",$C(7)
    • Line Location: VEN1A+0
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: EN8+7
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: EN88+3
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: EN13+1
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: EN133+1
    Routine Call
    • DIC
    • Line Location:
      • EN8+4
      • EN88+2
      • EN13+1
      • EN133+1

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRC(442.8 - [#442.8] Classic Fileman Calls

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(440 - [#440] EN9+3
    ^PRC(441 - [#441] EN1+3, EN11, EN100+11, EN101+8
    ^PRC(441.2 - [#441.2] EN1+1, EN1+4, EN10+7, EN10+9, EN10+11, EN10+13, EN100+3, EN100+5, EN100+7, EN100+9
    , EN101+1, EN101+3, EN101+4, EN101+6
    ^PRC(442 - [#442] EN1+2, EN1+5*, EN1+6, EN1+7, EN10+7, EN10+10, EN10+13, EN11, EN100+6, EN105+3
    , EN105+4, EN2+2, EN2A+2, EN3+1, EN3+6*, EN6+1, EN6+2, EN7+1, EN7+2, VEN
    , VENA, SUPBOC+2, SUPBOC+4, SUPBOC+9*, EN8+3, EN9+3, EN9+5, EN12+1, EN12+2
    ^PRC(442.8 - [#442.8] EN2A+3, EN2A+4, EN2A+5, EN2A+6
    ^PRC(443.6 - [#443.6] EN100+2, EN100+3, EN100+9, EN100+11, EN106+1, EN106+2, VEN1, VEN1A
    ^PRC(444 - [#444] EN101+1, EN101+8
    ^PRCD(420.2 - [#420.2] SUPBOC+8

    Label References

    Name Line Occurrences
    EN102 EN10+7, EN10+11, EN100+3, EN100+7, EN101+1, EN101+4
    EN103 EN10+13, EN100+9, EN101+6
    EN104 EN10+9, EN100+5, EN101+3
    EN11 EN1+9
    EN2A EN2+1
    EN3 EN3+4, EN3+5
    EN30 EN3+3
    EN31 EN3+2
    EXIT EN9+3, EN9+4
    VEN EN6+1, EN7+1, SUPBOC+3, EN8+1, EN12+1
    VEN1 EN13+1
    VEN1A EN133+1
    VENA EN88+1

    Naked Globals

    Name Field # of Occurrence
    ^( EN1+3
    ^(0 EN1+3, EN2+2
    ^(1 VEN, VENA, VEN1, VEN1A
    ^(2 EN6+2, EN7+2, EN12+2
    ^(7 EN2+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % EN30*
    >> %A EN30*
    >> %B EN30*
    >> %X EN9+5*
    >> %Y EN9+5*
    A EN10+7!, EN10+9!, EN10+11!, EN10+13!, EN100+3!, EN100+5!, EN100+7!, EN100+9!, EN101+1!, EN101+3!
    , EN101+4!, EN101+6!, EN102+3, EN103+3, EN104+3
    A(1 EN102+1*, EN103+1*, EN104+1*
    A(2 EN102+2*, EN103+2*, EN104+2*
    ACCT SUPBOC+1~, SUPBOC+6*, SUPBOC+8
    >> D0 EN9+3, EN9+5
    DA EN1+2, EN1+5, EN1+6, EN10+7, EN10+13, EN11, EN100+2, EN100+3, EN100+9, EN100+11
    , EN101+1, EN101+8, EN2A+1~, EN2A+6*, EN31*, EN6+1, EN6+2, EN7+1, EN7+2, VENA
    , VEN1A, SUPBOC+2, SUPBOC+4, SUPBOC+9, EN12+1, EN12+2
    DA(1 EN1+2, EN1+5, EN1+6, EN1+7, EN10+7, EN10+10, EN10+13, EN11, EN100+2, EN100+3
    , EN100+6, EN100+9, EN100+11, EN101+1, EN101+8, EN6+1, EN6+2, EN7+1, EN7+2, VEN
    , VEN1, SUPBOC+2, SUPBOC+4, SUPBOC+9, EN8+3, EN12+1, EN12+2
    DIC EN8+1~, EN8+2*, EN88+1~, EN88+2*, EN13+1*!, EN133+1*!
    DIC(0 EN8+2*, EN88+2*, EN13+1*, EN133+1*
    DIK EN2A+6*!
    DTIME EN3+2
    >> ERROR EN105+4*, EN106+2*
    >> FLAG EN9+4
    >> I EN3+1*, EN3+2
    J EN2A+1~, EN2A+4*, EN2A+5
    K EN2A+1~, EN2A+5*, EN2A+6
    NUM EN2A+1~, EN2A+2*, EN2A+3, EN2A+4, EN2A+5
    >> PRC("SITE" EN1+7*, EN10+10*, EN100+6*, EN6+2*, EN7+2*, EN12+2*
    PRCH EN2+3*!
    >> PRCHBOC EN8+6*
    PRCHBOCC SUPBOC+1~, SUPBOC+8*, SUPBOC+9, SUPBOC+10
    >> PRCHCI EN1+2*, EN1+3, EN11*, EN100+11*, EN101+8*, EN6+2*, EN7+2*, EN12+2*
    >> PRCHCPO EN1+7*, EN11*, EN100+11*, EN101+8*, EN6+2*, EN7+2*, EN12+2*
    >> PRCHCV EN6+2*, EN7+2*, EN12+2*
    PRCHIDA SUPBOC+1~, SUPBOC+4*, SUPBOC+6
    >> PRCHITM EN105+4*, EN106+2*
    >> PRCHN("SFC" SUPBOC+6*
    >> PRCHOV3 EN9+4
    >> PRCHOV7 EN9+3*, EN9+4
    >> PRCHPO EN105+3, EN105+4, EN106+1, EN106+2, EN2+2, EN2A+2, EN3+1, EN3+6, EN31
    PRCHSAVX EN1+8*, EN11+1!, EN100+12!, EN101+9!
    >> PRCSAVE EN10+7, EN10+11, EN10+13, EN100+3, EN100+7, EN100+9, EN101+1, EN101+4, EN101+6
    QUIETLY SUPBOC~, SUPBOC+2, SUPBOC+10
    SPFCP SUPBOC+1~, SUPBOC+4*, SUPBOC+5, SUPBOC+6
    U EN1+2, EN1+4, EN1+5, EN1+6, EN10+7, EN10+9, EN10+11, EN10+13, EN11, EN100+2
    , EN100+3, EN100+5, EN100+7, EN100+9, EN100+11, EN101+1, EN101+3, EN101+4, EN101+6, EN101+8
    , EN105+3, EN105+4, EN106+1, EN106+2, EN2+2, EN2A+2, EN2A+6, EN3+1, EN3+6, EN6+1
    , EN6+2, EN7+1, EN7+2, VEN, VENA, VEN1, VEN1A, SUPBOC+2, SUPBOC+4, SUPBOC+8
    , SUPBOC+9, EN8+3, EN9+4, EN12+1, EN12+2
    VEN EN9+5*!
    WX EN2+2*!, EN2+3*
    X EN1+1!, EN1+3!, EN1+4!, EN1+5, EN1+8*, EN10+7!, EN10+9!, EN10+11!, EN10+13!, EN11+1*
    , EN100+2, EN100+3!, EN100+5!, EN100+7!, EN100+9!, EN100+12*, EN101+1!, EN101+3!, EN101+4!, EN101+6!
    , EN101+9*, EN3+2*, EN3+3, EN3+4, EN3+5*, EN3+6, EN30*, EN6+1, EN7+1, VEN!
    , VENA!, VEN1!, VEN1A!, SUPBOC+2*, SUPBOC+3, SUPBOC+10*, SUPBOC+11, EN8+1, EN8+4!, EN8+5*
    , EN8+7, EN88+1, EN88+2!, EN88+3*, EN12+1, EN13+1!*, EN133+1!*
    >> Y EN100+2*, EN8+4, EN8+6, EN88+2, EN9+4*, EN13+1, EN133+1
    >> Y(0 EN8+5, EN88+3, EN13+1, EN133+1
    >> Z EN1+3*
    Z0 EN8+2, EN8+4!, EN88+2!, EN13+1!, EN133+1!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All