BTPWC.m

BTPWC ;GDIT/HCSD/ALA-CREATED BY ^ATXSTX ON APR 10, 2018;

 ;;1.2;CARE MANAGEMENT EVENT TRACKING;**1**;JUL 07,2017;Build 5

 ;

 ; See referenced routines to see taxonomies being loaded.

 ;

START ;

 D ^BTPWCA ;    BTPW SIGMOID CPTS

 D ^BTPWCB ;    BTPW LEEP CPTS

 D ^BTPWCC ;    BTPW LASER CONE CPTS

 D ^BTPWCD ;    BTPW HPV DNA SCREEN CPTS

 D ^BTPWCE ;    BTPW ENDOMETRIAL BX CPTS

 D ^BTPWCF ;    BTPW CONE BX CPTS

 D ^BTPWCG ;    BTPW COLP WITH BX CPTS

 D ^BTPWCH ;    BTPW PELVIC EXAM CPTS

 D ^BTPWCI ;    BTPW PERIANAL BX CPTS

 D ^BTPWCJ ;    BTPW BRST MRI CPTS

 D ^BTPWCK ;    BTPW BRST RECON W/O IMP CPTS

 D ^BTPWCL ;    BTPW AX NODE DISECT CPTS

 D ^BTPWCM ;    BTPW MASTECTOMY UNS CPTS

 D ^BTPWCN ;    BTPW STEREO BX CPTS

 D ^BTPWCO ;    BTPW DXA CENTRAL CPTS

 D ^BTPWCP ;    BTPW NEEDLE BX GUIDED CPTS

 D ^BTPWCQ ;    BTPW NEEDLE BX CPTS

 D ^BTPWCR ;    BTPW CHLAMYDIA CPTS

 D ^BTPWCS ;    BTPW BI MASTECTOMY CPTS

 Q

BTPWC     ;GDIT/HCSD/ALA-CREATED BY ^ATXSTX ON APR 10, 2018;

 +1       ;;1.2;CARE MANAGEMENT EVENT TRACKING;**1**;JUL 07,2017;Build 5

 +2       ;

 +3       ; See referenced routines to see taxonomies being loaded.

 +4       ;

START     ;

 +1       ;    BTPW SIGMOID CPTS

           DO ^BTPWCA

 +2       ;    BTPW LEEP CPTS

           DO ^BTPWCB

 +3       ;    BTPW LASER CONE CPTS

           DO ^BTPWCC

 +4       ;    BTPW HPV DNA SCREEN CPTS

           DO ^BTPWCD

 +5       ;    BTPW ENDOMETRIAL BX CPTS

           DO ^BTPWCE

 +6       ;    BTPW CONE BX CPTS

           DO ^BTPWCF

 +7       ;    BTPW COLP WITH BX CPTS

           DO ^BTPWCG

 +8       ;    BTPW PELVIC EXAM CPTS

           DO ^BTPWCH

 +9       ;    BTPW PERIANAL BX CPTS

           DO ^BTPWCI

 +10      ;    BTPW BRST MRI CPTS

           DO ^BTPWCJ

 +11      ;    BTPW BRST RECON W/O IMP CPTS

           DO ^BTPWCK

 +12      ;    BTPW AX NODE DISECT CPTS

           DO ^BTPWCL

 +13      ;    BTPW MASTECTOMY UNS CPTS

           DO ^BTPWCM

 +14      ;    BTPW STEREO BX CPTS

           DO ^BTPWCN

 +15      ;    BTPW DXA CENTRAL CPTS

           DO ^BTPWCO

 +16      ;    BTPW NEEDLE BX GUIDED CPTS

           DO ^BTPWCP

 +17      ;    BTPW NEEDLE BX CPTS

           DO ^BTPWCQ

 +18      ;    BTPW CHLAMYDIA CPTS

           DO ^BTPWCR

 +19      ;    BTPW BI MASTECTOMY CPTS

           DO ^BTPWCS

 +20       QUIT