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

Package: IFCAP

Routine: PRCH1A1


Information

PRCH1A1 ;WISC/PLT - PRCH1A continued ;6/28/96 09:09

Source Information

Source file <PRCH1A1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**215**;Oct 20, 2000;Build 3
RECON(PRCA,PRCRG) ;PRCA= ri of file 440.6, PRCR = %RANGE for matching amt.
REC
Q11 ;lookup
Q12 ;PRC*5.1*215 Add DIR to continue in list and compile list of cards
MCA
W
ACT0
START
ACT1
RC ;entry point from prch1d, prch1a2
EXIT
SS(IOTM,IOBM) ;screen size a-top, b=bottom margin
MC(DX,DY) ;move cursor dx=column #, dy=row number
CS
DISP ;
DD ;display document
DPO
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+4
Function Call: WRITE
  • Prompt: " Not Found"
  • Line Location: Q12+13
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 Purchase Card Orders 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+1
Function Call: WRITE
  • Prompt: " ",$P(A,U)," ",$E(D,4,5),"-",$E(D,6,7),"-",$E(D,2,3)," "
  • Line Location: DISP+1
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+1
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+2
Function Call: WRITE
  • Prompt: !,?13,"FCP: ",$P($P(A,U,3)," ")," ",$J($P(A,U,16),0,2)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?35,$P($G(^PRC(440,$P(B,U),0)),U)
  • Condition for execution: $P(B,U)
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: ?20,"You are reconciling this credit card CHARGE:"
  • Line Location: DD+2
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+4
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+5
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+6
Function Call: WRITE
  • Prompt: !,$TR($J("",78)," ","-")
  • Line Location: DD+7
Function Call: WRITE
  • Prompt: !,?20,"to this IFCAP purchase card order:"
  • Line Location: DPO+1
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+3
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+4
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+5
Function Call: WRITE
  • Prompt: !,"Total Reconciled Charges: ",$J($P($$FP^PRCH0A(PRCRI(442)),U,2),0,2)
  • Line Location: DPO+6
Function Call: WRITE
  • Prompt: !,$TR($J("",78)," ","-")
  • Line Location: DPO+7
Info |  Source |  Entry Points |  Interaction Calls