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

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Radiology Nuclear Medicine 9 REG^RAHLRPC  ^RAORD1  ^RAORDS  SET^RARD  PAT^RAREG  (CKDUPORD,COPYFROM,EXAMDEL,EXAMLOOP,ORDER,SET17,UOSM)^RAREG2  (LABEL,PRNRQ,RSBIT)^RAREG3  (PROCESS,PSETPNT,Q4)^RAREG4  
INSERT^RARTE2  
VA FileMan 4 (C,H,YMD)^%DTC  ^DIE  ^DIK  ^DIR  
Kernel 1 $$STA^XUAF4  

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

Package Total Caller Graph
Radiology Nuclear Medicine 4 EXAMINATIONS  RAMAG03D  RAREG  RAREG4  

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

External References

Name Field # of Occurrence
C^%DTC CAL
H^%DTC CAL
YMD^%DTC CAL+1
^DIE PS1+13
^DIK Q
^DIR PS1+1
REG^RAHLRPC PACS+2
^RAORD1 ASKORD+6
^RAORDS ASKORD+4
SET^RARD ASKORD+5
PAT^RAREG Q1+1
CKDUPORD^RAREG2 PACS+5
COPYFROM^RAREG2 PS1+20
EXAMDEL^RAREG2 EXAM+15
EXAMLOOP^RAREG2 PS1+4
ORDER^RAREG2 PS1+2
SET17^RAREG2 PS1+18
UOSM^RAREG2 EXAM+16
LABEL^RAREG3 Q+2
PRNRQ^RAREG3 Q+1
RSBIT^RAREG3 EXAM+11
PROCESS^RAREG4 EXAM+13
PSETPNT^RAREG4 EXAM+7
Q4^RAREG4 Q1
INSERT^RARTE2 P124+3
$$STA^XUAF4 DUPCNACC+11

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
Routine Call
  • DIE
  • Line Location:
    • PS1+13
Routine Call
  • DIR
  • Line Location:
    • PS1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^RA(79.2 - [#79.2] CN+2, CN+4, CN+11, CN+13, CNQ, DUP+13, DUP+14*, DUP+15, CAL+1*
^RADPT - [#70] EXAM+9, ASET+4, ASET+5, PS1+7, PS1+12, PS1+23
^RADPT("ADC" DUPCNACC+13
^RADPT("AE" CN+11, CAL+1, DUPCNACC+12
^RAMIS(71 - [#71] EXAM+3, PROC
^RAO(75.1 - [#75.1] EXAM+3, PS1+8, CHKORDS+7
^RARPT - [#74] PS1+16, PS1+23
^RARPT("B" P124+3, DUPCNACC+15, DUPCNACC+16
^TMP($J EXAM+10!, EXAM+16, PACS, PACS+1, ASET+3!

Label References

Name Line Occurrences
$$DUPCNACC DUP+5, DUP+13
ASET ASKORD
CAL CN+2, CN+4, CN+13
CHKORDS ASKORD+9
CNQ CN+5, CN+6
DUP CN+2, CN+4
DUPQ DUP+5
EXAM ASKORD+4
PACS ASKORD
PS1 PS1+14, PS1+16, P124+6
Q1 ASKORD+4, ASKORD+5, EXAM+4, EXAM+6

Naked Globals

Name Field # of Occurrence
^("CN" CN+2, CN+11*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %Y CAL
D PS1+13~
D0 PS1+13~
DA Q*, PS1+13~*
DA(1 Q*, PS1+13*
DA(2 PS1+13*
DI PS1+13~
DIC PS1+13~
DIE PS1+13~*
>> DIK Q*
>> DILOCKTM CN+2
DIR ASET+6~
DIR("A" PS1*
DIR(0 PS1*
DQ PS1+13~
DR PS1+13~*
DT CN+2, CAL
DTIME CN+6
N CHKORDS+5~*, CHKORDS+6*, CHKORDS+7, CHKORDS+11
RA1 PS1+22~, PS1+23*, P124+1, P124+2
>> RA17 PS1+16, PS1+23
RA25 PS1+12~*, PS1+13, PS1+14
RA6 EXAM+2~*, EXAM+3*
RA7 EXAM+2~*, EXAM+3*, EXAM+4
RA8 EXAM+2~*, EXAM+3*, EXAM+4
RACCSTR P124+2~*, P124+3
>> RACNI PACS+1*, PS1+7, PS1+13, PS1+18, PS1+20, PS1+23
>> RACNICNT EXAM+10*, ASET+3*
>> RACNT PACS*, PACS+1
RADDMMYY DUPCNACC~, DUPCNACC+10
>> RADFN EXAM+9, PACS+1*, Q, ASET+4, ASET+5, PS1+7, PS1+12, PS1+13, PS1+18, PS1+23
RADPARFL ASKORD+3!, EXAM+6, PACS+5
RADPARPR ASKORD+3!
RADT CNQ+2!
>> RADTE DUP+2
RADTE99 DUP+2*, DUP+5, DUP+13, DUPQ!
>> RADTI EXAM+9, PACS+1*, Q, ASET+4, ASET+5, PS1+7, PS1+12, PS1+13, PS1+18, PS1+23
RAERR PS1+22~
>> RAEXIT EXAM+10*, EXAM+12, EXAM+15, ASET+3*
RAFDA PS1+22~
RAFIRST ASET+4~*, ASET+5, PS1+12
RAIEN PS1+22~
RAII CAL*, CAL+2!
RAJ CN+11*, CNQ+2!, DUP+13*, DUP+14, CAL+1*, CAL+2!
RALACC DUPCNACC+10~*, DUPCNACC+11, DUPCNACC+13, DUPCNACC+15
>> RAMDIV DUPCNACC+11
RAMSG PS1+22~
>> RANME ASKORD+5, ASKORD+6, PS1
RANS CN+6*, CNQ+2!
RAOIFN EXAM+12*, ASET+5*, PS1+8, CHKORDS+5~, CHKORDS+7*
RAOIFN(0 CHKORDS+7*, CHKORDS+11
>> RAOLP ASKORD+4*, EXAM+12*
>> RAORDS ASKORD+4, ASKORD+9, ASKORD+10
>> RAORDS( EXAM+3, EXAM+12
>> RAOUT ASKORD+4
>> RAOVSTS ASKORD+4*
RAPARENT EXAM+9*, EXAM+15, PS1+2~*, PS1+4*
RAPCN DUPCNACC~, DUPCNACC+10, DUPCNACC+12
RAPRC PS1+4!
>> RAPROC PS1+8*
RAPX Q!
>> RAQUIT EXAM+10*, EXAM+12, ASET+3*, PS1+3
RARD ASKORD+5!
RARD("A" ASKORD+5*
RARD("B" ASKORD+5*
RARD(0 ASKORD+5*
RARD(1 ASKORD+5*
RARD(2 ASKORD+5*
>> RAREC Q, ASET+2*
RAREGTMP PACS+1*, PACS+4!
RARPT PS1+22~, PS1+23*, P124+3
RARPTN PS1+22~, PS1+23*, P124+2
RARY CHKORDS~
RARY( CHKORDS+6, CHKORDS+7, CHKORDS+11!
RASET CN+5, CNQ+2!
>> RASKIPIT EXAM+10*, ASET+3*
RASSAN DUPCNACC+10~, DUPCNACC+11*, DUPCNACC+16
RASTATION DUPCNACC+10~, DUPCNACC+11*
RATYPE CN+2, CN+4, CN+11, CN+13, CNQ, CNQ+2!, DUP+13, DUP+14, DUP+15, CAL+1
>> RAVSTFLG ASKORD
RAX CN+2*, CN+4*, CN+5, CN+6, CN+7, CNQ+2!, DUP+5, DUP+15*, CAL*, CAL+2!
RAXIT PS1+22~
RAXX CAL!*, CAL+1, CAL+2!
U ASKORD, EXAM+3, EXAM+9, PACS+1, PROC, PS1+8, PS1+12, PS1+23, CHKORDS+11
X ASKORD+5, CN+5*, CN+6!, CN+7*, CNQ+1!, CAL, CAL+1*, PS1+13~
>> X1 CAL*
>> X2 CAL*
Y EXAM+6, PROC~, PS1+1, PS1+13~
>> YY ASKORD
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All