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