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 |  Local Variables |  All
Print Page as PDF
Routine: PRCNCOST

Package: Equipment Turn-In Request

Routine: PRCNCOST


Information

PRCNCOST ;SSI/SEB-Display Cost Report ;[ 02/26/97 5:57 PM ]

Source Information

Source file <PRCNCOST.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 2 ^%DT  EN^DIQ1  

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
Equipment Turn-In Request 1 PRCN NX EQ COMM COST  

Entry Points

Name Comments DBIA/ICR reference
EN ;
HDR ; Print a header for the report
GETSUMS ; Get line item total & display stuff
BEG
EXIT
SRV
CHKPG ; If printing to screen & it is full, clear screen
FIN

External References

Name Field # of Occurrence
^%DT HDR+3
^%ZIS EN+2
HOME^%ZIS EN+5
^%ZISC FIN+2
^%ZTLOAD EN+5
EN^DIQ1 GETSUMS+5
$$FMTE^XLFDT HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report should be printed on 132 column paper !"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"Subtotal for ",SERV,":",?117,$J(STOTAL,10,2),!
  • Line Location: SRV+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SRV+4
Function Call: WRITE
  • Prompt: !,"Total:",?117,$J(GTOTAL,10,2)
  • Line Location: FIN+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FIN+1
Function Call: WRITE
  • Prompt: !,$P(^PRCN(413,D0,0),U)
  • Line Location: GETSUMS+1
Function Call: WRITE
  • Prompt: $J(LTOTAL,10,2)
  • Line Location: GETSUMS+9
Function Call: WRITE
  • Prompt: $J(COST,10,2)
  • Line Location: GETSUMS+13
Function Call: WRITE
  • Prompt: $J(TOTAL,10,2)
  • Line Location: GETSUMS+14
Function Call: WRITE
  • Prompt: !,"Hit RETURN to continue or '^' to quit. "
  • Line Location: CHKPG+1
Function Call: READ
  • Timeout: DTIME
  • Variable: C
  • Line Location: CHKPG+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"EQUIPMENT REQUEST COST SUMMARY REPORT"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $J("",IOM-$L(TXT)\2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(Y,"1P")_" PAGE: "_PG,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?31,"Annual",?61,"Training",?71,"Training",?81,"Constr./",?91
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "Special",?101,"Test",?111,"Maint.",!,?21,"Line Item",?31,"Recurring"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ?41,"Training",?51,"Contract",?61,"Tuition",?71,"Travel",?81
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "Renov.",?91,"Install.",?101,"Equipment",?111,"Impact",?121,"Total"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Transaction #"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: ?(I*10+1),"Cost"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,LIN
  • Line Location: HDR+9
Routine Call
  • %ZIS
  • Line Location:
    • EN+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(49 - [#49] BEG+4
^PRCN(413 - [#413] BEG+2, BEG+3, GETSUMS+1, GETSUMS+2, GETSUMS+12
^TMP($J BEG!, BEG+4*, SRV, SRV+2, EXIT+1!

Label References

Name Line Occurrences
CHKPG SRV+1, SRV+5, FIN, GETSUMS+14
EXIT SRV
FIN SRV
GETSUMS SRV+2
HDR BEG+1
SRV SRV+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT HDR+3*
>> %ZIS EN+2*
%ZTLOAD EN+5!
C SRV, SRV+1, SRV+3, EXIT!, CHKPG+2*!
COST EXIT!, GETSUMS+12*, GETSUMS+13
D0 BEG+1*, BEG+2*, BEG+3, BEG+4, SRV+1*, SRV+2*, EXIT!, GETSUMS+1, GETSUMS+2, GETSUMS+4
, GETSUMS+12
D1 EXIT!, GETSUMS+1*, GETSUMS+2*, GETSUMS+4~
DA GETSUMS+4*, GETSUMS+8!
DA( GETSUMS+4*, GETSUMS+6
DA(1 GETSUMS+4*
DIC GETSUMS+4*, GETSUMS+8!
DIQ GETSUMS+3*, GETSUMS+8!
DIQ(0 GETSUMS+3*
DR GETSUMS+3*, GETSUMS+8!
DR( GETSUMS+3*
DTIME CHKPG+2
FN EXIT!, GETSUMS+10*, GETSUMS+11
GTOTAL BEG+1*, SRV+5*, FIN, EXIT!
I SRV+4*, EXIT!, GETSUMS+11*, GETSUMS+12, HDR+8*
IO EN+6
IO("Q" EN+3, EN+5!
IOF FIN+1, HDR+1
IOM EN+2*, HDR+3
IOSL CHKPG+1
IOST EN+6, FIN+1, HDR+1
>> IOT CHKPG+1
LBTOT GETSUMS+8!
LBTOT( GETSUMS+6
LIN BEG*, EXIT+1!, HDR+9
LTOTAL EXIT!, GETSUMS+1*, GETSUMS+7*, GETSUMS+9
NL SRV+1*, SRV+5*, FIN*, EXIT!, GETSUMS+14*, CHKPG+1, HDR+8*
>> PG BEG*, HDR+1*, HDR+3
PN EXIT!, GETSUMS+11*, GETSUMS+12
>> POP EN+2
PSERV BEG+3*, BEG+4, EXIT!
SERV BEG+4*, BEG+5*, SRV*, SRV+1, SRV+2, SRV+3, EXIT!
STA BEG+2*, EXIT+1!
STOTAL SRV+1*, SRV+3, SRV+5, EXIT!, GETSUMS+14*
TOTAL EXIT!, GETSUMS+1*, GETSUMS+9*, GETSUMS+12*, GETSUMS+14
TXT EXIT+1!, HDR+1*, HDR+3
U BEG+3, BEG+4, GETSUMS+1, GETSUMS+12, CHKPG+2
X GETSUMS+6*, GETSUMS+7, GETSUMS+8!, HDR+3*
>> Y HDR+3
>> ZTDESC EN+4*
ZTREQ EN+5!
>> ZTRTN EN+4*
ZTSK EN+5!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All