Routine: PRCSP1B

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$UP^XLFSTR
VA FileMan	5	^%DT ^DIC YN^DICN EN1^DIP ^DIR
IFCAP	4	^PRCFYN ^PRCHDP1 ^PRCHQUE (CP,EN1,EN3,FY,STA)^PRCSUT

Package	Total	Caller Graph
IFCAP	7	PRCEOPN PRCSLTT PRCSP1 PRCSP1F PRCSPNR PRCSPOS PRCSSCPR

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;150;Oct 20, 2000;Build 24
PROJ	;PROJECT NUMBER REPORT
TEMPT	;LIST OF TEMPORARY TRANSACTIONS
DATE
EDATE
QUE
TCMP	;COMPILE FCP TEMP REQUESTS
TC1
TC2
TPRT	;PRINT OF THE TEMP TX REPORT
PT1
PT2
TQUIT
TEXIT
HDR	;PRINT HEADING
EOP()	; end of page check - return 1 to quit, 0 to continue ;
NOW()	; return NOW in external format for print on reports
SUBCP	;SUB-CONTROL POINT REPORT
S1
S2
POS	;PURCHASE ORDER STATUS
POS1
POS2
S
DEV
W1
W2
NONE
W
EXIT

External References

Name	Field # of Occurrence
^%DT	DATE, EDATE
^%ZIS	QUE, DEV
HOME^%ZIS	QUE+1
^%ZISC	TEXIT+2, W+1
^%ZTLOAD	QUE+1
^DIC	POS+2
YN^DICN	POS1, POS2
EN1^DIP	PROJ+4, S1+5, S2+5, S+1
^DIR	EOP+6
^PRCFYN	SUBCP+2
^PRCHDP1	POS1
^PRCHQUE	POS2+1
CP^PRCSUT	S2
EN1^PRCSUT	PROJ+1, S1
EN3^PRCSUT	TEMPT+3, POS+1
FY^PRCSUT	S2
STA^PRCSUT	S2
$$FMTE^XLFDT	PT2+4, NOW+2
$$NOW^XLFDT	NOW+2
$$UP^XLFSTR	NOW+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: " Start Date REQUIRED" Line Location: DATE+1
Function Call: WRITE	Prompt: " Go to Date REQUIRED" Line Location: EDATE+1
Function Call: WRITE	Prompt: !!,$C(7),"ENDING DATE RANGE IS LESS THAN BEGINNING DATE RANGE",! Line Location: EDATE+3
Function Call: WRITE	Prompt: !,$P(PRCR0,U),?19,PRCRDATE,?32,PRCREQTR,?43,PRCVEND,?54,$E(PRCFITEM,1,15),?70,$J($FN(PRCCOST,",",2),10) Line Location: PT2+5
Function Call: WRITE	Prompt: !!," << NO TEMPORARY TRANSACTIONS TO PRINT FOR TIME PERIOD SELECTED >>" Line Location: TQUIT+0
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF,!,"TEMPORARY TRANSACTION LISTING - CONTROL POINT ",PRC("CP") Line Location: HDR+3
Function Call: WRITE	Prompt: !,?45,PRCNOW,"Page ",$J(PRCPAGE,3) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"TEMPORARY",?19,"DATE OF",?54,"FIRST LINE ITEM COMM" Line Location: HDR+5
Function Call: WRITE	Prompt: !,"TRANSACTION #",?19,"REQUEST",?32,"REQUESTOR VENDOR",?54,"DESCRIPTION",?71,"COST" Line Location: HDR+6
Function Call: WRITE	Prompt: !,PRCDSH Line Location: HDR+7
Function Call: WRITE	Prompt: ! Line Location: EOP+4
Function Call: WRITE	Prompt: !,"Would you like the report printed for a full Fiscal Year" Line Location: SUBCP+1
Function Call: WRITE	Prompt: !!,"Purchase Order Status: ",$P(X,"^") Line Location: POS+3
Function Call: WRITE	Prompt: !!,"Would you like the purchase order display" Line Location: POS1+0
Function Call: WRITE	Prompt: !!,"Enter information for another report or an uparrow to return to the menu.",! Line Location: W1+0
Function Call: READ	Variable: X Timeout: 5 Line Location: W2+0
Function Call: WRITE	Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official." Line Location: W2+0
Function Call: WRITE	Prompt: !!,"A status has not yet been reported for this purchase order." Line Location: NONE+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,"Press return to continue: " Line Location: W+0
Routine Call	DIC Line Location: POS+2
Routine Call	DIR Line Location: EOP+6
Routine Call	%ZIS Line Location: QUE DEV
Routine Call	%ZIS Line Location: QUE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCS(410 - [#410]	Classic Fileman Calls
^PRC(442 - [#442]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	POS+2
^PRCD(442.3 - [#442.3]	POS+3
^PRCS(410 - [#410]	TC1, TC2, TC2+1, TC2+2, TC2+4, PT2+2, PT2+4
^TMP($J	TEMPT+2!, TC2+6*, PT1, PT2, TEXIT+1!
^VA(200 - [#200]	PT2+4

Label References

Name	Line Occurrences
$$EOP	HDR+1
$$NOW	TPRT+1
DATE	DATE+1
EDATE	EDATE+1, EDATE+3
EXIT	PROJ+1, TEMPT+3, QUE, SUBCP+2, S1, S1+1, S2, S2+1, S2+5, POS+1 , POS+2, POS+3, POS1, POS2, POS2+1, W2, NONE
HDR	TPRT+2, PT2+6, TEXIT+1
POS	POS+3, POS1, POS2, POS2+1
POS1	POS1
POS2	POS1, POS2
PT1	PT2
PT2	PT2+7
S2	SUBCP+2
SUBCP	S1+6
TC1	TC2
TC2	TC2+1, TC2+2, TC2+3, TC2+4, TC2+5, TC2+7
TCMP	QUE
TEXIT	DATE, EDATE, QUE+1, PT2+6
TPRT	TC1
TQUIT	PT1
W1	POS1, POS2, POS2+1
W2	PROJ+1, TEMPT+3, S1, S2, POS+1

Naked Globals

Name	Field # of Occurrence
^(0	POS+3
^(7	POS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	SUBCP+2, POS1, POS2*, EXIT!
%DT	DATE, EDATE, TEXIT+3!, EXIT!
%DT("A"	DATE, EDATE
%ZIS	QUE, TEXIT+4!, DEV
%ZIS("B"	DEV*
BY	PROJ+3, PROJ+4!, S1+4, S2+3*, EXIT!
C	EXIT!
C0	EXIT!
C2	EXIT!
C3	EXIT!Press return to continue:
D	EXIT!
>> D0	POS+2*
DA	EXIT!
DHD	PROJ+3, PROJ+4!, S1+3, S2+2*, EXIT!
DIC	PROJ+3, PROJ+4!, S1+3, S2+2, POS+2!, S*, EXIT!
DIC("A"	POS+2*
DIC("S"	POS+2*
DIC(0	POS+2*
DIE	EXIT!
DIR	EOP+2~
DIR(0	EOP+5*
DIROUT	EOP+2~
DIRUT	EOP+2~
>> DIS(0	S1+6!, S2+4*, S2+5!
DTIME	W
DTOUT	DATE, EDATE, TEXIT+3!, EOP+2~
DUOUT	EOP+2~
FLDS	PROJ+3, PROJ+4!, S1+4, S2+2*, EXIT!
FR	PROJ+3, PROJ+4!, S1+4, S2+3*, EXIT!
I	EOP+4*, EXIT!
IO	QUE, W, W+1
IO("Q"	QUE, DEV!
IO(0	W, W+1
IOF	HDR+2, HDR+3
IOP	POS2+1!
IOSL	PT2+6, TEXIT*, EOP+4
IOST	TEXIT, HDR+1, EOP+3
L	PROJ+3, PROJ+4!, S1+5, S2+3, S, EXIT!
N	EXIT!
NOW	TEXIT+4!
POP	QUE, TEXIT+4!
>> PRC("CP"	PROJ+2, PROJ+3, PROJ+4!, TCMP+1, HDR+3, S1+1, S1+2, S1+3, S1+6!, S2+2 , S2+3, S2+5!
>> PRC("FY"	PROJ+2, S1+2, S1+3, S1+6!, S2, S2+3, S2+5!
>> PRC("QTR"	PROJ+2, S1+2, S1+3, S1+6!
>> PRC("SCP"	S1+6!
>> PRC("SITE"	PROJ+1, PROJ+2, TEMPT+3, S1, S1+2, S2, S2+3, POS+1
PRCANX	TCMP+1, TC1, TC2, TEXIT+3!
PRCANXH	TCMP+1*, TC1, TEXIT+3!
PRCCOST	PT2+3*, PT2+5, TEXIT+4!
PRCDATE	TEXIT+3!
PRCDATE(1	DATE+2*, EDATE+3, TC2+5
PRCDATE(2	EDATE+2*, EDATE+3, TC2+5
PRCDATEA	TPRT+3, PT1, PT2, TEXIT+3!
PRCDSH	TPRT+1*, TEXIT+3!, HDR+7
PRCEND	TCMP+1, TPRT+2, PT2+6, TEXIT+3!, HDR+1*
PRCEXIT	TPRT+2, PT1, TEXIT+4!, HDR+2
PRCFITEM	PT2+4*, PT2+5, TEXIT+4!
>> PRCHQ	POS2+1*
>> PRCHQ("DEST"	POS2+1*
PRCNOW	TPRT+1*, TEXIT+3!, HDR+4
PRCPAGE	TPRT+2, TQUIT, TEXIT+1, TEXIT+3!, HDR+1, HDR+3*, HDR+4
PRCR0	TC2+2, TC2+3, PT2+2, PT2+5, TEXIT+3!
PRCR1	TC2+4, TC2+5, TC2+6, PT2+2, PT2+3, TEXIT+3!
PRCR2	PT2+2*, PT2+3, TEXIT+3!
PRCR4	PT2+2*, PT2+3, TEXIT+3!
PRCR7	PT2+2*, PT2+3, TEXIT+3!
PRCRDATE	PT2+3, PT2+4, PT2+5, TEXIT+4!
PRCREQTR	PT2+3, PT2+4, PT2+5, TEXIT+4!
PRCS	EXIT!
PRCS(1	S1+6!, S2+5!
PRCSAZ	PROJ+2, PROJ+3, PROJ+4!, S1+2, S1+4, S1+5
PRCSIEN	TC1, TC2, TC2+1, TC2+2, TC2+4, TC2+6, PT1, PT2, PT2+2, PT2+4 , TEXIT+3!
>> PRCSX	POS1, POS2, POS2+1
PRCTTOT	TCMP+1, TPRT+1, PT2+1*, TQUIT, TEXIT+4!
PRCVEND	PT2+3*, PT2+5, TEXIT+4!
TO	PROJ+3, PROJ+4!, S1+5, S2+3*, EXIT!
U	DATE*, EDATE, TC2+3, TC2+5, TC2+6, PT2+3, PT2+4, PT2+5
X	DATE, DATE+1, EDATE, EDATE+1, TEXIT+3!, EOP+2~, NOW+1~, NOW+2, NOW+3, POS+2 , POS+3, W2, W*, EXIT!
Y	PROJ+1, TEMPT+3, DATE+2, EDATE+2, EOP+2~, EOP+7, S1, S2, S2+1, POS+1 , POS+2, EXIT!
Z	EXIT!
Z1	EXIT!
ZTDESC	QUE+1*, TEXIT+3!
>> ZTQUEUED	W, W+1
ZTRTN	QUE+1*, TEXIT+3!, EXIT!
ZTSAVE	TEXIT+3!, EXIT!
ZTSAVE("DATE*"	QUE+1*
ZTSAVE("PRC*"	QUE+1*
ZTSK	POS2+1!

Customize PDF page

Package: IFCAP

Routine: PRCSP1B

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: