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

Package: Integrated Billing

Routine: IB20PT1


Information

IB20PT1 ;ALB/AAS/NLR - Insurance post init stuff ; 2/22/93

Source Information

Source file <IB20PT1.m>

Entry Points

Name Comments DBIA/ICR reference
DEL ; -- delete insurance address field from insurance type multiple
DELQ
INS ; -- delete address subfile
; first delete the data
INSQ
PAT ; -- create AB x-ref on patient file for all insurance co. pointers
399 ; -- create new AE x-ref of file 399
INPT ; -- load current inpatients into claims tracking
MAIL ; -- add new mail group
SITE ; -- setup ib site parameters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"<<< Deleting Obsolete field *INSURANCE ADDRESS from Patient File Data Dictionary"
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"<<< Deleting Obsolete *ADDRESS data from Insurance Company Entries"
  • Line Location: INS+4
Function Call: WRITE
  • Prompt: !!," I'll write a dot for each 100 entries"
  • Line Location: INS+5
Function Call: WRITE
  • Prompt: !!,"<<< Deleting Obsolete subfile *ADDRESS from Insurance Company File Data Dictionary"
  • Line Location: INS+17
Function Call: WRITE
  • Prompt: !!,"<<< Cross-referencing patient file by Insurance company and",!," Updating Health Insurance Policy Pointers"
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !!," I'll write a dot for each 100 entries"
  • Line Location: PAT+2
Function Call: WRITE
  • Prompt: !," Start time: "
  • Line Location: PAT+3
Function Call: WRITE
  • Prompt: !!,"<<< Health Insurance Policy information updated"
  • Line Location: PAT+19
Function Call: WRITE
  • Prompt: !," there were ",IBCNTPP," Policies for ",IBCNT," Patients were updated"
  • Line Location: PAT+20
Function Call: WRITE
  • Prompt: !," causing ",IBCNTP," Health Insurance Policies to be added"
  • Line Location: PAT+21
Function Call: WRITE
  • Prompt: !," Finish Time: "
  • Line Location: PAT+22
Function Call: WRITE
  • Prompt: !!,"<<< Cross-referencing Bill/Claims file by Primary Insurer"
  • Line Location: 399+2
Function Call: WRITE
  • Prompt: !!," I'll write a dot for each 100 entries"
  • Line Location: 399+3
Function Call: WRITE
  • Prompt: !!,"<<< Loading current inpatients into Claims Tracking"
  • Line Location: INPT+1
Function Call: WRITE
  • Prompt: !," Patient ",$P(^DPT(DFN,0),U)," added to the Claims tracking module"
  • Line Location: INPT+10
Function Call: WRITE
  • Prompt: !!,"<<< ",IBCNT," Patients added to the Claims Tracking Module"
  • Line Location: INPT+12
Function Call: WRITE
  • Prompt: !!,"<<< Mail Group 'IB NEW INSURANCE' ",$S($P(Y,"^",3):"added...",1:"updated...")
  • Line Location: MAIL+5
Function Call: WRITE
  • Prompt: !!," Remember to add Members to this group"
  • Line Location: MAIL+6
Function Call: WRITE
  • Prompt: !!,"<<< Updating new site parameters automatically!"
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SITE+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^XMB(3.8 - [#3.8] Classic Fileman Calls
^IBE(350.9 - [#350.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call