Routine: RASYS1

Package	Total	Call Graph
VA FileMan	4	^DIC FILE^DIE $$GET1^DIQ ^DIR
Radiology Nuclear Medicine	1	$$EOS^RAUTL5
Scheduling	1	($$LOC,$$RAD)^SCDXUAPI

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA SYSINACT RASYS

Name	Comments	DBIA/ICR reference
EN1(RA791)	;For each imaging loc, get file 44 pointer, DSS ID, Div
ERR44	;bad file 44 pointer
ERRDSS	;bad file 40.7 pointer (DSS ID/Stop Code)
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
OK	;this img loc was processed ok
INACTIV8	;RA184/KLM Inactivate an imaging location and the associated OOC clinic
INACT791	;inactivate the imaging location
INACT44	;inactivate the OOS hospital location

Name	Field # of Occurrence
^DIC	INACTIV8+6
FILE^DIE	REPOINT+10, INACT791+3
$$GET1^DIQ	INACTIV8+9
^DIR	INACTIV8+13, INACTIV8+16, INACTIV8+17, INACTIV8+21, INACTIV8+22, INACT791+1
$$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, INACT44+2
$$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
Function Call: WRITE	Prompt: !!?5,"This option will allow you to inactivate an Imaging Location" Line Location: INACTIV8+3
Function Call: WRITE	Prompt: !?5,"and the associated Occasion of Service (OOS) Hospital Location",! Line Location: INACTIV8+4
Function Call: WRITE	Prompt: !!,$J(RANAME_" STATUS: ",32)_$S(RAILS="I":"INACTIVE",1:"ACTIVE") Line Location: INACTIV8+11
Function Call: WRITE	Prompt: !,$J("OOS CLINIC (IEN "_RA44_") STATUS: ",32)_$S(RA44S="I":"INACTIVE",1:"ACTIVE"),! Line Location: INACTIV8+12
Function Call: WRITE	Prompt: !!?5,"No action needed..." Line Location: INACTIV8+13
Function Call: WRITE	Prompt: ! Line Location: INACTIV8+13
Function Call: WRITE	Prompt: !!,"No action taken..." Line Location: INACTIV8+17
Function Call: WRITE	Prompt: ! Line Location: INACTIV8+17
Function Call: WRITE	Prompt: !!,"No action taken..." Line Location: INACTIV8+22
Function Call: WRITE	Prompt: ! Line Location: INACTIV8+22
Function Call: WRITE	Prompt: !!,"There was a problem inactivating the location",!,"Contact OI&T if the problem persists" Line Location: INACT791+4
Function Call: WRITE	Prompt: !!,"...Imaging Location inactivated!" Line Location: INACT791+5
Function Call: WRITE	Prompt: !,"OOS Clinic not updated. Error: "_$P(RASUC,U,3) Line Location: INACT44+3
Function Call: WRITE	Prompt: !!,"...OOS Clinic inactivated!" Line Location: INACT44+4
Routine Call	DIC Line Location: INACTIV8+6
Routine Call	DIE Line Location: REPOINT+10 INACT791+3
Routine Call	DIR Line Location: INACTIV8+13 INACTIV8+16 INACTIV8+17 INACTIV8+21 INACTIV8+22 INACT791+1

FileNo	Call Tags
^SC - [#44]	GET1^DIQ
^RA(79.1 - [#79.1]	Classic Fileman Calls

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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	INACTIV8+5*, INACTIV8+14!
DIC("A"	INACTIV8+5*
DIC(0	INACTIV8+5*
DIR	INACTIV8+13!, INACTIV8+16!, INACTIV8+17!, INACTIV8+21!, INACTIV8+22!, INACT791+1!
DIR("A"	INACTIV8+13, INACTIV8+16, INACTIV8+17, INACTIV8+21, INACTIV8+22, INACT791+1
DIR("B"	INACTIV8+16, INACTIV8+21
DIR(0	INACTIV8+13, INACTIV8+16, INACTIV8+17, INACTIV8+21, INACTIV8+22, INACT791+1
DIRUT	INACTIV8+16, INACTIV8+21, INACT791+1, INACT791+2!
DT	INACTIV8+10
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 , INACTIV8+2~, INACTIV8+7*, INACTIV8+9, INACTIV8+12, INACT44+2
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
RA44S	INACTIV8+2~, INACTIV8+9, INACTIV8+10, INACTIV8+12, INACTIV8+13, INACTIV8+20, INACT791+6
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~, INACT791+4
RAERRCNT	EN1+3~, EN1+4, EN1+11, ERR44+1, ERRDSS+1, ERRDIV+1
RAFDA	REPOINT+7~
RAFDA(	REPOINT+9, INACT791+2
RAIL0	INACTIV8+2~, INACTIV8+7*, INACTIV8+23
RAILOC	INACTIV8+2~, INACTIV8+7*, INACT791+2
RAILS	INACTIV8+2~, INACTIV8+7, INACTIV8+8, INACTIV8+11, INACTIV8+13, INACTIV8+15, INACTIV8+20
RAINACT	INACTIV8+2~, INACTIV8+18, INACTIV8+23, INACT791+2, INACT44+1, INACT44+2
RANAME	INACTIV8+2~, INACTIV8+7*, INACTIV8+11, INACTIV8+16, INACTIV8+21
RASUC	INACTIV8+2~, INACT44+2*, INACT44+3
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
U	INACTIV8+7, INACTIV8+18, INACTIV8+23, INACT44+3
Y	INACTIV8+2~, INACTIV8+6, INACTIV8+7, INACTIV8+14!, INACTIV8+17, INACTIV8+22, INACT791+2!
Y(0	INACTIV8+7, INACTIV8+18

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASYS1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: