GENERAL DESCRIPTION |
IVM is given permission from IB to use the following
code (routine IVMUFNC):
N DGCRINDT,DGCRINS,IBINDT,IBINS,X
S X="IBCNS" X ^%ZOSF("TEST") I $T S:$G(IVMDT) IBINDT=IVMDT D ^IBCNS G
IN SQ ; for IB 2.0 and higher
S X="DGCRNS" X ^%ZOSF("TEST") I $T S:$G(IVMDT) DGCRINDT=IVMDT D
^DGCRNS ; remove when IB 2.0 is required INSQ Q
$S($D(IBINS):IBINS,$D(DGCRINS):DGCRINS,1:"")
IVM needs this code to determine whether the patient has insurance. If he
does not, he is automatically sent to IVM for verification.
|