Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
655 bytes
|
Rev | Line | |
---|
[613] | 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.