|
Last change
on this file since 767 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.
