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

Package: Accounts Receivable

Routine: PRCABD


Information

PRCABD ;SF-ISC/RSD-DISPLAY/PRINT BILL ;12/15/95 10:54

Source Information

Source file <PRCABD.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**29,57,104,109,154,233,315**;20-MAR-95;Build 67
DEV
EN
Q
DES(D0,PRCABT) ;also entry from letter routine
DESL
DESQ
FLN ;first line of detail after description
ASK
HDR
ADD
DT
EN1 ;PRINT/DISPLAY BILL
EN10
EN1Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"BILL #: ",$P(PRCAD0,U,1),?30,"DATE: "
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: ?60,"TYPE: ",$P("1081^1080^1114","^",PRCABT),!,"DEBTOR: ",?40,"BILLING AGENCY: ",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !?1
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: X(I)
  • Condition for execution: $D(X(I))
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: ?41
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: X(I+5)
  • Condition for execution: $D(X(I+5))
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"CONTROL POINT :"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: ?17,$P($G(^PRCA(430,D0,11)),U)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !?40,"AGENCY LOCATION CODE: ",$P(PRCAD10,U,3)
  • Condition for execution: PRCABT=1
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,"APPROVING OFFICIAL: "
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: "/ES/ ",X," DATE: "
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,"FY: ",$P(X,U,1),?12,"APPR. SYMBOL: ",$P($G(^PRCA(430,D0,11)),U,17),?50,"AMOUNT: ",$J($P(X,U,2),10,2)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: DES+2
Function Call: WRITE
  • Prompt: !,?11,DIWF
  • Line Location: DESL+2
Function Call: WRITE
  • Prompt: ?11
  • Line Location: FLN+3
Function Call: WRITE
  • Prompt: DIWF
  • Line Location: FLN+3
Function Call: WRITE
  • Prompt: ?47,$J($P(PRCADI0,U,4),12,4)
  • Condition for execution: $P(PRCADI0,U,4)]""
  • Line Location: FLN+5
Function Call: WRITE
  • Prompt: ?62,$S($D(^PRCD(420.5,+$P(PRCADI0,U,5),0)):$P(^(0),U,1),1:"")
  • Line Location: FLN+5
Function Call: WRITE
  • Prompt: ?65,$J($P(PRCADI0,U,6),15,2)
  • Line Location: FLN+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !,"ORDER NO.",?11,"DATE",?37,"QUANTITY",?55,"COST",?61,"PER",?74,"AMOUNT"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !," DATE",?11,"DESCRIPTION",?37,"QUANTITY",?55,"COST",?61,"PER",?74,"AMOUNT"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,PRCADUL,!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: $$SLH^RCFN01(Y,"/")_" "
  • Line Location: DT+0
Info |  Source |  Entry Points |  Interaction Calls