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

Package: Integrated Billing

Routine: IBECEAU4


Information

IBECEAU4 ;ALB/CPM - Cancel/Edit/Add... Cancel Utilities ; 23-APR-93

Source Information

Source file <IBECEAU4.m>

Entry Points

Name Comments DBIA/ICR reference
CANCH(IBN,IBCRES,IBIND,IBCV) ; Cancel last transaction for a specific charge.
; Input: IBN -- Charge to be cancelled
; IBCRES -- Cancellation reason
; IBIND -- 1=>set MT bulletin flags; 0=>don't set flags
; IBCV -- 1=>use the CHAMPVA error bulletin
CANCHQ
CANC(IBCN,IBCRES,IBINC) ; Cancel a charge, after passing all edits
; Input: IBCN -- Internal entry # of IB Action to cancel
; IBCRES -- Cancellation reason
; IBINC -- Try to cancel an incomplete charge? [optional]
CANCQ
CED(IBN) ; Edits required to cancel a charge.
; Input: IBN -- Internal entry # of charge to be cancelled
CEDQ
UPSTAT(IBCN,IB) ; Update the status, cancellation reason of incomplete charges.
PASS ; Pass the action to Accounts Receivable.
ERR ; Error Processing.
PROC(EVT) ; Okay to proceed with Add, Edit, or Cancel?
PROCQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: "done."
  • Line Location: PASS+2
Function Call: WRITE
  • Prompt: !,$P($G(^IBE(350.8,+$O(^IBE(350.8,"AC",$P($P(IBY,"^",2),";"),0)),0)),"^",2)
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !,$P(IBY,"^",3)
  • Line Location: ERR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PROC+2
Function Call: WRITE
  • Prompt: !,"This charge will not be ",$S(EVT="cancel":"cancelled",1:EVT_"ed"),"."
  • Line Location: PROC+3

FileMan Files Accessed Via FileMan Db Call

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