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

Package: IFCAP

Routine: PRCF58A


Information

PRCF58A ;WISC@ALTOONA/CTB-PROCESS 1358 ADJUSTMENT ;5-29-91/14:10

Source Information

Source file <PRCF58A.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
OUT
RETURN
SAEDIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Unable to Process due to lack of Obligation Number."
  • Line Location: V+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: V+15
Function Call: WRITE
  • Prompt: !,"PROCESS 1358 ADJUSTMENT",?40,"Obligation #: ",$P(PO(0),"^")
  • Line Location: V+15
Function Call: WRITE
  • Prompt: !!," Service Balance: $ ",$J(+$P(PO(8),"^"),10,2)
  • Line Location: V+16
Function Call: WRITE
  • Prompt: !," Fiscal Balance: $ ",$J($P(PO(8),"^",2),10,2)
  • Line Location: V+17
Function Call: WRITE
  • Prompt: !,"Amount of Adjustment: $ ",$J($P(TRNODE(4),"^",8),10,2)
  • Line Location: V+18
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: V+19
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: V+20
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: V+21
Function Call: WRITE
  • Prompt: !!,"The current values are:",!,?10,"BOC #1: ",$P(PO(0),"^",6),!?10,"BOC #2:",$P(PO(0),"^",8),!!,"Please enter the corrected values.",!!
  • Line Location: SAEDIT+0

FileMan Files Accessed Via FileMan Db Call

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