IBCEPU ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
;;2.0;INTEGRATED BILLING;**320,348**;21-MAR-94;Build 5
G AWAY
AWAY Q
; This routine is used by various input transforms to make sure the qualifiers
; comply with the spreadsheet of valid qualiers provided by CBO.
;
LFINS(Y) ; Lab or Facility provided by insuance
Q $$CHECK("^1A^1B^1C^1H^G2^LU^N5^X5^",Y)
;
NVALFOWN(Y) ; Non-VA Lab or Facility provided by Lab or Facility
Q $$CHECK("^0B^TJ^EI^X4^X5^1G^",Y)
;
BPS(Y) ; Billing Provider Secodnary IDs
Q $$CHECK("^0B^1A^1B^1C^1G^1H^B3^BQ^EI^FH^G2^LU^U3^X5^",Y)
;
RAOWN(Y) ; Rendering/Attending et al own IDs
Q $$CHECK("^0B^1G^EI^X5^SY^",Y)
;
RAINS(Y) ; Rendering/Attending et al provided by insurance
Q $$CHECK("^1A^1B^1C^1G^1H^G2^LU^N5^",Y)
;
EPT(Y) ; Electronic Plan Type (used to calculate ID based on plan type)
Q $$CHECK("^1J^",Y)
CHECK(X,Y) ;
I '$P($G(^IBE(355.97,+Y,0)),U,8) Q 0
N X12
S X12=$P($G(^IBE(355.97,+Y,0)),U,3)
Q:X12="" 0
S X12=U_X12_U
I X[X12 Q 1
Q 0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCEPU 1039 printed Dec 13, 2024@02:12:08 Page 2
IBCEPU ;ALB/TMP - Functions for PROVIDER ID MAINTENANCE ;13-DEC-99
+1 ;;2.0;INTEGRATED BILLING;**320,348**;21-MAR-94;Build 5
+2 GOTO AWAY
AWAY QUIT
+1 ; This routine is used by various input transforms to make sure the qualifiers
+2 ; comply with the spreadsheet of valid qualiers provided by CBO.
+3 ;
LFINS(Y) ; Lab or Facility provided by insuance
+1 QUIT $$CHECK("^1A^1B^1C^1H^G2^LU^N5^X5^",Y)
+2 ;
NVALFOWN(Y) ; Non-VA Lab or Facility provided by Lab or Facility
+1 QUIT $$CHECK("^0B^TJ^EI^X4^X5^1G^",Y)
+2 ;
BPS(Y) ; Billing Provider Secodnary IDs
+1 QUIT $$CHECK("^0B^1A^1B^1C^1G^1H^B3^BQ^EI^FH^G2^LU^U3^X5^",Y)
+2 ;
RAOWN(Y) ; Rendering/Attending et al own IDs
+1 QUIT $$CHECK("^0B^1G^EI^X5^SY^",Y)
+2 ;
RAINS(Y) ; Rendering/Attending et al provided by insurance
+1 QUIT $$CHECK("^1A^1B^1C^1G^1H^G2^LU^N5^",Y)
+2 ;
EPT(Y) ; Electronic Plan Type (used to calculate ID based on plan type)
+1 QUIT $$CHECK("^1J^",Y)
CHECK(X,Y) ;
+1 IF '$PIECE($GET(^IBE(355.97,+Y,0)),U,8)
QUIT 0
+2 NEW X12
+3 SET X12=$PIECE($GET(^IBE(355.97,+Y,0)),U,3)
+4 if X12=""
QUIT 0
+5 SET X12=U_X12_U
+6 IF X[X12
QUIT 1
+7 QUIT 0
