Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls