XU8P452.m

XU8P452 ;OAK_BP/CMW - NPI EXTRACT REPORT ;21-feb-07

 ;;8.0;KERNEL;**452**; Jul 10, 1995;Build 5

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ; NPI Extract Report

 ; 

 Q

PRE ; run pre-routine

 ; Remove ^XTMP for full rerun

 K ^XTMP("XUSNPIX1")

 K ^XTMP("XUSNPIX2")

 K ^XTMP("XUSNPIX1NV")

 K ^XTMP("XUSNPIX2NV")

 ;

 Q

POST ; run post-routine

 ; To add the codes to person class

 DO POST^XUMF416

 ; To reload the NPI and taxonomy

 DO EN^XUMF416

 ;

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XU8P452   498     printed  Apr 09, 2024@21:07:37                                                                                                                                                                                                      Page 2

XU8P452   ;OAK_BP/CMW - NPI EXTRACT REPORT ;21-feb-07

 +1       ;;8.0;KERNEL;**452**; Jul 10, 1995;Build 5

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; NPI Extract Report

 +5       ; 

 +6        QUIT 

PRE       ; run pre-routine

 +1       ; Remove ^XTMP for full rerun

 +2        KILL ^XTMP("XUSNPIX1")

 +3        KILL ^XTMP("XUSNPIX2")

 +4        KILL ^XTMP("XUSNPIX1NV")

 +5        KILL ^XTMP("XUSNPIX2NV")

 +6       ;

 +7        QUIT 

POST      ; run post-routine

 +1       ; To add the codes to person class

 +2        DO POST^XUMF416

 +3       ; To reload the NPI and taxonomy

 +4        DO EN^XUMF416

 +5       ;

 +6        QUIT