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

Entry Points

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

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
  • Variable: C
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls