|
Last change
on this file since 1780 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
705 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | SRORTRN ;BIR/MAM - PRINT RETURNS ; [ 12/16/98 12:12 PM ]
|
|---|
| 2 | ;;3.0; Surgery ;**88**;24 Jun 93
|
|---|
| 3 | K SRRET,SRURET S (SRRET,SRURET)=0 S SRET=0 F S SRET=$O(^SRF(SRTN,29,SRET)) Q:'SRET D TYPE
|
|---|
| 4 | W !!,"Number of Returns to O.R. Related to Index Procedure: "_SRRET S X=0 F S X=$O(SRRET(X)) Q:'X W !,?10,"CPT Code: "_SRRET(X)
|
|---|
| 5 | W !!,"Number of Returns to O.R. Unrelated to Index Procedure: "_SRURET S X=0 F S X=$O(SRURET(X)) Q:'X W !,?10,"CPT Code: "_SRURET(X)
|
|---|
| 6 | Q
|
|---|
| 7 | TYPE ; set arrays to print
|
|---|
| 8 | S X=^SRF(SRTN,29,SRET,0),CASE=$P(X,"^"),TYPE=$P(X,"^",3),CPT=$P(^SRF(CASE,"OP"),"^",2) I 'CPT Q
|
|---|
| 9 | S CPT=$P($$CPT^ICPTCOD(CPT),"^",2)
|
|---|
| 10 | I TYPE="R" S SRRET=SRRET+1,SRRET(SRRET)=CPT Q
|
|---|
| 11 | S SRURET=SRURET+1,SRURET(SRURET)=CPT
|
|---|
| 12 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
