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

Package: Integrated Billing

Routine: IBCNS2


Information

IBCNS2 ;ALB/AAS - INSURANCE POLICY CALLS FROM FILE 399 DD ;22-JULY-91

Source Information

Source file <IBCNS2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Integrated Billing 4 $$COBN^IBCEF  (D1,HDR)^IBCNS  $$ZND^IBCNS1  $$MCRWNR^IBEFUNC  
Kernel 2 HOME^%ZIS  ($$LOW,$$UP)^XLFSTR  
VA FileMan 2 (,LIST)^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Integrated Billing 13 IBCBB  IBCNSP2  IBTRC2  IBXS3  IBXS32  IBXS33  IBXS36  IBXSC31  
IBXSC33  IBXX1  IBXX19  IBXX20  ^DGCR(399  

Entry Points

Name Comments DBIA/ICR reference
DD(IBX,IBDA,LEVEL) ; - called from input transform for field 111,112,113
; -- input ibx = x from input transform
; ibda = internal entry in 399
; level = 1=primary, 2=secondary, 3=tertiary
; -- output returns x=internal entry in 2.3121 (ins. Mult.) if valid
;
DDQ
VAR
SEL(IBX,DFN,INSDT,ACTIVE) ; -- Select insurance policy
; -- Input IBX = x from input transform
; DFN = patient
; INSDT = (optional) Active date of ins. (default = dt)
; ACTIVE = (optional) 1 if want active (default)
; = 2 if want all ins returned
SELQ
DSPTHM ; display the insurance companies and useful information
BLD
CHK(IBCDFN,ACTIVE,INSDT) ; -- see if active
CQ
CHKQ
DDHELP(IBDA,LEVEL) ; -- Executable help
; -- write out list to choose from
DDHQ
TRANS(IBDA,Y) ; -- output transform
INSCO(IBDA,IBCDFN) ; -- return pointer value of 36 from pt. file
IX(DA,XREF) ; -- create i1, aic xrefs for fields 112, 113, 114
KIX(DA,XREF) ; -- kill logic for above xref
BPP(IBDA,IBMCR) ; Find Bill Payer Policy based on Payer Sequence and the P/S/T payers assigned to the bill,Ins Co must reimburse
; IBMCR = flag that says include MEDICARE WNR
; returns - Bill Payer Policy (ifn of policy entry in patient file)
; - null if either no Payer Sequence or there is no policy defined for the payer sequence
; or the policy defined by the payer sequence Will Not Reimburse and is not MEDICARE

External References

Name Field # of Occurrence
HOME^%ZIS DDHELP+7
^DIC SEL+42
LIST^DIC SEL+25
^DIR SEL+31
$$COBN^IBCEF BPP+8
D1^IBCNS DDHELP+15
HDR^IBCNS DDHELP+10
$$ZND^IBCNS1 DDHELP+14, IX+5
$$MCRWNR^IBEFUNC BPP+11
$$LOW^XLFSTR DSPTHM+5
$$UP^XLFSTR SEL+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+34
Function Call: WRITE
  • Prompt: !,?4,"Insurance",?18,"COB",?23,"Subscriber ID",?37,"Group #",?49,"Eff Date",?62,"Exp Date"
  • Line Location: DSPTHM+1
Function Call: WRITE
  • Prompt: !,I,?4,$E($G(TARGET("DILIST","ID",I,.01)),1,12)
  • Line Location: DSPTHM+4
Function Call: WRITE
  • Prompt: ?18,"(",$$LOW^XLFSTR($E($G(TARGET("DILIST","ID",I,.2)),1)),")"
  • Line Location: DSPTHM+5
Function Call: WRITE
  • Prompt: ?23,$E($G(TARGET("DILIST","ID",I,7.02)),1,12)
  • Line Location: DSPTHM+8
Function Call: WRITE
  • Prompt: ?37,$E($G(TARGET("DILIST","ID",I,21)),1,10)
  • Line Location: DSPTHM+9
Function Call: WRITE
  • Prompt: ?49,$G(TARGET("DILIST","ID",I,8))
  • Line Location: DSPTHM+10
Function Call: WRITE
  • Prompt: ?62,$G(TARGET("DILIST","ID",I,3))
  • Line Location: DSPTHM+11
Function Call: WRITE
  • Prompt: !,"No Insurance Policies to Select From"
  • Line Location: DDHELP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DDHELP+10
Routine Call
  • %ZIS
  • Line Location:
    • DDHELP+7
Routine Call
  • DIC
  • Line Location:
    • SEL+42
Routine Call
  • DIC
  • Line Location:
    • SEL+25
Routine Call
  • DIR
  • Line Location:
    • SEL+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 LIST^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] VAR, IX+4, IX+5*, IX+6*, IX+7*, KIX+1!, KIX+2!, KIX+3!, BPP+9
^DIC(36 - [#36] CHK+5, TRANS+3, INSCO+4, BPP+10
^DPT - [#2] BLD+1, CHK+2, TRANS+3, INSCO+3, IX+6, IX+7, KIX+3
^IBA(355.3 - [#355.3] CHK+8

Label References

Name Line Occurrences
$$SEL DD+8
BLD SEL+14, DDHELP+3
CHK BLD+1
CHKQ CHK+4, CHK+11
CQ CHK+5, CHK+6, CHK+7, CHK+8, CHK+9
DDHQ DDHELP+5
DSPTHM SEL+29
SELQ SEL+13
VAR DD+7, DDHELP+3, TRANS+2, INSCO+2

Naked Globals

Name Field # of Occurrence
^("U" VAR

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTIVE DD+6~, DD+8, VAR*, SEL~, SEL+11*, BLD+1, CHK~, CHK+4, DDHELP+2~, TRANS+1~
, INSCO+1~
DA SEL+9~, IX~, IX+4, IX+5, IX+6, IX+7, KIX~, KIX+1, KIX+2, KIX+3
DE SEL+9~
DFN DD+6~, DD+8, VAR*, SEL~, SEL+13, SEL+25, SEL+39, BLD+1, CHK+2, DDHELP+2~
, DDHELP+14, TRANS+1~, TRANS+3, INSCO+1~, INSCO+3, IX+3~, IX+4*, IX+5, IX+6, IX+7
DIC SEL+9~, SEL+39*
DIC("S" SEL+40*
DIC("W" SEL+41*
DIC(0 SEL+39*
DIE SEL+9~
DIR SEL+9~
DIR(0 SEL+30*
>> DIRUT SEL+32
DIV SEL+9~
DQ SEL+9~
DR SEL+9~
DT VAR, SEL+12
ERROR SEL+22~, SEL+26
G SEL+22~
I SEL+9~, SEL+22~, DSPTHM+2~, DSPTHM+3*, DSPTHM+4, DSPTHM+5, DSPTHM+8, DSPTHM+9, DSPTHM+10, DSPTHM+11
, DDHELP+2~, DDHELP+11*, DDHELP+14
IBC BPP+6~*, BPP+10*, BPP+11
IBCDFN BLD+1*, CHK~, CHK+2, CHK+3, CQ, CHKQ, INSCO~, INSCO+3
IBD SEL+9~, BLD!
IBD( CHKQ*, DDHELP+11, DDHELP+14
IBDA DD~, VAR, DDHELP~, TRANS~, INSCO~, BPP~, BPP+8, BPP+9
IBDD SEL+9~, BLD!, BLD+1*, CHKQ*, DDHELP+5
IBDD( CHK+3*, CQ!, CHKQ
IBDTIN DDHELP+8~, DDHELP+9*
IBI BPP+6~, BPP+10*, BPP+11
IBINS DDHELP+2~, DDHELP+14*
IBM0 BPP+6~, BPP+9*, BPP+10
IBMCR BPP~, BPP+7*, BPP+11
IBOUT SEL+19~, SEL+21, SEL+26*, SEL+27*, SEL+32*
IBP BPP+6~*, BPP+9*, BPP+10, BPP+11
IBSEL SEL+9~, SEL+10*
IBSEL2 SEL+19~, SEL+21
IBX DD~, DD+8, SEL~, SEL+20*, SEL+21*, SEL+25, SEL+33*, SEL+38, BPP+6~*, BPP+11*
, BPP+12
IBY BPP+6~, BPP+8*, BPP+9, BPP+10*, BPP+11
INSDT DD+6~, DD+8, VAR*, SEL~, SEL+12*, BLD+1, CHK~, CHK+6, CHK+7, DDHELP+2~
, DDHELP+9, TRANS+1~, INSCO+1~
IOM DDHELP+7
J SEL+9~
LEVEL DD~, DDHELP~
TARGET SEL+22~, SEL+27
TARGET("DILIST" SEL+28, SEL+30, SEL+33, DSPTHM+3, DSPTHM+4, DSPTHM+5, DSPTHM+8, DSPTHM+9, DSPTHM+10, DSPTHM+11
U TRANS+3, BPP+9, BPP+10
X DD+8*, DD+9!, SEL+22~, SEL+38*, CHK+1~, CHK+2*, CHK+3, CHK+5, CHK+6, CHK+7
, CHK+8, IX+5, IX+6, IX+7, KIX+3
X1 CHK+1~, CHK+5*, CHK+9
XREF IX~, IX+5, IX+6, KIX~, KIX+1, KIX+2
Y SEL+9~, SEL+10*, SEL+22~, SEL+33, SELQ, TRANS~, TRANS+3*, TRANS+4, INSCO+3*, INSCO+4
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