Routine: RADOSTIK

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

Package

Total

Call Graph

Radiology Nuclear Medicine

^RACNLU (KILL,SETFLG)^RADOSTIK $$EN1^RAPSAPI SET^RAPSET1 ($$SSN,CLOSE,ZIS)^RAUTL $$EOS^RAUTL5 STOPCHK^RAUTL9

Kernel

^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR

VA Fileman

FILE^DIE ($$GET1,GETS)^DIQ

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

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA DOSAGE TICKET RADOSTIK RASTREQ

Entry Points

Name	Comments	DBIA/ICR reference
PRINT	; Print out dosage ticket(s). If more than one rpharm, print one ; dosage ticket per page.
EN1(RADFN,RADTI,RACNI)	; the usual suspects
EN2	; Print duplicate dosage ticket
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

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

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!

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

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RADOSTIK

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: