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

Package: IFCAP

Routine: PRCHRPT1


Information

PRCHRPT1 ;ID/RSD,SF-ISC/TKW-PRINT OPTIONS ; [1/13/99 1:27pm]

Source Information

Source file <PRCHRPT1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
IFCAP 4 ^PRCFSITE  ^PRCHQUE  DSP^PRCHRPT2  EN^PRCHRPTX  
VA FileMan 4 (,DD)^%DT  ^DIC  EN1^DIP  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  KILL^%ZTLOAD  

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

Package Total Caller Graph
IFCAP 8 PRCH ITEM CAT  PRCH ITEM HIST  PRCHRAT9  PRCHRPL  PRCHRPT2  PRCHRPT8  PRCHRPT9  PRCHRPTX  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**15,70,106,132**;Oct 20, 2000;Build 3
EN ;DISPLAY ITEM HISTORY
EN0
EN1 ;PRINT ITEM CATALOG
EN10
Q
FX
ITEM
ITEM0
NONE
SKPTXS
CKLCT
ITEM1
ASK
RNG ; ALLOW ENTRY OF BEGINNING AND ENDING RANGE
PDT ; ROUTINE ALLOWING ENTRY OF A DATE FOR PRINTING, ETC. (DEFAULTS TO NOW)
SDEV ; SELECT DEVICE FOR QUEUED PRINTING
HDR ;
RDTXS ; Prompt for # back TX's to list for an FCP(default=10,max=9999)
RDTXS1
QUESTION ;
WARN ;

External References

Name Field # of Occurrence
^%DT RNG+2, RNG+4, PDT+1
DD^%DT ITEM1, RNG+2, RNG+4
^%ZIS SDEV+1, SDEV+2
^%ZISC SDEV+2
KILL^%ZTLOAD ITEM+4
^DIC EN0
EN1^DIP EN10+3
^DIR RDTXS1+6
^PRCFSITE EN+1, EN1+1
^PRCHQUE EN0+1
DSP^PRCHRPT2 EN10
EN^PRCHRPTX RDTXS1+12

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EN0+0
Function Call: WRITE
  • Prompt: !,"History for this item does not yet exist. Press <RETURN>"
  • Line Location: EN0+0
Function Call: WRITE
  • Prompt: !!,"FCP: "_PRCHFCP_" has no history for this item."
  • Line Location: ITEM0+16
Function Call: WRITE
  • Prompt: !,"A history for this item does not yet exist."
  • Line Location: NONE+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: !,"Press RETURN to continue."
  • Line Location: NONE+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: ITEM1+0
Function Call: WRITE
  • Prompt: ?15,$P(^PRC(442,W(6),0),U,1)
  • Line Location: ITEM1+1
Function Call: WRITE
  • Prompt: W
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: ?26,$J($P(^(2),U,8),10)
  • Line Location: ITEM1+2
Function Call: WRITE
  • Prompt: !,"Vendor: ",W(8)
  • Line Location: ITEM1+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to Quit"
  • Line Location: ASK+0
Function Call: READ
  • Variable: FR
  • Timeout: DTIME
  • Line Location: RNG+1
Function Call: WRITE
  • Prompt: !!!,"START WITH "_M_": FIRST//"
  • Line Location: RNG+1
Function Call: WRITE
  • Prompt: $C(7),!,"INVALID DATE"
  • Condition for execution: Y=-1
  • Line Location: RNG+2
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: RNG+2
Function Call: READ
  • Variable: TO
  • Timeout: DTIME
  • Line Location: RNG+3
Function Call: WRITE
  • Prompt: !!,"GO TO "_M_": LAST//"
  • Line Location: RNG+3
Function Call: WRITE
  • Prompt: $C(7),!,"INVALID DATE"
  • Condition for execution: Y=-1
  • Line Location: RNG+4
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: RNG+4
Function Call: WRITE
  • Prompt: $C(7),!,"INVALID RANGE"
  • Line Location: RNG+5
Function Call: WRITE
  • Prompt: $C(7),!,"INVALID RANGE"
  • Line Location: RNG+6
Function Call: WRITE
  • Prompt: !!,"Enter date (and time, if not NOW) to "_M
  • Line Location: PDT+1
Function Call: WRITE
  • Prompt: $C(7),!,"You must enter the time as well as the date to print the report"
  • Line Location: PDT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: SDEV+1
Function Call: WRITE
  • Prompt: @IOF,!!,"Item Number: ",D0,?25,"Description: ",W,!?8,"FCP: ",PRCHFCP,!!,?26,"Quantity",!,?26,"Previously",?38,"Unit of",?71,"Quantity"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Date Ordered",?15,"PO Number",?26,"Received",?38,"Purchase",?48,"Unit Cost",?59,"Total Cost",?71,"Ordered",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: RDTXS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RDTXS1+11
Function Call: WRITE
  • Prompt: !!,"Enter 1-9999 or 'S' to sort by PO Date, FCP, etc."
  • Line Location: QUESTION+1
Function Call: WRITE
  • Prompt: @IOF,!?10,"List Transaction History for Specified Item",!!
  • Line Location: WARN+1
Function Call: WRITE
  • Prompt: !,"You may obtain either a listing of a specified number of back transactions",!,"for the item or all transactions (by FCP) within a specified date range."
  • Line Location: WARN+2
Function Call: WRITE
  • Prompt: !!,"Please be aware that the latter involves complex sorting and may",!,"take awhile to complete. Therefore, it is suggested that it be queued to",!,"a printer to immediately free your workstation.",!
  • Line Location: WARN+3
Routine Call
  • DIC
  • Line Location:
    • EN0
Routine Call
  • DIR
  • Line Location:
    • RDTXS1+6
Routine Call
  • %ZIS
  • Line Location:
    • SDEV+1
    • SDEV+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] FX, ITEM+2
^PRC(440 - [#440] ITEM1+5
^PRC(441 - [#441] ITEM+1, ITEM+2, ITEM0, ITEM0+5, ITEM0+7, ITEM0+14
^PRC(442 - [#442] SKPTXS+1, ITEM1, ITEM1+1, ITEM1+2, ITEM1+3, ITEM1+5
^PRCD(420.5 - [#420.5] ITEM1+3
^TEMP("FCPCNT" Q+1!
^TEMP("FCPDT" Q+1!
^TEMP("FCPNAME" Q+1!
^TEMP("FCPPGS" Q+1!
^TMP("PRCHITMH" ITEM, RDTXS1+10*
^TMP("PRCHRPT1" Q+2!, ITEM+1!, ITEM+2!, ITEM0+8*, NONE, SKPTXS+1, SKPTXS+2!, CKLCT, CKLCT+1

Label References

Name Line Occurrences
@( SDEV+2
ASK NONE+5, CKLCT, CKLCT+1, HDR+2
CKLCT SKPTXS+1
EN0 EN0, EN0+2
EN10 EN10
FX EN10+1, EN10+2
HDR ITEM0+15, NONE+3, NONE+4, NONE+5, CKLCT, CKLCT+1
ITEM0 ITEM+2
ITEM1 SKPTXS+1
NONE SKPTXS+2
PDT PDT+2, PDT+3
Q EN0, EN0+1, EN10, ITEM0+18, RDTXS1+8
QUESTION RDTXS1+9, RDTXS1+11
RDTXS EN0+1
RDTXS1 RDTXS1+9, RDTXS1+11
RNG EN10, RNG+2, RNG+4, RNG+5, RNG+6

Naked Globals

Name Field # of Occurrence
^(0 FX, ITEM+1, ITEM+2, ITEM1+3
^(1 ITEM1, ITEM1+5
^(2 ITEM1+2
^(4 EN0

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q+1!
%DT RNG+2!, PDT+1*!
%DT("A" PDT+1*
%ZIS SDEV+1!*
%ZIS("B" SDEV+1*
ABORT Q+1!, RDTXS1+8*
AGN EN+1*, Q+2!
ASK ITEM+1*, ITEM+2, ITEM+3!, ITEM0+15, ITEM0+18, NONE+5, SKPTXS+1, CKLCT, CKLCT+1, ASK*
, HDR+2
BY EN10+3*, Q!
C Q+2!
COUNT Q+3!, ITEM+3!, ITEM0+4*, ITEM0+9*, ITEM0+10
D0 EN0*, EN0+1!, Q!, ITEM+1, ITEM+2, ITEM0, ITEM0+5, ITEM0+7, ITEM0+14, SKPTXS+1
, HDR+3
DA Q!
DDH Q+2!
DIC EN0*, EN0+1!, EN10+3*, Q!, ITEM+3!
DIC(0 EN0*
DIR Q+1!, RDTXS1!
DIR("?" RDTXS1+4*
DIR("??" RDTXS1+5*
DIR("A" RDTXS1+2*
DIR("B" RDTXS1+3*
DIR(0 RDTXS1+1*
DIRUT Q+3!, ITEM+3!, RDTXS1+8
DIS Q!
DIS(0 EN10*
DTIME EN0, NONE+1, ASK, RNG+1, RNG+3
FCPNO Q+1!
FCPTCNT Q+1!
FCPTPGS Q+1!
FLDS EN10+3*, Q!
FLG Q+3!, ITEM+3!, ITEM0+3*, ITEM0+5, ITEM0+10*
FR EN10, EN10+1*, EN10+3*, Q!, RNG+1*, RNG+2*, RNG+5, RNG+6
FR1 Q+1!
FR2 Q+1!
FR3 Q+1!
FR4 Q+1!
I Q!, HDR+4*
IO SDEV+2
IO(0 SDEV+2
IOF HDR+3, WARN+1
IOM SDEV+2
ION SDEV+2
IOP SDEV+1!*, SDEV+2*
IOSL SDEV+2
IOST NONE+4, NONE+5, CKLCT, CKLCT+1, ASK, SDEV+2, HDR+2
ITMDESC Q+2!
ITMNO Q+1!, RDTXS1+12*
ITMY EN0+1*, Q+1!, RDTXS1+12
J Q!
K Q!, SKPTXS+1*
L EN10+3*, Q!
LCNT Q+1!
LLCT EN+1*, Q+3!, ITEM+3!
LLIM Q+1!
LNCT EN+1*, Q+3!, ITEM+3!, NONE+2*, NONE+3, NONE+4*, NONE+5*, SKPTXS*, SKPTXS+1*, CKLCT*
, CKLCT+1*, HDR+2
M EN10*, Q!, RNG+1, RNG+3, PDT+1
NX Q+3!, ITEM+3!, SKPTXS*, SKPTXS+1*, CKLCT, CKLCT+1
NXD Q+1!
PRC Q!
PRC("SITE" EN0, EN0+1, EN10, FX, ITEM+1*, ITEM+2
>> PRCF("X" EN+1*, EN1+1*, Q+3!, ITEM+3!
PRCHD EN10!, RNG+2, RNG+4
PRCHFCP Q!, ITEM+2*, ITEM0+16, HDR+3
PRCHPDAT Q+3!, ITEM+3!, PDT+2*, PDT+4*
PRCHQ EN0+1*, Q+1!
PRCI Q+1!
PRCRI Q+1!
RTX Q+1!, RDTXS1+10*
SCTL Q+2!
STN Q+2!
TO EN10, EN10+2*, EN10+3*, Q!, RNG+1*, RNG+3*, RNG+4*, RNG+5, RNG+6
TO1 Q+1!
TO2 Q+1!
TO3 Q+1!
TO4 Q+1!
TXCNT Q+1!
TXFCP Q+1!
TXIEN Q+1!
TXR Q+1!, ITEM*, ITEM0+10, SKPTXS+1, RDTXS1+10*
TXS Q+1!, RDTXS1+7*, RDTXS1+9, RDTXS1+10, RDTXS1+11
TXSTN Q+1!
U FX, ITEM+1*, ITEM+2, ITEM1, ITEM1+1, ITEM1+2, ITEM1+3, ITEM1+4, ITEM1+5, RDTXS1+12
W ITEM+1*, ITEM+3!, HDR+3
W(1 ITEM+1*, ITEM+2*, ITEM0, ITEM0+5, ITEM0+7, ITEM0+14
W(2 ITEM+1*, ITEM0+1*
W(3 ITEM+1*, ITEM0+2*, ITEM0+5*, ITEM0+7
W(4 ITEM+1*, ITEM0+6*, ITEM0+7*, ITEM0+8
W(5 SKPTXS+1*, ITEM1+2, ITEM1+3
W(6 SKPTXS+1*, ITEM1, ITEM1+1, ITEM1+2, ITEM1+3, ITEM1+5
W(7 ITEM1+2*, ITEM1+4, ITEM1+6!
W(8 ITEM1+3*, ITEM1+4, ITEM1+5*, ITEM1+6!
W1 ITEM+1*, ITEM+3!, SKPTXS+1*, SKPTXS+2
X EN0*, EN10+1*, EN10+2*, Q+1!, FX*, NONE+1*, ASK*, RNG+2*, RNG+4*, PDT+2*
, RDTXS1+7
Y EN0, Q+1!, ITEM1*, RNG+2, RNG+4, PDT+2*, PDT+3, PDT+4
Y(0 EN0+1
ZTRTN Q+3!, SDEV+2
ZTSK EN0+1!, Q!, ITEM+4!, NONE+1
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