IBCEF76 ;ALB/WCJ - Provider ID functions ;13 Feb 2006
Source file <IBCEF76.m>
| 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 | ;
|
