Last change
on this file since 1569 was 636, checked in by George Lilly, 15 years ago |
WorldVistAEHR overlayed on FOIAVistA
|
File size:
655 bytes
|
Line | |
---|
1 | ICPTSR1 ;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;Build 1
|
---|
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 | ;
|
---|
8 | START ; 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.