source: WorldVistAEHR/trunk/r/CPT_HCPCS_CODES-ICPT-DGYA/DGYACPT.m@ 1599

Last change on this file since 1599 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1DGYACPT ;ALB/ABR - CPT Utilities ;3/15/97
2 ;;6.0;CPT/HCPCS;;May 19, 1997;Build 1
3 ;
4 ; ************************************************
5 ; THIS ROUTINE WILL BE ELIMINATED 18 MONTHS AFTER
6 ; THE RELEASE DATE INDICATED IN THE 2ND LINE.
7 ;
8 ; CPT NOW HAS ITS OWN NAMESPACE - ICPT*,
9 ; AND NO LONGER USES DGYA*
10 ;
11 ; USE $$MODP^ICPTMOD(CODE,MOD,MFT,MDT) FOR ACCEPTABLE
12 ; MODIFIER PAIRS.
13 ;
14 ; USE $$CPT^ICPTCOD(CODE,CDT) TO CHECK FOR VALID CODE
15 ; *************************************************
16 ;
17MODE(CODE,MOD) ; Returns 1/0 if modifier can be used with code
18 ;
19 ; Input: CODE = CPT code (external format)
20 ; MOD = CPT modifier [Optional] (external format)
21 ; Output: 0/1 = 0 cannot be used with code
22 ; 0 not a valid CPT code if modifier not passed in
23 ; 1 can be used with code
24 ; 1 a valid CPT code if modifier not passed in
25 ;
26 N MODP
27 ;
28 ; if no MOD, check if valid CPT code
29 I '$D(MOD) S MODP=$$CPT^ICPTCOD(CODE) G MODEQ
30 ;
31 ; check modifier/code pair (external format)
32 S MODP=$$MODP^ICPTMOD(CODE,MOD,"E")
33 ;
34MODEQ Q $S(MODP>0:1,1:0)
35 ;
36 ;
37MODI(CODE,MOD) ; Returns 1/0 if modifier can be used with code
38 ;
39 ; Input: CODE = CPT code (internal format)
40 ; MOD = CPT modifier [Optional] (internal format)
41 ; Output: 0/1 = 0 cannot be used with code
42 ; 0 not valid CPT code if modifier not passed in
43 ; 1 can be used with code
44 ; 1 valid CPT code if modifier not passed in
45 ;
46 N MODP
47 ;
48 ; if no MOD, check if valid CPT code
49 I '$D(MOD) S MODP=$$CPT^ICPTCOD(CODE) G MODIQ
50 ;
51 ; check modifier/code pair (internal format)
52 S MODP=$$MODP^ICPTMOD(CODE,MOD,"I")
53 ;
54MODIQ Q $S(MODP>0:1,1:0)
Note: See TracBrowser for help on using the repository browser.