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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 DD^%DT  IX^DIC  YN^DICN  
IFCAP 2 ^PRCFSITE  DIWP^PRCUTL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IFCAP 1 PRCH P/C REP1  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT DETAIL1+5, DETAIL1+8, DETAIL1+9, CCDATA+2
^%ZIS OBL+7
^%ZISC OBL+8, OBL+9
^%ZTLOAD OBL+8
IX^DIC OBL+3
YN^DICN OBL+6
^PRCFSITE OBL+1
DIWP^PRCUTL DETAIL1+15, ITEM+8

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
Routine Call
  • %ZIS
  • Line Location:
    • OBL+7
Routine Call
  • DIC
  • Line Location:
    • OBL+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRC(442 - [#442] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] DETAIL1+13
^PRC(420.5 ITEM+5
^PRC(440 - [#440] DETAIL1+6
^PRC(442 - [#442] DETAIL1+1, DETAIL1+3, DETAIL1+6, DETAIL1+9, DETAIL1+15, ITEM+4, ITEM+6, ITEM+8
^PRCD(442.3 - [#442.3] DETAIL1+3
^PRCH(440.6 - [#440.6] CCDATA+1, CCDATA+2
^UTILITY($J DETAIL1+14!, DETAIL1+16, DETAIL1+17, ITEM+6!, ITEM+9, ITEM+10, ITEM+11, ITEM+12
^VA(200 - [#200] DETAIL1+12

Label References

Name Line Occurrences
CCDATA DETAIL1+21
DETAIL OBL+9
DETAIL1 OBL+5
EXIT OBL+1, OBL+3
HEADER ITEM+2, ITEM+10, ITEM+11, ITEM+12
OBL OBL+6, OBL+8, OBL+9

Naked Globals

Name Field # of Occurrence
^( DETAIL1+15, DETAIL1+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OBL+6*
>> %ZIS OBL+7*
>> %ZIS("B" OBL+7*
>> C1 ITEM+6*, ITEM+8
CCREC CCDATA+1*, CCDATA+2, EXIT!
CCSTR CCDATA+2*, CCDATA+3, EXIT!
COUNT ITEM+1*, ITEM+3, EXIT!
>> D OBL+2*
DA OBL+3*, DETAIL1+15, EXIT!
DIC OBL+2*, OBL+3!
DIC("A" OBL+2*
DIC("S" OBL+2*
DIC(0 OBL+2*
>> DIWF DETAIL1+14*, ITEM+7*
>> DIWL DETAIL1+14*, DETAIL1+16, DETAIL1+17, ITEM+7*, ITEM+9, ITEM+10, ITEM+11, ITEM+12
>> DIWR DETAIL1+14*, ITEM+7*
FF ITEM+3*, ITEM+4, ITEM+6, ITEM+8, EXIT!
I DETAIL1+16*, DETAIL1+17, EXIT!, HEADER+5*, HEADER+7*
IO DETAIL+1, HEADER+1
IO("Q" OBL+8
IO(0 HEADER+1
IOF OBL+1, HEADER+2
J DETAIL1+17*, ITEM+6*, ITEM+8, ITEM+10*, EXIT!
L1 ITEM+7~
L2 ITEM+7~
L3 ITEM+7~
>> POP OBL+7
PP DETAIL1+3*, EXIT!
>> PRC("SITE" OBL+1
>> PRCF("X" OBL+1*
PRCRI EXIT!
PRCSDY DETAIL1+14*, DETAIL1+17*, EXIT!
PRCSI DETAIL1+14*, DETAIL1+15*, EXIT!
PRCSJ DETAIL1+15*, EXIT!
PZ1 DETAIL1+19*, EXIT!
PZ2 DETAIL1+19*, EXIT!
PZ3 DETAIL1+19*, EXIT!
QQ ITEM+4*, ITEM+5, EXIT!
R DETAIL1+1*, DETAIL1+2, DETAIL1+4, DETAIL1+5, DETAIL1+8, DETAIL1+9, DETAIL1+10, ITEM+1, EXIT!, HEADER+4
S DETAIL1+1*, DETAIL1+4, DETAIL1+6, DETAIL1+12, DETAIL1+13, DETAIL1+18, EXIT!
SORT DETAIL1+19*, DETAIL1+20, EXIT!
T DETAIL1+1*, DETAIL1+19, EXIT!
VRR DETAIL1+6*, DETAIL1+7, EXIT!
>> X DETAIL1+15*, ITEM+8*
Y OBL+3, DETAIL1+4*, DETAIL1+5*, DETAIL1+8*, DETAIL1+9*, CCDATA+2*, EXIT!
YY DETAIL1+4*, DETAIL1+8, DETAIL1+9*, EXIT!
>> Z ITEM+9*, ITEM+10, ITEM+11, ITEM+12
ZIP OBL+3*, DETAIL1+1, DETAIL1+3, DETAIL1+6, DETAIL1+9, DETAIL1+15, ITEM+4, ITEM+6, ITEM+8, CCDATA+1
, EXIT!
>> ZTRTN OBL+8*
>> ZTSAVE("ZIP" OBL+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All