Last change
on this file since 1757 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.