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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCFDA

Package: IFCAP

Routine: PRCFDA


Information

PRCFDA ;WISC@ALTOONA/CTB-PROCESS PAYMENT IN ACCTG ;2/9/96 15:58 [2/1/99 2:26pm]

Source Information

Source file <PRCFDA.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
EN
B
BOC ; Ask for BOC
EDIT ; edit the FMS line entry in 421.5
DOC ;PROCESS FMS DOC
SUMM ; Display Accounting Summary - Entry Point from Input Template
OT
NUMSTA() ;Determine number of unique stations in IFCAP system
EXIT ; IF NO fms line BOC chosen,display message and exit
UNP ; Check for posted liquidation amounts and unpost

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This invoice is being edited by someone else, please try later!"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!?5,"There are no BOCs on this obligation, processing terminated."
  • Line Location: BOC+5
Function Call: WRITE
  • Prompt: !!?15,"Exiting."
  • Line Location: BOC+7
Function Call: WRITE
  • Prompt: !,"FMS Line # ",PRCFA("LNO")
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !,"OBLIGATION AMOUNT: ",PRCFA("AMT")
  • Line Location: EDIT+7
Function Call: WRITE
  • Prompt: !,"Warning - Computed Liquidation amt of $",$FN(PRCFA("LIQ"),"",2)," exceeds",!?5,"total obligated amt of $",$FN(PRCFA("AMT"),"",2)," for BOC ",BOC," on ",$P($G(^PRCF(421.5,PRCF("CIDA"),1)),U,3),"."
  • Line Location: EDIT+13
Function Call: WRITE
  • Prompt: !!?2,"****WARNING**** - Certified Invoice total $",$FN(PRCF("CAMT")/100,"",2)," does not match sum of",!,"Line Amounts: $",$FN(PRCF("TAMT"),"",2)
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !?7,"If you believe that the Total Invoice Amount Certified for",!,"payment is incorrect, the invoice should be returned to voucher audit",!,"for review."
  • Line Location: EDIT+21
Function Call: WRITE
  • Prompt: !?2,"There are no Line Amounts - FMS will not accept this!"
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !,"Unliquidated obligation amounts and BOCs on this order are:"
  • Line Location: SUMM+3
Function Call: WRITE
  • Prompt: ?12,BOC
  • Line Location: SUMM+15
Function Call: WRITE
  • Prompt: !,"Total Invoice Amount Certified for Payment=$"
  • Line Location: SUMM+20
Function Call: WRITE
  • Prompt: $J(PRCF("CAMT")/100,0,2)
  • Line Location: SUMM+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"Liquidation # ",ZX1," for ",$FN(LAMT,",",2)," has been deleted and unposted."
  • Line Location: UNP+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCF(421.5 - [#421.5] Classic Fileman Calls
^PRC(424 - [#424] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call