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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^PRCS(410.3 - [#410.3] Classic Fileman Calls
    ^PRCP(445 - [#445] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call