RADTICK.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RADTICK   1074     printed  Apr 09, 2024@21:39:20                                                                                                                                                                                                     Page 2

RADTICK   ;HIRMFO/GJC-Rad/Nuc Med Dosage Ticket output ;10/29/96  14:21

 +1       ;;5.0;Radiology/Nuclear Medicine;;Mar 16, 1998

EN1(RADA1,RADA) ; Entry point to print dosage ticket

 +1       ; Input Variables:

 +2       ; RADA1: ien for top level of Nuc Med Exam Data file (70.2)

 +3       ; RADA : ien for sub-file level of Nuc Med Exam Data file (70.21)

 +4        NEW RAEXAM,RAFDA,RAHD1,RALINE,RAPAT,RAPIEN,RAPROC,RAXAM,RAXIT

 +5        DO GETS^DIQ(70.2,RADA1_",","**","","RAEXAM")

 +6        SET RAPIEN=+$PIECE($GET(^RADPTN(RADA1,0)),"^")

           SET RAFDA=RADA_","_RADA1_","

 +7        SET RAXAM=$GET(^RADPT(RADFN,"DT",RADTI,"P",RACNI,0))

 +8        SET RAPROC=$SELECT($PIECE($GET(^RAMIS(71,+$PIECE(RAXAM,"^",2),0)),"^")]"":$PIECE(^(0),"^"),1:"Unknown")

 +9        DO GETS^DIQ(2,+$PIECE($GET(^RADPTN(RADA1,0)),"^")_",",".01;.09","","RAPAT")

           DO HDR

 +10       WRITE !!?3,"PATIENT: ",$GET(RAPAT(2,+$PIECE(RAEXAM,"^")_",",.01))

 +11       WRITE !!?3,"PATIENT ID: ",$GET(RAPAT(2,+$PIECE(RAEXAM,"^")_",",.09))

 +12       WRITE !!?3,"STUDY: ",RAPROC

 +13       QUIT 

HDR       ; Header for the dosage ticket

 +1        if $Y

               WRITE @IOF

 +2        SET RAHD1="Radiopharmaceutical Dose Computation and Measurement Record"

 +3        SET $PIECE(RALINE,"-",($LENGTH(RAHD1)+1))=""

 +4        WRITE $$CJ^XLFSTR(RAHD1,IOM)

           WRITE $$CJ^XLFSTR(RALINE,IOM)

 +5        QUIT