IBCNS1 ;ALB/AAS - INSURANCE MANAGEMENT SUPPORTED FUNCTIONS ;22-JULY-91
Source file <IBCNS1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INSURED(DFN,IBINDT) | ; -- Is patient insured
; --Input DFN = patient ; IBINDT = (optional) date insured (default = today) ; -- Output = 0 - not insured ; = 1 - insured |
|
INSQ | ||
PRE(DFN,IBINDT) | ; -- is pre-certification required for patient
|
|
PREQ | ||
UR(DFN,IBINDT) | ; -- is ur required for patient
|
|
URQ | ||
CHK(X,Z,Y) | ; -- check one entry for active
; -- Input X = Zeroth node of entry in insurance multiple (2.312) ; Z = date to check ; Y = 2 if want will not reimburse ; = 3 if want will not reimburse AND indemnity plans ; = 4 if want will not reimburse, but only if it's ; MEDICARE ; -- Output 1 = Insurance Active ; 0 = Inactive |
|
CHKQ | ||
ACTIVE(IBCIFN) | ; -- is this company active for this patient for this date
; -- called from input transform and x-refs for fields 101,102,103 ; -- input |
|
ACTIVEQ | ||
DD | ; - called from input transform and x-refs for field 101,102,103
; - input requires da=internal entry number in 399 ; - outputs IBdd(ins co.) array |
|
DDQ | ||
ALLACT | ; -- return active insurance zeroth nodes in ibdd(ins co,entry in mult)
|
|
ALLACTQ | ||
HDR | ||
D1 | ||
ALL(DFN,VAR,ACT,ADT,SOP) | ; -- find all insurance data on a patient
|
|
ALLQ | ||
ALLWNR(DFN,VAR,ADT) | ; Returns 'all active and MEDICARE WNR'
|
|
ZND(DFN,NODE,ZNDFILE) | ; -- Pull zeroth node from Patient's Insurance Type
; subfile. This function returns the zeroth node of the Insurance Type ; subfile of the Patient file, i.e. ^DPT(DFN,.312,NODE,0). Both DFN ; and NODE must be passed in. Pieces 3 (Group Number) and 15 (Group ; Name) will be pulled from file# 355.3, Group Insurance Plan, based ; on the Group Plan field on the zeroth node (piece 18). If the ; ZNDFILE/399 flag is not set to '399', then the Subscriber ID and Name ; of Insured will be overwritten with the values in the new HIPAA- ; compliant fields, which are on the seven node. |
|
ZNDQ | ||
INDEM(X) | ; -- is this an indemnity plan
; -- input zeroth node if insurance type field |
|
INDEMQ | ||
INSTYP(DFN,DATE) | ; -- return type of insurance policy for patient
|
|
INSTYPQ | ||
COB(POL) | ; -- find policy with high coordination of benefits
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
2.312 | GET1^DIQ |
^IBA(355.3 - [#355.3] | GET1^DIQ |