Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  DT^DIQ  EN^DIU2  
Integrated Billing 3 ^IB20PT6  $$CHIP^IBCNSU  INP^IBTRKR  
Registration 1 INP^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB20PT  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PAT+3, PAT+22
^DIC MAIL+2
FILE^DICN SITE+5
^DIE PAT+17, SITE+5, SITE+9
^DIK DEL+3, INS+9
DT^DIQ PAT+3, PAT+22
EN^DIU2 INS+16
^IB20PT6 %+8
$$CHIP^IBCNSU PAT+12
INP^IBTRKR INPT+9
INP^VADPT INPT+8

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
Routine Call
  • DIE
  • Line Location:
    • PAT+17
    • SITE+5
    • SITE+9
Routine Call
  • DIC
  • Line Location:
    • MAIL+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(2.312 DEL+2
^DD(36.02 INS+3
^DGCR(399 - [#399] 399+5, 399+6*
^DGPM - [#405] INPT+6
^DGPM("CN" INPT+4
^DIC(36 - [#36] INS+7!
^DPT - [#2] PAT+6, PAT+8, PAT+10*, INPT+10
^DPT("AB" PAT+9*
^IBA(355.3 - [#355.3] %
^IBE(350.9 - [#350.9] SITE+5
^XMB(3.8 - [#3.8] MAIL+3*, MAIL+4*

Label References

Name Line Occurrences
DEL %+3
INS %+5
MAIL %+1
SITE %+2

Naked Globals

Name Field # of Occurrence
^("M" 399+6
^(0 399+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT+3, PAT+22
DA DEL+1~, DEL+3*, DELQ!, INS+2~, INS+8*, INS+10!, PAT+4~, PAT+15*, PAT+17!, SITE+1~
, SITE+5*!, SITE+7*, SITE+9!
DA(1 DEL+3*, INS+8*, PAT+15*
DD SITE+1~, SITE+5!, SITE+9!
DFN PAT+4~, PAT+5*, PAT+6*, PAT+8, PAT+9, PAT+10, PAT+15, INPT+7*, INPT+10
>> DGPDMA INPT+3*
>> DGPMA INPT+6*, INPT+7
DGPMDA INPT+2~, INPT+4*, INPT+6
>> DGPMP INPT+5*
DIC DEL+1~, INS+2~, INS+10!, PAT+4~, PAT+17!, MAIL+2*!, SITE+1~, SITE+5*!, SITE+9!
DIC("DR" MAIL+2*
DIC(0 MAIL+2*, SITE+5*
DIE INS+2~, PAT+4~, PAT+15*, PAT+17!, SITE+1~, SITE+5*!, SITE+7*, SITE+9!
DIK DEL+1~, DEL+3*, DELQ!, INS+2~, INS+8*, INS+10!
>> DINUM SITE+5*
DIU DEL+1~, DELQ!, INS+2~, INS+16*, INSQ!
DIU(0 INS+16*
>> DLAYGO MAIL+2*
DO SITE+1~, SITE+5!, SITE+9!
DR INS+2~, PAT+4~, PAT+16*, PAT+17!, SITE+1~*, SITE+5*!, SITE+8*, SITE+9!
DUZ MAIL+2
IB20 INPT+2~, INPT+3*
IBCDFND PAT+4~, PAT+8*, PAT+9, PAT+10, PAT+11, PAT+12
IBCIFN 399+1~, 399+4*, 399+5*, 399+6
>> IBCNMAIL MAIL+2*, SITE+8
IBCNT INS+11*, INS+12, PAT+4~, PAT+5*, PAT+6*, PAT+20, 399+1~, 399+4*, 399+7*, INPT+2~
, INPT+3*, INPT+10*, INPT+12
IBCNTP PAT+4~, PAT+5*, PAT+21
IBCNTPP PAT+4~, PAT+5*, PAT+7, PAT+14*, PAT+20
IBCPOL PAT+4~, PAT+12*, PAT+13, PAT+16
>> IBD0 INS+6*, INS+7*, INS+8
>> IBD1 INS+7*, INS+8
IBI PAT+4~, PAT+6*, PAT+8, PAT+9, PAT+10, PAT+15
IBNEW INPT+9!, INPT+10
U PAT+11, INPT+10
WARD INPT+2~, INPT+3*, INPT+4*
>> X MAIL+2*, SITE+5*
>> Y PAT+3*, PAT+22*, MAIL+2, MAIL+3, MAIL+4, MAIL+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All