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

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

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
Info |  Source |  Entry Points |  Interaction Calls