Routine: PRCSEB1

Package	Total	Call Graph
IFCAP	10	EDIT^PRC0B $$QTRDATE^PRC0D (BBFY,FCP,FY,QTR,SITE,SUBSITE)^PRCB0C $$UPPER^PRCFFU5 ^PRCSDIC OBL^PRCSES2 EBAL^PRCSEZ TRANK^PRCSEZZ (EN,EN3)^PRCSUT (EN1,EN2)^PRCSUT3
VA FileMan	5	NOW^%DTC EN^DDIOL YN^DICN ^DIE ^DIK
MailMan	1	^XMD

Package	Total	Caller Graph
IFCAP	7	PRCB1A PRCHSP PRCSEB PRCSEB0 PRCSECP PRCSENA PRCSENA FISCAL

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
ENOD	;ENTER OBLIGATION DATA
ENOD1	;
ENCAD	;ENTER FMS DATA
ENA	;ENTER AN ADJUSTMENT
ADDADJ
ENA1
ENA2
ENA3	;D:$O(^PRCS(410,DA,12,0)) SCPC0^PRCSED
ENFIS	;from fiscal's option
CT	;CANCEL AN ADJUSTMENT TRANSACTION
ENC	;ENTER CEILING TRANSACTION
CPU	;ENTER/EDIT CONTROL POINT USERS
CPU1
TUSER(CP)	;Check for IFCAP terminated users
TUSER1
SENDIT2	;
W
W1
W2
W3
EXIT

External References

Name	Field # of Occurrence
NOW^%DTC	TUSER+7
EN^DDIOL	CPU1+1
YN^DICN	W3
^DIE	ENOD1+3, ENCAD+4, ADDADJ, ENA1, ENA2+1, ENA3+1, ENFIS+9, ENC+1
^DIK	TUSER1
EDIT^PRC0B	CPU1
$$QTRDATE^PRC0D	ADDADJ
BBFY^PRCB0C	ENFIS+6
FCP^PRCB0C	ENFIS+6
FY^PRCB0C	ENFIS+5
QTR^PRCB0C	ENFIS+5
SITE^PRCB0C	ENFIS+3
SUBSITE^PRCB0C	ENFIS+4
$$UPPER^PRCFFU5	ENA1+2
^PRCSDIC	ENCAD+3
OBL^PRCSES2	ENA1+2
EBAL^PRCSEZ	CT+2
TRANK^PRCSEZZ	CT+5
EN^PRCSUT	ENA+2, ENC+1
EN3^PRCSUT	ENCAD+1, CPU+2
EN1^PRCSUT3	ENA+3, ENFIS+8, ENC+1
EN2^PRCSUT3	ENA+3, ENFIS+8, ENC+1
^XMD	SENDIT2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option is no longer in use." Line Location: ENOD+1
Function Call: WRITE	Prompt: !,"Committed (Estimated) Cost: " Line Location: ENOD1+1
Function Call: WRITE	Prompt: ?28,$J($P(^(4),U),0,2) Line Location: ENOD1+1
Function Call: WRITE	Prompt: ?28,"None entered." Line Location: ENOD1+2
Function Call: WRITE	Prompt: !! Line Location: ENCAD+4
Function Call: WRITE	Prompt: L Line Location: ENA+3
Function Call: WRITE	Prompt: !! Line Location: ENA+5
Function Call: WRITE	Prompt: L Line Location: ENA+7
Function Call: WRITE	Prompt: $C(7),!,"You must enter an Adjustment $ Amount for this transaction.",! Line Location: ENA2+1
Function Call: WRITE	Prompt: $C(7),!,"Adjustment $ Amount does not equal the total of BOC $ Amounts.",!,"Please correct the error.",! Line Location: ENA2+3
Function Call: WRITE	Prompt: L Line Location: ENFIS+8
Function Call: WRITE	Prompt: !! Line Location: ENFIS+11
Function Call: WRITE	Prompt: !!,"This adjustment has been cancelled." Line Location: CT+6
Function Call: WRITE	Prompt: L Line Location: ENC+1
Function Call: WRITE	Prompt: !! Line Location: ENC+2
Function Call: WRITE	Prompt: !,"You cannot use this option for this control point." Line Location: CPU+3
Function Call: WRITE	Prompt: !!,"Checking for IFCAP terminated users...",! Line Location: TUSER+2
Function Call: WRITE	Prompt: !?5,$P(A,"^",1)," is deactivated and was removed as a Control Point User *" Line Location: TUSER+6
Function Call: WRITE	Prompt: !?5,$P(A,"^",1)," is terminated and was removed as a Control Point User **" Line Location: TUSER+8
Function Call: WRITE	Prompt: !! Line Location: TUSER+9
Function Call: WRITE	Prompt: "* CONTACT THE IFCAP APPLICATION COORDINATOR TO REACTIVATE THE USER" Line Location: TUSER+10
Function Call: WRITE	Prompt: "S" Condition for execution: I>1 Line Location: TUSER+10
Function Call: WRITE	Prompt: " *",! Line Location: TUSER+10
Function Call: WRITE	Prompt: " CONTACT IRM TO REACTIVATE IN FILE 200 ",! Line Location: TUSER+11
Function Call: WRITE	Prompt: ?5,"None found",! Line Location: TUSER+12
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,"This transaction is assigned transaction number: ",X Line Location: W+0
Function Call: WRITE	Prompt: !!,"Sorry, you are not allowed to overcommit funds for control point ",$P(PRC("CP")," "),".",!,"Your current balance of $",PRCST1," is insufficient to cover the cost ($",PRCST,")",!,"of this request. Contact Fiscal Service.",$C(7) 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: !!,"Would you like to enter another ",T(1)," transaction" Line Location: W3+0
Routine Call	DIE Line Location: ENOD1+3 ENCAD+4 ADDADJ ENA1 ENA2+1 ENA3+1 ENFIS+9 ENC+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(411 - [#411]	ENFIS+4, TUSER+6
^PRC(420 - [#420]	ENA2+2, CPU+3, TUSER+3
^PRC(442 - [#442]	ENA3+1
^PRCS(410 - [#410]	ENOD1+1, ENCAD+4, ENA+3, ENA1+1, ENA2+1, ENA2+3, ENA2+4, ENA3+1, ENA3+2, ENFIS+8 , CT+1!, CT+2, CT+4*, CT+5, ENC+1, ENC+2, SENDIT2+1
^VA(200 - [#200]	TUSER+4

Label References

Name	Line Occurrences
ADDADJ	ENA+4, ENFIS+10
CT	ENA1, ENA2+1, ENFIS+9
ENA	ENA+3, ENA+5
ENA2	ENA2+1, ENA2+3
ENA3	ENA2+2
ENC	ENC+1, ENC+2
ENCAD	ENCAD+4
ENFIS	ENFIS+8, ENFIS+11
EXIT	ENOD1+3, ENCAD+1, ENCAD+3, ENCAD+4, ENA+2, ENA+5, ENFIS+3, ENFIS+4, ENFIS+5, ENFIS+6 , ENFIS+11, CT+6, ENC+1, ENC+2, CPU+2, CPU+3, W2
TUSER	CPU1+2
TUSER1	TUSER+5, TUSER+6, TUSER+8
W	ENA+3, ENFIS+8, ENC+1
W2	ENCAD+1, ENA+2, ENC+1, CPU+2
W3	ENCAD+4, ENA+5, ENFIS+11, ENC+2, W3

Naked Globals

Name	Field # of Occurrence
^(	CT+5
^(0	ENA2+2, CT+1*
^(11	CT+1*
^(3	ENA2+3
^(4	ENOD1+1, ENA2+3, CT+2
^(5	CT+1*
^(6	CT+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ENCAD+4, ENA+5, ENFIS+11, ENC+2, W3*
A	ENFIS+2~, TUSER+1~, TUSER+4*, TUSER+5, TUSER+6, TUSER+8
AMOUNT	ENA+1~, ENA2+4*, ENFIS+1~
B	ENFIS+2~
C	ENFIS+2~
CP	TUSER~, TUSER+3, TUSER1
>> D	ENCAD+2*
DA	ENOD1+1, ENOD1+3, ENCAD+4, ENA+3, ENA1+1, ENA2+1, ENA2+3, ENA2+4, ENA3+1, ENA3+2 , ENFIS+8, CT+1, CT+2, CT+4, CT+5, ENC+1, ENC+2, CPU+2, CPU1, TUSER1 , EXIT!
DA(1	CT+5, CPU+2, CPU1, TUSER1*
DA(2	TUSER1*
DIC	ENOD1+3, ENCAD+2*, ENCAD+4, ENA1, ENC+1, EXIT!
DIC("A"	ENCAD+2*, ENCAD+3!
DIC("S"	ENCAD+3*!
DIC(0	ENCAD+2, ENCAD+4, ENA1, ENA1+3, ENC+1*
DIE	ENOD1+3, ENCAD+4, ADDADJ, ENA1, ENA1+3, ENA3+1, ENFIS+9, ENC+1, EXIT!
DIK	TUSER1*!
DLAYGO	EXIT!
DR	ENOD1+3, ENCAD+4, ADDADJ!, ENA1!, ENA2!, ENA3+1, ENFIS+9!, ENC+1, EXIT!
DUZ	ENA1+1, CPU+3
I	CT+3, TUSER+1~, TUSER+3, TUSER+6*, TUSER+10, TUSER+12
J	TUSER+1~, TUSER+3, TUSER+8, TUSER+11, TUSER+12
>> N	CT+5*
PO	ENA+1~, ENA3+1*, ENFIS+1~
PODATE	ENA+1~, ENA3+1*, ENFIS+1~
PRC	ENFIS+1~
PRC("BBFY"	ENFIS+6
PRC("CP"	ENA2+2, ENFIS+6, ENFIS+7, CT+1, CT+2, CPU+2, CPU+3, CPU1+2, W1
PRC("FY"	ADDADJ, ENFIS+5, ENFIS+7, CT+2
PRC("QTR"	ENA+2, ADDADJ, ENFIS+5, ENFIS+7, CT+2, ENC+1
PRC("SITE"	ENCAD+1, ENA+2, ENA1+1, ENA2+2, ENFIS+3, ENFIS+4, ENFIS+7, CT+2, ENC+1, CPU+2 , CPU+3, TUSER+3
PRC("SST"	ENFIS+4
>> PRCHSY	SENDIT2+1
PRCS	ENOD1+3*, EXIT!
PRCS58	ENA+5!, ENA2, ENFIS+11!, EXIT!
>> PRCSC	CPU+3
PRCSL	EXIT!
>> PRCSOB	ENOD1+3
PRCSSC	CPU+1~, CPU+3
>> PRCST	W1
>> PRCST1	W1
PRCX442	ENA1+2~*
REC	ENA+1~, ENA3+1*, ENFIS+1~
SITE	ENA+1~, ENA1+1*, ENFIS+1~
ST	TUSER+1~, TUSER+3*, TUSER+6, TUSER1
T	CT+1*, EXIT!
T(1	ENCAD+4, ENA+5, ENFIS+11, ENC+2, W3
U	ENOD1+1, ENA+3, ENA2+2, ENFIS+8
X	ENA+3, ENA1+2, ENA2+3, ENFIS+2~, ENFIS+7, ENFIS+8, CT+2, CT+5, ENC+1, CPU1 , CPU1+1, TUSER+8, W, W2*, EXIT!
X1	ENA+3, ENA2+3, ENFIS+8, ENC+1, EXIT!
>> X2	ENA2+3*
XDA	TUSER+1~, TUSER+3*, TUSER+4, TUSER+6, TUSER1
XMDUZ	SENDIT2+1~*
XMSUB	SENDIT2+1~, SENDIT2+2*
XMTEXT	SENDIT2+1~, SENDIT2+2*
>> XMY(	SENDIT2+2*
XX	SENDIT2+1~*, SENDIT2+2
Y	ENCAD+1, ENCAD+3, ENCAD+4, ENA+2, ENA1, ENA2+1, ENFIS+2~, ENFIS+9, ENC+1, CPU+2
Z	ENFIS+2~, ENFIS+7*
ZX	CT+2!, CT+3, CT+4!

Customize PDF page

Package: IFCAP

Routine: PRCSEB1

Information

Source Information

Call Graph

Call Graph Total: 16

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: