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

Package: IFCAP

Routine: PRCH442


Information

PRCH442 ;WISC/KMB/DL/DXH - CREATE PURCHASE CARD ORDER FROM RIL ;12.1.99

Source Information

Source file <PRCH442.m>

Entry Points

Name Comments DBIA/ICR reference
START ; entry point for delivery orders
S1
S2 ; entry point for purchase card orders
PROCESS ;
; get item data from repetitive item list
SLIST
PROCESS1 ;
ITEM ;
FY
DYNAMSG ; PRC*5.1*81 - Build message to user of items not in audit file
ITMCK ;PRC*5.1*165 Checks to notify user of items with missing contract number that
; will be excluded from Delivery Order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no items on this repetitive item list."
  • Line Location: S2+11
Function Call: WRITE
  • Prompt: !,"This repetitive item list has the following vendors:",!
  • Line Location: S2+24
Function Call: WRITE
  • Prompt: !,$P(HM,";"),?40,"NUMBER: ",$P(HM,";",2)
  • Line Location: S2+28
Function Call: WRITE
  • Prompt: !
  • Line Location: S2+30
Function Call: WRITE
  • Prompt: !!!,"Total number of requests generated: ",REQCT,!,"Total cost of all requests: $",$J(COSTTOT,0,2)
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: !,"Generating ",COMMENT," orders...."
  • Line Location: PROCESS+6
Function Call: WRITE
  • Prompt: !,"Request ",$P(^PRCS(410,CCDA,0),"^")," created.",!
  • Line Location: PROCESS+9
Function Call: WRITE
  • Prompt: !,"Do you wish to re-use this list"
  • Line Location: SLIST+1
Function Call: WRITE
  • Prompt: !,"End of processing."
  • Line Location: SLIST+12
Function Call: WRITE
  • Prompt: !,"Request ",$P($G(^PRC(442,PDA,0)),"^")," has been created."
  • Line Location: PROCESS1+13
Function Call: WRITE
  • Prompt: !,"The vendor for this request is: ",$P(VENDOR1,";")," "
  • Line Location: PROCESS1+14
Function Call: WRITE
  • Prompt: "(",$P(VENDOR1,";",2),")"
  • Line Location: PROCESS1+15
Function Call: WRITE
  • Prompt: !,"Total cost of request: $",$J(NCOST,0,2),!,"Total items on ",COMMENT," request: ",CNNT
  • Line Location: PROCESS1+16
Function Call: WRITE
  • Prompt: !!,"Excluded item(s) with no vendor contract#: "
  • Line Location: ITMCK+7
Function Call: WRITE
  • Prompt: !!,?5,+ITEMR,?13,$E($P($G(^PRC(441,+ITEMR,0)),"^",2),1,30),?47,"QTY= ",$P(ITEMR,"^",2),?60,"COST: ",$J($FN($P(ITEMR,"^",4),",",2),9)
  • Line Location: ITMCK+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ITMCK+10
Function Call: WRITE
  • Prompt: !!,"Do you wish to continue with this order excluding the above item(s)"
  • Line Location: ITMCK+11

FileMan Files Accessed Via FileMan Db Call

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