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

Package: Radiology Nuclear Medicine

Routine: RAREG


Information

RAREG ;HISC/GJC AISC/MJK,RMO-Register Rad/NM Patient ;14 Dec 2018 2:02 PM

Source Information

Source file <RAREG.m>

Entry Points

Name Comments DBIA/ICR reference
PAT
DT
DT1
ADD
ADD1
ADD2 ;
Q
BACKDATE(RADT) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Your current Imaging Location: '"_$P($G(RACCESS(DUZ,"LOC",+RAMLC)),U,2)_"' is inactive."
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !?3,"If you wish to register this patient for an exam, locations must be switched.",!
  • Line Location: PAT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+12
Function Call: WRITE
  • Prompt: !?3,*7,"A previous exam date does not exist for this patient!",!
  • Line Location: PAT+17
Function Call: WRITE
  • Prompt: !,*7,"Patient already has exams (which may have been cancelled) for this date/time."
  • Line Location: DT1+2
Function Call: WRITE
  • Prompt: !,"....use 'Add Exams to Last Visit' option, or enter a date/time a few minutes",!," earlier or later."
  • Line Location: DT1+3
Function Call: WRITE
  • Prompt: *7,!,"?? Please try a different time of day (a few minutes later)."
  • Line Location: DT1+8
Function Call: WRITE
  • Prompt: !,*7,"Someone else is now editing an exam for this patient on the date/time",!,"you selected. Please try entering a date/time a few minutes earlier or later."
  • Line Location: DT1+12
Function Call: WRITE
  • Prompt: !?3,"Your current location is defined as: '"
  • Line Location: ADD1+3
Function Call: WRITE
  • Prompt: $P($G(^SC(+$P($G(^RA(79.1,+RAMLC,0)),"^"),0)),"^")_"'."
  • Line Location: ADD1+4
Function Call: WRITE
  • Prompt: !?3,"You must log into the '"
  • Line Location: ADD1+5
Function Call: WRITE
  • Prompt: !?3,"to add exams to the last visit.",$C(7)
  • Line Location: ADD1+7
Function Call: WRITE
  • Prompt: !!?3,*7,"Last visit was before yesterday. No adding exams allowed!"
  • Line Location: ADD1+9
Function Call: WRITE
  • Prompt: !!,"Last Visit Date/Time: "
  • Line Location: ADD1+10
Function Call: WRITE
  • Prompt: Y,!!?1,"Case No.",?18,"Procedure",?50,"Status",!?1,"----------------",?18,"---------",?50,"------"
  • Line Location: ADD1+10
Function Call: WRITE
  • Prompt: !!,"Last Visit Date/Time: "
  • Line Location: ADD1+11
Function Call: WRITE
  • Prompt: Y,!!?1,"Case No.",?10,"Procedure",?42,"Status",!?1,"--------",?10,"---------",?42,"------"
  • Line Location: ADD1+11
Function Call: WRITE
  • Prompt: !!?2,"NOTE: Because all the cases within this exam date/time are"
  • Line Location: ADD1+16
Function Call: WRITE
  • Prompt: !?8,"part of one order set, and a valid report has been filed"
  • Line Location: ADD1+17
Function Call: WRITE
  • Prompt: !?8,"already, additional procedures may not be added to this visit."
  • Line Location: ADD1+18
Function Call: WRITE
  • Prompt: !?8,"You must register the desired exam(s) at a later date/time."
  • Line Location: ADD1+19
Function Call: WRITE
  • Prompt: !?1,RACNDSP,?18,$E($S($D(^RAMIS(71,+$P(Y,"^",2),0)):$P(^(0),"^"),1:"Unknown"),1,30),?50,$S($D(^RA(72,+$P(Y,"^",3),0)):$P(^(0),"^"),1:"Unknown")
  • Line Location: ADD2+3
Function Call: WRITE
  • Prompt: !?3,$P(Y,"^"),?10,$E($S($D(^RAMIS(71,+$P(Y,"^",2),0)):$P(^(0),"^"),1:"Unknown"),1,30),?42,$S($D(^RA(72,+$P(Y,"^",3),0)):$P(^(0),"^"),1:"Unknown")
  • Line Location: ADD2+4
Function Call: WRITE
  • Prompt: !!,"********************************************************"
  • Line Location: BACKDATE+5
Function Call: WRITE
  • Prompt: !,"The Exam date entered is more than one year in the past."
  • Line Location: BACKDATE+6
Function Call: WRITE
  • Prompt: !,"********************************************************"
  • Line Location: BACKDATE+7
Info |  Source |  Entry Points |  Interaction Calls