source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RADTICK.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1RADTICK ;HIRMFO/GJC-Rad/Nuc Med Dosage Ticket output ;10/29/96 14:21
2 ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998
3EN1(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
17HDR ; 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
Note: See TracBrowser for help on using the repository browser.