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 |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCBR0

Package: IFCAP

Routine: PRCBR0


Information

PRCBR0 ;WISC@ALTOONA/CTB-CONTINUATION OF ^PRCFBR ; 10 Sep 89 3:08 PM

Source Information

Source file <PRCBR0.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
IFCAP 4 ASK^PRCBR  UNLOCK^PRCFALCK  (,MSG,NOW)^PRCFQ  ^PRCFYN  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;;Oct 20, 2000
Q1
Q1A
Q1A1
X ;;
ALL ;TRANSFER ALL TRANSACTIONS INTO ^TMP
ONE ;MARK ONE TRANSACTION AS RELEASED
DASH ;RELEASE ALL TRANSACTIONS WITHIN A RANGE OF SEQUENCE NUMBERS
D1
ZERO ; PLACE UP TO 3 LEADING ZEROS ONTO A NUMBER
QUE ;QUEUE PRCBR1 TO RUN RELEASE AS TASKMAN JOB
OUT
KILL

External References

Name Field # of Occurrence
ASK^PRCBR Q1+1, Q1A+2, DASH+1, DASH+2, DASH+3, DASH+4, D1+3
UNLOCK^PRCFALCK OUT
^PRCFQ QUE+3
MSG^PRCFQ QUE+4
NOW^PRCFQ QUE+3
^PRCFYN Q1+1, QUE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: Q1+0
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: Q1A1+1
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: !,"Sorry, I'm a little confused. Lets try it again.",!
  • Line Location: DASH+3
Function Call: WRITE
  • Prompt: !,"Please check your numbers and lets try again.",!
  • Line Location: DASH+4
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: D1+3
Function Call: WRITE
  • Prompt: !,"No transactions have been scheduled for release at this time.",!!
  • Line Location: QUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCF(421 - [#421] Q1A+1, Q1A1, ALL+1, ONE+1*!, DASH+3, DASH+4, D1, D1+1, D1+2, QUE+1

Label References

Name Line Occurrences
ONE ALL+1, D1+2
OUT QUE+1, QUE+5
Q1A1 Q1A+1
QUE ALL+2, QUE+4
ZERO DASH+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q1+1*, QUE+2*, QUE+3, KILL!
>> %A Q1+1*, QUE+2*
>> %B Q1+1*, QUE+2*
%X QUE+4*, KILL!
D KILL!
>> DA ALL+1*, ONE+1, D1+2*
FAIL KILL!
>> I Q1*, Q1A*, Q1A+1*, Q1A1+1, ALL+1*, D1+2*
J Q1A1*, Q1A1+1!, KILL!
K KILL!
>> N Q1A+1*, Q1A1
>> NODEV QUE+4
>> PRC("FY" Q1A
>> PRC("SITE" Q1A
>> PRCB("CK" D1+3!
>> PRCB("HI" D1*, D1+1*, D1+2
>> PRCB("LAST" DASH+2
>> PRCB("LO" DASH+3*, DASH+4*, D1+2
>> PRCB("NUM" DASH+3*
PRCF KILL!
PRCF("SIFY" Q1A+1, ALL+1, ONE+1, DASH+3, D1, D1+2, QUE+1
>> PRCFA("NOPRINT" QUE+2*
PRCFTIME QUE+3*, QUE+5!
>> Q DASH+3*
>> Q1 DASH+3*, D1
X Q1A1*, Q1A1+1!, DASH+1, DASH+2*, DASH+3, OUT*
X1 Q1A1*, Q1A1+1!, DASH+2*, DASH+3
Y KILL!
>> Z DASH+3*, ZERO+1*
>> ZTDESC QUE+3*
>> ZTIO QUE+2*
>> ZTRTN QUE+3*
>> ZTSAVE("PRCF*" QUE+3*
>> ZTSAVE("PRCFTIME" QUE+3*

Marked Items

Name Field # of Occurrence
$T(X+I Q1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All