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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: RAREG4

Package: Radiology Nuclear Medicine

Routine: RAREG4


Information

RAREG4 ;HISC/GJC-Register Patient (cont) ;11/5/97 11:38

Source Information

Source file <RAREG4.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Radiology Nuclear Medicine 2 $$PROC^RAREG1  (EXAMLOOP,EXAMSET,MEMSET,ORDER,XTRADESC)^RAREG2  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Radiology Nuclear Medicine 1 RAREG1  

Entry Points

Name Comments DBIA/ICR reference
PSETPNT ; Select an active parent printset procedure.
PROCESS ; Process orders, register exams for both parent procedures
; and non-parent procedures.
EXAM1
EXAM2
Q4 ; Unlock the record at the "DT" level, kill variables

External References

Name Field # of Occurrence
^DIC PSETPNT+9
^DIR EXAM1+5, EXAM2+5
$$PROC^RAREG1 PROCESS+8, PROCESS+14, EXAM1+2, EXAM1+13, EXAM2+2
EXAMLOOP^RAREG2 PROCESS+16, EXAM1+14
EXAMSET^RAREG2 PROCESS+16
MEMSET^RAREG2 PROCESS+16
ORDER^RAREG2 PROCESS+12, EXAM1+14
XTRADESC^RAREG2 EXAM1+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Current procedure for this order is ",$P($G(^RAMIS(71,$P(^RAO(75.1,+RAORDS(RA6),0),U,2),0)),U)
  • Line Location: PSETPNT+3
Function Call: WRITE
  • Prompt: !!?5,"You may replace this with a Printset Parent Procedure",!?5,"of the same imaging type.",!
  • Line Location: PSETPNT+4
Function Call: WRITE
  • Prompt: !!?5,"The selection is invalid.",!,*7
  • Line Location: PSETPNT+11
Function Call: WRITE
  • Prompt: !!?5,"Parent procedures may not be added to this visit.",$C(7)
  • Line Location: PROCESS+5
Function Call: WRITE
  • Prompt: !!?5,"Parent procedure: ",$$PROC^RAREG1(RAPROC)
  • Line Location: PROCESS+8
Function Call: WRITE
  • Prompt: !!?5,"Descendent procedure: ",RAPRC
  • Line Location: PROCESS+15
Function Call: WRITE
  • Prompt: !
  • Line Location: EXAM1+5
Function Call: WRITE
  • Prompt: !!?5,"Procedure: ",$$PROC^RAREG1(RAPROCI)
  • Line Location: EXAM1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EXAM2+5
Routine Call
  • DIC
  • Line Location:
    • PSETPNT+9
Routine Call
  • DIR
  • Line Location:
    • EXAM1+5
    • EXAM2+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RAMIS(71 - [#71] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RADPT - [#70] Q4+1
^RAMIS(71 - [#71] PSETPNT+3, PROCESS+4, PROCESS+7, PROCESS+10, PROCESS+13, EXAM1+1, EXAM1+2
^RAO(75.1 - [#75.1] PSETPNT+3, PROCESS+3, EXAM2+2
^TMP($J Q4+7!

Label References

Name Line Occurrences
EXAM1 PROCESS+11
EXAM2 PROCESS+2

Naked Globals

Name Field # of Occurrence
^("RAREG1" Q4+7!
^(0 PSETPNT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% Q4+4!
%DT Q4+4!
%Y Q4+4!
A Q4+4!
D0 Q4+4!
D1 Q4+4!
D2 Q4+4!
DA Q4+4!
DIC PSETPNT+5*, Q4+4!
DIC("A" PSETPNT+7*
DIC("S" PSETPNT+8*
DIC(0 PSETPNT+6*
DIE Q4+4!
DIFLD Q4+8!
DIK Q4+8!
DIPGM Q4+8!
DIR EXAM1+5!, EXAM2+5!
DIR("A" EXAM1+3*, EXAM1+4*, EXAM2+3*, EXAM2+4*
DIR("B" EXAM1+4*
DIR(0 EXAM1+5*, EXAM2+5*
DIRUT Q4+1!
DISYS Q4+8!
DIV Q4+4!
DK Q4+8!
DL Q4+8!
DM Q4+8!
DQ Q4+8!
DR Q4+4!
>> DTOUT EXAM1+6, EXAM2+6
>> DUOUT EXAM1+6, EXAM2+6
GMRAL Q4+4!
HLN Q4+8!
HLRESLT Q4+8!
HLSAN Q4+8!
J Q4+4!
NOW Q4+4!
POP Q4+4!
PY Q4+1!
RA EXAM1+1~*, EXAM1+2*, EXAM1+3, EXAM2+1~*, EXAM2+2*, EXAM2+3, Q4+1!
RA0 Q4+1!
RA2 Q4+1!
>> RA6 PSETPNT+2*, PSETPNT+3
RABED Q4+1!
RACAT Q4+1!
RACLNC Q4+1!
RACN Q4+1!
RACNI PROCESS+16, Q4+1!
RACNICNT Q4+1!
RACNT Q4+1!
>> RADESC PROCESS+9*, PROCESS+10*, PROCESS+13, EXAM1+1
RADFN PROCESS+16, Q4+1, Q4+4!
RADIV Q4+1!
RADPARFL PSETPNT+11!, PROCESS+3, Q4+7!
RADPARPR PSETPNT+10*, PROCESS+3, Q4+7!
RADT Q4+1!
RADTE Q4+1!
RADTE99 Q4+4!
RADTI PROCESS+16, Q4+1!
RADUZ Q4+1!
RAEXFM Q4+1!
>> RAEXIT PROCESS+10, EXAM1, EXAM1+6*, EXAM1+9, EXAM2, EXAM2+6*
RAEXLBLS Q4+1!
RAFLH Q4+1!
RAFLHCNT Q4+1!
RAFLHFL Q4+4!
RAFMT Q4+1!
>> RAIMG1 PSETPNT+3*
RALIFN Q4+2!
RALOC Q4+2!
RANME EXAM1+4, EXAM2+4, Q4+2!
RANOW Q4+2!
RANS Q4+2!
RANUM Q4+2!
RANUMF Q4+2!
RAOIFN PROCESS+3, Q4+4!
RAOLP EXAM2+1, Q4+2!
RAORDNUM Q4+2!
RAORDS Q4+2!
RAORDS( PSETPNT+3, EXAM2+1
RAORDS(0 PSETPNT+2
RAORDS(1 PSETPNT+1
RAOSTS Q4+2!
RAOUT Q4+2!
RAP Q4+2!
RAP0 Q4+2!
RAPHY Q4+2!
RAPIFN Q4+2!
RAPOP Q4+4!
RAPRC PROCESS+14*, PROCESS+15, Q4+2!
RAPRI Q4+2!
>> RAPROC PROCESS+3*, PROCESS+4, PROCESS+7, PROCESS+8, PROCESS+10, PROCESS+13, EXAM1+1, EXAM1+2, EXAM1+12
>> RAPROCI PROCESS+13*, PROCESS+14, EXAM1+12*, EXAM1+13
RAPTFL Q4+4!
RAPX Q4+4!
RAQUIT PROCESS+10, PROCESS+12, EXAM1+14, EXAM2, Q4+2!
RAR Q4+2!
RARDTE Q4+2!
RAREC Q4+2!
RAREGFLG Q4+2!
RARSH Q4+2!
RASEL Q4+4!
RASER Q4+2!
RASET Q4+2!
RASEX Q4+4!
RASHA Q4+2!
>> RASKIPIT PROCESS+2*, PROCESS+9*, PROCESS+11*, EXAM1+6*, EXAM2+6*
RASX Q4+2!
RATYPE Q4+3!
RAVISIT1 Q4+3!
RAVLECNI Q4+3!
RAVLEDTI Q4+3!
>> RAVSTFLG PROCESS+4
RAWARD Q4+3!
RAX Q4+3!
RAY Q4+3!
RAZ Q4+3!
RT Q4+4!
RTDFN Q4+4!
U PSETPNT+3, PROCESS+3, PROCESS+4, PROCESS+7, PROCESS+13, EXAM1+2, EXAM2+2
VADMVT Q4+3!
VAINDT Q4+3!
X Q4+4!
X0 Q4+8!
Y PSETPNT+1*, PSETPNT+10, PSETPNT+11, EXAM1+6, EXAM2+6, Q4+4!
YY Q4+3!
ZRACCESS Q4+6!
ZRADTI Q4+6!
ZRAIMGTY Q4+6!
ZRAMDIV Q4+6!
ZRAMDV Q4+6!
ZRAMLC Q4+6!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All