| 1 | RAORR3 ;HISC/CAH,FPT,GJC AISC/DMK-OE/RR results display ;9/12/94 11:12
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|---|
| 3 | ;ORACTION=8
|
|---|
| 4 | ;$P(XQORNOD(0),"^",3)="Results Display"
|
|---|
| 5 | ;Called from RAORD2
|
|---|
| 6 | ;SET ^TMP($J,"RAEX",1)=Variables needed to display/print report
|
|---|
| 7 | N %
|
|---|
| 8 | S RADTE=9999999.9999-RADTI
|
|---|
| 9 | S RANME=$P($G(^DPT(RADFN,0)),"^"),DFN=RADFN,RASSN=$$SSN^RAUTL
|
|---|
| 10 | S Y=RADTE D D^RAUTL S RADATE=Y
|
|---|
| 11 | S RACN=+RA(0),RAPRC=$P($G(^RAMIS(71,+$P(RA(0),"^",2),0)),"^"),RAPRC=$S(RAPRC="":"Unknown",1:RAPRC)
|
|---|
| 12 | S RARPT=+$P(RA(0),"^",17),RAST=+$P(RA(0),"^",3)
|
|---|
| 13 | S ^TMP($J,"RAEX",1)=RADFN_"^"_RADTI_"^"_RACNI_"^"_RANME_"^"_RASSN_"^"_RADATE_"^"_RADTE_"^"_RACN_"^"_RAPRC_"^"_RARPT_"^"_RAST
|
|---|
| 14 | S X=^TMP($J,"RAEX",1),RADUP(1)=$P(X,"^",10)_"^"_$P(X,"^",8)
|
|---|
| 15 | ;
|
|---|
| 16 | I $S($D(ZTQUEUED):1,$E(IOST,1,2)'="C-":1,1:0) S RAMIE=1 D DQ^RAORDQ
|
|---|
| 17 | I $E(IOST,1,2)="C-" D OERR^RART1
|
|---|
| 18 | K RA,RACI,RACNI,RADATE,RAMIE,RANME,RASSN,RAST,RADIV,RADIVPAR,RADPT0,RADTI,RAORD0,RAOSTS,RADFN,RAOIFN,^TMP($J,"RAEX")
|
|---|
| 19 | Q
|
|---|
