|
Last change
on this file since 808 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
1007 bytes
|
| Line | |
|---|
| 1 | IBCEPU ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**320,348**;21-MAR-94;Build 5
|
|---|
| 3 | G AWAY
|
|---|
| 4 | AWAY Q
|
|---|
| 5 | ; This routine is used by various input transforms to make sure the qualifiers
|
|---|
| 6 | ; comply with the spreadsheet of valid qualiers provided by CBO.
|
|---|
| 7 | ;
|
|---|
| 8 | LFINS(Y) ; Lab or Facility provided by insuance
|
|---|
| 9 | Q $$CHECK("^1A^1B^1C^1H^G2^LU^N5^X5^",Y)
|
|---|
| 10 | ;
|
|---|
| 11 | NVALFOWN(Y) ; Non-VA Lab or Facility provided by Lab or Facility
|
|---|
| 12 | Q $$CHECK("^0B^TJ^EI^X4^X5^1G^",Y)
|
|---|
| 13 | ;
|
|---|
| 14 | BPS(Y) ; Billing Provider Secodnary IDs
|
|---|
| 15 | Q $$CHECK("^0B^1A^1B^1C^1G^1H^B3^BQ^EI^FH^G2^LU^U3^X5^",Y)
|
|---|
| 16 | ;
|
|---|
| 17 | RAOWN(Y) ; Rendering/Attending et al own IDs
|
|---|
| 18 | Q $$CHECK("^0B^1G^EI^X5^SY^",Y)
|
|---|
| 19 | ;
|
|---|
| 20 | RAINS(Y) ; Rendering/Attending et al provided by insurance
|
|---|
| 21 | Q $$CHECK("^1A^1B^1C^1G^1H^G2^LU^N5^",Y)
|
|---|
| 22 | ;
|
|---|
| 23 | EPT(Y) ; Electronic Plan Type (used to calculate ID based on plan type)
|
|---|
| 24 | Q $$CHECK("^1J^",Y)
|
|---|
| 25 | CHECK(X,Y) ;
|
|---|
| 26 | I '$P($G(^IBE(355.97,+Y,0)),U,8) Q 0
|
|---|
| 27 | N X12
|
|---|
| 28 | S X12=$P($G(^IBE(355.97,+Y,0)),U,3)
|
|---|
| 29 | Q:X12="" 0
|
|---|
| 30 | S X12=U_X12_U
|
|---|
| 31 | I X[X12 Q 1
|
|---|
| 32 | Q 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
