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

Package: Radiology Nuclear Medicine

Routine: RAREG1


Information

RAREG1 ;HISC/CAH,FPT,DAD AISC/MJK,RMO - Register Patient ; May 31, 2024@16:27:41

Source Information

Source file <RAREG1.m>

Entry Points

Name Comments DBIA/ICR reference
ASKORD
EXAM ;
; block mixture of single proc with parent procedures
PACS
Q
Q1
CN ;VARIABLES RATYPE,RADT AND RASET MUST EXIST AT THIS POINT
; 11/05/2008 BAY/KAM rem call 273496 RA*5*93 Add lock timeout to next line
CNQ
DUP ;Check to prevent use of same case number/date pair ;ch
; both short and long case numbers will be checked for duplicates 091500
DUPQ
CAL
PROC(Y)
ASET ; register extra cases for a exam/print set that has no VALID report yet
; there may be a stub report from imaging for this set
PS1
P124 ;begin RA5P124 update
CHKORDS(RARY) ;check all the RIS orders on file.
DUPCNACC(RADDMMYY,RAPCN) ;checks for duplicate case/exam accession/report accession numbers. Ski RA5P214

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKORD+4
Function Call: WRITE
  • Prompt: !!?3,"...requesting an exam for ",RANME,"...",!
  • Line Location: ASKORD+6
Function Call: WRITE
  • Prompt: !!?7,$C(7),"You may not register a mixture of single and parent procedures.",!
  • Line Location: EXAM+4
Function Call: WRITE
  • Prompt: !!?3,$C(7),"No exams entered for this visit. Must delete..."
  • Line Location: Q+0
Function Call: WRITE
  • Prompt: "...deletion complete!"
  • Line Location: Q+0
Function Call: READ
  • Variable: RANS
  • Timeout: DTIME
  • Line Location: CN+6
Function Call: WRITE
  • Prompt: !!?3,$C(7),"You have reached the maximum limit for case numbers (99,999).",!?3,"You must first complete/purge your old exams before you can proceed."
  • Line Location: CNQ+1
Info |  Source |  Entry Points |  Interaction Calls