Routine: RAUTL19

Package	Total	Call Graph
Radiology Nuclear Medicine	4	$$IMAGE^RARIC1 HEAD^RAUTL11 (CKPAIR,CKWAIT,EN1)^RAUTL19C ($$EOS,$$XTERNAL)^RAUTL5
Kernel	3	(,HOME)^%ZIS ^%ZTLOAD $$UP^XLFSTR
VA Fileman	2	^DIC ^DIE
Order Entry Results Reporting	1	EN^ORB3

Package

Total

Call Graph

Radiology Nuclear Medicine

$$IMAGE^RARIC1 HEAD^RAUTL11 (CKPAIR,CKWAIT,EN1)^RAUTL19C ($$EOS,$$XTERNAL)^RAUTL5

Kernel

(,HOME)^%ZIS ^%ZTLOAD $$UP^XLFSTR

VA Fileman

^DIC ^DIE

Order Entry Results Reporting

EN^ORB3

Package	Total	Caller Graph
Radiology Nuclear Medicine	12	RA VISTARAD CATEGORY E RACPT1 RAMAIN1 RAMIS RAO7RO RAORD RAORD1 RAORR1 RASTAT RATRAN RAUTL19C RAWFR1

Package

Total

Caller Graph

Radiology Nuclear Medicine

RA VISTARAD CATEGORY E RACPT1 RAMAIN1 RAMIS RAO7RO RAORD RAORD1 RAORR1
RASTAT RATRAN RAUTL19C RAWFR1

Entry Points

Name	Comments	DBIA/ICR reference
NOTNEED	;non-radiopharm used don't need .5n and .6n fields answered
VRADE	;VistaRad Category data entry
OENO(X)	; OE/RR notifications, called from: RAORR1, RAORD1 & RAO7RO ; Input: 'X' -> ien of the Rad/Nuc Med Orders file (75.1)
LK(X)	; Lock a patient record when updating orders ; 'X' input in a variable pointer format: 'record_#;data_file__root' ; Pass back 'Y': '0' if lock fails, '1' if successful ; 'Y' defined in LK^ORX2
VRADQ
WRPAIR
CKWAIT	; CKWAIT is only done for WAITING FOR EXAM and assumes order seq = 1
DEV(X)	; Lookup an entry in the Device (3.5) file. ; Called from the [RA LOCATION PARAMETERS] input template. File: 79.1 ; Input: X=IEN of Device ; Output: Name of Device
EN1	; Check data consistency
ASKPRI(A,B,C)	; Check all prior statuses to ensure that the specific required ; data field is set to 'yes', and the field for data asked is set to ; 'yes'. ; 'A' is the I-Type (external) <-> 'B' is the current status order ; 'C' is fld that shd be prompted <-> 'E' is the order # ; 'F' is the ien of file 72. <-> 'RA' hold the entire data node ; 'RAFLD' value of the field <-> 'RAPCE' where data found on node
CKPAIR	; when field I is Y, then field J must also be Y at current/lower status
ACCVIO	; Lack of Imaging Location access for a user
WRWAIT
ULK(X)	; Unlock a patient record ; 'X' input in a variable pointer format: 'record_#;data_file__root'
CKPRNTR	;ck that all img locations for that img type has a dosg tkt prntr
PROCTY(Y)	; Passes back the Procedure Type. 'Y' is the ien in the ; Rad/Nuc Med Procedure file '^RAMIS(71,'.
PRELIM(RAIMG)	; Called from '1^RAMAIN1'
PRNTASGN	;

External References

Name	Field # of Occurrence
^%ZIS	PRELIM+2
HOME^%ZIS	PRELIM+9
^%ZTLOAD	PRELIM+5
^DIC	VRADE+3, VRADE+13
^DIE	VRADE+15
EN^ORB3	OENO+12
$$IMAGE^RARIC1	VRADE+1
HEAD^RAUTL11	PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
CKPAIR^RAUTL19C	CKPAIR+1
CKWAIT^RAUTL19C	CKWAIT+1
EN1^RAUTL19C	EN1+1
$$EOS^RAUTL5	PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
$$XTERNAL^RAUTL5	OENO+11
$$UP^XLFSTR	ASKPRI+11, ASKPRI+14, PROCTY+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(IOM-$L(RAHDR)\2),RAHDR Line Location: PRELIM+1
Function Call: WRITE	Prompt: ! Line Location: PRELIM+1
Function Call: WRITE	Prompt: ! Line Location: PRELIM+3
Function Call: WRITE	Prompt: !?5,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!") Line Location: PRELIM+6
Function Call: WRITE	Prompt: !!,RADASH,"Checking fields not needed by non-nucmed imaging",RADASH Line Location: NOTNEED+2
Function Call: WRITE	Prompt: !!?11,"Within : ",RAIMG,!?5,"The following need not be answered :" Line Location: NOTNEED+3
Function Call: WRITE	Prompt: !?5,"Exam Status '",$P(RANODE(0),"^"),"'",!?5,"order ("_RAO_") '",! Line Location: NOTNEED+4
Function Call: WRITE	Prompt: !,"'",$P($G(^DD(72,RAIMG0,.1)),U),"' is set to ",RAPIECE(RAIMG0) Line Location: NOTNEED+7
Function Call: WRITE	Prompt: ! Line Location: NOTNEED+8
Function Call: WRITE	Prompt: !?15,$P(^SC($P(^RA(79.1,RA791,0),U),0),U) Line Location: PRNTASGN+6
Function Call: WRITE	Prompt: !?5,$C(7),"You do not have access to any Imaging Locations." Line Location: ACCVIO+1
Function Call: WRITE	Prompt: !?5,"Contact your ADPAC." Line Location: ACCVIO+2
Function Call: WRITE	Prompt: !!,"Current system is not running Vista Imaging -- nothing done.",! Line Location: VRADE+1
Function Call: WRITE	Prompt: ! Line Location: VRADE+6
Routine Call	%ZIS Line Location: PRELIM+9
Routine Call	DIE Line Location: VRADE+15
Routine Call	DIC Line Location: VRADE+3 VRADE+13
Routine Call	%ZIS Line Location: PRELIM+2

FileNo	Call Tags
^RA(72 - [#72]	Classic Fileman Calls
^RA(79.2 - [#79.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEV+5
^DD(72	NOTNEED+7, PRNTASGN+3
^DD(75.1	OENO+11
^RA(72 - [#72]	ASKPRI+8, ASKPRI+9, ASKPRI+10, ASKPRI+13
^RA(79.1 - [#79.1]	CKPRNTR+3, PRNTASGN+6, OENO+6
^RAMIS(71 - [#71]	PROCTY+2
^RAO(75.1 - [#75.1]	OENO+3
^SC - [#44]	PRNTASGN+6

Name	Line Occurrences
EN1	PRELIM+9
PRNTASGN	CKPRNTR+3
VRADQ	VRADE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRELIM+1!*
A	ASKPRI~, ASKPRI+8, ASKPRI+9
B	ASKPRI~, ASKPRI+8
C	ASKPRI~, ASKPRI+12, ASKPRI+13
D0	VRADE+6!
>> DA	VRADE+15*
DIC	VRADE+2, VRADE+3!, VRADE+7, VRADE+13!
DIC("A"	VRADE+2*
DIC("S"	VRADE+8*
DIC("W"	VRADE+12*
DIC(0	VRADE+2, VRADE+7
>> DIE	VRADE+15*
DINUM	VRADE+6!
DLAYGO	VRADE+6!
>> DR	VRADE+15*
E	ASKPRI+7~, ASKPRI+8, ASKPRI+9
F	ASKPRI+7~, ASKPRI+9*, ASKPRI+10, ASKPRI+13
I	OENO+2~, OENO+6*, OENO+7
IO	PRELIM+8, PRELIM+9
IO("Q"	PRELIM+3
IO(0	PRELIM+8, PRELIM+9
IOM	PRELIM+1
IOSL	PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR
>> POP	PRELIM+2
RA	ASKPRI+7~
RA(	ASKPRI+13*
RA(0	ASKPRI+10*, ASKPRI+11
RA751	OENO+2~, OENO+3*, OENO+5, OENO+11
RA791	CKPRNTR+1~, CKPRNTR+2, CKPRNTR+3, PRNTASGN+6
RA791FL	CKPRNTR+1~, CKPRNTR+2, PRNTASGN+1, PRNTASGN+3, PRNTASGN+5
>> RACHKERR	WRPAIR+1, WRPAIR+2*
>> RADASH	NOTNEED+2, PRNTASGN+1, WRPAIR+1, WRWAIT
RADFN	OENO+2~, OENO+3*, OENO+12
RADICW	VRADE+13!
RADICW(1	VRADE+9*, VRADE+12
RADICW(2	VRADE+10*, VRADE+12
RADICW(3	VRADE+11*, VRADE+12
RADUZ	OENO+2~, OENO+9*, OENO+12
RADUZ(	OENO+7*
RAFLD	ASKPRI+7~, ASKPRI+13*, ASKPRI+14
>> RAFLG	ASKPRI+8, ASKPRI+14*, ASKPRI+17
>> RAHDR	PRELIM+1
RAIMG	PRELIM~, NOTNEED+3, PRNTASGN+3, WRWAIT
RAIMG0	NOTNEED+5~, NOTNEED+6, NOTNEED+7
RAIMG1	NOTNEED+5~, NOTNEED+6*
RAIMG2	NOTNEED+5~, NOTNEED+6*, NOTNEED+7
RAIMG72	CKPRNTR+1~, CKPRNTR+2*, CKPRNTR+3
RAIMGTYI	VRADE+4*, VRADQ!
RAIMGTYJ	VRADE+4*, VRADQ!
RALOC	OENO+2~, OENO+5*, OENO+6
RAMSG	OENO+2~, OENO+11*, OENO+12
>> RANODE(	NOTNEED+1
>> RANODE(0	NOTNEED+4, CKPRNTR+2, PRNTASGN+3, WRWAIT
RANOTY	OENO+2~, OENO+3, OENO+4, OENO+12
>> RAO	NOTNEED+4, PRNTASGN+3
RAOUT	CKPRNTR+3, PRNTASGN+2, PRNTASGN+4, PRNTASGN+7, WRPAIR, VRADE+4, VRADE+5, VRADE+14, VRADQ!
RAPCE	ASKPRI+7~, ASKPRI+12*, ASKPRI+13
>> RAPIECE(	NOTNEED+7
>> RAWATERR	WRWAIT, WRWAIT+1*
U	NOTNEED+7, CKPRNTR+2, CKPRNTR+3, PRNTASGN+3, PRNTASGN+6, WRWAIT, VRADE+4
X	LK~, ULK~, DEV~, DEV+4, DEV+5, OENO~, OENO+3, OENO+12
Y	PROCTY~, PROCTY+2, VRADE+3, VRADE+4, VRADE+14, VRADE+15
>> ZTDESC	PRELIM+4*
>> ZTRTN	PRELIM+5*
>> ZTSAVE("RA*"	PRELIM+4*
>> ZTSK	PRELIM+6

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL19

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: