Routine: PRCBR1

Package	Total	Call Graph
IFCAP	11	EDIT^PRC0B ($$ACC,$$DATE)^PRC0C ERS410^PRC0G ^PRCBBUL ENCODE^PRCBES1 (,UNLOCK)^PRCFALCK DUZ^PRCFSITE ENCODE^PRCSC1 TRANS1^PRCSES $$BBFY^PRCSUT EN1^PRCSUT3
VA FileMan	4	NOW^%DTC %XY^%RCR EN^DDIOL ^DIC
Kernel	1	(KILL,REQ)^%ZTLOAD

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;139,170;Oct 20, 2000;Build 7
SE	;DIRECT ENTRY POINT, UN QUEUED
SE1
C
OUT
REQUE
A	;PROCEDURE TO DETERMINE IF CONTROL POINT IS AUTOMATED D B IF IT IS, A1 IF ITIS NOT
LOAD	;LOAD ALL TRANSACTIONS FOR A SPECIFIC CONTROL POINT INTO THE 'ON PRINT LIST FIELD AND CROSS REFERENCE
B	;RELEASE INDIVIDUAL SEQUENCE NUMBER
REL	;KILL NON RELEASE INDICATOR, ENCODE RELEASER AND MARK TRANSACTION
EN1
EN2
W4
W5
LOCK	;LOCK GLOBAL THAT IS BEING ACCESSED BY ANOTHER USER

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"FUND DISTRIBUTION RELEASE ABORTED. NO TRANSACTIONS FOUND FOR STATION NUMBER "_PRC("SITE")_"." Line Location: SE1+2
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: SE1+3
Function Call: WRITE	Prompt: "Beginning transaction release...",!! Line Location: SE1+3
Function Call: WRITE	Prompt: !!,$C(7),"Try releasing at a later time." Line Location: REQUE+0
Function Call: WRITE	Prompt: !,"Trans #: ",$P(^PRCF(421,DA,0),U),?22,"FCP: ",$E($P(^PRC(420,PRC("SITE"),1,PRCB("CP"),0),U),1,15) Line Location: REL+7
Function Call: WRITE	Prompt: ?44,"QTR: ",II,$P("ST,ND,RD,TH",",",II),?53,"AMT: ",$J($P(^(0),U,II+6),12,2)," Released.",! Line Location: REL+8
Function Call: READ	Variable: X Timeout: 2 Line Location: W4+0
Function Call: WRITE	Prompt: !!,"UNABLE TO MAKE ENTRY ",X," IN FILE 410.1, FURTHER PROCESSING TERMINATED. CONTACT YOUR SITE MANAGER." Line Location: W4+0
Function Call: READ	Variable: X Timeout: 2 Line Location: W5+0
Function Call: WRITE	Prompt: !!,"UNABLE TO MAKE ENTRY ",X," IN FILE 410, FURTHER PROCESSING TERMINATED. CONTACT YOUR SITE MANAGER." Line Location: W5+0
Function Call: WRITE	Prompt: !!,$C(7),"THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER." Line Location: LOCK+2
Routine Call	DIC Line Location: EN2

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	A+2, REL+7
^PRCF(421 - [#421]	SE1+2, C!, C+1, LOAD+1, B+4, REL+1!, REL+2, REL+7, REL+8, EN2
^PRCS(410 - [#410]	EN2+1, EN2+2, EN2+5*
^TMP("PRCB"	C!, OUT!, LOAD+1*

Name	Field # of Occurrence
%	SE+2, SE1, SE1+1, OUT!
%D	OUT!
%H	OUT!
%I	OUT!
%M	OUT!
%X	OUT!, EN2+14*
%Y	OUT!, EN2+14*
BY	OUT!
C	OUT!
DA	C, C+1, OUT!, A+4, A+6, REL+1, REL+2, REL+4, REL+7, REL+8 , EN2*, EN2+1, EN2+2, EN2+5, EN2+8, EN2+11, EN2+12, LOCK+2
DHD	OUT!
DIC	OUT!, EN2*, LOCK+2
DIC(0	EN2*
>> DILOCKTM	LOCK+2
DLAYGO	OUT!, EN2*
DT	SE1*, REL+2
DUZ	A+6, REL+4, EN2+8
FLDS	OUT!
G	OUT!
I	OUT!, B+2, B+3
>> II	REL+8*
IO	REQUE+1
IOF	SE1+3
IOP	OUT!
J	OUT!, LOAD+1*
K	OUT!
M	OUT!, LOAD+1*
MESSAGE	A+5, A+6, A+7!, REL+3, REL+4, REL+5!, EN2+7*, EN2+8, EN2+9!
N	OUT!
NOW	OUT!
P	OUT!
>> PRC("APP"	B+2*, B+3
>> PRC("BBFY"	B+1, B+2, EN2+10, EN2+11
>> PRC("FY"	A+1*, B+2, B+4, EN2+10
>> PRC("PER"	EN2+4
>> PRC("SITE"	SE1+2, A+1*, A+2, B+2, B+4, REL+7, EN2+10
PRCB	OUT!
PRCB("CK"	A+1, A+2, B+4, REL+1!, EN2+14*
PRCB("CP"	C+2, A+1, A+2, LOAD+1, REL+7, EN2+10
PRCB("TRDA"	C+1*, A+4, B+4, REL+1, EN2, EN2+14
PRCF	OUT!
PRCF("SIFY"	SE1+2, C+1, LOAD+1, REL+1
PRCF(7	EN2+4*, EN2+5, EN2+6!
PRCFA	OUT!
PRCFA("NOPRINT"	REQUE+1
PRCFA("QUIT"	C+1, C+2, A+2, B+4, W4, W5
PRCFC	B+1*, B+5!, EN2+1, EN2+2
PRCFC(	B+3*, B+4, EN2+1, EN2+13
PRCFC(1	B+1*, EN2+1
PRCFC(2	B+1*, B+2, B+4
PRCFC(3	B+1*, EN2+1
PRCFC(8	B+3*, EN2+1
PRCFC(9	B+3*, EN2+1
PRCFK	B+4*, B+5!, EN2, EN2+1, EN2+13
PRCFTIME	SE1*, OUT!, EN2+4
PRCHOBL	EN2+13*!
PRSAL	OUT!, LOCK+2*
T	OUT!
>> TRDA(0	C+1*, A+1, B+1, B+3
U	C, A+1, A+2, B+1, B+3, B+4, REL+7, REL+8, EN2, EN2+1 , EN2+3, EN2+4
X	SE+2, SE1, OUT!, OUT+2, B+4, EN1, EN2+11, EN2+13, W4, W5
>> X1	EN1*
Y	OUT!, EN2
Z	OUT!, B+4*
ZI	C+1*, OUT!
>> ZTIO	REQUE+1*
>> ZTQUEUED	SE+1, REQUE