Routine: PRCFDA

Information

PRCFDA ;WISC@ALTOONA/CTB-PROCESS PAYMENT IN ACCTG ;2/9/96 15:58 [2/1/99 2:26pm]

Package	Total	Call Graph
IFCAP	10	^PRCEFIS4 (,ASK,ASK2,EX)^PRCFDA2 STATUS^PRCFDE1 $$CLSD1358^PRCFDE2 PAUSE^PRCFDPVU ($$OBLIG,DISC,SUM)^PRCFDT MSG^PRCFQ ^PRCFSITE ^PRCFYN POST^PRCH58LQ
VA FileMan	5	^DIC ^DIE ^DIK EN^DIQ ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
IFCAP	6	FMS LINE PRCFD PROCESS PAYMENT IN ACCTG PRCFDA1 PRCFDA1X PRCFDA2 PRCFDA3

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
EN
B
BOC	; Ask for BOC
EDIT	; edit the FMS line entry in 421.5
DOC	;PROCESS FMS DOC
SUMM	; Display Accounting Summary - Entry Point from Input Template
OT
NUMSTA()	;Determine number of unique stations in IFCAP system
EXIT	; IF NO fms line BOC chosen,display message and exit
UNP	; Check for posted liquidation amounts and unpost

External References

Name	Field # of Occurrence
^DIC	V+5
^DIE	BOC+27, EDIT+9, EDIT+14, EDIT+15, EDIT+19
^DIK	UNP+4
EN^DIQ	EN+12
^DIR	EN+8, EN+13
^PRCEFIS4	B+14
^PRCFDA2	DOC+13
ASK^PRCFDA2	BOC+6
ASK2^PRCFDA2	BOC+4
EX^PRCFDA2	EN+2, EN+4, EN+8, EN+9, B, BOC+5, DOC+1, OT+1, EXIT+1
STATUS^PRCFDE1	B+3, EXIT+4
$$CLSD1358^PRCFDE2	EN+4
PAUSE^PRCFDPVU	DOC+6
$$OBLIG^PRCFDT	DOC+1
DISC^PRCFDT	EDIT+12
SUM^PRCFDT	EDIT+20
MSG^PRCFQ	DOC+4, DOC+6, OT+1, EXIT+2
^PRCFSITE	V+3
^PRCFYN	EN+6, B+2, DOC+10, EXIT+4
POST^PRCH58LQ	UNP+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This invoice is being edited by someone else, please try later!" Line Location: EN+2
Function Call: WRITE	Prompt: ! Line Location: EN+5
Function Call: WRITE	Prompt: @IOF Line Location: EN+11
Function Call: WRITE	Prompt: !!?5,"There are no BOCs on this obligation, processing terminated." Line Location: BOC+5
Function Call: WRITE	Prompt: !!?15,"Exiting." Line Location: BOC+7
Function Call: WRITE	Prompt: !,"FMS Line # ",PRCFA("LNO") Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"OBLIGATION AMOUNT: ",PRCFA("AMT") Line Location: EDIT+7
Function Call: WRITE	Prompt: !,"Warning - Computed Liquidation amt of $",$FN(PRCFA("LIQ"),"",2)," exceeds",!?5,"total obligated amt of $",$FN(PRCFA("AMT"),"",2)," for BOC ",BOC," on ",$P($G(^PRCF(421.5,PRCF("CIDA"),1)),U,3),"." Line Location: EDIT+13
Function Call: WRITE	Prompt: !!?2,"**WARNING** - Certified Invoice total $",$FN(PRCF("CAMT")/100,"",2)," does not match sum of",!,"Line Amounts: $",$FN(PRCF("TAMT"),"",2) Line Location: EDIT+20
Function Call: WRITE	Prompt: !?7,"If you believe that the Total Invoice Amount Certified for",!,"payment is incorrect, the invoice should be returned to voucher audit",!,"for review." Line Location: EDIT+21
Function Call: WRITE	Prompt: !?2,"There are no Line Amounts - FMS will not accept this!" Line Location: EDIT+22
Function Call: WRITE	Prompt: !,"Unliquidated obligation amounts and BOCs on this order are:" Line Location: SUMM+3
Function Call: WRITE	Prompt: ?12,BOC Line Location: SUMM+15
Function Call: WRITE	Prompt: !,"Total Invoice Amount Certified for Payment=$" Line Location: SUMM+20
Function Call: WRITE	Prompt: $J(PRCF("CAMT")/100,0,2) Line Location: SUMM+21
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !!,"Liquidation # ",ZX1," for ",$FN(LAMT,",",2)," has been deleted and unposted." Line Location: UNP+6
Routine Call	DIC Line Location: V+5
Routine Call	DIE Line Location: BOC+27 EDIT+9 EDIT+14 EDIT+15 EDIT+19
Routine Call	DIR Line Location: EN+8 EN+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCF(421.5 - [#421.5]	Classic Fileman Calls
^PRC(424 - [#424]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(421.5	BOC+9
^PRC(411 - [#411]	NUMSTA+2
^PRC(442 - [#442]	B+21, B+22, B+23, B+27, B+28, DOC+2
^PRCD(420.2 - [#420.2]	SUMM+6, SUMM+13
^PRCF(421.5 - [#421.5]	EN, EN+2, EN+3, B, B+6, B+7, B+10, B+31, BOC+9, BOC+10 , BOC+11, BOC+12, BOC+13, BOC+14*, BOC+22, BOC+23, EDIT+13
^TMP("PRCFDA"	V+2!, OT!, UNP+1

Label References

Name	Line Occurrences
$$NUMSTA	V+6
B	EN+1
BOC	EDIT+21, DOC+12
DOC	BOC+4, BOC+6, EDIT+23
EXIT	BOC+4, BOC+6
OT	BOC+27, EDIT+9, EDIT+15, EDIT+19, DOC+10, DOC+11
PRCFDA	V+6
SUMM	B+32
UNP	OT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	V+3, V+6!, EN+4, EN+6, B+2, B+3, DOC+9, DOC+10, DOC+11, DOC+12 , EXIT+4
%A	EN+5, B+1, DOC+9!, EXIT+3
%B	EN+6, B+2, DOC+9!, EXIT+4
BOC	B+20~, B+21, B+22, B+24, BOC+3, BOC+11, BOC+14, BOC+21, BOC+22, BOC+23 , EDIT+4, EDIT+6, EDIT+13, SUMM+2~, SUMM+6, SUMM+8, SUMM+13, SUMM+15
C	V+6!
CNT	BOC+1~
CNT1	BOC+1~, BOC+2, BOC+3, BOC+4, BOC+5, BOC+6, BOC+20
DA	EN+10~, EN+11, BOC+4, BOC+6, BOC+28!, EDIT+1, UNP+2~, UNP+3*
DA(1	BOC+15, BOC+16, EDIT+2, EDIT+3
DIC	V+5!, EN+10~, EN+11
DIC("S"	V+4*
DIC(0	V+5*
DIE	BOC+16, BOC+28!, EDIT+3
DIK	UNP+2~, UNP+4*
DIQ	EN+10~
DIQ(0	EN+11*
DIR	EN+8!, EN+10~
DIR("A"	EN+7, EN+13
DIR("B"	EN+8, EN+13
DIR(0	EN+7, EN+13
>> DIROUT	EN+8, EN+9
>> DIRUT	EN+8, EN+9, BOC+4, BOC+6
DR	EN+10~, BOC+17, BOC+24, BOC+28!, EDIT+8, EDIT+9!, EDIT+14!, EDIT+15!, EDIT+19!
DTOUT	V+6!, BOC+27, EDIT+9, EDIT+15, EDIT+19
DUOUT	V+6!, EN+8, EN+9
FMSLN	B+20~, B+23*, B+24
I	B+29, SUMM+2~, SUMM+10, SUMM+11, SUMM+12, SUMM+13, SUMM+14, NUMSTA+1~, NUMSTA+2, NUMSTA+3
IEN	B+20~, B+21, B+22, B+23, B+24
IOF	EN+11
J	SUMM+2~, SUMM+11*, SUMM+12, SUMM+13
LAMT	UNP+2~, UNP+3*, UNP+5, UNP+6
>> OK	EDIT+20, EDIT+21
PO	B+18!, UNP+2~, UNP+5
PODA	B+18!
PRC	V+6!
PRC("FY"	B+13, B+16*
PRC("PARAM"	B+13, B+16*
PRC("PER"	B+12, B+15*
PRC("SITE"	EN, B+12, B+14, B+15
>> PRC10DA	DOC+1
>> PRCF("CAMT"	B+31*, BOC+22, EDIT+20, SUMM+21
>> PRCF("CIDA"	EN, EN+2, EN+3, EN+11, B, B+6, B+7, B+10, B+31, BOC+7 , BOC+8, BOC+9, BOC+10, BOC+11, BOC+12, BOC+13, BOC+14, BOC+15, BOC+22, BOC+23 , EDIT+2, EDIT+13
>> PRCF("PO"	DOC+2*, DOC+4
>> PRCF("PODA"	B+7*, B+8, B+9, B+21, B+22, B+23, B+27, B+28, DOC+2
>> PRCF("TAMT"	EDIT+20, EDIT+22
>> PRCF("VIEW"	EN+11*, EN+12!
>> PRCF("X"	V+3*
PRCFA	UNP+2~, UNP+5
PRCFA("AMT"	EDIT+6*, EDIT+7, EDIT+13, EDIT+14, EDIT+17, EDIT+18
PRCFA("ERROR	PROCESSING" , V+3, EN+1, EN+3*, EN+4, B+14
PRCFA("LAMT"	EDIT+11*
PRCFA("LIQ"	EDIT+13, EDIT+14, EDIT+16*, EDIT+17, EDIT+18
PRCFA("LIQAMT"	B+11*, B+18!
PRCFA("LNO"	EDIT+4*, EDIT+5
PRCFA("PF"	EDIT+16, EDIT+17, EDIT+18*
PRCFA("PODA"	B+9, B+18!, UNP+3
PRCFA("REF"	B+10*, B+18!
PRCFCIDA	V+2~, BOC+7, BOC+8
>> PRCFD("CAMT"	B+6*, B+11
>> PRCFD("PAYMENT"	B+9*, B+18!
>> PRCFDICA	EN*
PRCFEEE	BOC+1~, BOC+21*
PRCFEX	BOC+1~, BOC+6
PRCFEXIT	BOC+1~, BOC+4
PRCFFLG	V+2~, BOC+4, BOC+6, DOC+11
PRCFN	BOC+1~, BOC+22, BOC+23
PRCFNO	BOC+1~, BOC+2, BOC+3
>> PRCFNUM	BOC+4, BOC+6, BOC+10, BOC+11, BOC+12, BOC+14, BOC+22, BOC+23, EDIT+1, EDIT+4 , EDIT+6
PRCFX	B+20!
PRCFX("FY"	B+13*, B+16
PRCFX("PARAM"	B+13*, B+16
PRCFX("PER"	B+12*, B+15
PRCFX("SA"	B+24, B+29, BOC+3, BOC+21, BOC+22, BOC+23, EDIT+4, EDIT+6, SUMM+1, SUMM+6 , SUMM+10, SUMM+11, SUMM+12, SUMM+13
PRCFX("SHAMT"	B+28*, B+29, SUMM+16
PRCFX("SHBOC"	B+27*, B+29
PRCFX("SITE"	B+12*, B+15
PRCRI	V+6!, EN+10~
PRCUNLIQ	SUMM+4, SUMM+5, SUMM+10, SUMM+19!
RECORD	EN+10~
RECORD1	EN+10~
SHIP	SUMM+2~, SUMM+13*, SUMM+15, SUMM+16, SUMM+17
SUBTOT	SUMM+2~, SUMM+5, SUMM+7, SUMM+10, SUMM+12, SUMM+14*
U	EN, EN+3, EN+4, B, B+6, B+7, B+10, B+23, B+28, B+29 , B+31, BOC+9, BOC+12, BOC+13, BOC+22, BOC+23, EDIT+4, EDIT+6, EDIT+13, DOC+2 , SUMM+6, SUMM+12, SUMM+13, UNP+3
X	V+6!, B+3, EDIT+10, EDIT+11, EDIT+16, DOC+3, DOC+4, DOC+5, OT+1, NUMSTA+1~* , NUMSTA+2, EXIT+2, EXIT+4, UNP+1, UNP+2, UNP+3
Y	V+6!, EN, EN+9, B, B+4*, BOC+27, EDIT+9, EDIT+15, EDIT+19
Y(0	EN+4
ZX	V+5!
ZX1	UNP+2~, UNP+3*, UNP+6
ZX2	V+5!

Customize PDF page

Package: IFCAP