Routine: RAESO

Information

RAESO ;HISC/CAH,GJC AISC/SAW-Override Exam Status to Complete ;4/28/97 08:00 [ 12/05/2011 10:27 AM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Radiology Nuclear Medicine	5	^RACNLU ($$SSANVAL,$$USESSAN)^RAHLRU1 ^RAORDC SET^RAPSET1 (CLOSE,ZIS)^RAUTL
VA Fileman	5	DD^%DT C^%DTC ^DIC ^DIE ^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RA EXAMSTATUS MASS OVERRIDE RA OVERRIDE

Entry Points

Name	Comments	DBIA/ICR reference
SET
EXIT1
CZECH	; Check for a 'Complete' exam status for a particular imaging type
ASKOVR
SINGLE	;Override Single Exam Status to 'COMPLETE'
EXIT
L1
ASK
HD
DQ

External References

Name	Field # of Occurrence
DD^%DT	ASK+14, SET+1, HD+1
C^%DTC	ASK+14
^DIC	ASK+8
^DIE	SET, ASKOVR+1
^DIR	RAESO+6, ASK+14
^RACNLU	SINGLE+3
$$SSANVAL^RAHLRU1	SINGLE+4
$$USESSAN^RAHLRU1	SINGLE+6, SINGLE+7
^RAORDC	SET+2, ASKOVR+1
SET^RAPSET1	RAESO+3, SINGLE+1
CLOSE^RAUTL	EXIT
ZIS^RAUTL	ASK+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Your sign-on imaging type is ",RAIMGTY,", so only exams",!,"of imaging type ",RAIMGTY," will be changed to complete.",! Line Location: RAESO+5
Function Call: WRITE	Prompt: !!,"Enter a cutoff date that is at least sixty days prior to today." Line Location: ASK+9
Function Call: WRITE	Prompt: ! Line Location: ASK+18
Function Call: WRITE	Prompt: !!,"There were no exams with the statuses selected in the time frame specified that",!,"needed to be overridden to complete." Line Location: DQ+2
Function Call: WRITE	Prompt: !,$E($P(^DPT(RADFN,0),"^"),1,25),?28 Line Location: SET+1
Function Call: WRITE	Prompt: Y,?49,RACN,?57,$S($D(^RA(72,RAST,0)):$E($P(^(0),"^"),1,20),1:"Unknown") Line Location: SET+1
Function Call: WRITE	Prompt: !,?(IOM\2-22),"Cutoff Date for this Report is: ",RAECDTE,!,?(IOM\2-17),"Date Report was Run: " Line Location: HD+1
Function Call: WRITE	Prompt: Y Line Location: HD+1
Function Call: WRITE	Prompt: !!!,"Patient Name",?28,"Exam Date",?49,"Case #",?57,"Status Before Override",! Line Location: HD+2
Function Call: WRITE	Prompt: ! Line Location: SINGLE+3
Function Call: WRITE	Prompt: I Line Location: SINGLE+3
Function Call: WRITE	Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN,!?1,"Case No. : ",RACNDSP,?40,"Procedure : ",$E(RAPRC,1,25) Line Location: SINGLE+6
Function Call: WRITE	Prompt: !?1,"Name : ",$E(RANME,1,25),?40,"Pt ID : ",RASSN,!?1,"Case No. : ",RACN,?40,"Procedure : ",$E(RAPRC,1,25) Line Location: SINGLE+7
Function Call: WRITE	Prompt: !?1,"Exam Date: ",RADATE,?40,"Technologist: " Line Location: SINGLE+8
Function Call: WRITE	Prompt: $E($P(^(0),"^"),1,25) Line Location: SINGLE+8
Function Call: WRITE	Prompt: !?40,"Req Phys : ",$E($S($D(^VA(200,+$P(Y(0),"^",14),0)):$P(^(0),"^"),1:""),1,25),! Line Location: SINGLE+9
Function Call: WRITE	Prompt: I Line Location: SINGLE+9
Function Call: WRITE	Prompt: !,"Sorry, your sign-on imaging type, ",RAIMGTY,!,"doesn't match the imaging type of this exam.",! Line Location: SINGLE+10
Function Call: WRITE	Prompt: !!?3,*7,"...exam 'cancelled' therefore override is not allowed." Line Location: SINGLE+11
Function Call: WRITE	Prompt: !!?3,*7,"...exam is already 'complete'." Line Location: SINGLE+12
Function Call: READ	Prompt: "Are you sure? No// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKOVR+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to override exam status to 'COMPLETE', or 'NO' not to." Line Location: ASKOVR+0
Function Call: WRITE	Prompt: !?6,"...exam status is now '",$P(^RA(72,$O(^RA(72,"AA",RAIMGTY,9,0)),0),"^"),"'.",! Line Location: ASKOVR+1
Function Call: WRITE	Prompt: !?5,"An Examination Status of 'Complete' must be defined for an" Line Location: CZECH+3
Function Call: WRITE	Prompt: !?5,"Imaging Type of: "_RAIMGTY_". Please contact your" Line Location: CZECH+4
Function Call: WRITE	Prompt: !?5,"Radiology/Nuclear Medicine ADPAC for further assistance.",$C(7) Line Location: CZECH+5
Routine Call	DIE Line Location: SET ASKOVR+1
Routine Call	DIC Line Location: ASK+8
Routine Call	DIR Line Location: RAESO+6 ASK+14

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SET+1
^RA(72 - [#72]	SET+1, SINGLE+11, SINGLE+12, ASKOVR+1, CZECH+1
^RA(79.2 - [#79.2]	DQ, SINGLE+10
^RADPT - [#70]	L1, SINGLE+8, SINGLE+10
^RADPT("AS"	DQ+1, L1
^TMP($J	EXIT1+2!
^VA(200 - [#200]	SINGLE+8, SINGLE+9

Label References

Name	Line Occurrences
ASK	ASK+8
ASKOVR	ASKOVR
CZECH	RAESO+4, SINGLE+2
EXIT	RAESO+6, ASK+8, ASK+9, ASK+14, ASK+22
EXIT1	SINGLE+3
HD	DQ+2, SET+1
L1	DQ+1
SET	L1
SINGLE	SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR, ASKOVR+2

Naked Globals

Name	Field # of Occurrence
^(	SINGLE+8
^(0	L1, SET+1, SINGLE+8, SINGLE+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT1!
%DT	EXIT1!
%I	EXIT1!
%X	EXIT1!
%Y	EXIT1!
C	EXIT+3!
D	EXIT1!
D0	EXIT1!
D1	EXIT1!
D2	EXIT1!
D3	EXIT1!
DA	EXIT+1!, SET, ASKOVR+1, EXIT1!
DE	SET!, ASKOVR+1!
DI	EXIT1!
DIC	ASK!*, ASK+9!, EXIT+1!, EXIT1!
DIC("S"	ASK+5*
DIC(0	ASK*
DIE	EXIT+1!, SET!, ASKOVR+1!
DIR	RAESO+6!, RAESO+7!, EXIT+1!
DIR("A"	RAESO+6*
DIR(0	RAESO+6, ASK+14
DIROUT	EXIT+1!
DIRUT	ASK+14, EXIT+1!
DISYS	EXIT+3!
DQ	SET!, ASKOVR+1!
DR	EXIT+1!, SET!, ASKOVR+1!
DT	ASK+14, HD+1
DTIME	ASKOVR
DTOUT	ASK+8, EXIT+1!
DUOUT	ASK+8, EXIT+1!
I	EXIT+3!, SINGLE+3, SINGLE+9
IO	DQ
IOF	HD
IOM	HD, HD+1
IOP	ASK+18*, ASK+21!
IOSL	SET+1
J	EXIT1!
PG	DQ, EXIT+1!, HD
POP	RAESO+3!, EXIT+1!, EXIT+3!, EXIT1!
RA	EXIT+2!
RA(0	L1*, SET
RACN	EXIT+2!, SET*, SET+1, SINGLE+5, SINGLE+7, EXIT1+1!
RACNDSP	SINGLE+4~, SINGLE+5*, SINGLE+6
RACNI	EXIT+2!, L1*, SINGLE+4, SINGLE+8, EXIT1!
RADATE	SINGLE+8, EXIT1+1!
RADFN	DQ+1*, EXIT+2!, L1, SET, SET+1, SINGLE+4, SINGLE+8, SINGLE+10, ASKOVR+1, EXIT1!
RADIV	EXIT1!
RADTE	EXIT+2!, SET*, SET+1, EXIT1+1!
RADTI	DQ+1*, EXIT+2!, L1, SET, SINGLE+4, SINGLE+8, SINGLE+10, EXIT1!
RAECDTE	ASK+14*, EXIT+2!, HD+1
RAECDTI	ASK+14*, DQ+1, EXIT+2!
RAF1	EXIT+2!, SET+1, HD+2*
RAF4	DQ+2, EXIT+2!, SET+1*
RAHEAD	EXIT1+1!
RAI	EXIT1+1!
>> RAIMGTY	RAESO+5, DQ, SINGLE+10, SINGLE+11, SINGLE+12, ASKOVR+1, CZECH+1, CZECH+4
RAIMGTYI	DQ*, EXIT+2!, L1
RAMES	ASK+21*, EXIT+2!
RANME	SINGLE+6, SINGLE+7, EXIT1+1!
RAPIFN	EXIT1+1!
RAPOP	EXIT+2!
RAPRC	SINGLE+6, SINGLE+7, EXIT1+1!
RARPT	EXIT1+1!
RASAVDR	RAESO+4~, SET, SINGLE+2~, ASKOVR+1
RASSAN	SINGLE+4~*, SINGLE+5
RASSN	SINGLE+6, SINGLE+7, EXIT1+1!
RAST	DQ+1*, EXIT+2!, L1, SET+1, SINGLE+11, SINGLE+12, EXIT1+1!
RASTIEN	ASK+9, EXIT+2!
RASTIEN(	ASK+8*, DQ+1
RAVW	SINGLE+3*, EXIT1+1!
RAXIT	RAESO+4~, SINGLE+2~, CZECH+2*
RAZIS	ASK+21*, EXIT+2!
RAZMDV	EXIT+2!
U	L1, SINGLE+10
W	EXIT1+2!
X	RAESO+7!, ASK+14, EXIT+3!, SINGLE+3, ASKOVR*, EXIT1+2!
X1	ASK+14*, EXIT+3!
X2	ASK+14*, EXIT+3!
XQUIT	RAESO+3!, EXIT+3!, SINGLE+1!, EXIT1+2!
Y	RAESO+6, RAESO+7!, ASK+8, ASK+14, EXIT+3!, SET+1, HD+1, ASKOVR+1, EXIT1+2!
Y(0	SINGLE+9
ZTDESC	ASK+21*, EXIT+3!
ZTRTN	ASK+18*, EXIT+3!
ZTSAVE	EXIT+3!
ZTSAVE("RAE*"	ASK+19*
ZTSAVE("RAI*"	ASK+19*
ZTSAVE("RAM*"	ASK+19*
ZTSAVE("RASTIEN("	ASK+20*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAESO

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: