BPSNPI.m

BPSNPI ;BHAM ISC/DMB - NPI Utilities ;04/19/2006

 ;;1.0;E CLAIMS MGMT ENGINE;**2,5**;JUN 2004;Build 45

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 ; Reference to $$NPI^XUSNPI supported by IA4532

 ;

 ; Must call at an entry point  

 Q

 ;

 ; NPIREQ - Extrinsic funtion that will return a flag indicating

 ;          if the NPI 'drop dead date' has been passed.

 ; Input

 ;    BPSDT - Date to check (internal Fileman format)

 ; Output

 ;    1 - On or after the May 23, 2008 drop dead date

 ;    0 - Prior to the May 23, 2008 drop dead date 

NPIREQ(BPSDT) ; Check NPI drop dead date

 N BPSCHKDT

 S BPSCHKDT=3080523

 Q $S(BPSDT<BPSCHKDT:0,1:1)

 ;

 ; NPI - Get NPI number

 ; Input

 ;   TYPE - Organization_ID, Individual_ID, or Pharmacy_ID

 ;   IEN  - For Organization, IEN from Institution file (#4)

 ;        - For Individual, IEN from New Person file (#200)

 ;        - For Pharmacy, IEN from Outpatient Site file (#59)

 ; Output - NPI for valid entry

 ;        -  -1^Error Code if unable to get NPI

NPI(TYPE,IEN) ;

 N NPI

 S TYPE=$G(TYPE)

 I TYPE'="Organization_ID",TYPE'="Individual_ID",TYPE'="Pharmacy_ID" Q "-1^Invalid Type"

 I '$G(IEN) Q "-1^Invalid IEN"

 I TYPE="Pharmacy_ID" D

 . K ^TMP($J,"BPS59")

 . D PSS^PSO59(IEN,"","BPS59")

 . S IEN=$P($G(^TMP($J,"BPS59",IEN,101)),U,1),TYPE="Organization_ID"

 . K ^TMP($J,"BPS59")

 I 'IEN Q "-1^Unable to determine Institution ID"

 S NPI=$$NPI^XUSNPI(TYPE,IEN)

 I $P(NPI,U,1)<1 Q "-1^No NPI"

 I $P(NPI,U,3)'="Active" Q "-1^Inactive NPI"

 Q $P(NPI,U,1)

 ;

NPKEY(BPSNCP,BPSNPI,BPSAPI) ;

 ; Determine primay key to use in MFE 4.1 for pharm registration.

 ; Input

 ;    BPSNCP  - ncpdp number for the pharmacy in file (#9002313.56,.02)

 ;    BPSNPI - existing NPI for the pharmacy in file (#9002313.56,41.01)

 ;    BPSAPI - current NPI returned from NPI^BPSNPI 

 N BPSPKY

 S BPSPKY=""

 I $G(BPSNPI) S BPSPKY=BPSNPI

 E  I $G(BPSNCP) S BPSPKY=BPSNCP

 E  S BPSPKY=$G(BPSAPI)

 Q BPSPKY

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---BPSNPI   2007     printed  Apr 09, 2024@20:55:56                                                                                                                                                                                                      Page 2

BPSNPI    ;BHAM ISC/DMB - NPI Utilities ;04/19/2006

 +1       ;;1.0;E CLAIMS MGMT ENGINE;**2,5**;JUN 2004;Build 45

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4       ; Reference to $$NPI^XUSNPI supported by IA4532

 +5       ;

 +6       ; Must call at an entry point  

 +7        QUIT 

 +8       ;

 +9       ; NPIREQ - Extrinsic funtion that will return a flag indicating

 +10      ;          if the NPI 'drop dead date' has been passed.

 +11      ; Input

 +12      ;    BPSDT - Date to check (internal Fileman format)

 +13      ; Output

 +14      ;    1 - On or after the May 23, 2008 drop dead date

 +15      ;    0 - Prior to the May 23, 2008 drop dead date 

NPIREQ(BPSDT) ; Check NPI drop dead date

 +1        NEW BPSCHKDT

 +2        SET BPSCHKDT=3080523

 +3        QUIT $SELECT(BPSDT<BPSCHKDT:0,1:1)

 +4       ;

 +5       ; NPI - Get NPI number

 +6       ; Input

 +7       ;   TYPE - Organization_ID, Individual_ID, or Pharmacy_ID

 +8       ;   IEN  - For Organization, IEN from Institution file (#4)

 +9       ;        - For Individual, IEN from New Person file (#200)

 +10      ;        - For Pharmacy, IEN from Outpatient Site file (#59)

 +11      ; Output - NPI for valid entry

 +12      ;        -  -1^Error Code if unable to get NPI

NPI(TYPE,IEN) ;

 +1        NEW NPI

 +2        SET TYPE=$GET(TYPE)

 +3        IF TYPE'="Organization_ID"

               IF TYPE'="Individual_ID"

                   IF TYPE'="Pharmacy_ID"

                       QUIT "-1^Invalid Type"

 +4        IF '$GET(IEN)

               QUIT "-1^Invalid IEN"

 +5        IF TYPE="Pharmacy_ID"

               Begin DoDot:1

 +6                KILL ^TMP($JOB,"BPS59")

 +7                DO PSS^PSO59(IEN,"","BPS59")

 +8                SET IEN=$PIECE($GET(^TMP($JOB,"BPS59",IEN,101)),U,1)

                   SET TYPE="Organization_ID"

 +9                KILL ^TMP($JOB,"BPS59")

               End DoDot:1

 +10       IF 'IEN

               QUIT "-1^Unable to determine Institution ID"

 +11       SET NPI=$$NPI^XUSNPI(TYPE,IEN)

 +12       IF $PIECE(NPI,U,1)<1

               QUIT "-1^No NPI"

 +13       IF $PIECE(NPI,U,3)'="Active"

               QUIT "-1^Inactive NPI"

 +14       QUIT $PIECE(NPI,U,1)

 +15      ;

NPKEY(BPSNCP,BPSNPI,BPSAPI) ;

 +1       ; Determine primay key to use in MFE 4.1 for pharm registration.

 +2       ; Input

 +3       ;    BPSNCP  - ncpdp number for the pharmacy in file (#9002313.56,.02)

 +4       ;    BPSNPI - existing NPI for the pharmacy in file (#9002313.56,41.01)

 +5       ;    BPSAPI - current NPI returned from NPI^BPSNPI 

 +6        NEW BPSPKY

 +7        SET BPSPKY=""

 +8        IF $GET(BPSNPI)

               SET BPSPKY=BPSNPI

 +9       IF '$TEST

               IF $GET(BPSNCP)

                   SET BPSPKY=BPSNCP

 +10      IF '$TEST

               SET BPSPKY=$GET(BPSAPI)

 +11       QUIT BPSPKY