Print Page as PDF
DBIA4240 ICR (4240)

DBIA4240    ICR (4240)

Name Value
NUMBER 4240
IA # 4240
FILE NUMBER 9000010
GLOBAL ROOT AUPNVSIT(
DATE CREATED 2003/09/16
CUSTODIAL PACKAGE PCE PATIENT CARE ENCOUNTER
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DBIA4240
GENERAL DESCRIPTION
The IIV (Insurance Identification and Verification)
enhancement patch IB*2.0*184, performs a direct file reference to the "B" and
"AA" cross- references as it loops through visit records as part of the IIV
data extracts.  This applies only to extract #3 (Past encounters, non-verified
ins.) and #4 (Past encounters, No Insurance).  These           extracts reside
in routines IBCNEDE3 and IBCNEDE4 respectively.

In addition, the extract routines also performs a direct global read of
the "0" node ^AUPNVSIT(IEN,0) to retrieve the patient's DFN (5th piece)
value from the visits as they are looped-through.
GLOBAL REFERENCE
GLOBAL REFERENCE FIELD NUMBER GLOBAL DESCRIPTION
(9000010,.01)
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
.01 Read w/Fileman
The "B" cross-reference is used to loop through visits
within a date range.  Usage by IBCNEDE3 and IBCNEDE4 are shown below:
From:  IBCNEDE3
S AUPNDT=$O(^AUPNVSIT("B",IBD)
and
S IEN=$O(^AUPNVSIT("B",IBD,IEN))

From:  IBCNEDE4
S AUPNDT=$O(^AUPNVSIT("B",IBD)
and
S IEN=$O(^AUPNVSIT("B",IBD,IEN))
VISIT ADMIT/DATE&TIME 0;1
9000010,.05
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
.05 Read w/Fileman
The "AA" cross-reference is used to loop through visits
for a particular patient DFN.  Usage by IBCNEDE3 and IBCNEDE4 are shown below:
From:  IBCNEDE3
S IBD=$O(^AUPNVSIT("AA",DFN,IBD)

From:  IBCNEDE4
S IBD=$O(^AUPNVSIT("AA",DFN,IBD)
PATIENT NAME 0;5
The value for PATIENT NAME (DFN, pointer to the PATIENT
FILE) is then read from the file as follows:
From:  IBCNEDE3
S DFN=$P($G(^AUPNVSIT(IEN,0)),U,5)

From:  IBCNEDE4
S DFN=$P($G(^AUPNVSIT(IEN,0)),U,5)
9000010,.01
FIELD NUMBER ACCESS FIELD DESCRIPTION FIELD NAME LOCATION
1 Read w/Fileman
The "B" cross-reference is used to loop through visits
within a date range.
Usage by IBCNEDE3 and IBCNEDE4 are shown below:
From:  IBCNEDE3
S AUPNDT=$O(^AUPNVSIT("B",IBD)
and
S IEN=$O(^AUPNVSIT("B",IBD,IEN))

From:  IBCNEDE4
S AUPNDT=$O(^AUPNVSIT("B",IBD)
and
S IEN=$O(^AUPNVSIT("B",IBD,IEN))
VISIT ADMIT/DATE&TIME 0;1
STATUS Active
ID AUPNVSIT(
SUBSCRIBING PACKAGE INTEGRATED BILLING
MAIL MESSAGE 37018009