Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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

Source Information

Source file <RACNLU.m>

Entry Points

Name Comments DBIA/ICR reference
CASE
Q
SEL ;
ADC ;S RAIX="ADC",RACN=$P(X,"-",2),RADTCN=X,X=""
CHK
CHK1
PRT
PRT1
HD
SPACE
QUES
ASKACT
HLP
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
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.
ADC1 ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter Case Number: "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Do you wish to see the entire list of active cases? NO// "
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls