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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCFFMOM

Package: IFCAP

Routine: PRCFFMOM


Information

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

Source Information

Source file <PRCFFMOM.m>

Call Graph

Call Graph Total: 40

Package Total Call Graph
IFCAP 35 SC^PRC0A  ($$ACC,$$DATE)^PRC0C  SOAR^PRC0E  ($$GETTXNS,$$NEWCHK,$$SWITCH,SETPO)^PRCFFERT  PAUSE^PRCFFERU  (,OUT1)^PRCFFM1M  (MSG,MSG1,NOA)^PRCFFM3M  (ENM,KILL,RETRANM)^PRCFFMO2  
($$CHKAMEN,GO,OKAM,OKAPP,OKPRT)^PRCFFU  (OVCOM,POFAIL)^PRCFFU10  FCP^PRCFFU11  EN^PRCFFU16  SIG^PRCFFU4  $$BBFY^PRCFFU5  (GENDIQ,LIST)^PRCFFU7  MSG^PRCFFU8  
TAG33^PRCFFU9  (KILL,OK,POAM)^PRCFFUA  (CPBAL,GET,SC)^PRCFFUA1  (MSG10,MSG8,MSG9)^PRCFFUA3  (CHKBOC,GETBOC)^PRCFFUA4  (EN,GO)^PRCFFUB  (AMEND,MSG1)^PRCFFUD  ($$DTOBL,DT442)^PRCFFUD1  
D^PRCFQ  ^PRCFSITE  CHECK^PRCHAMYA  ^PRCHDAM  (ENCODE,REMOVE)^PRCHES14  $$VERIFY^PRCHES5  ^PRCHQUE  ^PRCHSF3  
$$VERIFY^PRCSC2  ESIG^PRCUESIG  ENT^PRCVPOU  
VA FileMan 4 ^%DT  EN^DDIOL  (,IX)^DIC  WAIT^DICD  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCFA AMENDMENT PROCESSING  PRCFFERT  

Entry Points

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

External References

Name Field # of Occurrence
^%DT PRT2+5
EN^DDIOL DESC+3, RETRAN+7
^DIC AMEND+3
IX^DIC START+8
WAIT^DICD TRANS
SC^PRC0A EDIT+21
$$ACC^PRC0C EDIT+3
$$DATE^PRC0C PRT2+12
SOAR^PRC0E EDIT+11
$$GETTXNS^PRCFFERT EDIT+30
$$NEWCHK^PRCFFERT EDIT+31
$$SWITCH^PRCFFERT EDIT+33
SETPO^PRCFFERT TRANS1+15
PAUSE^PRCFFERU EDIT+29
^PRCFFM1M TRANS2+1
OUT1^PRCFFM1M TRANS2+3
MSG^PRCFFM3M MSG
MSG1^PRCFFM3M MSG1
NOA^PRCFFM3M NOA
ENM^PRCFFMO2 PRT2+10
KILL^PRCFFMO2 PRT2+11
RETRANM^PRCFFMO2 PRT11+1
$$CHKAMEN^PRCFFU DESC+1
GO^PRCFFU GO+1
OKAM^PRCFFU APP+1
OKAPP^PRCFFU APP1+3
OKPRT^PRCFFU PRT+1
OVCOM^PRCFFU10 RETRAN+13
POFAIL^PRCFFU10 RETRAN+13
FCP^PRCFFU11 TRANS1+13
EN^PRCFFU16 PRT1+2
SIG^PRCFFU4 ESIG+1
$$BBFY^PRCFFU5 PRT+3
GENDIQ^PRCFFU7 PRT2+13
LIST^PRCFFU7 TRANS1+9
MSG^PRCFFU8 TRANS1+14
TAG33^PRCFFU9 TRANS1+16
KILL^PRCFFUA APP+16
OK^PRCFFUA APP+6
POAM^PRCFFUA APP+14
CPBAL^PRCFFUA1 APP+3
GET^PRCFFUA1 APP+4
SC^PRCFFUA1 APP+2
MSG10^PRCFFUA3 APP+8
MSG8^PRCFFUA3 APP+14
MSG9^PRCFFUA3 APP+13
CHKBOC^PRCFFUA4 APP+10
GETBOC^PRCFFUA4 APP+9
EN^PRCFFUB EDIT+6
GO^PRCFFUB TRANS1+8
AMEND^PRCFFUD TRANS1+12
MSG1^PRCFFUD PRT2+12
$$DTOBL^PRCFFUD1 PRT11+3
DT442^PRCFFUD1 DESC+14, RETRAN+11, ESIG+8, TRANS1
D^PRCFQ PRT2
^PRCFSITE V+6
CHECK^PRCHAMYA TRANS+3
^PRCHDAM DESC+13
ENCODE^PRCHES14 ESIG+6
REMOVE^PRCHES14 ESIG+4
$$VERIFY^PRCHES5 START+18
^PRCHQUE PRINT+6
^PRCHSF3 DESC+12
$$VERIFY^PRCSC2 RETRAN+9
ESIG^PRCUESIG V+11
ENT^PRCVPOU TRANS1+5
$$GET^XPAR TRANS1+2

Interaction Calls

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
Routine Call
  • DIC
  • Line Location:
    • AMEND+3
Routine Call
  • DIC
  • Line Location:
    • START+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] RETRAN+16, PRT2+12
^PRC(442 - [#442] ESIG+9, ESIG+10, ESIG+12, TRANS+2, TRANS1+10
^PRC(443.6 - [#443.6] START+16, START+17, AMEND+7, RETRAN+4, RETRAN+9, APP1+1, TRANS2+2

Label References

Name Line Occurrences
AMEND APP+1
APP1 APP+8
MSG RETRAN+13, PRT2+7, PRT2+11, EDIT+9, EDIT+18, EDIT+29, GO+2
MSG1 START+18, RETRAN+9
NOA START+16, START+17
OUT1 V+7, V+12, START+11, START+16, START+17, START+18, AMEND+5, RETRAN+5, RETRAN+9, RETRAN+13
, APP1+1, PRT2+7, PRT2+11, EDIT+9, EDIT+18, EDIT+29, GO+2, ESIG+2, TRANS+4, PRINT+1
PRINT TRANS1+13, TRANS1+14
PRT1 PRT1
PRT11 PRT2+12
PRT2 PRT11
RETRAN APP+11
START DESC+1, DESC+2, APP1, TRANS1+13, TRANS2+3
TRANS1 ESIG+13

Naked Globals

Name Field # of Occurrence
^(0 RETRAN+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% V+6, OUT1!
%DT PRT2+1*, PRT2+6!
%DT("A" PRT2+2*
%DT("B" PRT2+3*
%Y OUT1!
>> ACCEDIT PRT1
>> D START+3*
>> D0 DESC+8*, PRINT+4*
>> D1 DESC+9*, PRINT+5*
>> DA ESIG+3*
DIC START+4*, AMEND*, OUT1!
DIC("A" START+2!, START+6*, START+9!, AMEND+1*, AMEND+4!
DIC("S" START+5*, START+9!
DIC(0 START+7*, AMEND+2*
>> DIRUT APP+1, APP+11, APP+13, APP1+1, GO+2
DUZ V+11, ESIG+6
>> ERFLAG TRANS+1*, TRANS+3, TRANS+4
>> EXIT PRT2+9*, PRT2+11
FATAL APP+5*, APP+8, APP1, OUT1!
>> FISCEDIT APP+11, APP+12*
FLG START+12*, PRT+1*, PRINT+1, OUT1!
FSO START+10!
>> GECSDATA PRT+12, EDIT+33
>> GECSDATA( PRT+12
I OUT1!
>> IDFLAG EDIT+4*
J OUT1!
K OUT1!
>> MESSAGE V+10*, V+11, V+12, V+13, V+14, ESIG+5*, ESIG+6
P OUT1!
P2237 RETRAN+9~*
PARAM EDIT+1~, EDIT+2*, EDIT+3
>> PCP RETRAN+15*, RETRAN+16*
PO START+13*, START+16, START+17, AMEND, AMEND+7, DESC+1, DESC+8, APP1+1, PRT+3, PRT1+2
, PRT2+13, EDIT+30, TRANS2!
PO(0 START+13*, DESC+14, RETRAN+11, RETRAN+15, PRT+5, PRT+7, EDIT+2
PO(6 AMEND+6*, AMEND+7*, DESC+2, APP1+1
>> PRC("AMENDT" PRT11+3
>> PRC("FY" EDIT+2
>> PRC("FYQDT" ESIG+11
>> PRC("RBDT" PRT11+3, PRT2+12
>> PRC("SITE" RETRAN+16, PRT2+12, EDIT+3
PRCFA START+1!, OUT1!
PRCFA("ACCEDIT" TRANS1+16
PRCFA("AMEND#" AMEND+8*, DESC+14, RETRAN+11, PRT+2*, EDIT+30, ESIG+4, ESIG+6, ESIG+8, TRANS+3, TRANS1
, TRANS1+5, TRANS1+9, PRINT+5
PRCFA("AUTHE" TRANS1+13
PRCFA("BBFY" PRT+3*, EDIT+2
PRCFA("DLVDATE" TRANS+2*
PRCFA("GECS" EDIT+14, EDIT+15, EDIT+16, EDIT+20, EDIT+29
PRCFA("IDES" PRT+4*
PRCFA("MOD" RETRAN+1*, EDIT+15*, EDIT+16*, EDIT+22*, EDIT+23*, EDIT+29, EDIT+31
PRCFA("MOMNOTREQ" TRANS1+11*
PRCFA("MOMREQ" TRANS1+11*, TRANS1+14
PRCFA("MP" PRT+5*, PRT+11, PRT1
PRCFA("OBLDATE" PRT11+2, PRT2+8*, PRT2+12
PRCFA("OLDPODA" TRANS1+6*
PRCFA("OLDREF" TRANS1+7*
PRCFA("OVCOM" RETRAN+13
PRCFA("PODA" START+14*, PRT+6*, EDIT+11, ESIG+3, ESIG+4, ESIG+6, ESIG+8, ESIG+9, ESIG+10, ESIG+12
, TRANS+2, TRANS+3, TRANS1, TRANS1+5, TRANS1+6, TRANS1+9, TRANS1+10, TRANS2+2, PRINT+4
PRCFA("REF" PRT+7*, TRANS1+7
PRCFA("RETRAN" DESC+7*, RETRAN+9, RETRAN+11, APP1, PRT11, EDIT+6, EDIT+14, EDIT+20, EDIT+29, EDIT+32*
, ESIG+13, TRANS1+4, TRANS1+8, TRANS1+12, TRANS1+15, TRANS2+3
PRCFA("SIGFAIL" ESIG+2!
PRCFA("SIS" EDIT+30*, EDIT+31
PRCFA("SYS" PRT+10*
PRCFA("TT" PRT+11*, PRT+12*, PRT1, EDIT+9, EDIT+10, EDIT+12*, EDIT+14, EDIT+18, EDIT+29, EDIT+31
PRCFA("TYPE" ESIG
PRCFA("ZERO" TRANS1+11*
PRCFAA AMEND+9*, DESC+1, DESC+11, RETRAN+9, PRT+2, OUT1!
PRCFATT EDIT+10~*, EDIT+11, EDIT+12!
PRCFCHG OUT1!
>> PRCFMO EDIT+3*, ESIG+12
PRCFPODA START+15*, START+18, DESC+10, DESC+14, RETRAN+4, RETRAN+9, RETRAN+11, PRT+6, OUT1!
>> PRCHAM DESC+11*
>> PRCHPO DESC+10*
>> PRCHQ PRINT+2*
>> PRCHQ("DEST" PRINT+3*
>> PRCOAMT ESIG+9*, ESIG+10*, ESIG+11*, ESIG+12*
>> PRCRGS RETRAN+13
SAVEY APP+7*, APP+8!
U DESC+2, RETRAN+9, RETRAN+15, RETRAN+16, PRT+5, PRT+7, PRT2+12, EDIT+2, TRANS1+10
X V+13*, EDIT+18, EDIT+19*, EDIT+20*, EDIT+21, EDIT+24*, EDIT+28*, EDIT+29, EDIT+31*, EDIT+32
, EDIT+33*, OUT1!
XRBLD EDIT+5*, EDIT+9, EDIT+18, EDIT+29, TRANS1+8, OUT1!
Y START+11, START+13, START+14, START+15, AMEND+5, AMEND+7, AMEND+8, AMEND+9, DESC+9, APP+1
, APP+7, APP+8*, APP+11, APP+14, APP1+1, PRT+1, PRT11+2*, PRT11+3*, PRT2+3, PRT2+7
, PRT2+8, EDIT+21, EDIT+22, EDIT+23, EDIT+24, EDIT+25!, GO+2, OUT1!
Y(0 START+13, AMEND+6
Z OUT1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All