Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RARTUTL1

RARTUTL1.m

Go to the documentation of this file.
  1. RARTUTL1 ;HIRMFO/GJC-Utility to display Pharm & Radiopharm data ;11/18/97 13:28
  1. ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
  1. ;
  1. RDIO1(RADA) ; Display Radiopharmaceutical default data for Report displays
  1. ; Input: RADA -> ien of the Nuc Med Exam Data record (file 70.2)
  1. ; Output: 'X' -> $S(X'="":'abnormal exit',1:'full display')
  1. ; *** Called only if $P(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0),U,28)>0 ***
  1. N RADARY,RAXIT,Y S RAXIT=0,X=""
  1. D GETS^DIQ(70.2,RADA_",","**","NE","RADARY") Q:'$D(RADARY) ""
  1. D WAIT^RART1:($Y+6)>IOSL&('$D(RARTVERF)) Q:X="T"!(X="P")!(X="^") X
  1. I X="C" W @IOF S X=""
  1. N RAIENS S RAIENS=""
  1. F S RAIENS=$O(RADARY(70.21,RAIENS)) Q:RAIENS="" D Q:RAXIT
  1. . N RADOSE S RADOSE=$S($G(RADARY(70.21,RAIENS,7,"E"))]"":", "_$G(RADARY(70.21,RAIENS,7,"E"))_" mCi",1:"")
  1. . D WAIT^RART1:($Y+6)>IOSL&('$D(RARTVERF)) S:X="T"!(X="P")!(X="^") RAXIT=1
  1. . Q:RAXIT
  1. . I X="C" W @IOF S X=""
  1. . W !," Radiopharmaceutical: "_$G(RADARY(70.21,RAIENS,.01,"E"))_RADOSE
  1. . D WAIT^RART1:($Y+6)>IOSL&('$D(RARTVERF)) S:X="T"!(X="P")!(X="^") RAXIT=1
  1. . Q:RAXIT
  1. . I X="C" W @IOF S X=""
  1. . Q:$G(RADARY(70.21,RAIENS,8,"E"))=""&($G(RADARY(70.21,RAIENS,9,"E"))="")&($G(RADARY(70.21,RAIENS,11,"E"))="")&($G(RADARY(70.21,RAIENS,12,"E"))="")
  1. . N RACNT,RALNGTH S RACNT=0
  1. . F RADFLDS=8,9,11,12 D
  1. .. W:'RACNT&(RADFLDS=8) ! ; initial line feed, spacing
  1. .. I $G(RADARY(70.21,RAIENS,RADFLDS,"E"))]"" D
  1. ... W:RACNT=2 ! S:RACNT=2 RACNT=0 ; NEW LINE
  1. ... S RACNT=RACNT+1
  1. ... W:RADFLDS=8 $S(RACNT=2:" Adm'd on ",1:" Adm'd on ")
  1. ... W:RADFLDS=9 $S(RACNT=2:" by ",1:" by ")
  1. ... W:RADFLDS=11 $S(RACNT=2:" Route ",1:" Route ")
  1. ... W:RADFLDS=12 $S(RACNT=2:" Site ",1:" Site ")
  1. ... S RALNGTH=$L($G(RADARY(70.21,RAIENS,RADFLDS,"E")))
  1. ... I RACNT=2,((RALNGTH+$X)>IOM) D
  1. .... W $E($G(RADARY(70.21,RAIENS,RADFLDS,"E")),1,(IOM-($X-1)))
  1. .... Q
  1. ... E W $G(RADARY(70.21,RAIENS,RADFLDS,"E"))
  1. ... Q
  1. .. Q
  1. . Q
  1. Q $G(X)