Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
IFCAP 6 (FT,YN)^PRC0A  (LOOKUP,PIECE)^PRC0B  $$FP^PRCH0A  DC^PRCH1A  RC^PRCH1A3  ^PRCHDP1  
VA FileMan 2 EN^DDIOL  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IFCAP 3 PRCH1A  PRCH1A2  PRCH1D  

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

External References

Name Field # of Occurrence
EN^DDIOL Q11+1, W+13, ACT0+8, ACT0+13, START+1, START+2, ACT1+13
^DIR Q12+1
FT^PRC0A ACT0+3, ACT1+3
YN^PRC0A Q12+11, MCA+5, W+5
LOOKUP^PRC0B Q12+9, MCA+3, W+3, ACT0+11
PIECE^PRC0B DD+3, DPO+2
$$FP^PRCH0A DPO+6
DC^PRCH1A ACT1+12
RC^PRCH1A3 RC+1
^PRCHDP1 ACT1+9

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
Routine Call
  • DIR
  • Line Location:
    • Q12+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(440 - [#440] DISP+2
^PRC(440.5 - [#440.5] Q12+3, W+10, W+12
^PRC(442 - [#442] Q12+11, MCA+5, W+5, ACT0+13, START, START+1
^PRCD(442.3 - [#442.3] DISP+2
^PRCD(442.5 - [#442.5] DISP+1
^PRCH(440.6 - [#440.6] REC
^VA(200 - [#200] ACT0+13

Label References

Name Line Occurrences
$$LU ACT0+4, ACT1+5
ACT0 ACT0+7, ACT0+8, ACT0+12, ACT0+13
ACT1 ACT1+8, ACT1+11, ACT1+12, ACT1+13
CS ACT1+9, EXIT, DD+2
DD REC, ACT0+7, DPO
DPO START, ACT1+9, ACT1+11, ACT1+12
EXIT Q12+10, MCA+4, W+4, ACT0+3, ACT0+5, ACT1+4, ACT1+6
MC DD+8, DPO, DPO+8
MCA Q12+3
Q12 W+10, W+12
REC ACT0+6, ACT1+7
SS ACT1+9, EXIT, DD+8, DPO
START Q12+10, MCA+4, W+4

Naked Globals

Name Field # of Occurrence
^(23 START, START+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A RECON+2~, ACT0+10*, ACT0+11, DISP+1, DISP+2, DD+1~, DPO~
A( DD+4, DD+5, DD+6
A(442 DPO+3, DPO+4, DPO+5
B RECON+2~, DISP+1, DISP+2
C RECON+2~, DISP+2
D RECON+2~, DISP+1*
D0 ACT1+9~*
DIR Q12+1!
DIR(0 Q12+1*
DX MC~, MC+1*
DY MC~, MC+1*
IOBM SS~
IOF CS
>> IOSTBM EXIT, SS+1
IOTM SS~
>> IOXY MC+1
PRCA RECON~, RECON+3
PRCAMT RECON+1~, REC*, REC+1, START+2
PRCAMTH RECON+1~, REC+1*
PRCAMTL RECON+1~, REC+1*
PRCB RECON+1~, REC*
>> PRCBK DISP+1
PRCBOC RECON+1~
PRCC RECON+1~, REC*, W+8, W+11, START+1
PRCCL RECON+1~, REC*, Q12+2, Q12+3, Q12+4, MCA, W, W+8*, W+10*, W+11*
, W+12*
PRCCNT RECON+1~, Q12+9*, Q12+10, MCA+3*, MCA+4, W+3*, W+4
PRCCOA RECON+1~
PRCCP RECON+1~, START*
PRCCR RECON+1~, REC*, W+8*, W+10, W+11*, W+12
PRCCTMP RECON+1~, RECON+3*, Q12+1, Q12+2*, W+10, W+12
PRCD RECON+1~
PRCDI RECON+1~
>> PRCDUZ W+1, ACT0+13
>> PRCE ACT0+13*, START*, START+2
PRCPDT RECON+1~, REC*
PRCPO RECON+1~, REC*, Q12+3
PRCR RECON+1~, START*
PRCRG RECON~, REC+1*, MCA
PRCRI RECON+1~
PRCRI( RECON+3*, REC, Q12+3*, Q12+5, MCA+1, W+1, W+10*, W+12*, DD+3, DD+4
, DD+5, DD+6
PRCRI(442 Q12+3*, Q12+10*, Q12+11, MCA+4*, MCA+5, W+4*, W+5, ACT0+14*, START, START+1
, ACT1+9, ACT1+12, DPO+2, DPO+3, DPO+4, DPO+5, DPO+6
PRCSTC RECON+1~
PRCVAL RECON+1~
U REC, W+10, W+12, START+1, START+2, DISP+1, DISP+2, DPO+6
>> X Q12+5*, Q12+9, Q12+10, Q12+11, MCA+1*, MCA+3, MCA+4, MCA+5, W+1*, W+3
, W+4, W+5, ACT0+3, ACT0+11, ACT1+3, ACT1+4
>> X("S" Q12+5*, MCA+1*, W+1*, ACT0+9*
>> X("W" Q12+8*, MCA+2*, W+2*
>> X(1 ACT0*, ACT1*
>> X(2 ACT0+1*, ACT1+1*
>> X(3 ACT0+1*, ACT1+1*
>> Y Q12+9, Q12+10, Q12+11*, MCA+3, MCA+4, MCA+5*, W+3, W+4, W+5*, ACT0+3
, ACT0+4*, ACT0+5, ACT0+6, ACT0+7, ACT0+8, ACT0+10, ACT0+11, ACT0+12, ACT0+13, ACT0+14
, ACT1+3, ACT1+5*, ACT1+6, ACT1+7, ACT1+8, ACT1+11, ACT1+12, ACT1+13, LU+1
>> Y(1 ACT0+2*, ACT1+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All