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: 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>

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

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