Routine: RAMAIN1

Information

RAMAIN1 ;HISC/CAH,GJC-Radiology Utility File Maintenance ;10/29/97 13:30

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Radiology Nuclear Medicine	3	HEAD^RAUTL11 PRELIM^RAUTL19 $$EOS^RAUTL5
VA FileMan	3	^DIC ^DIE ^DIR
Kernel	2	($$DT,$$FMTE)^XLFDT $$UP^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA EXAMSTATUS RAMAIN RAUTL19C

Entry Points

Name	Comments	DBIA/ICR reference
DSPLNKS	; This subroutine display the links between the wasted/unwasted ; film size types. This subroutine is called from '4^RAMAIN'. ; This subroutine is only accessed if the '^RA(78.4,"AW")' xref ; exists.
HDH	; EOS prompt
HDR(X,Y1)	; Header
1	; Set-up/Edit the Examination Status file (72).
Q1
XAMORD	; check order number inconsistency for order # 0,1,9

External References

Name	Field # of Occurrence
^DIC	1+8, 1+20
^DIE	1+23
^DIR	HDH+1
HEAD^RAUTL11	XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27, XAMORD+34 , XAMORD+36, XAMORD+40
PRELIM^RAUTL19	1+35
$$EOS^RAUTL5	1+34, XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27 , XAMORD+34, XAMORD+36, XAMORD+40
$$DT^XLFDT	1+2
$$FMTE^XLFDT	1+2
$$UP^XLFSTR	1+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,Z Line Location: DSPLNKS+29
Function Call: WRITE	Prompt: ?40,$S($G(RAFS(Z(0),Z))]"":$G(RAFS(Z(0),Z)),1:"Error, missing data") Line Location: DSPLNKS+30
Function Call: WRITE	Prompt: !?5,Z Line Location: DSPLNKS+33
Function Call: WRITE	Prompt: ?40,"unassociated with a 'Wasted Film' type" Line Location: DSPLNKS+34
Function Call: WRITE	Prompt: !?5,"* Error, missing Data *" Line Location: DSPLNKS+37
Function Call: WRITE	Prompt: ?40,Z Line Location: DSPLNKS+38
Function Call: WRITE	Prompt: @IOF,!?(IOM-$L($G(X(0)))\2),$G(X(0)),! Line Location: HDR+1
Function Call: WRITE	Prompt: !?5,$G(X(1)),?40,$G(X(2)),!?(IOM-$L(Y1)\2),Y1,! Line Location: HDR+2
Function Call: WRITE	Prompt: ! Line Location: 1+12
Function Call: WRITE	Prompt: !!,"`"_$P(RAEDT72,"^")_"' is inactive, but appears on Status Tracking.",!,"This is appropriate if you need to use Status Tracking to process cases in" Line Location: 1+25
Function Call: WRITE	Prompt: !,"this status to complete. However, if you have a large number of historic",!,"cases in this status, it will cause response time problems in Status Tracking." Line Location: 1+26
Function Call: WRITE	Prompt: @IOF Line Location: 1+32
Function Call: WRITE	Prompt: !!?$L(RADASH),"Checking order numbers",!,RADASH,"and Default Next Status used for status progression",RADASH,!?11,"within : ",RAIMGTYJ Line Location: XAMORD+2
Function Call: WRITE	Prompt: !!?5,"Error: A status with order number '"_I_"' to represent" Line Location: XAMORD+9
Function Call: WRITE	Prompt: !?5,"'"_RASTAT_"' is MISSING for this imaging type.",$C(7) Line Location: XAMORD+11
Function Call: WRITE	Prompt: !!?5,$P(RA0,U),"'s Default Next Status (",$P(RA2,U),")'s record is missing" Line Location: XAMORD+19
Function Call: WRITE	Prompt: !!?5,$P(RA0,U),"'s Default Next Status (",$P(RA2,U),") is missing an ORDER no." Line Location: XAMORD+20
Function Call: WRITE	Prompt: ! Line Location: XAMORD+24
Function Call: WRITE	Prompt: !!,RADASH_"Checking Exam Status names"_RADASH,!,?$L(RADASH),"within : ",RAIMGTYJ Line Location: XAMORD+28
Function Call: WRITE	Prompt: !!?5,"Warning : The status with order number '"_I_"' was" Line Location: XAMORD+35
Function Call: WRITE	Prompt: !?5,"named '"_$S(I=0:"CANCELLED",I=1:"WAITING FOR EXAM",1:"COMPLETE")_"', but is now named '",$P(^RA(72,J,0),U),"'",$C(7) Line Location: XAMORD+37
Function Call: WRITE	Prompt: !!?5,"Exam Status names check complete" Line Location: XAMORD+41
Routine Call	DIC Line Location: 1+8 1+20
Routine Call	DIE Line Location: 1+23
Routine Call	DIR Line Location: HDH+1

FileMan Files Accessed Via FileMan Db Call

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)
^RA(72 - [#72]	1+24, XAMORD+5, XAMORD+15, XAMORD+17, XAMORD+30, XAMORD+31, XAMORD+32, XAMORD+33, XAMORD+37
^RA(78.4 - [#78.4]	DSPLNKS+5, DSPLNKS+6, DSPLNKS+8, DSPLNKS+16

Label References

Name	Line Occurrences
HDH	DSPLNKS+40, DSPLNKS+44
HDR	DSPLNKS+25, HDH+2
Q1	1+8
XAMORD	1+33

Naked Globals

Name	Field # of Occurrence
^(	XAMORD+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	1+28!, 1+30!
%X	1+28!
%Y	1+28!
C	1+28!, Q1!
D	Q1!
D0	1+28!
DA	1+23*, 1+24, 1+28!
DDH	Q1!
DE	1+28!
DI	1+28!
DIC	1+7, 1+8!, 1+13, 1+20!
DIC("A"	1+7, 1+14
DIC("DR"	1+14*
DIC("S"	1+15*
DIC("W"	1+19*
DIC(0	1+7, 1+13
DIE	1+23*, 1+28!
DINUM	1+12!
DIR	HDH+1!
DIR(0	HDH+1*
DIROUT	HDH+1!
DIRUT	HDH+1!
DLAYGO	1+12!, 1+13*, 1+20!
DO	1+12!
DQ	1+28!
DR	1+23*, 1+28!
DTOUT	HDH+1!, 1+30!
DUOUT	HDH+1!, 1+30!, Q1!
I	Q1!, XAMORD+4~, XAMORD+5, XAMORD+7, XAMORD+9, XAMORD+14, XAMORD+15, XAMORD+29, XAMORD+30, XAMORD+31 , XAMORD+32, XAMORD+33, XAMORD+35, XAMORD+37
IOF	HDR+1, 1+32
IOM	HDR+1, HDR+2, 1+5
IOSL	DSPLNKS+40, XAMORD+1, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19, XAMORD+20, XAMORD+23, XAMORD+27 , XAMORD+34, XAMORD+36, XAMORD+40
J	XAMORD+4~, XAMORD+15, XAMORD+30, XAMORD+31, XAMORD+32, XAMORD+33, XAMORD+37
POP	Q1!
RA	DSPLNKS+4~
RA(0	DSPLNKS+6*, DSPLNKS+7
RA(1	DSPLNKS+7*, DSPLNKS+9, DSPLNKS+10, DSPLNKS+13
RA(11	DSPLNKS+8*, DSPLNKS+9, DSPLNKS+10, DSPLNKS+13
RA(5	DSPLNKS+7*, DSPLNKS+8
RA0	XAMORD+4~, XAMORD+15*, XAMORD+16, XAMORD+17, XAMORD+19, XAMORD+20
RA2	XAMORD+4~, XAMORD+17*, XAMORD+19, XAMORD+20
RADASH	1+31~*, XAMORD+2, XAMORD+28
RADATE	1+1~, 1+2*
RADICW	1+20!
RADICW(1	1+16*, 1+19
RADICW(2	1+17*, 1+19
RADICW(3	1+18*, 1+19
RAEDT72	1+24*, 1+25, 1+28!
RAEXST	1+28!
RAFS	DSPLNKS+4~
RAFS(	DSPLNKS+27, DSPLNKS+30
RAFS("LU"	DSPLNKS+10*, DSPLNKS+17, DSPLNKS+21
RAFS("LW"	DSPLNKS+10*, DSPLNKS+17
RAFS("UU"	DSPLNKS+18*, DSPLNKS+21
RAFS("UW"	DSPLNKS+13*, DSPLNKS+17, DSPLNKS+21
RAHDR	1+1~, 1+3*
RAIMGTYI	1+6~, 1+10*, 1+14
RAIMGTYJ	1+6~, 1+10*, 1+35, XAMORD+2, XAMORD+5, XAMORD+15, XAMORD+28, XAMORD+30
RALINE	1+1~, 1+5*
RANOERR	1+1~, 1+4*
RAORDXNM	XAMORD+4~, XAMORD+29, XAMORD+38, XAMORD+39
RAORDXST	1+6~, XAMORD+6, XAMORD+19, XAMORD+20, XAMORD+22
RAOUT	DSPLNKS+4~, DSPLNKS+26, DSPLNKS+27, DSPLNKS+44, HDH+2, 1+1~, 1+5, 1+10, 1+11, 1+21* , 1+30!, 1+34, XAMORD+1, XAMORD+3, XAMORD+4, XAMORD+8, XAMORD+10, XAMORD+12, XAMORD+18, XAMORD+19 , XAMORD+20, XAMORD+23, XAMORD+27, XAMORD+29, XAMORD+34, XAMORD+36, XAMORD+39, XAMORD+40
RAPG	1+1~, 1+5*
RASTAT	XAMORD+6~, XAMORD+7*, XAMORD+11
RAXSTIEN	1+23*, 1+30!, Q1!
U	DSPLNKS+7, DSPLNKS+8, 1+10, 1+22, XAMORD+16, XAMORD+17, XAMORD+19, XAMORD+20, XAMORD+31, XAMORD+32 , XAMORD+33, XAMORD+37
X	DSPLNKS+4~, DSPLNKS+5, DSPLNKS+6, DSPLNKS+16, DSPLNKS+17, DSPLNKS+18, DSPLNKS+22~, DSPLNKS+25, HDH+2, HDR~ , 1+28!, 1+30!
X(0	DSPLNKS+24*, DSPLNKS+25, HDR+1
X(1	DSPLNKS+23*, DSPLNKS+24, HDR+2
X(2	DSPLNKS+23*, DSPLNKS+24, HDR+2
Y	DSPLNKS+4~, DSPLNKS+22~, HDH+2, 1+8, 1+10, 1+21, 1+22, 1+23, 1+28!, 1+30!
Y(0	1+22
Y1	DSPLNKS+22~, DSPLNKS+25*, HDH+2, HDR~, HDR+2
Z	DSPLNKS+4~, DSPLNKS+22~, DSPLNKS+27*, DSPLNKS+29, DSPLNKS+30, DSPLNKS+33, DSPLNKS+38
Z(0	DSPLNKS+26*, DSPLNKS+27, DSPLNKS+28, DSPLNKS+30, DSPLNKS+32, DSPLNKS+36

Customize PDF page

Package: Radiology Nuclear Medicine