BRARPTS.m

BRARPTS ; IHS/ADC/PDW - NO DESCRIPTION PROVIDED ;   

 ;;5.0;Radiology/Nuclear Medicine;;Feb 20, 2004

 ;

PROC1 ;EP---> ALPHABETIC LISTING OF ACTIVE PROCEDURES.

 D ^XBKVAR

 S L=0,DIC=71,FLDS="[RA IHS ALPHA ACTIVE PROC LIST]"

 S BY="[RA IHS ALPHA ACTIVE PROC LIST]"

 S DHD="RADIOLOGY PROCEDURES - ACTIVE ONLY"

 D EN1^DIP

 K BY,DHD,DIC,FLDS,L

BRARPTS   ; IHS/ADC/PDW - NO DESCRIPTION PROVIDED ;   

 +1       ;;5.0;Radiology/Nuclear Medicine;;Feb 20, 2004

 +2       ;

PROC1     ;EP---> ALPHABETIC LISTING OF ACTIVE PROCEDURES.

 +1        DO ^XBKVAR

 +2        SET L=0

           SET DIC=71

           SET FLDS="[RA IHS ALPHA ACTIVE PROC LIST]"

 +3        SET BY="[RA IHS ALPHA ACTIVE PROC LIST]"

 +4        SET DHD="RADIOLOGY PROCEDURES - ACTIVE ONLY"

 +5        DO EN1^DIP

 +6        KILL BY,DHD,DIC,FLDS,L