source: FOIAVistA/trunk/r/CPT_HCPCS_CODES-ICPT-DGYA/ICPTSR1.m@ 686

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

initial load of FOIAVistA 6/30/08 version

File size: 647 bytes
Line 
1ICPTSR1 ;ALB/ABR,MRY - CPT IENS - REV CPT CODES ; 1/3/03 2:38pm
2 ;;6.0;CPT/HCPCS;**3,4,8,9,12,13**;May 19, 1997
3 ;
4 ; This routine points to the ien's of the REVISED CPT codes for 2003
5 ; It is used by the print option, in routine ICPTPRN to create a
6 ; temporary global to sort by.
7 ;
8START ; CREATE GLOBAL
9 N ICPTN,ICPTTMP,ICPTX,I,J
10 F J=2:1:3 S END=0 D
11 . F I=1:1 S FILE="TEXT+"_I_"^ICPTSR"_J D Q:END
12 .. S ICPTX=$P($T(@FILE),";",3)
13 .. I ICPTX["$END" S END=1 Q
14 .. S ICPTN=$S(+ICPTX:+ICPTX,1:""""_$P(ICPTX,U)_"""")
15 .. S ICPTTMP="^TMP(""REVCPT"",$J,"_ICPTN_","_$P(ICPTX,U,2)_")"
16 .. S @ICPTTMP=""
17 ;D ^ICPTSR2 ; next part of codes
18 Q
19 ;
Note: See TracBrowser for help on using the repository browser.