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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: PRCBR2

Package: IFCAP

Routine: PRCBR2


Information

PRCBR2 ;WISC@ALTOONA/CTB-ENTER CEILING TRANSACTION BY FISCAL ;12/28/94 09:24

Source Information

Source file <PRCBR2.m>

Call Graph

Call Graph

Call Graph Total: 17

Package Total Call Graph
IFCAP 12 MM^PRC0B2  $$DATE^PRC0C  $$FCPVAL^PRC0D  ERS410^PRC0G  NAMES^PRCBBUL  OUT^PRCBR  EN1^PRCBSUT  UNLOCK^PRCFALCK  
^PRCFQ  ^PRCFYN  ($$BBFY,LOCK)^PRCSUT  (EN1,EN2)^PRCSUT3  
VA FileMan 3 NOW^%DTC  EN^DDIOL  ^DIE  
Kernel 2 ^%ZIS  $$TM^%ZTLOAD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IFCAP 2 PRCB ENTER CEILING TRANS  PRCBR  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
ENC ;ENTER CEILING TRANSACTION
W
W2
W3
EXIT
EN ;CREATE NEW TRANSACTION NUMBER
QDEV ;ask devide
QUE ;queue release as a background job
OUT
KILL
REL ;reader help
DEV ;device selection
REL1 ;reader help from ^PRCBE
FCPVAL(A) ;EF valid fcp in file 421, EF value=1 if invalid

External References

Name Field # of Occurrence
NOW^%DTC QUE+2
^%ZIS DEV+1
$$TM^%ZTLOAD QDEV+1
EN^DDIOL FCPVAL+4
^DIE ENC+3
MM^PRC0B2 ENC+9
$$DATE^PRC0C FCPVAL+3
$$FCPVAL^PRC0D FCPVAL+3
ERS410^PRC0G ENC+3
NAMES^PRCBBUL ENC+5
OUT^PRCBR QDEV+6
EN1^PRCBSUT EN+1
UNLOCK^PRCFALCK OUT
^PRCFQ QUE+2
^PRCFYN W3
$$BBFY^PRCSUT ENC+1
LOCK^PRCSUT ENC+2
EN1^PRCSUT3 ENC+2
EN2^PRCSUT3 ENC+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ENC+11
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: 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: !,"The DHCP system job 'TASK MANAGER' is not running."
  • Line Location: QDEV+2
Function Call: WRITE
  • Prompt: !,"The release of these transactions cannot be queued."
  • Line Location: QDEV+3
Function Call: WRITE
  • Prompt: !,"Please call site manager to start the TASK MANAGER and try later."
  • Line Location: QDEV+4
Function Call: WRITE
  • Prompt: !,"No transactions have been selected for release at this time.",!!
  • Line Location: QUE+1
Function Call: WRITE
  • Prompt: !!,"If you answer 'NO', you will have to release these transactions at a later time."
  • Line Location: REL+1
Function Call: WRITE
  • Prompt: !,"By answering 'YES', the transaction(s) selected will be released and posted to",!,"the Control Point(s) now. If you answer 'YES', you will NOT be able to",!
  • Line Location: REL+2
Function Call: WRITE
  • Prompt: "'^' to quit or access your CRT will this job is running.",!,"This job must run to completion."
  • Line Location: REL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: "Try releasing transaction(s) at a later time"
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !,"You cannot select your home device.",$C(7),!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"You must select a printer device.",$C(7),!
  • Line Location: DEV+4
Function Call: WRITE
  • Prompt: !,"You must select a printer device for queuing",$C(7),!
  • Line Location: DEV+5
Function Call: WRITE
  • Prompt: !!,"Answer 'YES' if this transaction is complete and ready to be released to",!,"the Fund Control Point."
  • Line Location: REL1+1
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you want to edit this transaction at a later time.",!!
  • Line Location: REL1+2
Routine Call
  • DIE
  • Line Location:
    • ENC+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCF(421 - [#421] QUE+1, FCPVAL+2
^PRCS(410 - [#410] ENC+6, ENC+8

Label References

Name Line Occurrences
DEV QDEV+6, DEV+3, DEV+4, DEV+5
EN ENC+1
ENC ENC+2, ENC+11
EXIT ENC+1, ENC+11, W2
OUT QDEV+1, QUE+1
W ENC+2
W3 ENC+11

Naked Globals

Name Field # of Occurrence
^( ENC+8
^(4 ENC+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ENC+1, ENC+11, W3*, QUE+2, KILL!
>> %A W3*
>> %B W3*
%X KILL!
>> %ZIS DEV+1*
>> %ZIS("A" DEV+1*
>> %ZIS("B" DEV+1*
A ENC+4~, ENC+8*, FCPVAL~, FCPVAL+2
B ENC+4~, ENC+8*, FCPVAL+1~, FCPVAL+2*, FCPVAL+3, FCPVAL+4
C FCPVAL+1~, FCPVAL+2*
C1 EN+1!
D KILL!
DA ENC+3, ENC+6, ENC+8, ENC+11, EXIT!, EN+1!
DIC ENC+3, ENC+11, EXIT!, EN+1!
DIC(0 ENC+3*
DIE ENC+3*, EXIT!
DR ENC+3*, EXIT!
FAIL KILL!
IO DEV+3
IO("Q" DEV+5
IO(0 DEV+3
IOM QUE+2
ION QUE+2
>> IOP DEV+1*
IOSL QUE+2
IOST QUE+2, DEV+4
J KILL!
K KILL!
>> POP QDEV+6, DEV+2
>> PRC("CP" ENC+1, ENC+6
>> PRC("FY" ENC+1
>> PRC("QTR" ENC+6
>> PRC("SITE" ENC+1
PRCF EXIT!, KILL!
PRCF("SIFY" QUE+1
>> PRCFTIME QUE+2*
PRCS EXIT!
PRCSL ENC+2, EXIT!
RUN KILL!
>> T(1 ENC+11*, W3
X ENC+1*, ENC+2*, ENC+4~, W, W2*, EXIT!, OUT*
X( ENC+8*
X(1 ENC+6*
X(2 ENC+7*
X1 ENC+1*, ENC+2*, EXIT!
XMY ENC+4~, ENC+9
XMY("" ENC+9
Y ENC+4~, KILL!
Z FCPVAL+1~, FCPVAL+2, FCPVAL+3*, FCPVAL+4, FCPVAL+5
>> ZTDESC QUE+2*
>> ZTDTH QUE+2*
>> ZTIO QUE+2*
>> ZTRTN QUE+2*
>> ZTSAVE("PRC*" QUE+2*
>> ZTSAVE("PRCB*" QUE+2*
>> ZTSAVE("PRCF*" QUE+2*
>> ZTSAVE("PRCFTIME" QUE+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All