RCJIBFN3 ;WASH-ISC@ALTOONA,PA/RGY-COMMENT ADJUSTMENT TRANSACTION ;10/5/95 4:36 PM
Source file <RCJIBFN3.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| V | ;;4.5;Accounts Receivable;**15,67,169**;Mar 20, 1995
 | 
|
| ADJUST(PRCABN) | ;Pass in the IFN for 430 - user allowed to add a brief comments as
 | 
 
  | 
| DIE | ||
| ASK | ||
| DONE | ||
| Q | ||
| EN1 | ||
| ASK1 | ;ASK FOR STATUS
 | 
|
| RPT | ;
 | 
|
| ST | ||
| REPQ | ||
| DQ1 | ;
 | 
|
| DQ2 | ;
 | 
|
| TI() | ;
 | 
|
| BEGIN | ;K PRCATERM,PRCABN,PRCAEN,PRCA("CKSITE") D BILL^PRCAUTL Q:('$D(PRCABN))
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: READ | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^RC(341 - [#341] | Classic Fileman Calls | 
| ^PRCA(433 - [#433] | Classic Fileman Calls |