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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
IFCAP 5 ^PRCF58A1  MSG^PRCFQ  ^PRCFSITE  ^PRCFYN  ^PRCSDIC  
VA FileMan 1 ^DIE  

Entry Points

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

External References

Name Field # of Occurrence
^DIE SAEDIT+1
^PRCF58A1 V+25
MSG^PRCFQ V+26
^PRCFSITE V+2
^PRCFYN V+14, V+22, V+23, V+24, V+25
^PRCSDIC V+4

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
Routine Call
  • DIE
  • Line Location:
    • SAEDIT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(442 - [#442] V+7, V+10
^PRCD(442.3 - [#442.3] V+3
^PRCS(410 - [#410] V+5, V+9*, SAEDIT+1

Label References

Name Line Occurrences
OUT V+4, V+8, V+14, V+23, RETURN
RETURN V+14, V+23, V+24
SAEDIT V+24
V RETURN

Naked Globals

Name Field # of Occurrence
^( V+5, V+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% V+2, V+12!, V+14*, V+22!*, V+23*, V+24*, V+25*, OUT!
>> %A V+14*, V+22*, V+23*, V+24*, V+25*
>> %A(1 V+22*, V+24*
>> %B V+14*, V+22*, V+23*, V+24*, V+25*
>> %F V+2*
A OUT!
AMT OUT!
C OUT!
CEILING OUT!
CS OUT!
DA V+4*, V+5, OUT!, SAEDIT+1*
DEL OUT!
DIC V+2*, OUT!
DIC("S" V+3*, V+4!
DIC(0 V+2*
>> DIE SAEDIT+1*
DIK OUT!
>> DR SAEDIT+1*
FSO V+3*, V+4!
I V+5*, V+10*, V+24*, OUT!
IOF V+15
IOINHI OUT!
IOINLOW OUT!
IOINORM OUT!
J OUT!
N1 OUT!
N2 OUT!
>> NOGO V+12*, V+19*, V+20*, V+21*, V+22, V+24
OLDTT OUT!
PO OUT!
PO( V+10*
PO(0 V+12, V+15, V+19, V+20, V+21, SAEDIT
PO(8 V+16, V+17
>> PRC("SITE" V+7
PRCF OUT!
PRCFA OUT!
PRCFA("PODA" V+9*, V+10
PRCFA("TRDA" V+4*, V+9, SAEDIT+1
PRCFA(1358 V+3*
PRCFX V+4!
TMP OUT!
TRNODE V+5!, OUT!
TRNODE( V+5*
TRNODE(3 V+19, V+20, V+21, SAEDIT+1*
TRNODE(4 V+7, V+12, V+18
X V+7*, V+8, V+9, V+26*, OUT!
X1 V+7*, OUT!
Y V+4, OUT!
Z OUT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All