23 lines
1.0 KiB
Mathematica
23 lines
1.0 KiB
Mathematica
RADTICK ;HIRMFO/GJC-Rad/Nuc Med Dosage Ticket output ;10/29/96 14:21
|
|
;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
|
|
EN1(RADA1,RADA) ; Entry point to print dosage ticket
|
|
; Input Variables:
|
|
; RADA1: ien for top level of Nuc Med Exam Data file (70.2)
|
|
; RADA : ien for sub-file level of Nuc Med Exam Data file (70.21)
|
|
N RAEXAM,RAFDA,RAHD1,RALINE,RAPAT,RAPIEN,RAPROC,RAXAM,RAXIT
|
|
D GETS^DIQ(70.2,RADA1_",","**","","RAEXAM")
|
|
S RAPIEN=+$P($G(^RADPTN(RADA1,0)),"^"),RAFDA=RADA_","_RADA1_","
|
|
S RAXAM=$G(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0))
|
|
S RAPROC=$S($P($G(^RAMIS(71,+$P(RAXAM,"^",2),0)),"^")]"":$P(^(0),"^"),1:"Unknown")
|
|
D GETS^DIQ(2,+$P($G(^RADPTN(RADA1,0)),"^")_",",".01;.09","","RAPAT") D HDR
|
|
W !!?3,"PATIENT: ",$G(RAPAT(2,+$P(RAEXAM,"^")_",",.01))
|
|
W !!?3,"PATIENT ID: ",$G(RAPAT(2,+$P(RAEXAM,"^")_",",.09))
|
|
W !!?3,"STUDY: ",RAPROC
|
|
Q
|
|
HDR ; Header for the dosage ticket
|
|
W:$Y @IOF
|
|
S RAHD1="Radiopharmaceutical Dose Computation and Measurement Record"
|
|
S $P(RALINE,"-",($L(RAHD1)+1))=""
|
|
W $$CJ^XLFSTR(RAHD1,IOM) W $$CJ^XLFSTR(RALINE,IOM)
|
|
Q
|