source: WorldVistAEHR/trunk/r/SURGERY-SR/SRORTRN.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 705 bytes
Line 
1SRORTRN ;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
7TYPE ; 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.