Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: RADOSTIK

Package: Radiology Nuclear Medicine

Routine: RADOSTIK


Information

RADOSTIK ;HISC/GJC-Routine to print dosage tickets ;8/1/97 14:07

Source Information

Source file <RADOSTIK.m>

Entry Points

Name Comments DBIA/ICR reference
EN1(RADFN,RADTI,RACNI) ; the usual suspects
EN2 ; Print duplicate dosage ticket
PRINT ; Print out dosage ticket(s). If more than one rpharm, print one
; dosage ticket per page.
KILL ; Kill variables
SETFLG(RADFN,RADTI,RACNI) ; Set the 'Dosage Ticket Printed?'
; ^DD(70.03,29,0) field to 'Yes'.
; Input: RADFN==> Patient ien RADTI==> Inverse Date/Time of Exam
; RACNI==> ien of the examination

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Dosage ticket data does not exist!",$C(7)
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(RATTLE,IOM),!,$$CJ^XLFSTR(RAPRTDT,IOM)
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !!,"Case : ",$P(RAY3,"^")_"@"_$$FMTE^XLFDT($P(RAY2,"^"),"1P")
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !!,"Patient : ",$$GET1^DIQ(2,RADFN_",",.01)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"Patient ID : ",$$SSN^RAUTL()
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"Study : ",$E($$GET1^DIQ(71,+$P(RAY3,"^",2)_",",.01),1,50)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !!,"Radiopharmaceutical : "
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: $S(RAX]"":RAX,1:"*****")
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"Form : ",$$GET1^DIQ(70.21,RA1_","_RARDIO_",",15)
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"Lot No. : "
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: $S(RAX]"":RAX,1:"*****")
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !,"Kit No. : ",$G(RA719(71.9,+$P(RA702,"^",13)_",",4))
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !,"Lot Expiration Date : "
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: $S(RAX]"":RAX,1:"*****")
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: !!,"Date/Time of Measurement: "
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: $S(RAX]"":RAX,1:"*****")
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !,"Dose Prescribed : "
  • Line Location: PRINT+31
Function Call: WRITE
  • Prompt: $P(RA702,"^",2)_" mCi"
  • Line Location: PRINT+32
Function Call: WRITE
  • Prompt: !,"Activity Drawn : ",$S($P(RA702,"^",4)]"":$P(RA702,"^",4)_" mCi",1:"*****")
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !,"Dose Administered : ",$S($P(RA702,"^",7)]"":$P(RA702,"^",7)_" mCi",1:"")
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: !,"Time of Administration : ",$$GET1^DIQ(70.21,RA1_","_RARDIO_",",8)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: !!,"Signature of Person Measuring Dose: "
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("_",((IOM-3)-$X))
  • Line Location: PRINT+44

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^%ZIS(1 - [#3.5] GET1^DIQ
70.21 GET1^DIQ
^RAMIS(71 - [#71] GET1^DIQ
^RAMIS(71.9 - [#71.9] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call