DGYACPT.m

DGYACPT ;ALB/ABR - CPT Utilities ;3/15/97

 ;;5.3;Registration;**1015**;May 19, 1997;Build 21

 ;

 ;    ************************************************

 ;     THIS ROUTINE WILL BE ELIMINATED 18 MONTHS AFTER

 ;     THE RELEASE DATE INDICATED IN THE 2ND LINE.

 ;     

 ;     CPT NOW HAS ITS OWN NAMESPACE - ICPT*,

 ;     AND NO LONGER USES DGYA*

 ;

 ;     USE $$MODP^ICPTMOD(CODE,MOD,MFT,MDT) FOR ACCEPTABLE

 ;     MODIFIER PAIRS.

 ;

 ;     USE $$CPT^ICPTCOD(CODE,CDT) TO CHECK FOR VALID CODE

 ;    *************************************************

 ;

MODE(CODE,MOD) ; Returns 1/0 if modifier can be used with code

 ;

 ;  Input:    CODE = CPT code (external format)

 ;             MOD = CPT modifier [Optional] (external format)

 ; Output:     0/1 = 0 cannot be used with code 

 ;                   0 not a valid CPT code if modifier not passed in

 ;                   1 can be used with code

 ;                   1 a valid CPT code if modifier not passed in

 ;

 N MODP

 ;

 ; if no MOD, check if valid CPT code

 I '$D(MOD) S MODP=$$CPT^ICPTCOD(CODE) G MODEQ

 ;

 ;  check modifier/code pair (external format)

 S MODP=$$MODP^ICPTMOD(CODE,MOD,"E")

 ;

MODEQ Q $S(MODP>0:1,1:0)

 ;

 ;

MODI(CODE,MOD) ; Returns 1/0 if modifier can be used with code

 ;

 ;  Input:    CODE = CPT code (internal format)

 ;             MOD = CPT modifier [Optional] (internal format)

 ; Output:     0/1 = 0 cannot be used with code

 ;                   0 not valid CPT code if modifier not passed in

 ;                   1 can be used with code

 ;                   1 valid CPT code if modifier not passed in

 ;

 N MODP

 ;

 ; if no MOD, check if valid CPT code

 I '$D(MOD) S MODP=$$CPT^ICPTCOD(CODE) G MODIQ

 ;

 ;  check modifier/code pair (internal format)

 S MODP=$$MODP^ICPTMOD(CODE,MOD,"I")

 ;

MODIQ Q $S(MODP>0:1,1:0)

DGYACPT   ;ALB/ABR - CPT Utilities ;3/15/97

 +1       ;;5.3;Registration;**1015**;May 19, 1997;Build 21

 +2       ;

 +3       ;    ************************************************

 +4       ;     THIS ROUTINE WILL BE ELIMINATED 18 MONTHS AFTER

 +5       ;     THE RELEASE DATE INDICATED IN THE 2ND LINE.

 +6       ;     

 +7       ;     CPT NOW HAS ITS OWN NAMESPACE - ICPT*,

 +8       ;     AND NO LONGER USES DGYA*

 +9       ;

 +10      ;     USE $$MODP^ICPTMOD(CODE,MOD,MFT,MDT) FOR ACCEPTABLE

 +11      ;     MODIFIER PAIRS.

 +12      ;

 +13      ;     USE $$CPT^ICPTCOD(CODE,CDT) TO CHECK FOR VALID CODE

 +14      ;    *************************************************

 +15      ;

MODE(CODE,MOD) ; Returns 1/0 if modifier can be used with code

 +1       ;

 +2       ;  Input:    CODE = CPT code (external format)

 +3       ;             MOD = CPT modifier [Optional] (external format)

 +4       ; Output:     0/1 = 0 cannot be used with code 

 +5       ;                   0 not a valid CPT code if modifier not passed in

 +6       ;                   1 can be used with code

 +7       ;                   1 a valid CPT code if modifier not passed in

 +8       ;

 +9        NEW MODP

 +10      ;

 +11      ; if no MOD, check if valid CPT code

 +12       IF '$DATA(MOD)

               SET MODP=$$CPT^ICPTCOD(CODE)

               GOTO MODEQ

 +13      ;

 +14      ;  check modifier/code pair (external format)

 +15       SET MODP=$$MODP^ICPTMOD(CODE,MOD,"E")

 +16      ;

MODEQ      QUIT $SELECT(MODP>0:1,1:0)

 +1       ;

 +2       ;

MODI(CODE,MOD) ; Returns 1/0 if modifier can be used with code

 +1       ;

 +2       ;  Input:    CODE = CPT code (internal format)

 +3       ;             MOD = CPT modifier [Optional] (internal format)

 +4       ; Output:     0/1 = 0 cannot be used with code

 +5       ;                   0 not valid CPT code if modifier not passed in

 +6       ;                   1 can be used with code

 +7       ;                   1 valid CPT code if modifier not passed in

 +8       ;

 +9        NEW MODP

 +10      ;

 +11      ; if no MOD, check if valid CPT code

 +12       IF '$DATA(MOD)

               SET MODP=$$CPT^ICPTCOD(CODE)

               GOTO MODIQ

 +13      ;

 +14      ;  check modifier/code pair (internal format)

 +15       SET MODP=$$MODP^ICPTMOD(CODE,MOD,"I")

 +16      ;

MODIQ      QUIT $SELECT(MODP>0:1,1:0)