Routine: PRCSFMS1

Information

PRCSFMS1 ;WISC/KMB-FMS TRANSACTIONS FOR CP QUARTERLY REPORT ;10-17-94 11:05

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
IFCAP	2	($$DATE,$$YEAR)^PRC0C $$QTRDATE^PRC0D
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: 1

Package	Total	Caller Graph
IFCAP	1	PRCSQR

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	BEGIN+3, BEGIN+12, NONE+3, NONE+22
NOW^%DTC	BEGIN+3, NONE+3
$$DATE^PRC0C	NONE+11
$$YEAR^PRC0C	NONE+9
$$QTRDATE^PRC0D	NONE+10, NONE+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,Y Line Location: BEGIN+12
Function Call: WRITE	Prompt: !!,"FMS transaction total for this quarter: ",MINUS,"$"_$J(FMSTOT,0,2) Line Location: BEGIN+17
Function Call: WRITE	Prompt: !,L Line Location: BEGIN+18
Function Call: READ	Variable: Z1 Timeout: DTIME Line Location: HOLD1+2
Function Call: WRITE	Prompt: !,"Press return to continue, uparrow (^) to exit: " Line Location: HOLD1+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+2
Function Call: WRITE	Prompt: "QUARTERLY REPORT "_"- "_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: !,"TRANS",?32,"TRANS",?42,"CONTROL PT.",?54,"UNCOMMITTED",?68,"UNOBLIGATED",!,"DATE",?13,"REF #",?24,"TYPE",?32,"AMOUNT",?42,"REQ TOT",?54,"BALANCE",?68,"BALANCE" Line Location: HDR1+4
Function Call: WRITE	Prompt: !,L Line Location: HDR1+5
Function Call: WRITE	Prompt: ?15,Y Line Location: NONE+22
Function Call: WRITE	Prompt: !!,"PO transaction (no 2237) total for this quarter: ",MINUS,"$",$J(TOTAL,0,2) Line Location: NONE+29
Function Call: WRITE	Prompt: !,L Line Location: NONE+30
Function Call: READ	Variable: Z1 Timeout: DTIME Line Location: HOLD2+2
Function Call: WRITE	Prompt: !,"Press return to continue, uparrow (^) to exit: " Line Location: HOLD2+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR2+2
Function Call: WRITE	Prompt: "QUARTERLY REPORT "_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/",?15,"PO ",?30,"OBLIGATED",?41,"CONTROL PT.",?55,"UNCOMMITTED",?69,"UNOBLIGATED",!,"OBL#",?15,"DATE",?30,"AMOUNT",?42,"REQ TOT",?55,"BALANCE",?69,"BALANCE" Line Location: HDR2+4
Function Call: WRITE	Prompt: !,L Line Location: HDR2+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	NONE+14, NONE+15, NONE+16, NONE+17, NONE+18, NONE+21, NONE+22
^PRCS(417 - [#417]	BEGIN+7, BEGIN+10

Label References

Name	Line Occurrences
HDR1	BEGIN+8, HOLD1+2
HDR2	NONE+20, HOLD2+2
HOLD1	BEGIN+9
HOLD2	NONE+24

Naked Globals

Name	Field # of Occurrence
^(0	BEGIN+10
^(12	NONE+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BEGIN+3, NONE+3
AMT	BEGIN+2~, BEGIN+10, BEGIN+11, BEGIN+13, BEGIN+15, NONE+1~, NONE+16, NONE+17, NONE+18, NONE+19 , NONE+23
AMT1	NONE+1~
>> C1	HOLD1+1, HOLD2+1
CP	NONE+2~, NONE+4*
DTIME	HOLD1+2, HOLD2+2
FINAL	BEGIN+2~, BEGIN+4, BEGIN+11, BEGIN+14, BEGIN+19, NONE+1~, NONE+6, NONE+19, NONE+23, NONE+27
FIRST	BEGIN+2~, BEGIN+6, BEGIN+11, BEGIN+13, BEGIN+19, NONE+1~, NONE+8, NONE+19, NONE+23, NONE+27
FMSTOT	BEGIN+2~, BEGIN+4, BEGIN+15, BEGIN+16*, BEGIN+17
IO	HOLD1+2, HOLD2+2
IO(0	HOLD1+2, HOLD2+2
IOF	HDR1+2, HDR2+2
IOM	BEGIN+18, HDR1+5, NONE+30, HDR2+5
IOSL	BEGIN+9, NONE+24
L	BEGIN+18, HDR1+5, NONE+2~, NONE+30, HDR2+5
LINE	BEGIN+2~, NONE+2~
MINUS	BEGIN+2~, BEGIN+6, BEGIN+16, BEGIN+17, NONE+2~, NONE+8, NONE+28, NONE+29
NET	NONE+1~
NONNET	NONE+1~
OBL	BEGIN+2~, BEGIN+10*, BEGIN+13
>> P	HDR1+2, HDR2+2
P1	BEGIN+2~, BEGIN+8, HDR1+1, NONE+1~, NONE+4, NONE+20, HDR2+1
PI	NONE+1~
>> PRC("CP"	BEGIN+4, HDR1+2, NONE+4, NONE+15, HDR2+2
>> PRC("FY"	BEGIN+4, NONE+9
>> PRC("QTR"	BEGIN+4, NONE+10
>> PRC("SITE"	BEGIN+4, NONE+15
>> PRCC	NONE+9*, NONE+10
>> PRCE	NONE+10, NONE+11, NONE+13, NONE+14*, NONE+15
>> PRCF	NONE+15*
>> PRCG	NONE+12, NONE+13, NONE+14
>> PRCS("C"	BEGIN+6, BEGIN+19, NONE+8, NONE+27
>> PRCS("O"	BEGIN+4, BEGIN+19, NONE+6, NONE+27
>> PRCS("PRE"	BEGIN+5, BEGIN+19, NONE+7, NONE+27
PRCSAPP	BEGIN+2~, BEGIN+5, BEGIN+11, BEGIN+13, BEGIN+19, NONE+1~, NONE+7, NONE+19, NONE+23, NONE+27
RDATE	NONE+1~
RDATE1	BEGIN+2~, BEGIN+3, HDR1+2, NONE+2~, NONE+3, HDR2+2
REC	NONE+1~, NONE+4, NONE+11, NONE+12, NONE+15*, NONE+16, NONE+17, NONE+18, NONE+21, NONE+22
RECNO	BEGIN+2~, BEGIN+7*, BEGIN+10
REF	BEGIN+2~, BEGIN+10*, BEGIN+12
RQTR	NONE+2~
STRING	BEGIN+2~, BEGIN+4, BEGIN+7, NONE+1~, NONE+5
TOTAL	NONE+1~, NONE+4, NONE+19, NONE+28*, NONE+29
TYPE	BEGIN+2~, BEGIN+10*, BEGIN+13
TYPR	NONE+2~
U	BEGIN+7, BEGIN+9, BEGIN+17, HOLD1+2, NONE+14, NONE+15, NONE+24, NONE+29, HOLD2+2
Y	BEGIN+3, BEGIN+12, NONE+1~, NONE+3, NONE+22
YEAR	NONE+2~
>> Z(0	HDR1+2, HDR2+2
Z1	BEGIN+2~, BEGIN+7, BEGIN+9, BEGIN+17, HOLD1+2, NONE+4, NONE+14, NONE+15, NONE+24, NONE+29 , HOLD2+2
>> ZTQUEUED	HOLD1+2, HOLD2+2

Customize PDF page

Package: IFCAP