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

Package: IFCAP

Routine: PRCPAGPR


Information

PRCPAGPR ;WISC/RFJ/DXH - autogen primary or whse order (rep item list) ;9.28.99

Source Information

Source file <PRCPAGPR.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
IFCAP 5 P^PRCPUREP  $$YN^PRCPUYN  $$SUPPLYCC^PRCSCK  (FY,QT)^PRCSUT  EN1^PRCUTL1  
VA FileMan 4 ^DIC  FILE^DICN  ^DIK  $$GET1^DIQ  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
IFCAP 3 PRCPAGP0  PRCPAGP2  PRCPDAPB  

Entry Points

Name Comments DBIA/ICR reference
GETRIL() ; get repetitive item list
; returns repetitive item list number
CONTPT(V1,V2,V3) ; get control point tied to invpt
; v1=station number
; v2=inventory point da
; v3=costcenter
DELRIL(V1) ; delete repetitive item list da=v1
  • ICR #6568
    • Status: Active
    • Usage: Private
    NEWRIL(V1,V2) ; add a new repetitve item list
    ; v1=invpt da
    ; v2=number to add
    ; returns da of entry added
  • ICR #6568
    • Status: Active
    • Usage: Private
    ADDITEM(V1,V2,V3,V4,V5) ; add items to repetitive item list
    ; v1=repetitive item list da
    ; v2=item master number
    ; v3=qty
    ; v4=vendor da
    ; v5=cost
    ; returns entry number
  • ICR #6568
    • Status: Active
    • Usage: Private

    External References

    Name Field # of Occurrence
    ^%ZIS GETRIL+12
    ^DIC CONTPT+26
    FILE^DICN NEWRIL+7, ADDITEM+14
    ^DIK DELRIL+3
    $$GET1^DIQ CONTPT+6
    P^PRCPUREP GETRIL+19
    $$YN^PRCPUYN GETRIL+23
    $$SUPPLYCC^PRCSCK GETRIL+3
    FY^PRCSUT GETRIL+9
    QT^PRCSUT GETRIL+10
    EN1^PRCUTL1 NEWRIL+6

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"COST CENTER IS MISSING FOR THIS INVENTORY POINT."
    • Line Location: GETRIL+4
    Function Call: WRITE
    • Prompt: !!,"COST CENTER: ",COSTCNTR
    • Line Location: GETRIL+5
    Function Call: WRITE
    • Prompt: !!,"I will generate requests for: ",PRCPREPN
    • Line Location: GETRIL+11
    Function Call: WRITE
    • Prompt: !!,"You currently have the following repetitive item lists on file:"
    • Line Location: GETRIL+16
    Function Call: WRITE
    • Prompt: !?5,X,?35,"created: ",$E($P(%,"^",4),4,5),"-",$E($P(%,"^",4),6,7),"-",$E($P(%,"^",4),2,3),?60,"item count: ",+$P($G(^PRCS(410.3,Y,1,0)),"^",4)
    • Line Location: GETRIL+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: GETRIL+23
    Function Call: WRITE
    • Prompt: !," deleting repetitive item lists..."
    • Line Location: GETRIL+27
    Function Call: WRITE
    • Prompt: !!,"No FUND CONTROL POINTS tied to INVENTORY POINT '"_PRCPINPT("E")_"'."
    • Line Location: CONTPT+16
    Function Call: WRITE
    • Prompt: !!,"FUND CONTROL POINT '"_$P(COUNT("PRCP",Y1),U)_"' is tied to INVENTORY POINT"
    • Line Location: CONTPT+18
    Function Call: WRITE
    • Prompt: !,"'"_PRCPINPT("E")_"', but "
    • Line Location: CONTPT+19
    Function Call: WRITE
    • Prompt: "it does not include COST CENTER "_PRCPCC
    • Line Location: CONTPT+20
    Function Call: WRITE
    • Prompt: $S('$P(COUNT("PRCP",Y1),U,2):" and",1:".") W:'$P(COUNT("PRCP",Y1),U,2)
    • Line Location: CONTPT+20
    Function Call: WRITE
    • Prompt: " Can't proceed."
    • Line Location: CONTPT+21
    Function Call: WRITE
    • Prompt: !!,"These FUND CONTROL PTS are tied to INVENTORY POINT '"_PRCPINPT("E")_"':"
    • Line Location: CONTPT+22
    Function Call: WRITE
    • Prompt: !,?2,$E($P(COUNT("PRCP",Y1),U),1,20),?25
    • Line Location: CONTPT+23
    Function Call: WRITE
    • Prompt: "COST CENTER "_PRCPCC_" is not included."
    • Condition for execution: '$P(COUNT("PRCP",Y1),U,2) "You lack access. " W:'$P(COUNT("PRCP",Y1),U,3)
    • Line Location: CONTPT+23
    Function Call: WRITE
    • Prompt: !,"Indicated deficiencies must be corrected before we can proceed."
    • Line Location: CONTPT+24
    Function Call: WRITE
    • Prompt: !!,"FUND CONTROL POINT: ",Y
    • Line Location: CONTPT+25
    Function Call: WRITE
    • Prompt: !
    • Line Location: CONTPT+26
    Routine Call
    • %ZIS
    • Line Location:
      • GETRIL+12
    Routine Call
    • DIC
    • Line Location:
      • CONTPT+26

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410.3 - [#410.3] Classic Fileman Calls
    ^PRCP(445 - [#445] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PRC(420 - [#420] GETRIL+8, CONTPT+9, CONTPT+10, CONTPT+11, CONTPT+12, CONTPT+25
    ^PRC(440 - [#440] ADDITEM+12
    ^PRC(441 - [#441] ADDITEM+9, ADDITEM+10
    ^PRCP(445 - [#445] GETRIL+3
    ^PRCS(410.3 - [#410.3] GETRIL+13, GETRIL+14, GETRIL+18, DELRIL+1, ADDITEM+7, ADDITEM+8
    ^TMP($J GETRIL+12!, GETRIL+17*, GETRIL+20!, GETRIL+21!, GETRIL+28, GETRIL+29!

    Label References

    Name Line Occurrences
    $$CONTPT GETRIL+7
    DELRIL GETRIL+28

    Naked Globals

    Name Field # of Occurrence
    ^(0 ADDITEM+8*, ADDITEM+10*

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % GETRIL+2~, GETRIL+14*, GETRIL+15, GETRIL+18, GETRIL+23*, GETRIL+24, GETRIL+25, NEWRIL+4~, ADDITEM+11~
    %DT NEWRIL+4~
    CONTPT GETRIL+2~, GETRIL+7*, GETRIL+8, CONTPT+4~, CONTPT+9*, CONTPT+14*, CONTPT+25
    COSTCNTR GETRIL+2~, GETRIL+3*, GETRIL+4, GETRIL+5, GETRIL+7, GETRIL+11
    COUNT GETRIL+2~, GETRIL+13*, GETRIL+16, GETRIL+17*, GETRIL+19, GETRIL+28*, CONTPT+4~, CONTPT+9*, CONTPT+14*, CONTPT+15
    , CONTPT+25
    COUNT("PRCP" CONTPT+10*, CONTPT+11*, CONTPT+12*, CONTPT+13, CONTPT+18, CONTPT+20, CONTPT+21, CONTPT+23
    D0 NEWRIL+4~, NEWRIL+7!, ADDITEM+11~
    DA CONTPT+4~, CONTPT+26*, DELRIL+2~, DELRIL+3*, NEWRIL+4~, ADDITEM+11~
    DA(1 ADDITEM+13*
    DD NEWRIL+7!, ADDITEM+11~
    DI NEWRIL+4~, ADDITEM+11~
    DIC CONTPT+4~, CONTPT+26*, DELRIL+2~, NEWRIL+4~, NEWRIL+7*, ADDITEM+11~, ADDITEM+13*
    DIC("DR" NEWRIL+7*, ADDITEM+13*
    DIC("S" CONTPT+7*
    DIC(0 CONTPT+26*, NEWRIL+7*, ADDITEM+13*
    DIE NEWRIL+4~, ADDITEM+11~, ADDITEM+13*
    DIK DELRIL+2~, DELRIL+3*
    DLAYGO NEWRIL+4~, NEWRIL+7*, ADDITEM+11~, ADDITEM+13*
    DQ NEWRIL+4~, ADDITEM+11~
    DR NEWRIL+4~, ADDITEM+11~
    DUZ CONTPT+11
    INVPT NEWRIL+4~, NEWRIL+5*, NEWRIL+7
    IOP GETRIL+12*!
    IOSL GETRIL+19
    >> PRC("CP" GETRIL+8*, GETRIL+11
    >> PRC("FY" GETRIL+9!, GETRIL+11
    >> PRC("QTR" GETRIL+10!, GETRIL+11
    >> PRC("SITE" GETRIL+7, GETRIL+8, GETRIL+11
    >> PRCP("DPTYPE" GETRIL+3
    >> PRCP("I" GETRIL+3, GETRIL+7, GETRIL+15
    PRCPCC CONTPT+4~, CONTPT+5*, CONTPT+12, CONTPT+20, CONTPT+23
    PRCPFLAG GETRIL+2~, GETRIL+13, GETRIL+20, GETRIL+21, GETRIL+25*
    PRCPINPT CONTPT+4~, CONTPT+5*, CONTPT+6, CONTPT+9
    PRCPINPT("E" CONTPT+6*, CONTPT+16, CONTPT+19, CONTPT+22
    PRCPREPN GETRIL+2~, GETRIL+11*, GETRIL+13, GETRIL+30, NEWRIL+5*
    PRCPSTAT CONTPT+4~, CONTPT+5*, CONTPT+9, CONTPT+10, CONTPT+11, CONTPT+12, CONTPT+25, CONTPT+26
    PRCSFYT GETRIL+2~
    PRCSQTT GETRIL+2~
    U CONTPT+10, CONTPT+11, CONTPT+12, CONTPT+13, CONTPT+18, CONTPT+20, CONTPT+21, CONTPT+23
    V1 CONTPT~, CONTPT+5, DELRIL~, DELRIL+1, DELRIL+3, NEWRIL~, NEWRIL+5, ADDITEM~, ADDITEM+7, ADDITEM+8
    , ADDITEM+13
    V2 CONTPT~, CONTPT+5, NEWRIL~, NEWRIL+5, ADDITEM~, ADDITEM+9, ADDITEM+10, ADDITEM+13
    V3 CONTPT~, CONTPT+5, ADDITEM~, ADDITEM+13
    V4 ADDITEM~, ADDITEM+12, ADDITEM+13
    V5 ADDITEM~, ADDITEM+13
    VENDOR ADDITEM+11~, ADDITEM+12*, ADDITEM+13
    X GETRIL+2~, GETRIL+13*, GETRIL+18, CONTPT+4~, NEWRIL+4~, NEWRIL+5*, NEWRIL+6, ADDITEM+11~, ADDITEM+13*
    >> XH GETRIL+22*
    >> XH(1 GETRIL+22*
    >> XP GETRIL+22*
    Y GETRIL+2~, GETRIL+13*, GETRIL+14, GETRIL+17, GETRIL+18, CONTPT+4~, CONTPT+9*, CONTPT+10, CONTPT+11, CONTPT+12
    , CONTPT+14, CONTPT+25*, CONTPT+27, NEWRIL+4~, NEWRIL+8, ADDITEM+11~, ADDITEM+15
    Y1 CONTPT+4~, CONTPT+9*, CONTPT+10*, CONTPT+11, CONTPT+12, CONTPT+13, CONTPT+16, CONTPT+17, CONTPT+18, CONTPT+20
    , CONTPT+21, CONTPT+23*
    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