Routine: RASYS1

Package	Total	Call Graph
Radiology Nuclear Medicine	1	$$EOS^RAUTL5
Scheduling	1	($$LOC,$$RAD)^SCDXUAPI
VA Fileman	1	FILE^DIE

Package	Total	Caller Graph
Radiology Nuclear Medicine	1	RASYS

Entry Points

Name	Comments	DBIA/ICR reference
ERR44	;bad file 44 pointer
EN1(RA791)	;For each imaging loc, get file 44 pointer, DSS ID, Div
ERRDSS	;bad file 40.7 pointer (DSS ID/Stop Code)
OK	;this img loc was processed ok
ERRDIV	;bad or non-existent Division on active imaging loc
ERRMSG(RAX)	; Explain why the $$RAD call failed.
REPOINT	;current img loc points to a file 44 entry with appt patterns

External References

Name	Field # of Occurrence
FILE^DIE	REPOINT+10
$$EOS^RAUTL5	ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5 , REPOINT+11, REPOINT+15, OK+1
$$LOC^SCDXUAPI	EN1+16
$$RAD^SCDXUAPI	EN1+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ERR44+2
Function Call: WRITE	Prompt: !,"Imaging Location file #79.1 internal entry #"_RA44 Line Location: ERR44+3
Function Call: WRITE	Prompt: !,"is a broken pointer to Hospital Location file #44." Line Location: ERR44+4
Function Call: WRITE	Prompt: !,"IRM must resolve this problem, then the Rad/Nuc Med ADPAC" Line Location: ERR44+5
Function Call: WRITE	Prompt: @IOF Line Location: ERR44+6
Function Call: WRITE	Prompt: !,"should use the Location Parameter Set-up [RA SYSLOC] option" Line Location: ERR44+7
Function Call: WRITE	Prompt: !,"to edit this Imaging Location, and the Division Parameter" Line Location: ERR44+8
Function Call: WRITE	Prompt: !,"Set-up [RA SYSDIV] option to assign it to a division.",!," " Line Location: ERR44+9
Function Call: WRITE	Prompt: @IOF Line Location: ERR44+10
Function Call: WRITE	Prompt: @IOF Line Location: ERRDSS+2
Function Call: WRITE	Prompt: !,"Imaging Location file #79.1 entry "_$S($L(RA44NM):RA44NM,1:RA44)_" has a missing" Line Location: ERRDSS+3
Function Call: WRITE	Prompt: !,"or invalid DSS ID. The Radiology/Nuclear Medicine ADPAC should" Line Location: ERRDSS+4
Function Call: WRITE	Prompt: !,"use the Location Parameter Set-up [RA SYSLOC] option to enter" Line Location: ERRDSS+5
Function Call: WRITE	Prompt: @IOF Line Location: ERRDSS+6
Function Call: WRITE	Prompt: !,"a valid imaging DSS Code for this imaging location.",!," " Line Location: ERRDSS+7
Function Call: WRITE	Prompt: @IOF Line Location: ERRDIV+2
Function Call: WRITE	Prompt: !,"Imaging Location file #79.1 entry "_$S($L(RA44NM):RA44NM,1:RA44)_" is not assigned" Line Location: ERRDIV+3
Function Call: WRITE	Prompt: !,"to a Rad/Nuc Med Division. If Imaging exams are to be registered" Line Location: ERRDIV+4
Function Call: WRITE	Prompt: !,"in this imaging location, or if there are incomplete exams" Line Location: ERRDIV+5
Function Call: WRITE	Prompt: !,"already registered to this location, the Radiology/Nuclear" Line Location: ERRDIV+6
Function Call: WRITE	Prompt: @IOF Line Location: ERRDIV+7
Function Call: WRITE	Prompt: !,"Med ADPAC should use the Division Parameter Set-up [RA SYSDIV]" Line Location: ERRDIV+8
Function Call: WRITE	Prompt: !,"option to assign this imaging location to the appropriate" Line Location: ERRDIV+9
Function Call: WRITE	Prompt: !,"Rad/Nuc Med Division.",!," " Line Location: ERRDIV+10
Function Call: WRITE	Prompt: @IOF Line Location: ERRDIV+11
Function Call: WRITE	Prompt: @IOF Line Location: ERRMSG+1
Function Call: WRITE	Prompt: !,"Scheduling routine could not reset Hospital Location" Line Location: ERRMSG+2
Function Call: WRITE	Prompt: !,"file #44 params for Imaging Location "_$S($L(RA44NM2):RA44NM2,1:RA44NM) Line Location: ERRMSG+3
Function Call: WRITE	Prompt: !,"to agree with params on the Imaging Location file #79.1." Line Location: ERRMSG+4
Function Call: WRITE	Prompt: @IOF Line Location: ERRMSG+5
Function Call: WRITE	Prompt: !,"IRM should investigate the cause of this Scheduling error message:" Line Location: ERRMSG+6
Function Call: WRITE	Prompt: !," * "_$P(RAX,"^",3)_" * ",!," " Line Location: ERRMSG+7
Function Call: WRITE	Prompt: @IOF Line Location: REPOINT+11
Function Call: WRITE	Prompt: !,"Imaging Location "_RA44NM_" has appointment patterns, and" Line Location: REPOINT+12
Function Call: WRITE	Prompt: !,"cannot be 'pointed to' from a file 79.1 Imaging Location." Line Location: REPOINT+13
Function Call: WRITE	Prompt: !,"Imaging Location "_RA44NM_" has been 're-pointed' to" Line Location: REPOINT+14
Function Call: WRITE	Prompt: @IOF Line Location: REPOINT+15
Function Call: WRITE	Prompt: !,"Hospital Location "_RA44NM2_".",!," " Line Location: REPOINT+16
Function Call: WRITE	Prompt: @IOF Line Location: OK+1
Function Call: WRITE	Prompt: !,"Imaging Location "_$S($L(RA44NM2):RA44NM2,1:RA44NM)_" is OK.",!," " Line Location: OK+2
Routine Call	DIE Line Location: REPOINT+10

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	EN1+9
^RA(79.1 - [#79.1]	EN1+5, EN1+10
^SC - [#44]	EN1+6, EN1+7, REPOINT+8

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
IOF	ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5 , REPOINT+11, REPOINT+15, OK+1
IOSL	ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7, ERRDIV+11, ERRMSG+1, ERRMSG+5 , REPOINT+11, REPOINT+15, OK+1
RA44	EN1+3~, EN1+6, EN1+7, EN1+13, EN1+15, EN1+16, ERR44+3, ERRDSS+3, ERRDIV+3, REPOINT+8
RA44NEW	EN1+3~, EN1+13*, EN1+14, EN1+15, REPOINT+8, REPOINT+9
RA44NM	EN1+3~, EN1+7*, EN1+16, ERRDSS+3, ERRDIV+3, ERRMSG+3, REPOINT+12, REPOINT+14, OK+2
RA44NM2	EN1+3~, EN1+4, EN1+16, ERRMSG+3, REPOINT+8, REPOINT+16, OK+2
RA791	EN1~, EN1+5, EN1+10, REPOINT+9
RA791(0	EN1+5*, EN1+6, EN1+8
RADIV	EN1+3~, EN1+10*, EN1+16
RADSS	EN1+3~, EN1+8*, EN1+9
RADSSNM	EN1+3~, EN1+9*, EN1+16
RAERR	REPOINT+7~
RAERRCNT	EN1+3~, EN1+4, EN1+11, ERR44+1, ERRDSS+1, ERRDIV+1
RAFDA	REPOINT+7~
RAFDA(	REPOINT+9*
RATRY	EN1+3~, EN1+16*, EN1+17, EN1+18
RAX	ERRMSG~, ERRMSG+7
>> RAXIT	EN1+6, EN1+8, EN1+10, ERR44+2, ERR44+6, ERR44+10, ERRDSS+2, ERRDSS+6, ERRDIV+2, ERRDIV+7* , ERRDIV+11, ERRMSG+1, ERRMSG+5, REPOINT+11, REPOINT+15, OK+1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASYS1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
ERR44	EN1+6
ERRDIV	EN1+10
ERRDSS	EN1+8
ERRMSG	EN1+14, EN1+17
OK	EN1+18
REPOINT	EN1+15