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
Print Page as PDF
Routine: IBCEF76

Package: Integrated Billing

Routine: IBCEF76


Information

IBCEF76 ;ALB/WCJ - Provider ID functions ;13 Feb 2006

Source Information

Source file <IBCEF76.m>

Entry Points

Name Comments DBIA/ICR reference
AWAY
LFIDS(IBIFN,IDS,IBSTRIP,SEG) ;
; Pass in the the internal claim number and return the array of IDS.
; IDS("C"urrent or "O"ther, Order of Insurance within subscript 1, order of ID within subscript 2)
; IDS("C",1)="P"
; IDS("C",1,0)=Qualifier^Primary ID
; IDS("C",1,1)=Qualifier^Sec ID #1
; IDS("C",1,2)=Qualifier^Sec ID #2
VALF(IBIFN,INS,FT,DIV,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) ; Get VA Lab/Fac Secondary IDs
; Pass in INS - IEN to file 36
; FT - 1 = UB 2 = 1500, 7 = J430D
; DIV - PTR to 40.8
NONVALF(IBIFN,PRV,INS,FT,PT,IDS,SORT1,SORT2,COB,IBLIMIT,IBSTRIP,SEG) ; Get Non VA Lab/Fac Secondary IDs
; Pass in PRV - VPTR - PTR to 355.93 (in format of variabel pointer IEN;IBA(355.93,
; Pass in INS - PTR to 36 of null (not provide by insurance company)
; FT - 1 = UB 2 = 1500 7 = J430D
; PT - Patient Type - 1 inpatient 2 outpatient
; IDS array being returned
; SORT1 - "C"urrent or "O"ther
; SORT2 - 1 if current or (1 or 2 if other)
STRIP(X,SPACE,EXC,IBSTRIP) ;
; Strip punctuation from data in X
; SPACE = flag if 1 strip SPACES
; EXC = list of punct not to strip
;
OTH(IBIFN,IBXSAVE,IBXDATA,COND,SEG) ; Procedure used in piece 2 of some output
; formatter segments for other insurance
; COND = 0/1 value passed in that determines whether or not to call the
; provider ID function
; SEG = name of segment for use in calling ID^IBCEF2 (4 characters)
OTHX ;
Info |  Source |  Entry Points