IBCEPU.m

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 ---IBCEPU   1039     printed  Apr 09, 2024@21:33:03                                                                                                                                                                                                      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