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

Package: IFCAP

Routine: PRCHRP1


Information

PRCHRP1 ;WISC/KMB-PURCHASE CARD TRANS. STATUS ;9/25/96

Source Information

Source file <PRCHRP1.m>

Entry Points

Name Comments DBIA/ICR reference
OBL ;
DETAIL ;
DETAIL1 ;
ITEM ;
CCDATA ;
EXIT
HEADER ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: OBL+3
Function Call: WRITE
  • Prompt: !,"Transaction Number: ",$P(R,"^"),?40,"FCP: ",$E($P(R,"^",3),1,30)
  • Line Location: DETAIL1+2
Function Call: WRITE
  • Prompt: !,"Transaction Status: ",$P($G(^PRCD(442.3,+PP,0)),"^")
  • Line Location: DETAIL1+3
Function Call: WRITE
  • Prompt: !,"Date of Request: ",Y
  • Line Location: DETAIL1+5
Function Call: WRITE
  • Prompt: ?40,"Date Required: ",Y
  • Line Location: DETAIL1+5
Function Call: WRITE
  • Prompt: !,"Vendor: ",VRR
  • Line Location: DETAIL1+7
Function Call: WRITE
  • Prompt: !,"Committed (Estimated) Cost: ",$J($P(R,"^",15),0,2)
  • Line Location: DETAIL1+8
Function Call: WRITE
  • Prompt: ?40,"Date Committed: ",Y
  • Line Location: DETAIL1+8
Function Call: WRITE
  • Prompt: !,"Purchase Card Amount: ",$J($P(R,"^",15),0,2)
  • Line Location: DETAIL1+9
Function Call: WRITE
  • Prompt: ?40,"Date Signed: ",Y
  • Line Location: DETAIL1+9
Function Call: WRITE
  • Prompt: !,"Transaction Amount: ",$J($P(R,"^",15),0,2),?40,"Accounting Data: ",$P(R,"^",4)
  • Line Location: DETAIL1+10
Function Call: WRITE
  • Prompt: !!,"Originator of Request: ",$P($G(^VA(200,+$P(S,"^",10),0)),"^")
  • Line Location: DETAIL1+12
Function Call: WRITE
  • Prompt: !,"Requesting Service: ",$P($G(^DIC(49,+$P(S,"^",2),0)),"^")
  • Line Location: DETAIL1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL1+17
Function Call: WRITE
  • Prompt: "Comments:"
  • Condition for execution: J=1
  • Line Location: DETAIL1+17
Function Call: WRITE
  • Prompt: ?15,^UTILITY($J,"W",DIWL,J,0)
  • Line Location: DETAIL1+17
Function Call: WRITE
  • Prompt: !,"Delivery Location: ",$P(S,"^",11)
  • Line Location: DETAIL1+18
Function Call: WRITE
  • Prompt: !,"Sort Group: ",SORT
  • Line Location: DETAIL1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: DETAIL1+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ITEM+9
Function Call: WRITE
  • Prompt: !,?12,"|",^UTILITY($J,"W",DIWL,J,0),?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: !,?12,"|",?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+10
Function Call: WRITE
  • Prompt: !,?12,"|",^UTILITY($J,"W",DIWL,Z,0),?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: !,?12,"|",?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+11
Function Call: WRITE
  • Prompt: ?12,"|",^UTILITY($J,"W",DIWL,1,0),?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+12
Function Call: WRITE
  • Prompt: !,?12,"|",?50,"|",?60,"|",?70,"|"
  • Line Location: ITEM+12
Function Call: WRITE
  • Prompt: !,"Transaction date: ",Y,?35,"Credit card ref.#: ",$P(CCSTR,"^")
  • Line Location: CCDATA+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,?30,"ITEM INFORMATION"
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,"Transaction Number: ",$P(R,"^"),?40,"FCP: ",$E($P(R,"^",3),1,30),!
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: "----------"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,"STOCK NUMBER",?14,"ITEM DESCRIPTION",?51,"QUANTITY",?64,"U/I",?71,"UNIT COST",!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: "----------"
  • Line Location: HEADER+7

FileMan Files Accessed Via FileMan Db Call

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