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 ---[H[J[2J[HXU8P452 498 printed Dec 13, 2024@02:07:43 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
