Routine: PRCSFMS

Information

PRCSFMS ;WISC/KMB-FMS TRANSACTIONS FOR CP RUNNING BALANCE ;10/16/97 1315

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
VA FileMan	2	DD^%DT NOW^%DTC

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

Package	Total	Caller Graph
IFCAP	2	PRCSP1A PRCSREC1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;90;Oct 20, 2000
BEGIN	; this routine is called from PRCSP1A ; find FMS transactions, for selected quarter, for CP
HOLD1	;
HDR1	;
NONE	; find PO with no 2237 for running balance
HOLD2	;
HDR2	;
CRT

External References

Name	Field # of Occurrence
DD^%DT	BEGIN+4, BEGIN+22
NOW^%DTC	BEGIN+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y Line Location: BEGIN+22
Function Call: WRITE	Prompt: ?13,OBL,?32,TYPE,?40,$J(AMT,11,2),ZIP,?54,$J(FIRST,11,2) Line Location: BEGIN+23
Function Call: WRITE	Prompt: ?68,$J(FINAL,11,2) Line Location: BEGIN+24
Function Call: WRITE	Prompt: !!,"FMS transaction total for this quarter: ",MINUS,"$"_$J(FMSTOT,0,2) Line Location: BEGIN+27
Function Call: WRITE	Prompt: !,L Line Location: BEGIN+28
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: "Control Point Balance - ",Z(0)_" "_$E($P(PRC("CP")," ",2),1,10),?50,RDATE1,?73,"PAGE ",P Line Location: HDR1+2
Function Call: WRITE	Prompt: !,?40,"FMS Transactions",! Line Location: HDR1+3
Function Call: WRITE	Prompt: !,"TRANSMISSION",?32,"TRANS",?40,"TRANSACTION",?68,"UNOBLIG",!,"DATE",?13,"REFERENCE #",?32,"CODE",?40,"$ AMOUNT",?54,"CP BALANCE",?68,"BALANCE" Line Location: HDR1+4
Function Call: WRITE	Prompt: !,L Line Location: HDR1+5
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+2
Function Call: WRITE	Prompt: "Control Point Balance - ",Z(0)_" "_$E($P(PRC("CP")," ",2),1,10),?50,RDATE1,?73,"PAGE ",P Line Location: HDR2+2
Function Call: WRITE	Prompt: !,?5,"__________PO TRANSACTIONS WITHOUT 2237______________",! Line Location: HDR2+3
Function Call: WRITE	Prompt: !,"PO/",?20,"PO ",?33,"COMMITTED",?58,"OBL/CEIL",?68,"UNOBLIG",!,"OBL#",?20,"DATE",?33,"(EST) COST",?44,"CP BALANCE",?58,"$ AMOUNT",?68,"BALANCE" Line Location: HDR2+4
Function Call: WRITE	Prompt: !,L Line Location: HDR2+5
Function Call: READ	Variable: Z1 Timeout: DTIME Line Location: CRT+0
Function Call: WRITE	Prompt: "??" Line Location: CRT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCH(440.6 - [#440.6]	BEGIN+17, BEGIN+18
^PRCS(417 - [#417]	BEGIN+8, BEGIN+11, BEGIN+14, BEGIN+15, BEGIN+19

Label References

Name	Line Occurrences
CRT	HOLD1+3, HOLD2+2, CRT
HDR1	BEGIN+9, HOLD1+2, HOLD1+3
HDR2	HOLD2+1, HOLD2+2
HOLD1	BEGIN+10

Naked Globals

Name	Field # of Occurrence
^(0	BEGIN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEGIN+4
AMT	BEGIN+2~, BEGIN+14*, BEGIN+19, BEGIN+20, BEGIN+21, BEGIN+23, BEGIN+25
>> C1	BEGIN+9, BEGIN+10, BEGIN+22, BEGIN+23, BEGIN+24, HOLD1+1
CUTOFF	BEGIN+2~, BEGIN+19*, BEGIN+20
DTIME	CRT
FINAL	BEGIN+2~, BEGIN+5, BEGIN+21, BEGIN+24, BEGIN+29
FIRST	BEGIN+2~, BEGIN+7, BEGIN+19, BEGIN+20*, BEGIN+23, BEGIN+29
FMSTOT	BEGIN+2~, BEGIN+5, BEGIN+25, BEGIN+26*, BEGIN+27
FTST	BEGIN+2~, BEGIN+18*
IO	HOLD1+2, HOLD2+1
IO(0	HOLD1+2, HOLD2+1
IOF	HDR1+2, HDR2+2
IOM	BEGIN+28, HDR1+5, HDR2+5
IOSL	BEGIN+10
IOST	HOLD1+3, HOLD2+2
>> L	BEGIN+28, HDR1+5, HDR2+5*
LINE	BEGIN+2~
MINUS	BEGIN+2~, BEGIN+6, BEGIN+26, BEGIN+27
OBL	BEGIN+2~, BEGIN+14*, BEGIN+20, BEGIN+23
>> P	HDR1+2, HDR2+2
P1	BEGIN+2~, BEGIN+3, BEGIN+9, HDR1+1, HDR2+1*
P18	BEGIN+2~, BEGIN+15*, BEGIN+16
P19	BEGIN+2~, BEGIN+15*, BEGIN+16
>> PRC("CP"	BEGIN+5, HDR1+2, HDR2+2
>> PRC("FY"	BEGIN+5
>> PRC("QTR"	BEGIN+5
>> PRC("SITE"	BEGIN+5
>> PRCS("C"	BEGIN+6, BEGIN+7, BEGIN+29
>> PRCS("O"	BEGIN+5, BEGIN+29
RDATE1	BEGIN+2~, BEGIN+4*, HDR1+2, HDR2+2
RECN1	BEGIN+2~, BEGIN+11*, BEGIN+12, BEGIN+13
RECNO	BEGIN+2~, BEGIN+8*, BEGIN+11, BEGIN+14, BEGIN+15, BEGIN+19
REF	BEGIN+2~, BEGIN+14*, BEGIN+22
RPR	BEGIN+2~, BEGIN+16*, BEGIN+17
RPR1	BEGIN+2~, BEGIN+11, BEGIN+17, BEGIN+18
STRING	BEGIN+2~, BEGIN+5*, BEGIN+8
TYPE	BEGIN+2~, BEGIN+14*, BEGIN+17, BEGIN+20, BEGIN+23
U	BEGIN+3*, BEGIN+8, BEGIN+10, BEGIN+27, HOLD1+3, HOLD2+2, CRT
>> Y	BEGIN+4, BEGIN+22
>> Z(0	HDR1+2, HDR2+2
>> Z1	BEGIN+3, BEGIN+8, BEGIN+10, BEGIN+27, HOLD1+3, HOLD2+2, CRT
ZIP	BEGIN+2~, BEGIN+11, BEGIN+18, BEGIN+23
>> ZTQUEUED	HOLD1+2, HOLD2+1

Customize PDF page

Package: IFCAP