Last change
on this file since 1074 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
705 bytes
|
Rev | Line | |
---|
[628] | 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.