source: WorldVistAEHR/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAORR3.m@ 724

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

initial load of WorldVistAEHR

File size: 951 bytes
Line 
1RAORR3 ;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
Note: See TracBrowser for help on using the repository browser.