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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCABP1

Package: Accounts Receivable

Routine: PRCABP1


Information

PRCABP1 ;SF-ISC/RSD-PRINT 1081 BILL ;4/6/94 3:13 PM

Source Information

Source file <PRCABP1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Accounts Receivable 3 DE^PRCASIG  $$DADD^RCAMADD  $$SLH^RCFN01  
Kernel 1 KILL^%ZTLOAD  
VA FileMan 1 ^DIWP  

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**104,112**;Mar 20, 1995
ST
DES
ST2
Q
DT
HDR
LF
ADD
NEWP

External References

Name Field # of Occurrence
KILL^%ZTLOAD Q
^DIWP DES+1
DE^PRCASIG ST2+1
$$DADD^RCAMADD ST+7
$$SLH^RCFN01 DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !,"Standard Form 1081 (9-82)"
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: ?39,"AMENDED BILL"
  • Condition for execution: $D(PRCAMEND)
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: ?77,"Bill No. ",$P(PRCA0,U,1),!?3,"Dept. of the Treasury",?35,"VOUCHER AND SCHEDULE",?68,"Transaction Date: "
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !?3,"I TFRM 2-2500",?31,"OF WITHDRAWALS AND CREDITS",?73,"Document No. ",$P(PRCA10,U,8)
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !!,"Charge and credit will be reported on customer agency",!,"statement of transactions for account period ending _______________",!,PRCAUL,!,?17,"CUSTOMER AGENCY",?47,"|",?65,"BILLING AGENCY"
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !,"Location Code (ALC)",?23,"|",?28,"Voucher No.",?47,"| Location Code (ALC)",?71,"|",?76,"Voucher No."
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !?23,"|",?47,"| ",$S($P(PRCA10,U,3)]"":$P(PRCA10,U,3),1:""),?71,"| ",$S($P(PRCA10,U,4)]"":$P(PRCA10,U,4),1:""),!?23,"|",?47,"|",?71,"|",?96
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: ST+4
Function Call: WRITE
  • Prompt: PRCAUL,!,"Department Bureau Address",?47,"|",?50,"Department Bureau Address",!?47,"|"
  • Line Location: ST+5
Function Call: WRITE
  • Prompt: !?1
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: X(I)
  • Condition for execution: $D(X(I))
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: ?47,"| "
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: X(I+5)
  • Condition for execution: $D(X(I+5))
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: !,PRCAUL,!?20,"SUMMARY",?47,"|",?68,"SUMMARY",!,"Appro., Fund, or Receipt Symbol |",?36,"Amount",?47,"|Appro., Fund, or Receipt Symbol |",?85,"Amount",?96
  • Line Location: ST+11
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: ST+11
Function Call: WRITE
  • Prompt: !?32,"| ",$J($P(X,U,2),12,2),?47,"|",?55,$P(X,U,4),?81,"| ",$J($P(X,U,2),12,2)
  • Line Location: ST+12
Function Call: WRITE
  • Prompt: !,"(Must agree with Billing",?32,"|",$E(PRCAUL,1,14),"| (Must agree with Customer",?81,"|",$E(PRCAUL,1,14)
  • Line Location: ST+13
Function Call: WRITE
  • Prompt: !?6,"Agency total)",?26,"TOTAL ",$J($P(PRCA0,U,3),12,2),?47,"|",?54,"Agency total)",?75,"TOTAL ",$J($P(PRCA0,U,3),12,2)
  • Line Location: ST+14
Function Call: WRITE
  • Prompt: ?6,^UTILITY($J,"W",DIWL,PRCAKK,0),!
  • Line Location: DES+3
Function Call: WRITE
  • Prompt: !,"BILLING AGENCY CONTACT:",?48,"Approved By: "
  • Line Location: ST2+0
Function Call: WRITE
  • Prompt: $E(PRCAUL,1,30)
  • Condition for execution: Y=""
  • Line Location: ST2+0
Function Call: WRITE
  • Prompt: $P(^(20),U,2)
  • Line Location: ST2+0
Function Call: WRITE
  • Prompt: !,"Prepared By: "
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: $E(PRCAUL,1,30)
  • Condition for execution: X=""
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: "/ES/ "
  • Condition for execution: X]""
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: X
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: ?48,"Telephone No. ",PRCAT,!
  • Line Location: ST2+2
Function Call: WRITE
  • Prompt: PRCAUL,!
  • Line Location: ST2+3
Function Call: WRITE
  • Prompt: ?30,"CERTIFICATION OF CUSTOMER OFFICE",!!?5,"I certify that the items listed herein are correct and proper for payment from and to",!,"the appropriation(s) designated.",!!
  • Line Location: ST2+4
Function Call: WRITE
  • Prompt: $E(PRCAUL,1,30),?46,$E(PRCAUL,1,50),!,?12,"(Date)",?46,"(Authorized administrative or certifying officer)",!!,$E(PRCAUL,1,30),!?8,"(Telephone No.)",!,PRCAUL,!!
  • Line Location: ST2+5
Function Call: WRITE
  • Prompt: $$SLH^RCFN01(Y,"/")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,PRCAUL,!,"Details of charges or reference to attached supporting documents",!!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?32,"|",?47,"|",?81,"|"
  • Line Location: LF+0
Function Call: WRITE
  • Prompt: ?21,"CONTINUED ON NEXT PAGE",!,PRCAUL,@IOF,!!?5,"(CONTINUATION OF BILL)",?75,"Bill No. ",$P(PRCA0,U,1),!!
  • Line Location: NEWP+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(5 - [#5] ST+9
^PRCA(430 - [#430] V+3, ST+12, DES, DES+1
^RC(342.1 - [#342.1] ST+8
^RCD(340 - [#340] ST+6, ST+7
^UTILITY($J DES!, DES+2, DES+3
^VA(200 - [#200] ST2

Label References

Name Line Occurrences
ADD ST+7, ST+10
DES DES+4
DT ST
HDR ST+15, DES+3
LF ST+12, ST+13
NEWP DES+3, ST2+3
ST2 DES

Naked Globals

Name Field # of Occurrence
^( ST+12, DES, DES+1, DES+2
^(0 V+3, ST+6, ST+7, ST+12, DES+1
^(1 ST+8
^(100 V+3
^(104 V+3
^(20 ST2
^(7 V+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT V+4*, ST+15*, DES+3*, ST2*, ST2+3*, Q!, HDR*, NEWP*
D0 V+3, ST+12, DES, DES+1, ST2+1, Q!
DA ST2+1*, Q!
DIWF DES*, Q!
DIWL DES*, DES+2, DES+3, Q!
DIWR DES*, Q!
I ST+4*, ST+10*, ST+11*, ST+12*, DES+1*, Q!, ADD*
II ST+7*, ST+10*, Q!, ADD
>> IOBS V+4*, ST+4, ST+11
IOF ST, NEWP
J ST+7*, ST+10*, DES+2*, DES+3, Q!, ADD*
P ST2+1*, Q!
PRCA0 V+3*, ST, ST+6, ST+14, ST2+1, Q!, NEWP
PRCA10 V+3*, ST+1, ST+4, ST+8, Q!
PRCA14 V+3*, ST2+1, Q!
PRCA7 V+3*, ST2, Q!
PRCAD DES*, DES+1*, Q!
PRCADB ST+7*!
PRCADFM V+4*, Q!
PRCAI ST+15*, DES*, DES+1, Q!
PRCAI0 DES*, Q!
PRCAKK DES+3*, Q!
>> PRCAMEND ST
PRCAT ST+10*, ST2+2, Q!
PRCAUL V+4*, ST+2, ST+5, ST+11, ST+12, ST+13, ST2, ST2+1, ST2+3, ST2+5
, Q!, HDR, NEWP
STATE V+2~, ST+9*
U V+4*, ST, ST+1, ST+4, ST+6, ST+8, ST+9, ST+10, ST+12, ST+14
, ST2, ST2+1, ADD, NEWP
X ST+6*, ST+7*, ST+8*, ST+9*, ST+10, ST+12*, DES+1*, ST2+1*, Q!, ADD
X( ST+10, ADD*
X(1 ST+6*
Y ST*, ST+6*, ST+7, ST+8*, ST2*, Q!, DT
ZTSK Q!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All