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

Package: IFCAP

Routine: PRCFFMO1


Information

PRCFFMO1 ;WISC/SJG-CONTINUATION OF OBLIGATION PROCESSING ;4/24/96 8:54 AM

Source Information

Source file <PRCFFMO1.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**58,79,220**;Oct 20, 2000;Build 23
V1
VAR
VAR1
VAR11
VAR2
EDIT ; Check fund/year dictionary for required FMS fields
GO ; Prompt user for final go-ahead for the document creation
ESIG ; Enter the Electronic Signature and away it goes!
STACK ; Create entry in GECS Stack File
SEGS ; Create entry into TMP($J, for remaining segments
TRANS ; Mark the document as queued for transmission
POOBL ; Enter Obligation Data into Purchase Order record
FISCST ; Post to Fiscal Status of Funds Tracker
PHA ; Generate PHA transaction
NC
OUT3
MSG
MSG1(MSG)
OUT
CPBAL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Net Cost of Order: ",?30,"$",$J($P(PO(0),U,16),10,2)
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !!,"Fiscal Status of Funds for Control Point"
  • Line Location: V1+1
Function Call: WRITE
  • Prompt: !!,"Status of Funds Balance: "
  • Line Location: V1+2
Function Call: WRITE
  • Prompt: ?30,"$",$J($P(^PRC(420,PRC("SITE"),1,+$P(PO(0),U,3),0),U,7),10,2)
  • Line Location: V1+3
Function Call: WRITE
  • Prompt: !,"Estimated Balance:"
  • Line Location: V1+4
Function Call: WRITE
  • Prompt: ?30,"$",$J($P(^(0),U,8),10,2)
  • Line Location: V1+5
Function Call: WRITE
  • Prompt: !
  • Line Location: V1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: VAR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: VAR1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: VAR2+4
Function Call: WRITE
  • Prompt: !,"The Electronic Signature must now be entered to generate the "_PRCFA("TYPE")_" Document.",!
  • Line Location: ESIG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PHA+1
Function Call: WRITE
  • Prompt: !!,"...now generating the PHA transaction"
  • Line Location: PHA+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PHA+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !!,$$ERROR^PRCFFU13(ROUTINE,MSG)
  • Line Location: MSG1+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !,"No data posted to Control Point Files",$C(7)
  • Line Location: OUT+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: CPBAL+11
Function Call: WRITE
  • Prompt: !!,"Control Point Balances"
  • Line Location: CPBAL+14
Function Call: WRITE
  • Prompt: !!,"Uncommitted Balance: "
  • Line Location: CPBAL+15
Function Call: WRITE
  • Prompt: ?30,"$"_$J(PRCS("C"),10,2)
  • Line Location: CPBAL+16
Function Call: WRITE
  • Prompt: !,"Unobligated Balance: "
  • Line Location: CPBAL+17
Function Call: WRITE
  • Prompt: ?30,"$"_$J(PRCS("O"),10,2)
  • Line Location: CPBAL+18
Function Call: WRITE
  • Prompt: !,"Committed, Not Obligated: "
  • Line Location: CPBAL+19
Function Call: WRITE
  • Prompt: ?30,"$"_$J((PRCS("O")-PRCS("C")),10,2)
  • Line Location: CPBAL+20
Info |  Source |  Entry Points |  Interaction Calls