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

Package: IFCAP

Routine: PRCEADJ1


Information

PRCEADJ1 ;WISC/CLH/LDB/SJG-FISCAL 1358 ADJUSTMENTS ; 04/21/93 4:20 PM

Source Information

Source file <PRCEADJ1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**23,176**;Oct 20, 2000;Build 11
V1
RETRAN ; Entry point for rebuild/transmit
FMSCHK ;
; Patch 23, disable obligation process for SO with "Q" & "T" status
SC
CHECK ; Check adjustment amount with obligation/liquidation/authorization amounts
OUT
OUT1
FMSTAT ; Check status of prior FMS Documments
SUB ; Check BOCs (subaccounts)
CC ; Check Cost Centers
MSG(X) ; Display message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"...retrieving 1358 information...",!
  • Line Location: RETRAN+1
Function Call: WRITE
  • Prompt: !!,"Unable to Process due to lack of Obligation Number."
  • Line Location: RETRAN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: FMSCHK+10
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: "PROCESS 1358 ADJUSTMENT",?40,"Obligation #: ",IOINHI,$P(PO(0),"^")
  • Line Location: SC+0
Function Call: WRITE
  • Prompt: !!,IOINLOW," Service Balance: $ ",IOINHI,$FN(+PO(8)-$P(PO(8),"^",3),"P,",2)
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: !,IOINLOW," Fiscal Balance: $ ",IOINHI,$FN(+PO(8)-$P(PO(8),"^",2),"P,",2)
  • Line Location: SC+2
Function Call: WRITE
  • Prompt: !,IOINLOW,"Amount of Adjustment: $ ",IOINHI,$FN($P(TRNODE(4),"^",8),",P",2)
  • Line Location: SC+3
Function Call: WRITE
  • Prompt: !!,IOINLOW,?20,"ORIGINAL",?45,"ADJUSTMENT"
  • Line Location: SC+4
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: SC+6
Function Call: WRITE
  • Prompt: $C(7),?60,"*****"
  • Line Location: SC+7
Function Call: WRITE
  • Prompt: IOINORM
  • Line Location: SC+8
Function Call: WRITE
  • Prompt: !,$C(7),"Send 1358 adjustment back to service.",!
  • Line Location: CHECK+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: CHECK+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: SUB+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CC+1
Info |  Source |  Entry Points |  Interaction Calls