Routine: PRCFFMOM

Information

PRCFFMOM ;WOIFO/SJG/AS-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS ;3/8/05

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,180;Oct 20, 2000;Build 5
START	; get PO#
AMEND
DESC	; verify amendment is complete
RETRAN	; Entry point for rebuild/transmit
APP
APP1
PRT
PRT1
PRT11
PRT2
EDIT	; Get budget/accounting elements
GO	; Prompt user for for final go-ahead for approval
ESIG
TRANS
TRANS1
TRANS2
PRINT	; Print out copy of Purchase Order Amendment
OUT1
NOA
MSG
MSG1

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: 3 Line Location: V+13
Function Call: WRITE	Prompt: !,$C(7)," SIGNATURE CODE FAILURE " Line Location: V+13
Function Call: WRITE	Prompt: !,?15,"Return Amendment to A&MM.",! Line Location: DESC+1
Function Call: WRITE	Prompt: ! Line Location: DESC+3
Function Call: WRITE	Prompt: ! Line Location: DESC+4
Function Call: WRITE	Prompt: $C(7),! Line Location: RETRAN+6
Function Call: WRITE	Prompt: ! Line Location: APP+0
Function Call: WRITE	Prompt: ! Line Location: APP1+2
Function Call: WRITE	Prompt: ! Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: PRT1+1
Function Call: WRITE	Prompt: ! Line Location: PRT2+4
Function Call: WRITE	Prompt: !,"The Electronic Signature must now be entered to generate the "_PRCFA("TYPE")_" Document.",! Line Location: ESIG+0
Function Call: WRITE	Prompt: !!,"...copying amendment information back to Purchase Order file...",! Line Location: TRANS+0
Function Call: WRITE	Prompt: !!,"...ERROR IN COPYING AMENDMENT INFORMATION BACK TO PURCHASE ORDER FILE..." Line Location: TRANS+4