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

Package: IFCAP

Routine: PRCH1A2


Information

PRCH1A2 ;WISC/PLT-PRCH1A continued ;6/10/97 15:22

Source Information

Source file <PRCH1A2.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
RECON(PRCA,PRCB,PRCRG) ;PRCA= ri of file 442, PRCB =ri of file 200,PRCRG=reconcile range %
REC
Q11 ;lookup
Q12
MCA
W
ACT0
START
ACT1
RC ;call reconcile routine PRCH1A1
EXIT
SS(IOTM,IOBM) ;screen size a-top, b=bottom margin
MC(DX,DY) ;move cursor dx=column #, dy=row number
CS
DISP ;
DPO ;display purchase order
DD
LU() ;low to upper

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Matching Card XXXX"_$E(PRCCL,13,16)_", Vendor's Purchase Order #:",!
  • Line Location: Q12+1
Function Call: WRITE
  • Prompt: " Not Found"
  • Line Location: Q12+10
Function Call: WRITE
  • Prompt: !,"Matching Card XXXX"_$E(PRCCL,13,16)_", $Amount within Range "_PRCRG_"%:",!
  • Line Location: MCA+0
Function Call: WRITE
  • Prompt: " Not Found"
  • Line Location: MCA+7
Function Call: WRITE
  • Prompt: W
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !,"Listing All Credit Card Charges with Matched Card XXXX"_$E(PRCCL,13,16)_":",!
  • Line Location: W+0
Function Call: WRITE
  • Prompt: " Not Found"
  • Line Location: W+7
Function Call: WRITE
  • Prompt: @IOSTBM
  • Line Location: SS+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CS+0
Function Call: WRITE
  • Prompt: PRCBK
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: " ",$P(A,U)," ",$E(D,4,5),"-",$E(D,6,7),"-",$E(D,2,3)," "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: $P(^PRCD(442.5,$P(A,U,2),0),U,2)," "
  • Condition for execution: $P(A,U,2)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: $E($P(^PRCD(442.3,$P(C,U),0),U),1,34)
  • Condition for execution: $P(C,U)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,?13,"FCP: ",$P($P(A,U,3)," ")," ",$J($P(A,U,16),0,2)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: ?35,$P($G(^PRC(440,$P(B,U),0)),U)
  • Condition for execution: $P(B,U)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: ?18,"You are reconciling this PURCHASE CARD ORDER:"
  • Line Location: DPO+2
Function Call: WRITE
  • Prompt: !,"IFCAP Order FCP: ",$G(A(442,PRCRI(442),1,"E")),?50,"Purchase Date: ",$G(A(442,PRCRI(442),.1,"E"))
  • Line Location: DPO+4
Function Call: WRITE
  • Prompt: !,"Vendor Name: ",$G(A(442,PRCRI(442),5,"E")),?50,"P.O.#: ",$G(A(442,PRCRI(442),.01,"E"))
  • Line Location: DPO+5
Function Call: WRITE
  • Prompt: !,"STATUS: ",$G(A(442,PRCRI(442),.5,"E")),?60,"$Amount: ",$J($G(A(442,PRCRI(442),92,"E")),0,2)
  • Line Location: DPO+6
Function Call: WRITE
  • Prompt: !,"Total Reconciled Charges: ",$J($P($$FP^PRCH0A(PRCRI(442)),U,2),0,2)
  • Line Location: DPO+7
Function Call: WRITE
  • Prompt: !,$TR($J("",78)," ","-")
  • Line Location: DPO+8
Function Call: WRITE
  • Prompt: !,?20,"to this credit card CHARGE:"
  • Line Location: DD+1
Function Call: WRITE
  • Prompt: !,"Reconcile Doc: ",$G(A(440.6,PRCRI(440.6),.01,"E")),?50,"Purchase Date: ",$G(A(440.6,PRCRI(440.6),8,"E"))
  • Line Location: DD+3
Function Call: WRITE
  • Prompt: !,"Vendor Name: ",$G(A(440.6,PRCRI(440.6),31,"E")),?50,"P.O.#: ",$G(A(440.6,PRCRI(440.6),20,"E"))
  • Line Location: DD+4
Function Call: WRITE
  • Prompt: !,"TXN REF: ",$G(A(440.6,PRCRI(440.6),9,"E")),?60,"$Amount: ",$J($G(A(440.6,PRCRI(440.6),13,"E")),0,2)
  • Line Location: DD+5
Function Call: WRITE
  • Prompt: !,$TR($J("",78)," ","-")
  • Line Location: DD+6
Info |  Source |  Entry Points |  Interaction Calls