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

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
IFCAP 20 $$DATE^PRC0C  ^PRCFAC02  SETPO^PRCFFERT  (ENO,KILL,RETRANO)^PRCFFMO2  (EDIT,GO,OKAY2,REVIEW,STACK)^PRCFFU  NEW^PRCFFU1  (OVCOM,POFAIL)^PRCFFU10  $$ERROR^PRCFFU13  
(EN,MSG6)^PRCFFU16  (FISC,SIG)^PRCFFU4  EN7^PRCFFU41  $$BBFY^PRCFFU5  GENDIQ^PRCFFU7  (MSG1,NEW410,PO)^PRCFFUD  ($$DTOBL,$$OBLDAT)^PRCFFUD1  D^PRCFQ  
AAC^PRCHAAC  ^PRCHDP1  CHECK^PRCHSWCH  NEW^PRCOEDI  
VA FileMan 3 ^%DT  EN^DDIOL  WAIT^DICD  
Generic Code Sheet 2 SETPARAM^GECSSDCT  (SETCS,SETSTAT)^GECSSTAA  

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

Package Total Caller Graph
IFCAP 4 PRCESOE  PRCFFMO  PRCFFU12  PRCFFUA1  

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

External References

Name Field # of Occurrence
^%DT VAR2+4
EN^DDIOL MSGCPBAL+11
WAIT^DICD PHA+1
SETPARAM^GECSSDCT TRANS+3
SETCS^GECSSTAA SEGS+6
SETSTAT^GECSSTAA TRANS+1
$$DATE^PRC0C VAR2+10, CPBAL+3
^PRCFAC02 NC
SETPO^PRCFFERT ESIG+9
ENO^PRCFFMO2 VAR2+8
KILL^PRCFFMO2 VAR2+9
RETRANO^PRCFFMO2 VAR11+1
EDIT^PRCFFU EDIT+1
GO^PRCFFU GO+1
OKAY2^PRCFFU V1+8
REVIEW^PRCFFU VAR+10
STACK^PRCFFU STACK+1
NEW^PRCFFU1 SEGS+3
OVCOM^PRCFFU10 V1+6
POFAIL^PRCFFU10 V1+6
$$ERROR^PRCFFU13 MSG1+1
EN^PRCFFU16 VAR1+2
MSG6^PRCFFU16 VAR1+3
FISC^PRCFFU4 FISCST+1
SIG^PRCFFU4 ESIG+2
EN7^PRCFFU41 POOBL+3
$$BBFY^PRCFFU5 VAR2+15
GENDIQ^PRCFFU7 VAR2+16
MSG1^PRCFFUD VAR2+10
NEW410^PRCFFUD ESIG+5
PO^PRCFFUD ESIG+6
$$DTOBL^PRCFFUD1 VAR11+2
$$OBLDAT^PRCFFUD1 CPBAL+3
D^PRCFQ VAR2
AAC^PRCHAAC NC+2
^PRCHDP1 VAR+10
CHECK^PRCHSWCH PHA+2
NEW^PRCOEDI PHA+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(420 - [#420] V1+3, VAR2+10, CPBAL+10
^PRC(440 - [#440] VAR2+13
^PRC(442 - [#442] VAR+2, VAR2+12, VAR2+13, VAR2+14, NC+2
^PRCD(420.8 - [#420.8] VAR2+14
^TMP($J SEGS+1!, SEGS+6, SEGS+7!

Label References

Name Line Occurrences
CPBAL V+7
MSG V1+6, V1+9, VAR2+5, VAR2+9, GO+1, MSG1+2
MSG1 ESIG+3
OUT3 V1+6, V1+9, VAR2+5, VAR2+9, GO+1, ESIG+3, POOBL+6
VAR1 VAR1
VAR11 VAR2+10
VAR2 VAR11

Naked Globals

Name Field # of Occurrence
^( SEGS+6
^(0 V1+5
^(1 VAR+2
^(2 VAR2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% OUT3!
%DT VAR2+1*, VAR2+4!
%DT("A" VAR2+2*
%DT("B" VAR2+3*
A CPBAL~, CPBAL+3*, CPBAL+7, CPBAL+8*, CPBAL+10
>> ACCEDIT VAR1
AMT OUT3!
B CPBAL~, CPBAL+7*, CPBAL+12, CPBAL+13
C OUT3!
C1 OUT3!
CSDA OUT3!
D0 VAR+10~*, OUT3!
DA OUT3!
DEL OUT3!
DI OUT3!
DIC OUT3!
>> DIRUT V1+9, GO+1
DT VAR+1
E OUT3!
>> ESIGMSG ESIG+3
>> EXIT VAR2+7*, VAR2+9
FILE PHA+2*!
FMSDOCT POOBL+2~*, POOBL+3
FMSINT SEGS+2~*, SEGS+3
>> FMSMOD SEGS+2*, SEGS+3, POOBL+3
>> GECSFMS("DA" SEGS+6, TRANS+1, TRANS+3
I OUT3!
>> IDFLAG ESIG+7*
IO("Q" PHA+8!
J OUT3!
K OUT3!
LOOP SEGS+6~*
MSG MSG1~, MSG1+1
N1 OUT3!
N2 OUT3!
OBLDAT CPBAL+4!
>> P("DELDATE" VAR*
>> P("PODATE" VAR+1*, VAR+2*
P2 TRANS+2~*, TRANS+3
PCP OUT3!, CPBAL+10
PO VAR1+2, VAR2+12, VAR2+13, ESIG+5, SEGS+2, TRANS+2, OUT3!
PO(0 V+6, V1+3, VARVAR+4, VAR+5, VAR+6
PODA OUT3!
>> POESIG POOBL+1*
>> PQT CPBAL+9*
>> PRC("AMENDT" CPBAL+3
>> PRC("PARAM" V1FISCST+1
>> PRC("PODT" VAR11+2
>> PRC("QTR" CPBAL+9
>> PRC("RBDT" VAR11+2, VAR2+10, CPBAL+3
>> PRC("SITE" V1+3, VAR2+10, CPBAL+10
PRCF("NOBAL" V+8!, CPBAL+11*
>> PRCFA("ACCPD" TRANS+2
>> PRCFA("BBFY" VAR2+15*
>> PRCFA("IDES" V1+7*
>> PRCFA("MOD" VAR+3*, SEGS+2
>> PRCFA("MP" VAR+4*, VAR+8, VAR1
>> PRCFA("OBLDATE" VAR11+1, VAR2+6*, VAR2+10, TRANS+2, POOBL+3
>> PRCFA("OVCOM" V1+6
>> PRCFA("PODA" VAR+2, VAR+10, VAR2+14, VAR2+15, VAR2+16, POOBL+1, PHA+1, PHA+2, NC
>> PRCFA("REF" VAR+5*, POOBL+2
>> PRCFA("RETRAN" VAR+10, VAR11ESIG+8, POOBL+6
>> PRCFA("SC" VAR2+11*, VAR2+13*, VAR2+14*
>> PRCFA("SFC" VAR+6*
PRCFA("SIGFAIL" ESIG+3!
>> PRCFA("SYS" VAR+7*
>> PRCFA("TT" VAR+8*, VAR1SEGS+3, POOBL+3
>> PRCFA("TYPE" ESIG+1
>> PRCHOBL PHA+3
>> PRCHPO PHA+2*, NC+2
PRCOPODA PHA+1*, PHA+8!
PRCQ OUT3!
>> PRCRGS V1+6
PRCS CPBAL+21!
PRCS("C" CPBAL+12*, CPBAL+16, CPBAL+20
PRCS("O" CPBAL+13*, CPBAL+18, CPBAL+20
>> PRCTMP(442 ESIG+5
PTYPE OUT3!
>> ROUTINE MSG1*, MSG1+1
T OUT3!
T1 OUT3!
TIME OUT3!
TRDA OUT3!
U V+6, V1+3, V1+5, VARVAR+4, VAR+6, VAR2+10, VAR2+13, SEGS+2, TRANS+2
FISCST+1, NC+2
>> X MSG*, OUT*, CPBAL+10*, CPBAL+11*, CPBAL+12, CPBAL+13
Y V1+9, VAR+10, VAR11+1*, VAR11+2*, VAR2+3, VAR2+5, VAR2+6, GO+1, OUT3!
Z OUT3!
Z5 OUT3!
ZX OUT3!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All