Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Radiology Nuclear Medicine 7 ^RACNLU  (KILL,SETFLG)^RADOSTIK  $$EN1^RAPSAPI  SET^RAPSET1  ($$SSN,CLOSE,ZIS)^RAUTL  $$EOS^RAUTL5  STOPCHK^RAUTL9  
Kernel 3 ^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  ($$CJ,$$REPEAT)^XLFSTR  
VA FileMan 2 FILE^DIE  ($$GET1,GETS)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA DOSAGE TICKET  RADOSTIK  RASTREQ  

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

External References

Name Field # of Occurrence
^%ZTLOAD EN1+12
FILE^DIE SETFLG+5
$$GET1^DIQ EN1+10, PRINT+15, PRINT+17, PRINT+22, PRINT+29, PRINT+42
GETS^DIQ PRINT+23
^RACNLU EN2+1
KILL^RADOSTIK PRINT+49
SETFLG^RADOSTIK EN1+12
$$EN1^RAPSAPI PRINT+20
SET^RAPSET1 EN2+1
$$SSN^RAUTL PRINT+16
CLOSE^RAUTL PRINT+49
ZIS^RAUTL EN2+12
$$EOS^RAUTL5 PRINT+46
STOPCHK^RAUTL9 PRINT+12
$$FMTE^XLFDT PRINT+9, PRINT+14
$$NOW^XLFDT PRINT+7
$$CJ^XLFSTR PRINT+11
$$REPEAT^XLFSTR PRINT+44

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
Routine Call
  • DIE
  • Line Location:
    • SETFLG+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.1 - [#79.1] EN1+4
^RADPT - [#70] EN1+2, EN1+3, EN2+3
^RADPTN - [#70.2] PRINT+10, PRINT+18, PRINT+46, PRINT+47
^RAMIS(71 - [#71] PRINT+33, PRINT+34, PRINT+35
^TMP($J KILL+4!

Label References

Name Line Occurrences
KILL EN2+6, EN2+12, EN2+13
PRINT EN2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% KILL+1!
%W KILL+1!
%Y KILL+1!
%Y1 KILL+1!
C KILL+1!
DIC KILL+3!
DIPGM KILL+3!
DISYS KILL+3!
DUOUT KILL+3!
DUZ EN2+1
I EN1+1~, EN1+11*, EN2+2~, EN2+10*, KILL+3!
IO PRINT+2
IOF PRINT+3, PRINT+47
IOM PRINT+11, PRINT+44
IOST PRINT+3
RA1 EN1+1~, EN1+2*, PRINT+4~, PRINT+5*, PRINT+10*, PRINT+18, PRINT+22, PRINT+29, PRINT+42, PRINT+46
, PRINT+47
RA702 PRINT+4~, PRINT+18*, PRINT+20, PRINT+23, PRINT+24, PRINT+26, PRINT+27, PRINT+32, PRINT+33, PRINT+34
, PRINT+39, PRINT+40, PRINT+41
RA7108 PRINT+34~*, PRINT+35
RA7108(0 PRINT+35*, PRINT+36, PRINT+37
RA719 PRINT+4~, PRINT+44!
RA719( PRINT+24, PRINT+26, PRINT+27
>> RACCESS( EN2+1
RACN KILL+1!
RACNI EN1~, EN1+3, EN1+12, KILL+1!, SETFLG~, SETFLG+4
RACNST PRINT+4~, PRINT+9*
RADATE KILL+1!
RADFN EN1~, EN1+2, EN1+3, EN1+12, EN2+3, PRINT+15, KILL+1!, SETFLG~, SETFLG+4
RADOSTIK EN2+2~, EN2+3*, PRINT+3, PRINT+12, PRINT+46
RADTE KILL+1!
RADTI EN1~, EN1+2, EN1+3, EN1+12, EN2+3, KILL+1!, SETFLG~, SETFLG+4
RADTIK EN1+1~, EN1+4*, EN1+5, EN1+10
RAEND KILL+3!
RAFDA SETFLG+4~
RAFDA( SETFLG+4*
RAFL KILL+3!
RAFST KILL+3!
RAHEAD KILL+3!
RAI KILL+3!
RAIX KILL+3!
RAMES KILL+3!
RANME KILL+1!
RANOTE PRINT+4~, PRINT+11!, PRINT+20*, PRINT+25*, PRINT+28*, PRINT+30*, PRINT+40*, PRINT+45
RAPOP EN2+12, KILL+1!
RAPRC KILL+1!
RAPRTDT PRINT+4~, PRINT+7*, PRINT+8*, PRINT+9*, PRINT+11
RARDIO EN1+1~, EN1+3*, EN1+6, EN2+2~, EN2+4*, EN2+6, PRINT+10, PRINT+18, PRINT+22, PRINT+29
, PRINT+42, PRINT+46, PRINT+47
RARPT KILL+2!
RASSN KILL+2!
RAST KILL+2!
RATTLE PRINT+4~, PRINT+6*, PRINT+11
RAX PRINT+4~, PRINT+20*, PRINT+21!, PRINT+24*, PRINT+25!, PRINT+27*, PRINT+28!, PRINT+29*, PRINT+30!
RAXIT PRINT+4~, PRINT+5*, PRINT+10, PRINT+12*, PRINT+13, PRINT+46*
RAY2 EN1+1~, EN1+2*, EN1+4, EN2+2~, EN2+3*, PRINT+14
RAY3 EN1+1~, EN1+3*, EN1+7, EN2+2~, EN2+4*, PRINT+14, PRINT+17, PRINT+33, PRINT+34, PRINT+35
X EN2+1, KILL+2!
Y KILL+2!
Y(0 EN2+4
ZTDESC EN1+8~, EN1+9*, EN2+9~, EN2+11*
ZTDTH EN1+8~, EN1+10*
ZTIO EN1+8~, EN1+10*
>> ZTQUEUED PRINT+2, PRINT+12, PRINT+46
>> ZTREQ PRINT+2*
ZTRTN EN1+8~, EN1+10*, EN2+9~*
ZTSAVE EN1+8~, EN2+9~
ZTSAVE( EN1+11*, EN2+10*
>> ZTSTOP PRINT+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All