- 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 Mar 13, 2025@21:12: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
