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

Package: Integrated Billing

Routine: IBPU2


Information

IBPU2 ;ALB/BGA - IB PURGE FILE CLEAN UP ; 17-FEB-94

Source Information

Source file <IBPU2.m>

Entry Points

Name Comments DBIA/ICR reference
CTARNB ; add a RNB (356,.19) for every episode found on the bill, if none exists (non-cancelled bills)
CLBCOM ; uses "D" xref to find all recs to be deleted
CLPSTE ; uses "AIFN_IBN" to find all recs pointing to the rec to be deleted
CLCTBI ; uses "C" xref to find all recs pointing to 399 then deletes
CLCTRK ; uses "E" xref to find all recs ptr to 399 then sets them to null
IBPBIL ; uses "AC" xref to find all recs ptr to 399 then sets to the bill #
IBCYTO ; uses "C" xref to find all recs ptr to 399 then sets the recs to null
PTCH48 ; CODE FOR PATCH IB*2*48 TO ADD NEW REASON NOT BILLABLE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** REASON NOT BILLABLE of 'BILL PURGED' already exists in FILE #356.8, new entry NOT added.",!!
  • Line Location: PTCH48+2
Function Call: WRITE
  • Prompt: !!,">>> Adding new REASON NOT BILLABLE of 'BILL PURGED' to FILE #356.8"
  • Line Location: PTCH48+3
Function Call: WRITE
  • Prompt: !!,"**** Unable to add new entry to FILE #356.8, contact Field Support ****",!!
  • Line Location: PTCH48+6
Function Call: WRITE
  • Prompt: !,"Done.",!!
  • Line Location: PTCH48+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBT(356 - [#356] Classic Fileman Calls
^IBT(356.399 - [#356.399] Classic Fileman Calls
^IBE(356.8 - [#356.8] Classic Fileman Calls
^IBA(362.1 - [#362.1] Classic Fileman Calls
^DGCR(399 - [#399] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call