Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: RACNLU

Package: Radiology Nuclear Medicine

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 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

External References

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

Naked Globals

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All