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

Package: Accounts Receivable

Routine: PRCABP2


Information

PRCABP2 ;SF-ISC/YJK-PRINT 1080 BILL ;9/10/93 9:47 AM

Source Information

Source file <PRCABP2.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Accounts Receivable 3 DE^PRCASIG  DEBTOR^PRCAUTL  ($$SADD,$$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
ST1
DES
ST2
ST3
Q
DT
HDR
LF
NEWP

External References

Name Field # of Occurrence
KILL^%ZTLOAD Q
^DIWP DES+1
DE^PRCASIG ST3+2
DEBTOR^PRCAUTL ST1
$$SADD^RCFN01 ST2
$$SLH^RCFN01 DT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !,"Standard Form 1080 (5-70)"
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: ?40,"AMENDED BILL"
  • Condition for execution: $D(PRCAMEND)
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: ?75,"Voucher No. ",$S($P(PRCA10,U,4)]"":$P(PRCA10,U,4),1:"_________"),!?3,"2 Treasury FRM 2500",?35,"VOUCHER FOR TRANSFERS"
  • Line Location: ST+0
Function Call: WRITE
  • Prompt: !?3,"1080-108",?27,"BETWEEN APPROPRIATIONS AND/OR FUNDS",?75,"Schedule No.________"
  • Line Location: ST+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !?9,$P(Y,U,1)
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !?9,$P(Y,U,2)
  • Condition for execution: $P(Y,U,2)]""
  • Line Location: ST+3
Function Call: WRITE
  • Prompt: !?9,$P(Y,U,5),", ",$S($D(^DIC(5,+$P(Y,U,6),0)):$P(^(0),U,2),1:"")," ",$P(Y,U,7),!
  • Line Location: ST+5
Function Call: WRITE
  • Prompt: !!!
  • Line Location: ST1+0
Function Call: WRITE
  • Prompt: !?12,PRCAST1
  • Line Location: ST1+1
Function Call: WRITE
  • Prompt: !?12,PRCAST2
  • Condition for execution: PRCAST2]""
  • Line Location: ST1+1
Function Call: WRITE
  • Prompt: !?12,PRCACT,", ",PRCAST," ",PRCAKP,!
  • Line Location: ST1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ST1+2
Function Call: WRITE
  • Prompt: $P(PRCAI0,U,7),?9,"|"
  • Line Location: DES+3
Function Call: WRITE
  • Prompt: ?9,"|"
  • Condition for execution: PRCAKK>1
  • Line Location: DES+4
Function Call: WRITE
  • Prompt: ?18,"| ",^UTILITY($J,"W",DIWL,PRCAKK,0),?60,"|",?68,"|",?77,"|",?83,"|",!
  • Line Location: DES+4
Function Call: WRITE
  • Prompt: ?18,"|"
  • Line Location: DES+5
Function Call: WRITE
  • Prompt: ^(0)
  • Condition for execution: $D(^UTILITY($J,"W",DIWL,J,0))
  • Line Location: DES+5
Function Call: WRITE
  • Prompt: ?60,"|",$J($P(PRCAI0,U,3),7,$L($P($P(PRCAI0,U,3),".",2)))
  • Line Location: DES+5
Function Call: WRITE
  • Prompt: ?68,"|",$J($P(PRCAI0,U,4),8,$S($L($P($P(PRCAI0,U,4),".",2))>2:4,1:2))
  • Line Location: DES+6
Function Call: WRITE
  • Prompt: ?77,"| ",$S($D(^PRCD(420.5,+$P(PRCAI0,U,5),0)):$P(^(0),U,1),1:""),?83,"|",$J($P(PRCAI0,U,6),12,2)
  • Line Location: DES+7
Function Call: WRITE
  • Prompt: PRCAUL,!,"Remittance in payment hereof should be sent to: ",?75,"TOTAL, $",$J($P(PRCA0,U,3),12,2),!
  • Line Location: ST2+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: ST2+0
Function Call: WRITE
  • Prompt: !?8,"c/o Agent Cashier"
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: !?9,$P(Y,U)
  • Condition for execution: $P(Y,U)]""
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: !?9,$P(Y,U,2)
  • Condition for execution: $P(Y,U,2)]""
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: !?9,$P(Y,U,3),", ",$P(Y,U,4)," ",$P(Y,U,5)," ",$P(Y,U,6),!
  • Line Location: ST2+1
Function Call: WRITE
  • Prompt: PRCAUL,!
  • Line Location: ST3+0
Function Call: WRITE
  • Prompt: ?5,"APPROPRIATION: ",$P(Y,U,4)," $ ",$J($P(Y,U,2),12,2),!
  • Condition for execution: $P(Y,U,4)]""
  • Line Location: ST3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ST3+2
Function Call: WRITE
  • Prompt: "Approving Officer: /ES/ ",X," Date: "
  • Condition for execution: X]""
  • Line Location: ST3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ST3+2
Function Call: WRITE
  • Prompt: PRCAUL,!?30,"CERTIFICATE OF OFFICE BILLED",!!,?5,"I certify that the above articles were received and accepted or the services performed as",!
  • Line Location: ST3+3
Function Call: WRITE
  • Prompt: "stated and should be charged to the appropriation(s) and/or fund(s) as indicated below; or that,",!,"the advance payments requested is approved and should be paid as indicated.",!!
  • Line Location: ST3+4
Function Call: WRITE
  • Prompt: $E(PRCAUL,1,30),?45,$E(PRCAUL,1,50),!,?12,"(Date)",?46,"(Authorized administrative or certifying officer)",!!,?45,$E(PRCAUL,1,50),!,?66,"(Title)",!,PRCAUL,!
  • Line Location: ST3+5
Function Call: WRITE
  • Prompt: ?30,"ACCOUNTING CLASSIFICATION - Office Billed",!,PRCAUL,!!!!!,"Paid by Check No.: ",!
  • Line Location: ST3+6
Function Call: WRITE
  • Prompt: $$SLH^RCFN01(Y,"/")
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,PRCAUL,!,?9,"|",?18,"|",?60,"|",?68,"| Unit Price|",!,"ORDER NO.|",?11,"Date |",?28,"DESCRIPTION",?60,"| Qty | Cost | Per | Amount",?96
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOBS
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: PRCAUL
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?9,"|",?18,"|",?60,"|",?68,"|",?77,"|",?83,"|",!
  • 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+5
^PRCA(430 - [#430] V+2, DES, DES+1, ST3+1
^PRCD(420.5 - [#420.5] DES+7
^RC(342.1 - [#342.1] ST+2, ST+3
^UTILITY($J DES!, DES+2, DES+4, DES+5

Label References

Name Line Occurrences
DES DES+8
DT DES+3, ST3+2
HDR ST1+2, DES+2, DES+4
LF DES+8
NEWP DES+2, DES+4, ST3, ST3+3
ST1 ST+2
ST2 DES
ST3 ST2

Naked Globals

Name Field # of Occurrence
^( DES, DES+1, DES+2, ST3+1
^(0 V+2, ST+5, DES+1, DES+5, DES+7, ST3+1
^(100 V+2
^(104 V+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT V+3*, ST1+2*, DES+2*, DES+4*, DES+8*, ST2*, ST3*, ST3+3*, Q!, HDR+1*
, NEWP*
D0 V+2, V+3, ST3+2, Q!
DA ST3+2*, Q!
DIWF DES*, Q!
DIWL DES*, DES+2, DES+4, DES+5, Q!
DIWR DES*, Q!
I DES+1*, ST3+1*, Q!, HDR*
>> IOBS V+3*, HDR
IOF ST, NEWP
J DES+2*, DES+4, DES+5, ST3+1*, ST3+2*, Q!
P ST3+2*, Q!
PRCA Q!
PRCA("DEBTNM" V+3*, ST1
PRCA("DEBTOR" ST1
PRCA0 V+2*, ST+2, ST2, ST3+2, Q!, NEWP
PRCA10 V+2*, ST, ST+2, Q!
PRCA14 V+2*, ST3+2, Q!
PRCABN V+3*, DES, DES+1, ST3+1, Q!
PRCACT ST1+1, Q!
PRCAD DES*, DES+1*, Q!
PRCADFM V+3*, ST3+2, Q!
PRCAI ST1+2*, DES*, DES+1, Q!
PRCAI0 DES*, DES+3, DES+5, DES+6, DES+7, Q!
PRCAKK DES+4*, Q!
PRCAKP ST1+1, Q!
PRCAKTM DES+3*, DES+4!, DES+5, DES+8!
>> PRCAMEND ST
PRCAST ST1+1, Q!
PRCAST1 ST1+1, Q!
PRCAST2 ST1+1, Q!
PRCAUL V+3*, ST2, ST3, ST3+1, ST3+3, ST3+5, ST3+6, Q!, HDR, HDR+1
, NEWP
U V+3*, ST, ST+2, ST+3, ST+4, ST+5, DES+3, DES+5, DES+6, DES+7
, ST2, ST2+1, ST3+1, ST3+2, NEWP
X DES+1*, ST3+2*, Q!
Y ST+2*, ST+3*, ST+4, ST+5, DES+3*, ST2*, ST2+1, ST3+1*, ST3+2*, 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