| FILE |
399 |
| NAME |
AE |
| DESCRIPTION |
Cross reference of patients and bills to payer responsible for the bill.
This will be used to prevent deletion of insurance policy entries from the
patient file if a bill has been created for this insurance company.
Created with patch IB*2.0*288 replacing traditional cross-reference #1 in
field 135 of file 399. Medicare is now a valid insurance company for
this index file.
|
| SHORT DESCRIPTION |
Index by patient and insurance company |
| TYPE |
MUMPS |
| EXECUTION |
RECORD |
| ACTIVITY |
IR |
| USE |
SORTING ONLY |
| ROOT TYPE |
INDEX FILE |
| ROOT FILE |
399 |
| SET LOGIC |
N CURR S CURR=+$$COBN^IBCEF(DA) I $G(X(4)),$G(X(CURR)) S ^DGCR(399,"AE",X(4),X(CURR),DA)="" |
| CROSS-REFERENCE VALUES |
-
- ORDER NUMBER: 1
- TYPE OF VALUE: FIELD
- FILE: 399
- FIELD: 101
- COLLATION: forwards
-
- ORDER NUMBER: 2
- TYPE OF VALUE: FIELD
- FILE: 399
- FIELD: 102
- COLLATION: forwards
-
- ORDER NUMBER: 3
- TYPE OF VALUE: FIELD
- FILE: 399
- FIELD: 103
- COLLATION: forwards
-
- ORDER NUMBER: 4
- TYPE OF VALUE: FIELD
- FILE: 399
- FIELD: .02
- COLLATION: forwards
|
| KILL LOGIC |
N G I $G(X(4)) F G=1,2,3 I $G(X(G)) K ^DGCR(399,"AE",X(4),X(G),DA) |
| KILL ENTIRE INDEX CODE |
K ^DGCR(399,"AE") |
