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

Package: IFCAP

Routine: PRCELIQ


Information

PRCELIQ ;WISC/CLH/CTB-LIQUIDATE 1358 ;9/14/95 11:40 [1/27/99 3:19pm]

Source Information

Source file <PRCELIQ.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**180**;Oct 20, 2000;Build 5
EN
EN1 ;entry point when obligation number defined
EN2
R
OUT
EXIT
SCREEN ;display balance data prior to posting
OVER ;over drawn notice
DEL
SHOW ;show all transactions posted

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"This obligation has not yet established in the 1358 file."
  • Line Location: EN2+1
Function Call: WRITE
  • Prompt: !!,MSG
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !!,"YOU DO NOT HAVE THE RIGHT SECURITY ACCESS CODE FOR THIS FILE!!",$C(7)
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !!,"This 1358 Liquidation entry is assigned entry number ",X1,"."
  • Line Location: EN2+4
Function Call: WRITE
  • Prompt: " $",$FN(LAMT,",",2)
  • Line Location: R+3
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: @IOF,IOINHI,"Post Liquidation to 1358",IOINLOW,?40,"Obligation #: ",IOINHI,$P(PO(0),"^")
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: !?20,IOINLOW,"Status: ",IOINHI,$S(+$P(PO(7),"^")>0:$P(^PRCD(442.3,$P(PO(7),"^"),0),"^"),1:"Unknown"),!!,IOINLOW,"Current amount obligated: ",IOINHI,"$ "_$FN($P(PO(8),U),",",2),IOINLOW
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: ?40," Authorization Balance: ",IOINHI,"$ "_$FN(+PO(8)-$P(PO(8),"^",3),",",2),IOINLOW,!!?41,"Unliquidated Balance: ",IOINHI,"$ "_$FN(+PO(8)-$P(PO(8),"^",2),",",2),IOINORM,!!
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !,$C(7),"This amount EXCEEDS available funds by $ ",$FN(X,",",2),".",!
  • Line Location: OVER+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: OVER+6
Function Call: WRITE
  • Prompt: ?6,$P(ZDA,"-",3),?36,$J(^TMP($J,"PRCE","LIQ",ZDA),10,2),!
  • Line Location: SHOW+4
Function Call: WRITE
  • Prompt: !!,?29,"Total: ",$J(ZTOT,10,2),!!
  • Line Location: SHOW+5

FileMan Files Accessed Via FileMan Db Call

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