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

Package: Radiology Nuclear Medicine

Routine: RAREG


Information

RAREG ;HISC/GJC AISC/MJK,RMO-Register Rad/NM Patient ;8/15/97 11:04

Source Information

Source file <RAREG.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Radiology Nuclear Medicine 11 ^RADEM2  ^RADPA  $$STUB^RAEDCN1  $$USESSAN^RAHLRU1  ^RAPSET  (KILL,SET)^RAPSET1  SET^RARD  ^RAREG1  
^RASERV  D^RAUTL  $$INLO^RAUTL13  
VA Fileman 3 ^%DT  C^%DTC  ^DIR  
Kernel 2 HOME^%ZIS  ($$FMADD,$$NOW)^XLFDT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RA ADDEXAM  RA REG  RAREG1  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DT+5, BACKDATE+3
C^%DTC ADD1+9
HOME^%ZIS PAT+16
^DIR PAT+10, ADD1+8, ADD1+15
^RADEM2 PAT+17
^RADPA PAT+16
$$STUB^RAEDCN1 ADD2+11
$$USESSAN^RAHLRU1 ADD1+10, ADD1+11, ADD2+3, ADD2+4
^RAPSET PAT+12
KILL^RAPSET1 PAT+12
SET^RAPSET1 PAT
SET^RARD ADD1+22
^RAREG1 DT1+15
^RASERV DT1+14
D^RAUTL ADD1+10, ADD1+11
$$INLO^RAUTL13 PAT+3
$$FMADD^XLFDT DT+4
$$NOW^XLFDT DT+4

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
Routine Call
  • %ZIS
  • Line Location:
    • PAT+16
Routine Call
  • DIR
  • Line Location:
    • PAT+10
    • ADD1+8
    • ADD1+15

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(70 PAT+16
^DD(75.1 ADD2+5
^DIC(34 - [#34] ADD2+6
^RA(72 - [#72] ADD2+3, ADD2+4
^RA(79 - [#79] DT
^RA(79.1 - [#79.1] ADD1+2, ADD1+4, ADD1+6
^RADPT - [#70] PAT+17, DT1+1, DT1+8, DT1+12, ADD1, ADD1+13, ADD2+6
^RAMIS(71 - [#71] ADD2+3, ADD2+4
^RARPT - [#74] ADD2+10
^SC - [#44] ADD1+2, ADD1+4, ADD1+6, ADD2+7
^VA(200 - [#200] ADD2+7
^XUSEC("RA MGR" ADD1+9

Label References

Name Line Occurrences
$$BACKDATE DT+8
ADD1 PAT+17
ADD2 ADD1+13
DT DT+5, DT+8, DT1+1, DT1+8, DT1+12
DT1 ADD1+23
PAT ADD
Q PAT+16, PAT+17, DT+2, ADD1+1, ADD1+9, ADD1+22

Naked Globals

Name Field # of Occurrence
^( PAT+17, ADD1+13
^("R" ADD2+6
^(0 ADD1+2, ADD1+6, ADD1+13, ADD2+3, ADD2+4, ADD2+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q!
%DT DT+4*, DT+5!, Q!, BACKDATE+3!
%DT(0 DT+4*
%W Q+1!
%X Q+1!
%Y Q+1!
%Y1 Q+1!
D Q+1!
D3 Q+1!
DA Q!
DDER Q+1!
DDH Q+1!
DFN Q+1!
DI Q+1!
DIC Q!
DIC(0 PAT+16*
DIG Q+1!
DIH Q+1!
DIR PAT+2!, PAT+10!, ADD1+8!, ADD1+15~
DIR("?" PAT+9*
DIR("A" PAT+8*
DIR("B" PAT+7*
DIR(0 PAT+7*, ADD1+8*, ADD1+15*
DIROUT PAT+2!, PAT+10!
DIRUT PAT+2!, PAT+10!
DIU Q+1!
DIW Q+1!
DIWF Q+1!
DIWI Q+1!
DIWL Q+1!
DIWR Q+1!
DIWT Q+2!
DIWTC Q+2!
DIWX Q+2!
DN Q+2!
DT ADD1+9
DTIME DT+1, ADD1+20, BACKDATE+8
DTOUT PAT+2!, PAT+10!
DUOUT PAT+2!, PAT+10!
DUZ PAT+5, ADD1+9
GMRAL Q!
I ADD1+13*, ADD2+5, ADD2+6, Q+2!
IOSL ADD1+15
>> J PAT+17*, ADD1, ADD1+13, ADD2+5, ADD2+6
POP Q!
RA0 ADD1+12~
RA1 ADD1+12~*, ADD1+14, ADD2+12*
RA17 ADD1+12~, ADD2+9*, ADD2+10!, ADD2+11, ADD2+12!
RAANS BACKDATE+1~, BACKDATE+8*, BACKDATE+9
RABED DT1+14!, Q!
RACANC Q+2!
RACAT PAT+16*, DT1+13*, DT1+14*, ADD2+5*, ADD2+6, Q!
RACCESS PAT+13!
RACCESS( PAT+5
RACN0 Q+2!
RACNDSP ADD2+1~, ADD2+2*, ADD2+3
RACON BACKDATE+1~, BACKDATE+2*, BACKDATE+9*, BACKDATE+10
RACPT Q+2!
RACPTNDE Q+2!
RADFN PAT+16*, PAT+17, DT1+1, DT1+8, DT1+12, ADD1, ADD1+13, ADD2+6, Q!
RADIRYN PAT+2!, PAT+4!, PAT+11*, PAT+15!
RADIV ADD2+5*, Q!
RADT BACKDATE~, BACKDATE+4
RADTE RAREG+3!, DT1*, DT1+8, Q!
RADTEBAD DT!, DT1+8*, DT1+13!
RADTI DT1*, DT1+1, DT1+12, Q!
RAEXIT Q+2!
RAEXMDAT BACKDATE+1~
RAHRS DT~*, DT+4
RAHSMULT Q+2!
RAI Q+2!
RAINATVE PAT+2!, PAT+3*, PAT+4!, PAT+15!
RALIFN ADD2+5!, ADD2+7*, Q!
>> RAMDIV DT
>> RAMLC PAT+3, PAT+5, ADD1+1, ADD1+4
RAN Q+3!
RANME Q!
>> RANOW DT+3*, DT1+13, DT1+14
RAOBR4 Q+3!
RAOIFN Q!
RAPARENT Q+3!
RAPIFN ADD2+5!, ADD2+7*, Q!
RAPOP PAT+17, Q!
RAPRCNDE Q+3!
RAPROC Q+3!
RAPROCI Q+3!
RAPROCIT Q+3!
RAPRV Q+3!
RAPTFL Q!
RARD ADD1+22!
RARD("A" ADD1+22*
RARD("B" ADD1+22*
RARD(0 ADD1+22*
RARD(1 ADD1+22*
RARD(2 ADD1+22*
RARDTE ADD2+5!, ADD2+7*, Q!
>> RAREC ADD1+23*
RAREGFLG PAT+16*, Q!
RARSH ADD2+5!, ADD2+6*, Q!
RASER DT1+14!, Q!
RASEX Q!
RASHA ADD2+5!, ADD2+6*, Q!
RASKIPIT Q+3!
RASSAN ADD2+1~*, ADD2+2
RATODAY BACKDATE+1~, BACKDATE+3*, BACKDATE+4
RAVLECNI ADD2+5!*, Q!
RAVLEDTI ADD2+5!*, Q!
RAVSTFLG PAT+16, PAT+17, DT1+1, ADD*, Q!
RAWARD DT1+13, DT1+14!, ADD2+5, Q!
U PAT+5, ADD1+14
VA Q+4!
VADM Q+4!
VAERR Q+4!
X PAT+11!, PAT+16!, DT+1*, DT+2, DT+3*, ADD1+9, ADD1+22, Q!, BACKDATE+3*
>> X1 ADD1+9*
>> X2 ADD1+9*
XQUIT PAT!, PAT+4, PAT+13, Q!
Y PAT+11!, PAT+16, DT+5, DT+8, DT1, ADD1+10*, ADD1+11*, ADD1+13*, ADD1+14*, ADD1+15
, ADD1+20~*, ADD1+23*, ADD2+1, ADD2+2, ADD2+3, ADD2+4, ADD2+5, ADD2+6, ADD2+7, ADD2+8
, ADD2+9, Q!, BACKDATE+1~, BACKDATE+3
Y(0 PAT+16
YY ADD1*, ADD1+1, ADD1+2, ADD1+6, ADD1+9, ADD1+10, ADD1+11, ADD1+14, ADD1+23, ADD2+5
, Q!
Z Q+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All