Routine: PRCBR

Information

PRCBR ;WISC@ALTOONA/CLH/CTB-ROUTINE TO RELEASE FUND DISTRIBUTION TRANSACTIONS ; 10 Apr 93 3:50 PM

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IFCAP	5	EN21^PRCBE ($$FCPVAL,QDEV)^PRCBR2 SIG^PRCFACX0 (,UNLOCK)^PRCFALCK ^PRCFSITE
VA FileMan	3	IX^DIC ^DIE ^DIR

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: 3

Package	Total	Caller Graph
IFCAP	3	PRCB RELEASE TRANSACTIONS PRCBR0 PRCBR2

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;139;Oct 20, 2000;Build 16
ASK
UNDO
UNREL(DA)
DEV	;ask device
Q1
Q1A
X	;;
ALL	;TRANSFER ALL TRANSACTIONS INTO ^TMP
ONE	;mark release status
REL(DA)
DASH	;release all transactions within a range of sequence numbers
D1
ZERO	;place up to 4 leading zeros onto a number
OUT
KILL

External References

Name	Field # of Occurrence
IX^DIC	UNDO+3
^DIE	UNREL, REL
^DIR	V+9, Q1+1
EN21^PRCBE	V+12
$$FCPVAL^PRCBR2	ONE+1
QDEV^PRCBR2	DEV+1
SIG^PRCFACX0	V+7
^PRCFALCK	V+3
UNLOCK^PRCFALCK	OUT
^PRCFSITE	V+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: 3 Line Location: V+5
Function Call: WRITE	Prompt: !!,$C(7),"There are no PENDING RELEASE transactions for FY: ",PRC("FY") Line Location: V+5
Function Call: READ	Variable: X Timeout: 3 Line Location: V+6
Function Call: WRITE	Prompt: !,"You are not authorized to release funds for station ",PRC("SITE"),",",!,"PLEASE CONTACT YOUR APPLICATION MANAGER.",$C(7) Line Location: V+6
Function Call: READ	Formatting: ! Prompt: "Enter Sequence Number of Transaction(s) to be Released: " Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!," ??" Line Location: ASK+1
Function Call: WRITE	Prompt: $C(7),!," THIS SEQUENCE HAS ALREADY BEEN RELEASED. RERELEASE IS NOT PERMITTED." Line Location: ASK+2
Function Call: WRITE	Prompt: !,$C(7),"THIS TRANSACTION HAS ALREADY BEEN SELECTED FOR RELEASE. NO ACTION TAKEN." Line Location: ASK+3
Function Call: WRITE	Prompt: " OK" Line Location: ASK+4
Function Call: WRITE	Prompt: !!,$C(7),"No transactions have been selected for releasing for FY: ",PRC("FY") Line Location: UNDO+0
Function Call: WRITE	Prompt: !!,"To not release a transaction already selected to be released" Line Location: UNDO+1
Function Call: WRITE	Prompt: !,$P($T(X+I),";",3,99) Line Location: Q1+0
Function Call: WRITE	Prompt: !!,"Unreleased Sequence Numbers for Station ",PRC("SITE"),", FY: ",PRC("FY"),! Line Location: Q1A+0
Function Call: WRITE	Prompt: ?I," SEQ # TRANS # CP# TOTAL" Line Location: Q1A+0
Function Call: WRITE	Prompt: ?I#2*40,$J(+$P(X,"-",3),4,0)," ",$P(X,"^")," CP-",+$P(X,"^",2)," $",$J(X1,0,2) Line Location: Q1A+3
Function Call: WRITE	Prompt: !,"Incorrect format. ",$C(7) Line Location: DASH+1
Function Call: WRITE	Prompt: !,"Illogical range, the first number is not less than the second.",$C(7),! Line Location: DASH+2
Function Call: WRITE	Prompt: !,"First number in range is greater than highest defined sequence number in file, try again.",$C(7),! Line Location: DASH+3
Function Call: WRITE	Prompt: !,"Second number in range greater than highest defined number, changing to highest number allowed: ",X1,$C(7) Line Location: DASH+4
Function Call: WRITE	Prompt: !,"No sequence numbers on file in range, try again.",$C(7),! Line Location: DASH+5
Function Call: WRITE	Prompt: !,"No sequence numbers in range specified. Please check your numbers and let's try again.",$C(7),! Line Location: DASH+6
Function Call: WRITE	Prompt: " DONE" Line Location: D1+3
Routine Call	DIC Line Location: UNDO+3
Routine Call	DIE Line Location: UNREL REL
Routine Call	DIR Line Location: V+9 Q1+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCF(421 - [#421]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	V+6
^PRCF(421 - [#421]	V+5, ASK+1, ASK+2, ASK+3, UNDO, UNDO+6, UNREL!, Q1A+1, Q1A+2, ALL+1 , ONE+4, REL!, DASH+5, DASH+6, D1, D1+1, D1+2

Label References

Name	Line Occurrences
ALL	ASK
ASK	ASK, ASK+3, ASK+5, UNDO, Q1+1, Q1A+5, DASH+1, DASH+2, DASH+3, DASH+5 , DASH+6, D1+3
DASH	ASK
DEV	UNDO+3
KILL	V+3
ONE	ASK+4, ALL+1, D1+2
OUT	V+4, V+5, V+6, V+7, V+9, ASK
Q1	ASK
Q1A	ASK+1, ASK+2
REL	ONE+2, ONE+4
UNDO	ASK, UNDO+7, ALL+2
UNREL	UNDO+4, UNDO+6
ZERO	ASK+1, DASH+5

Naked Globals

Name	Field # of Occurrence
^(0	UNDO+6, ONE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	V+2~, V+3, V+4
D	V+2~, UNDO+3*
DA	ASK+2, ASK+3, UNDO+3, UNDO+4, UNDO+6, UNREL~, ALL+1, ONE+1, ONE+2, ONE+4 , REL~, D1+2
DIC	V+2~, UNDO+3*!
DIC("A"	V+11, UNDO+2
DIC("S"	UNDO+3*
DIC(0	UNDO+3*
DIE	V+2~, UNREL, REL
DIK	V+2~
DIR	V+2~, V+8~
DIR("?"	V+9, Q1+1
DIR("A"	V+9, Q1+1
DIR("B"	V+9*
DIR(0	V+9, Q1+1
DIROUT	KILL!
DIRUT	KILL!
DR	V+2~, V+11, UNREL, REL*
DTIME	ASK
DTOUT	KILL!
DUOUT	KILL!
DUZ	V+6
FAIL	V+2~
>> I	Q1, Q1A, Q1A+1, Q1A+3, ALL+1, D1+2*
J	V+2~, Q1A+2*, Q1A+3!
K	V+2~, V+6*
>> N	Q1A+1*, Q1A+2
PRC	V+2~
PRC("FY"	V+5, V+11, V+12, UNDO, UNDO+2, Q1A
PRC("SITE"	V+6, V+11, V+12, UNDO+2, Q1A
PRCB	V+2~
PRCB("CK"	V+9*, ASK+3!, ASK+4!, D1+3!
PRCB("HI"	D1, D1+1, D1+2
PRCB("LAST"	V+12*, DASH+3, DASH+4
PRCB("LO"	DASH+5, DASH+6, D1+2
PRCB("MDIV"	V+11, UNDO+2
PRCB("NUM"	DASH+5*
PRCF	V+2~
PRCF("SIFY"	V+5, V+12*, ASK+1, ASK+2, ASK+3, UNDO, UNREL, Q1A+1, ALL+1, REL , DASH+5, D1, D1+2
PRCF("X"	V+4*
PRCFA	V+2~
PRCFA("SIGFAIL"	V+7!
PRCFK	V+7!
PRCFLAST	V+12*!
Q	V+2~, DASH+5*
>> Q1	DASH+5*, D1
X	V+2~, V+3, V+5, V+6, V+8~, ASK, ASK+1, Q1A+2, Q1A+3!, DASH+1 , DASH+2, DASH+3, DASH+5, OUT*
X1	ASK+1, ASK+2, Q1A+2, Q1A+3!, DASH+2, DASH+4, DASH+5
Y	V+2~, V+8~, V+9, V+10, UNDO+3, Q1+1
Z	V+2~, V+12, ASK+1, DASH+5, ZERO+1
Z1	V+2~

Marked Items

Name	Field # of Occurrence
$T(X+I	Q1

Customize PDF page

Package: IFCAP