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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCBR

Package: IFCAP

Routine: PRCBR


Information

PRCBR ;WISC@ALTOONA/CLH/CTB-ROUTINE TO RELEASE FUND DISTRIBUTION TRANSACTIONS ; 10 Apr 93 3:50 PM

Source Information

Source file <PRCBR.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**139**;Oct 20, 2000;Build 16
ASK
UNDO
UNREL(DA)
DEV ;ask device
Q1
Q1A
X ;;
ALL ;TRANSFER ALL TRANSACTIONS INTO ^TMP
ONE ;mark release status
REL(DA)
DASH ;release all transactions within a range of sequence numbers
D1
ZERO ;place up to 4 leading zeros onto a number
OUT
KILL

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: V+5
Function Call: WRITE
  • Prompt: !!,$C(7),"There are no PENDING RELEASE transactions for FY: ",PRC("FY")
  • Line Location: V+5
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: V+6
Function Call: WRITE
  • Prompt: !,"You are not authorized to release funds for station ",PRC("SITE"),",",!,"PLEASE CONTACT YOUR APPLICATION MANAGER.",$C(7)
  • Line Location: V+6
Function Call: READ
  • Formatting: !
  • Prompt: "Enter Sequence Number of Transaction(s) to be Released: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7)," ??"
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: $C(7),!," ??"
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: $C(7),!," THIS SEQUENCE HAS ALREADY BEEN RELEASED. RERELEASE IS NOT PERMITTED."
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !,$C(7),"THIS TRANSACTION HAS ALREADY BEEN SELECTED FOR RELEASE. NO ACTION TAKEN."
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: " OK"
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,$C(7),"No transactions have been selected for releasing for FY: ",PRC("FY")
  • Line Location: UNDO+0
Function Call: WRITE
  • Prompt: !!,"To not release a transaction already selected to be released"
  • Line Location: UNDO+1
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: Q1A+3
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: !,"First number in range is greater than highest defined sequence number in file, try again.",$C(7),!
  • Line Location: DASH+3
Function Call: WRITE
  • Prompt: !,"Second number in range greater than highest defined number, changing to highest number allowed: ",X1,$C(7)
  • Line Location: DASH+4
Function Call: WRITE
  • Prompt: !,"No sequence numbers on file in range, try again.",$C(7),!
  • Line Location: DASH+5
Function Call: WRITE
  • Prompt: !,"No sequence numbers in range specified. Please check your numbers and let's try again.",$C(7),!
  • Line Location: DASH+6
Function Call: WRITE
  • Prompt: " DONE"
  • Line Location: D1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCF(421 - [#421] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call