Routine: PRCSECP

Package	Total	Call Graph
IFCAP	12	$$Q1358^PRCEN $$REQCHECK^PRCHJUTL (,$$CHGCCBOC)^PRCSCK ^PRCSDIC W6^PRCSEB W7^PRCSEB0 ENOD1^PRCSEB1 PRF1^PRCSP1 (EN1,EN3)^PRCSUT RL^PRCSUT1 PRCFY^PRCSUT2 (EN1,EN2)^PRCSUT3
VA FileMan	6	^%DT ^DIC YN^DICN ^DIE IX^DIK $$GET1^DIQ
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
IFCAP	10	PRCSCK PRCSECP PRCSRIE PRCST1 PRCST12 PRCST2 PRCST22 PRCST4 PRCST42 PRCVRC1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;81,148,174;Oct 20, 2000;Build 23
A
B
C
PROCEED	;modified prompt and added help (PRC5.1174)
TYPE	;
D
UNLKEND
END
W1
W3
GETCCCNT(STA,FCP)	;How many valid Cost Centers for this Control Point
VALIDCC(STA,FCP,CC)	;Is this STATION,FCP,COST CENTER combination valid?
GETBOCNT(STA,FCP,CC)	;How many valid BOCs for this STATION,FCP,COST CENTER
VALIDBOC(STA,FCP,CC,BOC)	;Is this STATION,FCP,COST CENTER,BOC VALID?

External References

Name	Field # of Occurrence
^%DT	A
^DIC	TYPE+5
YN^DICN	PROCEED+2, W1, W3
^DIE	D
IX^DIK	TYPE+11
$$GET1^DIQ	C+10, PROCEED+4, PROCEED+7
$$Q1358^PRCEN	PROCEED+17
$$REQCHECK^PRCHJUTL	C+8
^PRCSCK	D+2
$$CHGCCBOC^PRCSCK	TYPE+14
^PRCSDIC	C
W6^PRCSEB	D+5
W7^PRCSEB0	D+4
ENOD1^PRCSEB1	D+4
PRF1^PRCSP1	W1
EN1^PRCSUT	PROCEED+15
EN3^PRCSUT	B
RL^PRCSUT1	D+1
PRCFY^PRCSUT2	PROCEED+19
EN1^PRCSUT3	PROCEED+20
EN2^PRCSUT3	PROCEED+21
$$GET^XPAR	C+21, C+22, TYPE+3, TYPE+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: A+1
Function Call: WRITE	Prompt: ! Line Location: C+0
Function Call: WRITE	Prompt: !?15,"******** WARNING *******",7,! Line Location: C+9
Function Call: WRITE	Prompt: !,"Transaction to be copied ("_$$GET1^DIQ(410,$G(DA),.01)_") is missing required data!" Line Location: C+10
Function Call: WRITE	Prompt: !?2,">>> "_$G(PRCWARN(PRCIDX)) Line Location: C+13
Function Call: WRITE	Prompt: !,"This data will be required when entering information for the" Line Location: C+14
Function Call: WRITE	Prompt: !,"new transaction number.",! Line Location: C+15
Function Call: WRITE	Prompt: !! Line Location: C+23
Function Call: WRITE	Prompt: !!,"Would you like to proceed with copying this request" Line Location: PROCEED+1
Function Call: WRITE	Prompt: !?2,"Enter 'Yes' to proceed with copying transaction "_$$GET1^DIQ(410,$G(DA),.01)_"." Line Location: PROCEED+4
Function Call: WRITE	Prompt: !?2,"Enter 'No' or '^' to abort copying this transaction." Line Location: PROCEED+5
Function Call: WRITE	Prompt: !!?2,">>> Transaction "_$$GET1^DIQ(410,$G(DA),.01)_" data was not copied.",! Line Location: PROCEED+7
Function Call: WRITE	Prompt: !!,"Now enter the information for the new transaction number.",! Line Location: PROCEED+13
Function Call: WRITE	Prompt: !!,"This transaction is assigned transaction number: ",X Line Location: PROCEED+23
Function Call: WRITE	Prompt: !,PRCVY,!,"Please enter another form type.",! Line Location: TYPE+5
Function Call: WRITE	Prompt: !,"The form type for this request is: ",$P($G(^PRCS(410.5,PRCSX,0)),"^"),! Line Location: TYPE+9
Function Call: WRITE	Prompt: !,?10,"Transaction data is being copied...",! Line Location: TYPE+10
Function Call: WRITE	Prompt: !! Line Location: D+6
Function Call: WRITE	Prompt: !!,"Would you like to copy another request" Line Location: W3+0
Routine Call	DIC Line Location: TYPE+5
Routine Call	DIE Line Location: D

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCS(410 - [#410]	Classic Fileman Calls, GET1^DIQ
^PRCS(410.5 - [#410.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	PROCEED+18, PROCEED+25, GETCCCNT+4, VALIDCC+5, GETBOCNT+5, VALIDBOC+5
^PRCD(420.1 - [#420.1]	GETCCCNT+5, VALIDCC+6, VALIDCC+7, GETBOCNT+6, GETBOCNT+7, VALIDBOC+6, VALIDBOC+7
^PRCD(420.2 - [#420.2]	VALIDCC+8, GETBOCNT+8, GETBOCNT+9, VALIDBOC+8
^PRCS(410 - [#410]	C+3, PROCEED+9, PROCEED+10, PROCEED+17, TYPE+1, TYPE+8, TYPE+15, D+5, D+6, UNLKEND
^PRCS(410.5 - [#410.5]	TYPE+9
^TMP($J	PROCEED+11!, PROCEED+12, PROCEED+22, TYPE+14, UNLKEND, END+1!

Label References

Name	Line Occurrences
$$VALIDCC	GETCCCNT+5
@(	TYPE+11
B	C+23, D+7
C	PROCEED+6
D	D+2
END	B+1, C+1, C+23, PROCEED+9, D, D+6
PROCEED	PROCEED+3
UNLKEND	PROCEED+16, PROCEED+17, PROCEED+19, PROCEED+20, PROCEED+21
W1	C+18, D+5, W1
W3	C+23, D+6, W3

Naked Globals

Name	Field # of Occurrence
^("OLDFCP"	PROCEED+12*
^("OLDTXN"	PROCEED+12*
^(0	PROCEED+25
^(3	PROCEED+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	C+23, PROCEED+2, PROCEED+3, PROCEED+6, D+6, END!, W1, W3*
>> %DT	A*
BOC	VALIDCC+3~, VALIDCC+4, VALIDCC+7, VALIDCC+8, GETBOCNT+3~, GETBOCNT+4, GETBOCNT+7, GETBOCNT+8, GETBOCNT+9, VALIDBOC~ , VALIDBOC+7, VALIDBOC+8
CC	GETCCCNT+2~, GETCCCNT+3, GETCCCNT+4, GETCCCNT+5, VALIDCC~, VALIDCC+5, VALIDCC+6, VALIDCC+7, GETBOCNT~, GETBOCNT+5 , GETBOCNT+6, GETBOCNT+7, VALIDBOC~, VALIDBOC+5, VALIDBOC+6, VALIDBOC+7
COPYDA	D*, D+1, D+6, END!
D0	END!
DA	C+2, C+3, C+8, C+10, PROCEED+4, PROCEED+7, PROCEED+9, PROCEED+10, PROCEED+12, PROCEED+15! , TYPE+5, TYPE+8, TYPE+15, D, D+1, D+5, D+6, UNLKEND, END!, W1*
DIC	B+2, PROCEED+9, PROCEED+15!, TYPE+5, TYPE+6, TYPE+12*, END!
DIC("A"	B+4, TYPE+5
DIC("S"	B+3, TYPE+5
DIC(0	B+2, TYPE+5
DIE	TYPE+6, TYPE+12, END!
DIK	TYPE+11*, END!
DR	TYPE+16*, END!
DT	A*
DTOUT	D!
DUOUT	D!
FCP	GETCCCNT~, GETCCCNT+4, GETCCCNT+5, VALIDCC~, VALIDCC+5, GETBOCNT~, GETBOCNT+5, VALIDBOC~, VALIDBOC+5
FIRSTBOC	GETBOCNT+3~, GETBOCNT+4, GETBOCNT+9, GETBOCNT+10
FIRSTCC	GETCCCNT+2~, GETCCCNT+3, GETCCCNT+5, GETCCCNT+6
GET	B+2~
GET1	B+2~
GOODBOC	VALIDCC+3~, VALIDCC+4, VALIDCC+7, VALIDCC+8, VALIDCC+9, GETBOCNT+3~, GETBOCNT+4, VALIDBOC+3~, VALIDBOC+4, VALIDBOC+8* , VALIDBOC+9
GOODCC	GETCCCNT+2~, GETCCCNT+3, GETCCCNT+5, GETCCCNT+6
IOF	A+1
N	END!, W1*
P	END!
>> PRC("CP"	B+1, PROCEED+12, PROCEED+16, PROCEED+17, PROCEED+18, PROCEED+19, PROCEED+25
>> PRC("QTR"	PROCEED+16
>> PRC("SITE"	B+1, PROCEED+16, PROCEED+17, PROCEED+18, PROCEED+25
>> PRCDAA	TYPE+5*
PRCIDX	C+11~, C+12, C+13
PRCS	C+23!, D+6!
PRCS2	C+23!, PROCEED+25*, TYPE+15, D+5, D+6!
PRCSAPP	PROCEED+18*, PROCEED+19, END!
PRCSDR	TYPE+16*, D+4, D+5, END!
PRCSERR	D+2, D+3!, END!
PRCSF	W1*!
PRCSI	END!
PRCSIP	END!
PRCSJ	END!
PRCSL	END!
PRCSOB	D+4!
PRCST	C!
PRCST1	END!
PRCSTMP	END!
PRCSTT	END!
PRCSX	TYPE+1, TYPE+5, TYPE+8, TYPE+9, TYPE+11, TYPE+15, END!
PRCSZ	END!, W1*!
PRCVFT	C+3*, C+5, C+23, END!
PRCVX	TYPE+3, TYPE+4, TYPE+5, TYPE+7!
PRCVY	TYPE+3, TYPE+4, TYPE+5, TYPE+7!
PRCVZ	C+21, C+22, C+23, END!
PRCWARN	C+6~, C+8
PRCWARN(	C+12, C+13
STA	GETCCCNT~, GETCCCNT+4, GETCCCNT+5, VALIDCC~, VALIDCC+5, GETBOCNT~, GETBOCNT+5, VALIDBOC~, VALIDBOC+5
T1	PROCEED+10*, PROCEED+17, TYPE+1, END!
T2	PROCEED+10*, PROCEED+12, END!
T3	PROCEED+10*, PROCEED+19, END!
T4	PROCEED+10*, END!
T5	PROCEED+10*, END!
TOTBOCS	GETBOCNT+3~, GETBOCNT+4, GETBOCNT+9, GETBOCNT+10
U	B+1, C+1, PROCEED+10, PROCEED+12, PROCEED+18, PROCEED+25, GETCCCNT+5, VALIDCC+6, VALIDCC+8, GETBOCNT+6 , GETBOCNT+8, GETBOCNT+9, VALIDBOC+6, VALIDBOC+8
VALID	VALIDCC+3~, GETBOCNT+3~, VALIDBOC+3~
X	A, B+1, C+1, PROCEED+18, PROCEED+20, PROCEED+21, PROCEED+22, PROCEED+23, TYPE+14, TYPE+15* , TYPE+16, END!, W1!, VALIDCC+3~, VALIDCC+5, VALIDCC+6, VALIDCC+8, GETBOCNT+3~, GETBOCNT+5, GETBOCNT+6* , GETBOCNT+8, VALIDBOC+3~, VALIDBOC+5, VALIDBOC+6, VALIDBOC+7, VALIDBOC+8*
X1	PROCEED+18, PROCEED+20, PROCEED+21, PROCEED+22, END!
Y	A, B+1, C+1, C+2, PROCEED+15!, TYPE+5*, D!, END!

Customize PDF page

Package: IFCAP

Routine: PRCSECP

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: