Routine: PRCSEC2

Package	Total	Call Graph
IFCAP	3	ENTERCAP^PRCFWCAP STA^PRCSUT ESIG^PRCUESIG
VA FileMan	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
CAP(XX)	;FIND OUT NUMBER OF REQUESTS TO APPROVE FOR SUPPLY FUND, TOTAL AMOUNT OF OF REQUESTS, AND CHECK FOR SUFFICIENT $S TO PURCHASE. INFORM USER OF RESULTS.
OK	;THIS IS WHERE THE SUPPLY FUND CAP INFORMATION IS UPDATED. THE CONTROL POINT OFFICIAL HAS APPROVED THE TRANSACTION AND THERE ARE SUFFICIENT FUNDS TO PURCHASE THE ITEMS DESIRED.
W1
W2
W3
PRCB	;The option PRCB CAP EDIT uses this entry point to enter or edit the SUPPLY FUND CAP.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no funds available to approve requests at this time.",!,"Please try later." Line Location: CAP+10
Function Call: WRITE	Prompt: !!,"You have "_CT_" request"_$S(CT:"s",1:"")_" to be approved for SUPPLY FUND. Estimated $: "_$J(AMT,9,2)_"." Line Location: CAP+11
Function Call: WRITE	Prompt: !,?5,"The TOTAL dollar CAP available is $"_$J(AA,9,2)_".",! Line Location: CAP+13
Function Call: WRITE	Prompt: !,?5,"TRANSACTION",?30,"$ AMOUNT TO APPROVE" Line Location: CAP+14
Function Call: WRITE	Prompt: !,?5,$P(^PRCS(410,$P(@X1,U),0),U),?30,"$"_$J($P(@X1,U,2),9,2) Line Location: CAP+14
Function Call: WRITE	Prompt: ! Line Location: CAP+15
Function Call: WRITE	Prompt: !!,"AN ERROR HAS OCCURRED." Line Location: W1+0
Function Call: WRITE	Prompt: !!,"YOUR SITE IS UNDEFINED." Line Location: W2+0
Function Call: WRITE	Prompt: " PLEASE CONTACT YOUR APPLICATIONS COORDINATOR",!,"TO RESOLVE THIS PROBLEM." Line Location: W3+0
Function Call: WRITE	Prompt: !! Line Location: PRCB+1
Function Call: WRITE	Prompt: !!!,?15,"SIGNATURE CODE FAILURE" Line Location: PRCB+4
Function Call: WRITE	Prompt: ! Line Location: PRCB+6
Function Call: WRITE	Prompt: !!!,?7,"The Supply Fund Cap for your Station is now: $",$FN(+$P($G(^PRC(420,+DA,0)),"^",3),",",2) Line Location: PRCB+9
Routine Call	DIE Line Location: PRCB+8

FileNo	Call Tags
^PRC(420 - [#420]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	CAP+2, CAP+9, OK+1, PRCB+8, PRCB+9
^PRCS(410 - [#410]	CAP+3, CAP+4, CAP+5, CAP+6, CAP+7, CAP+14

Name	Field # of Occurrence
AA	CAP+1~, CAP+9*, CAP+10, CAP+11, CAP+13
AB	CAP+1~, CAP+7*
AC	CAP+1~, CAP+7*
AMT	CAP+2~, CAP+7, CAP+11
CT	CAP+2~, CAP+7, CAP+11, CAP+12, CAP+14
DA	PRCB+7~, PRCB+8*, PRCB+9
DATA	PRCB+7~, PRCB+8*
DIE	PRCB+7~, PRCB+8*
DR	PRCB+7~, PRCB+8*
DUZ	PRCB+3
ERROR	OK+2!, PRCB+8!
KS	CAP+2~, CAP+3, CAP+6
MESSAGE	PRCB+2~*, PRCB+3, PRCB+4, PRCB+5
>> PRC("CP"	CAP+2
>> PRC("SITE"	CAP+2, CAP+9, OK+1*, PRCB+7, PRCB+8
>> PRCST	OK+1
>> PRCST1	OK+2*
S	CAP+2~*, CAP+3, CAP+6
>> SPCP	CAP+2*, OK+1
U	CAP+2, CAP+4, CAP+5, CAP+6, CAP+7, CAP+9, CAP+14, OK+1, PRCB+8
VAR	CAP+2~*, CAP+3
X	CAP+2~, CAP+6, CAP+14, OK+1~*, OK+2
X1	CAP+1~, CAP+14*
XDA	CAP+2~, CAP+3*, CAP+4, CAP+5, CAP+6, CAP+7
XX	CAP~, CAP+2, CAP+10, CAP+11*, CAP+12