Routine: RACNLU

Information

RACNLU ;HISC/CAH,FPT,GJC AISC/MJK,RMO-Case Number Lookup ;11/13/00 09:13 [ 12/05/2011 10:43 AM ]

Source Information

Source file <RACNLU.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Radiology Nuclear Medicine	6	^RADPA ($$SSANVAL,$$USESSAN)^RAHLRU1 $$SW^RAPSET1 ^RAPTLU ($$SSN,D)^RAUTL $$IMGTY^RAUTL12
Kernel	1	$$FMTE^XLFDT

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Radiology Nuclear Medicine	10	RADOSTIK RAEDCN RAEDCN1 RAESO RAHLRS RART RARTE RARTE5 RASTED RAUTL1

Entry Points

Name	Field # of Occurrence
^RADPA	CASE+7
$$SSANVAL^RAHLRU1	PRT+27
$$USESSAN^RAHLRU1	PRT+29, PRT+30
$$SW^RAPSET1	CHECK+4
^RAPTLU	CASE+7
$$SSN^RAUTL	PRT, PRT+29, PRT+30
D^RAUTL	PRT+9
$$IMGTY^RAUTL12	PRT+22, CHECK+3, CHECK+4
$$FMTE^XLFDT	LCASE+5

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Enter Case Number: " Formatting: !! Timeout: DTIME Variable: X Line Location: CASE+1
Function Call: WRITE	Prompt: !?3,*7,"You must enter more than one character of the name!" Line Location: CASE+2
Function Call: WRITE	Prompt: !?3,*7,"No matches found!" Line Location: CHK+0
Function Call: WRITE	Prompt: !?3,*7,"No matches found!" Line Location: CHK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: CHK1+0
Function Call: WRITE	Prompt: *7," ??" Line Location: CHK1+1
Function Call: WRITE	Prompt: !?1,RACNT,?7,RACNDSP Line Location: PRT+29
Function Call: WRITE	Prompt: ?22,"i" Condition for execution: $O(^RARPT(RARPT,2005,0)) Line Location: PRT+29
Function Call: WRITE	Prompt: ?24,$E(RAPRC,1,25),?50,$E(RANME,1,22),?74,$$SSN^RAUTL(RADFN,1) Line Location: PRT+29
Function Call: WRITE	Prompt: !?1,RACNT,?7,$$LCASE(RADTE,RACN) Line Location: PRT+30
Function Call: WRITE	Prompt: ?22,"i" Condition for execution: $O(^RARPT(RARPT,2005,0)) Line Location: PRT+30
Function Call: WRITE	Prompt: ?24,$E(RAPRC,1,25),?50,$E(RANME,1,22),?74,$$SSN^RAUTL(RADFN,1) Line Location: PRT+30
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRT1+0
Function Call: WRITE	Prompt: *7," ??" Line Location: PRT1+1
Function Call: WRITE	Prompt: !!,"Choice",?7,"Case No.",?24,"Procedure",?50,"Name",?74,"Pt ID",!,"------",?7,"---------------",?24,"---------",?50,"-----------------",?74,"------" Line Location: HD+0
Function Call: WRITE	Prompt: " ",X Line Location: SPACE+0
Function Call: WRITE	Prompt: !,"Enter an active case number in the following form '999'..." Line Location: QUES+0
Function Call: WRITE	Prompt: !?10,"...or enter a completed case number as 'MMDDYY-999'" Line Location: QUES+1
Function Call: WRITE	Prompt: !?10,"...or enter a patient's name" Line Location: QUES+2
Function Call: WRITE	Prompt: !?10,"...or enter a patient's 9-digit SSN" Line Location: QUES+3
Function Call: WRITE	Prompt: !?10,"...or enter the first character of the patient's",!?13,"last name and the last four digits of their SSN." Line Location: QUES+4
Function Call: READ	Prompt: "Do you wish to see the entire list of active cases? NO// " Formatting: !! Timeout: DTIME Variable: X Line Location: ASKACT+0
Function Call: WRITE	Prompt: !!?3,"Enter 'YES' to list all active cases, or 'NO' not to." Line Location: ASKACT+0
Function Call: WRITE	Prompt: !!?3,"Enter the number corresponding to the exam you wish to select.",! Line Location: HLP+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	PRT+5
^DISV(	CASE+13*, SPACE
^DPT - [#2]	PRT
^RA(79 - [#79]	PRT+5
^RA(79.2 - [#79.2]	PRT+7
^RADPT - [#70]	CASE+13, SEL+5, ADC+2, PRT, PRT+2, PRT+3, PRT+10, PRT+26, SPACE, ADC1+2
^RAMIS(71 - [#71]	PRT+23
^RARPT - [#74]	PRT+29, PRT+30
^TMP("MAG"	Q!
^TMP($J	SEL+1!, CHK+2, CHK1+1, CHK1+2, PRT+20, PRT+24*, PRT+26, PRT1+1, PRT1+2

Label References

Name	Line Occurrences
$$LCASE	PRT+28, PRT+30, SPACE
ADC	SEL+1
ADC1	ADC+3
ASKACT	ASKACT
CASE	CASE+2, CASE+7, CASE+10, CASE+11
CHECK	CHK+2, CHK1+2
CHK	SEL+6
CHK1	CHK1
HD	PRT+29, PRT+30
HLP	CHK1, PRT1
PRT	SEL+5, ADC+2, ADC1+2
PRT1	PRT1
Q	CASE+1, CASE+11
QUES	CASE+10, CASE+11
SEL	CASE+11
SPACE	CASE+11

Name	Field # of Occurrence
^(	SEL+5, ADC+2, ADC1+2
^("CASE #"	SPACE
^(0	PRT, PRT+10, PRT+23, SPACE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DIC(0	CASE+7*
DTIME	CASE+1, CHK1, PRT1, ASKACT
DUZ	CASE+13, SPACE
I	CASE+11*, Q!
>> ORVP	PRT+20, PRT+22
RACN	CASE+12, SEL+5, ADC+1, PRT+24, PRT+26, PRT+28, PRT+30, LCASE~, LCASE+5, CHECK+8!
RACNDSP	PRT+27~, PRT+28*, PRT+29
RACNI	CASE+13, SEL+5, ADC+2, PRT+10, PRT+24, PRT+27, CHECK+8!, ADC1+2*
RACNT	CASE+11, CASE+12, Q!, SEL+1, ADC+3, CHK, CHK+2, CHK1, PRT+23, PRT+24 , PRT+26, PRT+29, PRT+30, PRT1
RADATE	PRT+9*, PRT+24, CHECK+8!
RADFN	CASE+7, CASE+13, SEL+5, ADC+2, PRT, PRT+2, PRT+3, PRT+10, PRT+22, PRT+24 , PRT+26, PRT+27, PRT+29, PRT+30, CHECK+8!, ADC1+2
RADIV	CASE~, PRT+1!, PRT+4, PRT+5, PRT+6*, PRT+12, PRT+20
>> RADIVIEN	PRT+4*
RADT	LCASE~, LCASE+5
RADTCN	Q!, ADC+1*, ADC+2, PRT+26, ADC1+2
RADTE	PRT+9*, PRT+24, PRT+28, PRT+30, CHECK+8!
RADTI	CASE+13, SEL+5, ADC+2, PRT+2, PRT+3, PRT+10, PRT+22, PRT+24, PRT+27, CHECK+8! , ADC1+2*
RADTX	SPACE*!
>> RADUPSCN	PRT+20, PRT+22
RAEND	Q!, SEL+1*, SEL+5, PRT+26, CHECK+8!
RAFL	Q!, PRT, PRT+2, PRT+10
RAFST	Q!, SEL+1*, SEL+5, CHECK+8!
>> RAHEAD	CASE+7*
RAIMAGE	CASE~, PRT+4, PRT+7, PRT+8*, PRT+20
>> RAIMGTY	PRT+22, CHECK+3, CHECK+4
RAIX	Q!, SEL+1, SEL+5, ADC+1, ADC+2, PRT+26, CHECK+8!, ADC1+1*, ADC1+2
RAMASK	CHECK+2~*, CHECK+7
RANME	CASE+12, PRT*, PRT+24, PRT+29, PRT+30, CHECK+8!
RANODE	CASE~, PRT+3*, PRT+4, PRT+9
>> RANOSCRN	PRT+20, PRT+22
>> RAOPT("EDITCN"	CHK+2, CHK1+2, PRT+22, CHECK+2
RAPRC	CASE+12, PRT+23*, PRT+24, PRT+29, PRT+30, CHECK+8!
RARPT	PRT+23*, PRT+24, PRT+29, PRT+30, CHECK+8!
RARTRN	CHECK+2~, CHECK+4*, CHECK+6, CHECK+8
RASSAN	PRT+27~*, PRT+28
RASSN	PRT*, PRT+24, CHECK+8!
RAST	PRT+23*, PRT+24, CHECK+8!
>> RAVW	PRT+26
X	CASE+1, CASE+2, CASE+7, CASE+10, CASE+11, SEL+1, SEL+5, ADC+1, ADC+2, CHK , CHK+2, CHK1, CHK1+1, CHK1+2, PRT+26, PRT1, PRT1+1, PRT1+2, SPACE, SPACE+1 , ASKACT, ASKACT+1, CHECK+4~, CHECK+8, ADC1+2
>> Y	CASE+7, CASE+11, CHK+2, CHK1+2, PRT+9, PRT+10, PRT+23, PRT+26, PRT1+2, CHECK+2 , CHECK+3, CHECK+4, CHECK+7*
>> Y(0	CASE+13*

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RACNLU

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
CASE
PRT1
SPACE
ASKACT
CHK
CHK1
HLP
Q
PRT
QUES
ADC	;S RAIX="ADC",RACN=$P(X,"-",2),RADTCN=X,X=""
ADC1	;
LCASE(RADT,RACN)	; Pass back the long case number. ; Input : RADT -> FM date (internal format) ; RACN -> Case # ; Output: long case number i.e, '010197-100' ; RTK 3/16/2009 ADDED NEXT 2 LINES FOR USE WITH SSAN P47
SEL	;
CHECK	; Check if the exam selected is of the same imaging type as the sign-on ; location. Must be in the 'Case No. Exam Edit' option.
HD