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

Package: Accounts Receivable

Routine: PRCAPTR


Information

PRCAPTR ;WASH-ISC@ALTOONA,PA/RGY-Print PENDING TRANSACTION ;8/25/93 9:11 AM

Source Information

Source file <PRCAPTR.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;;Mar 20, 1995
TOP ;
Q2
PRNTL ;
HDR ;
DT
TSK ;
Q1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y+5>IOSL
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !?69,"----------",!?60,"TOTAL:",?69,$J(TOTAL,10,2),!?60,"COUNT:",?69,$J(CNT,10,2)
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !?60,"MEAN:",?69,$J(TOTAL/CNT,10,2)
  • Condition for execution: CNT
  • Line Location: V+6
Function Call: READ
  • Formatting: !
  • Prompt: "Press return to continue: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: !,+X0,?9,$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^")
  • Line Location: PRNTL+1
Function Call: WRITE
  • Prompt: ?22
  • Line Location: PRNTL+2
Function Call: WRITE
  • Prompt: ?37,$E($P($G(^PRCA(430.2,+$P($G(^PRCA(430,+$P(X0,"^",2),0)),"^",2),0)),"^"),1,15),?55,$E($P($G(^PRCA(430.3,+$P(X1,"^",2),0)),"^"),1,10),?69,$J($P(X1,"^",5),10,2)
  • Line Location: PRNTL+2
Function Call: WRITE
  • Prompt: !,"Pending Transaction List",!,"Date Printed: "
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"Tran. #",?9,"Bill #",?22,"Tran. Date",?37,"Category",?55,"Type",?73,"Amount",!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: X,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" "
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: $J(Y#100\1,2)_","
  • Condition for execution: Y#100
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: Y\10000+1700
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: " "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
  • Condition for execution: Y#1
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls