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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
2.312 LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call