Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCBR1

Package: IFCAP

Routine: PRCBR1


Information

PRCBR1 ;WISC@ALTOONA/CTB-ROUTINE TO RELEASE TRANSACTIONS FROM FUND DISTRIBUTION FILE ; 01/31/94 4:06 PM

Source Information

Source file <PRCBR1.m>

Call Graph

Call Graph

Call Graph Total: 16

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

External References

Name Field # of Occurrence
NOW^%DTC SE1
%XY^%RCR EN2+14
KILL^%ZTLOAD SE+1
REQ^%ZTLOAD REQUE+1
EN^DDIOL OUT+1
^DIC EN2
EDIT^PRC0B EN2+11
$$ACC^PRC0C B+2
$$DATE^PRC0C EN2+1
ERS410^PRC0G EN2+12
^PRCBBUL REL+6
ENCODE^PRCBES1 A+6, REL+4
^PRCFALCK SE+2
UNLOCK^PRCFALCK OUT+2
DUZ^PRCFSITE SE1+1
ENCODE^PRCSC1 EN2+8
TRANS1^PRCSES EN2+13
$$BBFY^PRCSUT EN2+10
EN1^PRCSUT3 EN1

Interaction Calls

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

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
A C+1
B A+2
EN1 B+4
LOAD C+2, A+3, B+1
OUT SE1+1, SE1+2, C+2
REL A+2, A+8
REQUE SE+2
W4 EN1
W5 EN2

Naked Globals

Name Field # of Occurrence
^(0 A+2, REL+8
^(3 EN2+1*
^(4 EN2+1*
^(6 EN2+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% SE+2, SE1SE1+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, EN2EN2+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!, EN2EN2+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, EN2EN2+1
EN2+3*, EN2+4
X SE+2*, SE1, OUT!, OUT+2*, B+4*, EN1EN2+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
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All