Routine: RASTED

Call Graph Total: 21

Package	Total	Call Graph
Radiology Nuclear Medicine	15	SEL^RACNLU (A7007,U70033,X7005)^RADD3 EXM^RAHLRPC (TRK70CMA,TRK70CMB)^RAMAINU XCMINTEG^RAMAINU1 ($$CMPAFTR,SVBEFOR)^RAO7XX ^RAORDC $$ORVR^RAORDU PRCCPT^RAPROD ^RASTREQ EN^RAUTL0 (OERR,OERR3)^RAUTL1 ($$LOCK,UNLOCK)^RAUTL12 EN2^RAUTL20 $$PTSEX^RAUTL8
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	2	$$LKUP^XPDKEY ^XUVERIFY

Package

Total

Call Graph

SEL^RACNLU (A7007,U70033,X7005)^RADD3 EXM^RAHLRPC (TRK70CMA,TRK70CMB)^RAMAINU XCMINTEG^RAMAINU1 ($$CMPAFTR,SVBEFOR)^RAO7XX ^RAORDC $$ORVR^RAORDU
PRCCPT^RAPROD ^RASTREQ EN^RAUTL0 (OERR,OERR3)^RAUTL1 ($$LOCK,UNLOCK)^RAUTL12 EN2^RAUTL20 $$PTSEX^RAUTL8

VA Fileman

^DIC ^DIE $$GET1^DIQ ^DIR

Kernel

$$LKUP^XPDKEY ^XUVERIFY

Package	Total	Caller Graph
Radiology Nuclear Medicine	4	RACTTK2 RACTTK8 RAEDCN RASTEXT1

Package

Total

Caller Graph

Radiology Nuclear Medicine

RACTTK2 RACTTK8 RAEDCN RASTEXT1

External References

Name	Field # of Occurrence
^DIC	NEXT
^DIE	ASK+14
$$GET1^DIQ	CHANGE+13
^DIR	KEY, CHANGE+18
SEL^RACNLU	RASTED+11
A7007^RADD3	ASK+41
U70033^RADD3	ASK+16
X7005^RADD3	ASK+40
EXM^RAHLRPC	ASK+51, ASK+70
TRK70CMA^RAMAINU	ASK+25
TRK70CMB^RAMAINU	ASK+11
XCMINTEG^RAMAINU1	ASK+24
$$CMPAFTR^RAO7XX	ASK+50, ASK+69
SVBEFOR^RAO7XX	ASK+13
^RAORDC	ASK+56
$$ORVR^RAORDU	ASK+64, ASK+65
PRCCPT^RAPROD	CHANGE+3
^RASTREQ	ASK+16
EN^RAUTL0	ASK+56
OERR^RAUTL1	ASK+64
OERR3^RAUTL1	ASK+65
$$LOCK^RAUTL12	ASK+7
UNLOCK^RAUTL12	ASK+42
EN2^RAUTL20	ASK+3
$$PTSEX^RAUTL8	CHANGE+9
$$LKUP^XPDKEY	NEXT+2
^XUVERIFY	USER

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: 3 Variable: X Line Location: START+1
Function Call: WRITE	Prompt: $C(7),"Invalid status for case #: ",RACN Line Location: START+1
Function Call: READ	Timeout: 3 Variable: X Line Location: START+2
Function Call: WRITE	Prompt: $C(7),!,"Exam is already complete!!" Line Location: START+2
Function Call: READ	Timeout: 3 Variable: X Line Location: NEXT+1
Function Call: WRITE	Prompt: $C(7),!,"Status has already been set to ",$P(RANEXT,"^") Line Location: NEXT+1
Function Call: READ	Timeout: 3 Variable: X Line Location: NEXT+2
Function Call: WRITE	Prompt: $C(7),!,"You are not authorized to change to this status" Line Location: NEXT+2
Function Call: WRITE	Prompt: !!?15,$C(7),RALINE Line Location: NEXT+6
Function Call: WRITE	Prompt: !!?15,$C(7),"Default Next Status (",$P(RANEXT,U),") is NOT active.",!?15,$C(7),RALINE,! Line Location: NEXT+7
Function Call: WRITE	Prompt: !?15,$C(7),RALINE Line Location: BAD+0
Function Call: WRITE	Prompt: !!?18,$C(7),"There is no valid higher status to advance to.",!?15,$C(7),RALINE Line Location: BAD+1
Function Call: WRITE	Prompt: !! Line Location: KEY+0
Function Call: WRITE	Prompt: !?15,$C(7),RALINE,!!?18,"Next valid status is : ",$P(RANEXT,U),!?15,$C(7),RALINE Line Location: OK1+0
Function Call: WRITE	Prompt: !!,"Name: ",RANME,?40,"Case # : ",RACN,!,"Division : ",$S($D(^DIC(4,+$P(RADT0,"^",3),0)):$P(^(0),"^"),1:"") Line Location: CHANGE+0
Function Call: WRITE	Prompt: !,"Procedure: ",RAPRC Line Location: CHANGE+2
Function Call: WRITE	Prompt: !," *** Old Status: ",$P(RAST0,"^"),!," *** New Status: ",$P(RANEXT,"^") Line Location: CHANGE+17
Function Call: WRITE	Prompt: !!?5,$C(7),"This record is corrupted -- the procedure is missing,",!?5,"please contact your ADPAC or IRM",! Line Location: CHANGE+18
Function Call: READ	Prompt: "Do you wish to continue? YES// " Formatting: ! Timeout: DTIME Variable: X1 Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Answer 'Yes' or 'No'.",! Line Location: ASK+1
Function Call: WRITE	Prompt: !,"...Status ",$S($D(RAAFTER)&($G(RABEFORE)=$G(RAAFTER)):"unchanged",$G(RABEFORE)>$G(RAAFTER):"backed down",1:"successfully changed")," for case #: ",RACN Line Location: ASK+45
Function Call: READ	Timeout: 3 Variable: X Line Location: ASK+48
Function Call: READ	Timeout: 3 Variable: X Line Location: ASK+68
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: USER+0
Function Call: WRITE	Prompt: !!?2,$P(^DD(70.03,RA3,0),"^")," :",?35 Line Location: WHY11+1
Function Call: WRITE	Prompt: $P(^RA(78.3,+$P(RA0,"^",RA3),0),"^") Condition for execution: RA3=13 Line Location: WHY11+2
Function Call: WRITE	Prompt: ! Line Location: WHY11+2
Function Call: WRITE	Prompt: !?4,$P(^DD(70.03,RA4,0),"^")," :" Line Location: WHY11+4
Function Call: WRITE	Prompt: $P($G(^RA(78.3,+^(0),0)),"^") Condition for execution: RA3=13 Line Location: WHY11+5
Function Call: WRITE	Prompt: ! Line Location: WHY11+5
Routine Call	DIE Line Location: ASK+14
Routine Call	DIC Line Location: NEXT
Routine Call	DIR Line Location: KEY CHANGE+18

FileNo	Call Tags
^RADPT - [#70]	Classic Fileman Calls
^RA(72 - [#72]	Classic Fileman Calls
^RAO(75.1 - [#75.1]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(70.03	WHY11+1, WHY11+3, WHY11+4
^DIC(4 - [#4]	CHANGE
^DIC(42 - [#42]	ASK+56
^RA(72 - [#72]	START+1, START+2, START+4, NEXT, NXT, NXT+1, NXT+3, NXT+4, OK0, ASK+59
^RA(78.3 - [#78.3]	WHY11+2, WHY11+5
^RA(79.1 - [#79.1]	CHANGE+1
^RADPT - [#70]	OK2, CHANGE+12, ASK+57, WHY1+3, WHY11+3, WHY11+5
^SC - [#44]	CHANGE+1
^VA(200 - [#200]	WHY11+2, WHY11+5
^XUSEC(	NEXT+2

Name	Line Occurrences
ASK	ASK+1
BAD	NXT+2, NXT+3
KEY	RASTED+11
NXT	NXT+4
OK0	NXT+1, NXT+5
OK2	NEXT+4
START	RASTED+11
USER	ASK+2, USER
USERQ	USER
WHY1	WHY2+1
WHY11	WHY1+4, WHY1+5, WHY1+6
WHYMSG	WHY1+4

Name	Field # of Occurrence
^(	START+4, NEXT, WHY11+5
^("ALERT"	ASK+59
^("P"	OK2
^(0	START+4, CHANGE, CHANGE+1, WHY11+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	USER*
>> %DUZ	USER*
DA	ASK+6*, ASK+16!, WHY1+1, WHY1+3, WHY11+3, WHY11+5
DA(1	WHY1+1, WHY1+3, WHY11+3, WHY11+5
DA(2	WHY1+1, WHY1+3, WHY11+3, WHY11+5
DE	ASK+28!
DIC	NEXT*!
DIC("A"	NEXT*
DIC("S"	NEXT*
DIC(0	NEXT*
>> DIE	ASK+6*
>> DIE("NO^"	ASK+5*, ASK+28!
DIR	KEY!, KEY+1!, CHANGE+18!
DIR("A"	KEY, CHANGE+18
DIR(0	KEY, CHANGE+18
DIROUT	CHANGE+18!
DIRUT	KEY+1!, CHANGE+18!
DQ	ASK+28!
>> DR	ASK+5*
DTIME	ASK
DTOUT	CHANGE+18!
DUOUT	KEY+1!, CHANGE+18!
DUZ	NEXT+2, ASK+2, ASK+40, ASK+41, USER
I2	RASTED+11*, RASTED+12!
I3	RASTED+12!, START*
RA0	WHY1+2~, WHY1+3*, WHY11, WHY11+2
RA1	WHY1+2~, WHY11+4, WHY11+5
RA2	WHY1+2~, WHY1+3, WHYMSG, WHY11+1
RA3	WHY1+2~, WHY1+4, WHY1+5, WHY1+6, WHYMSG, WHYMSG2, WHY11, WHY11+1, WHY11+2, WHY11+5 , WHY2+1~*
RA4	WHY1+2~, WHY1+5, WHY1+6, WHY11+3, WHY11+4, WHY2+1*
RA5	WHY1+2~, WHY11+3*, WHY11+5
RA70033	ASK+16*, ASK+40, ASK+43!
RAAFTER	ASK+4~, ASK+45, ASK+48
RABEFORE	ASK+4~, ASK+16, ASK+45, ASK+48
RACMDA	ASK+23*, ASK+24, ASK+26!
RACMDA(1	ASK+23*
RACMDA(2	ASK+23*
RACN	RASTED+12!, START+1, CHANGE, ASK+45
RACN0	RASTED+12!, OK2*, CHANGE+11, CHANGE+14, CHANGE+15, ASK+56
RACN0A	ASK+44~, ASK+57*, ASK+59, ASK+62, ASK+63
>> RACNI	OK2, CHANGE+12, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25, ASK+40, ASK+41, ASK+57
>> RACNT	RASTED+11
RACOMP	RASTED+12!, ASK+14!
>> RACS	OK2*, ASK+56
RADADA	ASK+6*, ASK+7, ASK+42!
RADFN	RASTED+12!, OK2, CHANGE+9, CHANGE+12, ASK+6, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25 , ASK+40, ASK+41, ASK+57
RADIE	ASK+6*, ASK+7, ASK+42!
RADIOPH	ASK+29!
RADOSE	ASK+29!
RADT0	RASTED+12!, OK2*, CHANGE, CHANGE+1
RADTE	RASTED+12!
>> RADTI	OK2, CHANGE+12, ASK+6, ASK+11, ASK+13, ASK+16, ASK+23, ASK+25, ASK+40, ASK+41 , ASK+57
RADUZ	RASTED+12!, ASK+2*, ASK+40, ASK+41, ASK+43!, USERQ!
RAEND	RASTED+12!
RAEXEDT	ASK+50~, ASK+51, ASK+69~
RAFL	RASTED+12!
RAFST	RASTED+12!
RAHI	ASK+29!
RAI	RASTED+12!, ASK+29!
RAIEN702	ASK+29!
RAIX	RASTED+12!
RAL	RASTED+11*, RASTED+12!
RALINE	NEXT+5~*, NEXT+6, NEXT+7, BAD, BAD+1, OK1
RALOW	ASK+29!
>> RAMDV	ASK+2, ASK+40
RAMEMARR	ASK+3~
RAMIS	ASK+29!
RANEXT	RASTED+12!, START+4, NEXT, NEXT+1, NEXT+2, NEXT+4, NEXT+7, OK0*, OK1, CHANGE+17 , ASK+56
RANM702	ASK+29!
RANME	RASTED+12!, CHANGE
RANXT72	RASTED+12!, START+4, NEXT, OK0*, ASK+16
RANXTIEN	NEXT+5~, NXT, NXT+1, NXT+2, NXT+3, NXT+4, OK0
RAOPRC	ASK+26!
RAORD0	CHANGE+11~*, CHANGE+13
RAORDIFN	ASK+61~, ASK+63*
RAPCOMM	CHANGE+11~, CHANGE+12*, CHANGE+15
RAPOP	RASTED+12!, ASK+2, USERQ
RAPRC	RASTED+12!, CHANGE+2, CHANGE+18
RAPRI	RASTED+12!, ASK+29!
RAPRIT	OK2, ASK+61~, ASK+62
RAPRTSET	ASK+3~
RAPSDRUG	ASK+29!
RAR1	ASK+29!
RAREM	ASK+4~
RARPT	RASTED+12!
RASK	RASTED+12!, START+4, NEXT, ASK+2
RASSN	RASTED+12!
RAST	RASTED+12!, START+1, START+2
RAST0	RASTED+12!, START+2*, START+4, NEXT+1, NEXT+5, CHANGE+17
RATCXX	ASK+41, ASK+43!
RATRKCMB	ASK+11, ASK+25, ASK+28!
RAVW	RASTED+11*, RASTED+12!
RAWHICH	ASK+4~
>> RAXIT	ASK+7*
RAZCM	ASK+28!
U	NEXT+4, NEXT+5, NEXT+7, NXT, NXT+1, NXT+4, OK1, CHANGE+11, CHANGE+14, CHANGE+15 , ASK+56
X	RASTED+11, RASTED+12!, START+1, START+2, NEXT+1, NEXT+2, ASK+16, ASK+48, ASK+68
>> X1	START+3, ASK, ASK+1
>> Y	START, NEXT
>> Y(0	NEXT

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RASTED

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OK1
OK0
OK2
NXT
USERQ
WHY2	;explain why diags prompts are skipped
NEXT
START
BAD
WHYMSG
USER
KEY
ASK
WHYMSG2
WHY1	;explain why prim/sec resid/staff, diagnoses prompts are skipped
CHANGE
WHY11