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

Package: IFCAP

Routine: PRCSES1


Information

PRCSES1 ;WISC/SAW/LJP/TKW-SUB-MODULES CALLED BY FIELDS IN CPA FILE CON'T ; [12/11/98 2:25pm]

Source Information

Source file <PRCSES1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ITEM ;PR/DISP ITEM HIST
ITS
IT
ITEM0
NONE
EXIT
ITEM1
ITEMH ;ITEM FLD HELP PMPT
OBL ;COMPUTE FLDS FOR 1358 ADJ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This item is inactive!"
  • Line Location: ITEM+4
Function Call: WRITE
  • Prompt: !,"Sorry, this item has a mandatory source.",!,"You must order this item from ",$P(^PRC(440,%,0),"^"),".",!
  • Line Location: ITEM+6
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: ITS+0
Function Call: WRITE
  • Prompt: !,"Would you like to see the procurement history for this item"
  • Line Location: IT+1
Function Call: WRITE
  • Prompt: W
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: !,"A history for this item does not yet exist."
  • Line Location: NONE+0
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item has a minimum order quantity of ",$P(Z,"^",12)
  • Line Location: EXIT+0
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item must be ordered in multiples of ",$P(Z,"^",11)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: $C(7),!,"NOTE: This item has a packaging multiple/unit of purchase of ",$P(Z,"^",8)_"/"_Z(1)
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !,?34,"ITEM HISTORY"
  • Line Location: ITEM1+0
Function Call: WRITE
  • Prompt: !,Y,?23,"Site: ",PRC("SITE"),?36,"Control point: ",PRC("CP")
  • Line Location: ITEM1+1
Function Call: WRITE
  • Prompt: !,"Item Number: ",X,?23,"Description: ",W,!!,?26,"Quantity",!,?26,"Previously",?38,"Unit of",?71,"Quantity"
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: !,"Date Ordered",?15,"PO Number",?26,"Received",?38,"Purchase",?48,"Unit Cost",?59,"Total Cost",?71,"Ordered",!
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: L
  • Line Location: ITEM1+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: ITEM1+4
Function Call: WRITE
  • Prompt: ?15,$P(^PRC(442,W(6),0),U)
  • Line Location: ITEM1+5
Function Call: WRITE
  • Prompt: W
  • Line Location: ITEM1+6
Function Call: WRITE
  • Prompt: ?26,$J(+$P(^(2),U,8),8)
  • Line Location: ITEM1+6
Function Call: WRITE
  • Prompt: !,"Vendor: ",W(8)
  • Line Location: ITEM1+9
Function Call: WRITE
  • Prompt: !,"You must select a vendor before you may enter Procurement (UIR) Card items.",$C(7)
  • Line Location: ITEMH+2

FileMan Files Accessed Via FileMan Db Call

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