Changeset 636 for FOIAVistA/tag/r/CPT_HCPCS_CODES-ICPT-DGYA/ICPTCOD.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• CPT_HCPCS_CODES-ICPT-DGYA/ICPTCOD.m (modified) (2 diffs)

FOIAVistA/tag/r/CPT_HCPCS_CODES-ICPT-DGYA/ICPTCOD.m

@@ -1 @@
-ICPTCOD ;ALB/DEK/KER - CPT CODE APIS ;11/29/2007
- ;;6.0;CPT/HCPCS;**6,12,13,14,16,19,40**;May 19, 1997;Build 6
+ICPTCOD ;ALB/DEK/KER - CPT CODE APIS ; 04/18/2004
+ ;;6.0;CPT/HCPCS;**6,12,13,14,16,19**;May 19, 1997;Build 1
  ;
  ; External References
@@ -127 +127 @@
  .S ER="" F  S ER=$O(^DIC(81.3,"M",BR,ER)) Q:'ER  I CODA'>ER D
  ..S MI=0 F  S MI=$O(^DIC(81.3,"M",BR,ER,MI)) Q:'MI  D
- ...N MDPS
  ...S MDST=$G(^DIC(81.3,MI,0)) Q:'$L(MDST)
- ...S MDPS=$$MODP^ICPTMOD(CODE,+MI,"I",$G(CDT),$G(SRC)) Q:+MDPS'>0
  ...I '$G(SRC) Q:$P(MDST,"^",4)="V"
  ...I $G(CDT) S ACTMD="",ACTMD=$$MOD^ICPTMOD(MI,"I",CDT,$G(SRC)) Q:($P(ACTMD,"^")=-1)!($P(ACTMD,"^",7)=0)