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

Package: IFCAP

Routine: PRCPUMAN


Information

PRCPUMAN ;WISC/RFJ/DGL-lookup for mand source field .4 file 445 ; 7/22/99 1:49pm

Source Information

Source file <PRCPUMAN.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
HELP(INVPT,ITEMDA,SCREEN) ; called from help (node 4 for dd(445.01,.4, )
; to display mandatory source.
; screen=1 to lookup in screen for procurement source in 445.07
; optional prc("cp"),prc("site")
SCREEN(INVPT,ITEMDA,SCREEN1) ; called from input transform for dd(445.01,.4,
; x=vendor name, y=vendor number,
; dic=file 440 or 445 it should lookup on
; screen1=1 to lookup in screen for procurement source in 445.07
; if vendor y fails -->> flag=0 and $t=0
  • ICR #6580
    • Status: Active
    • Usage: Private
    END

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+9
    Function Call: WRITE
    • Prompt: !,"ITEM IS NOT SET UP AS POSTED STOCK. THE MANDATORY SOURCE IN THE ITEM MASTER",!,"FILE DOES NOT EQUAL THE WAREHOUSE VENDOR."
    • Line Location: HELP+10
    Function Call: WRITE
    • Prompt: !,"LAST VENDOR ORDERED: ",%
    • Line Location: HELP+11
    Function Call: WRITE
    • Prompt: !,"PREFERRED VENDOR (FOR CP: ",CP,"): ",%
    • Line Location: HELP+12
    Function Call: WRITE
    • Prompt: !,"YOU MAY SELECT ANY VENDOR WHICH IS SET UP AS A VENDOR FOR THIS ITEM IN THE ITEM",!,"MASTER FILE"
    • Line Location: HELP+13
    Function Call: WRITE
    • Prompt: $S(SCREEN:", AND IS A PROCUREMENT SOURCE FOR THIS ITEM IN THE INVENTORY POINT.",1:". ")
    • Line Location: HELP+14
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: SCREEN
    • Line Location: HELP+14
    Function Call: WRITE
    • Prompt: "THE VENDOR ALSO MUST NOT BE INACTIVATED."
    • Line Location: HELP+14
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+15
    Function Call: WRITE
    • Prompt: !,"ITEM HAS A MANDATORY SOURCE: ",$P($G(^PRC(440,+MANSRCE,0)),"^"),".",!,"YOU CAN ONLY SELECT THIS VENDOR."
    • Line Location: HELP+16
    Function Call: WRITE
    • Prompt: !,"LAST VENDOR ORDERED: ",%
    • Line Location: HELP+17
    Function Call: WRITE
    • Prompt: !,"PREFERRED VENDOR (FOR CP: ",CP,"): ",%
    • Line Location: HELP+18
    Function Call: WRITE
    • Prompt: !,"YOU MAY SELECT ANY VENDOR WHICH IS SET UP AS A VENDOR FOR THIS ITEM IN THE ITEM",!,"MASTER FILE, AND IS A PROCUREMENT SOURCE FOR THIS ITEM IN THE INVENTORY POINT.",!,"THE VENDOR ALSO MUST NOT BE INACTIVATED."
    • Line Location: HELP+19
    Function Call: WRITE
    • Prompt: !!
    • Line Location: HELP+20
    Function Call: WRITE
    • Prompt: !,"YOU CAN ONLY SELECT A PRIMARY DISTRIBUTION POINT WHICH DISTRIBUTES THIS ITEM."
    • Line Location: HELP+21
    Info |  Source |  Entry Points |  Interaction Calls