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

Package: IFCAP

Routine: PRCPUITM


Information

PRCPUITM ;WISC/RFJ-select items utility ;10 Dec 91

Source Information

Source file <PRCPUITM.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**1**;Oct 20, 2000
ITEM(INVPT,ADDNEW,SCREEN,DEFAULT) ; select item in inventory point
; addnew=1 to add new items
; screen=additional screen
; default=default item master number
; return itemda; 0 no item selected; ^ for ^ entered or timeout
MASTITEM(SCREEN) ; select item from master item file
; screen=optional screen
; return itemda; 0 no item selected; ^ for ^ entered or timeout
GETITEM(INVPT,ITEMDA)
DELETE(PRCPINPT,ITEMDA) ; check for deleting item from inventory point
DELITEM(PRCPINPT,DA) ; delete item da from inventory point
  • ICR #6579
    • Status: Active
    • Usage: Private
    ORDCHK(ITEMDA,PRCPINPT,ORDTYP,ORDSTA) ; is the item on any outstanding orders
    ; ITEMDA = DA of item to be deleted, 0 if search is for any order
    ; for that inventory point.
    ; PRCPINT = DA of inventory point in the search
    ; ORDTYP = search for regular, emergency and/or call-in
    ; ORDSTA = Status of the outstanding order, if search is limited
    ; returns 0 if no outstanding order is found, 1 it it is
    LISTOO(ITEM,PRCPINPT,ORDSTA) ; list outstanding orders for this item
    ; ITEM = DA of item to be deleted
    ; PRCPINT = DA of inventory point housing the item
    ; ORDSTA = Status of the outstanding order, if search is limited

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,"QUANTITY ON HAND (",$P(DATA,"^",7),") NEEDS TO BE ADJUSTED TO ZERO."
    • Line Location: DELETE+4
    Function Call: WRITE
    • Prompt: !!,"QUANTITY NON-ISSUABLE (",$P(DATA,"^",19),") NEEDS TO BE ADJUSTED TO ZERO."
    • Line Location: DELETE+5
    Function Call: WRITE
    • Prompt: !!,"ITEM HAS HAD ACTIVITY DURING THE LAST ",INACTIVE," MONTHS."
    • Line Location: DELETE+8
    Function Call: WRITE
    • Prompt: !,"ITEM HAS DUE-INS: ",DUEIN
    • Line Location: DELETE+10
    Function Call: WRITE
    • Prompt: !,"ITEM HAS DUE-OUTS: ",DUEOUT
    • Line Location: DELETE+12
    Function Call: WRITE
    • Prompt: !,"Checking to see if this item is on an outstanding order...."
    • Line Location: DELETE+13
    Function Call: WRITE
    • Prompt: !,"This item cannot be deleted. You must first post, delete, or"
    • Line Location: DELETE+15
    Function Call: WRITE
    • Prompt: !,"remove the item from the following order(s):"
    • Line Location: DELETE+16
    Function Call: WRITE
    • Prompt: !!?5,"--Deleting Item from Inventory Point ..."
    • Line Location: DELETE+23
    Function Call: WRITE
    • Prompt: !," WARNING--UNABLE TO CREATE ISMS CODE SHEET!"
    • Line Location: DELETE+27
    Function Call: WRITE
    • Prompt: !!,"Checking Distribution Points (you will have the option to delete the item",!,"from the distribution points if the distribution point is NOT keeping a",!,"perpetual inventory) ..."
    • Line Location: DELETE+29
    Function Call: WRITE
    • Prompt: !!,"DISTRIBUTION POINT: ",$P($$INVNAME^PRCPUX1(DISTR),"-",2,99)
    • Line Location: DELETE+30
    Function Call: WRITE
    • Prompt: !!?5,"--Deleting Item from Distribution Point ..."
    • Line Location: DELETE+34
    Function Call: WRITE
    • Prompt: !?5,OUTORD
    • Line Location: LISTOO+17
    Function Call: WRITE
    • Prompt: !?5,OUTORD
    • Line Location: LISTOO+18

    FileMan Files Accessed Via FileMan Db Call

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