source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEPU.m@ 1757

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 
1IBCEPU ;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
4AWAY 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 ;
8LFINS(Y) ; Lab or Facility provided by insuance
9 Q $$CHECK("^1A^1B^1C^1H^G2^LU^N5^X5^",Y)
10 ;
11NVALFOWN(Y) ; Non-VA Lab or Facility provided by Lab or Facility
12 Q $$CHECK("^0B^TJ^EI^X4^X5^1G^",Y)
13 ;
14BPS(Y) ; Billing Provider Secodnary IDs
15 Q $$CHECK("^0B^1A^1B^1C^1G^1H^B3^BQ^EI^FH^G2^LU^U3^X5^",Y)
16 ;
17RAOWN(Y) ; Rendering/Attending et al own IDs
18 Q $$CHECK("^0B^1G^EI^X5^SY^",Y)
19 ;
20RAINS(Y) ; Rendering/Attending et al provided by insurance
21 Q $$CHECK("^1A^1B^1C^1G^1H^G2^LU^N5^",Y)
22 ;
23EPT(Y) ; Electronic Plan Type (used to calculate ID based on plan type)
24 Q $$CHECK("^1J^",Y)
25CHECK(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.