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

Package: Radiology Nuclear Medicine

Routine: RAREG2


Information

RAREG2 ;HISC/CAH,FPT,DAD,SS AISC/MJK,RMO-Register Patient ;04 Dec 2018 1:05 PM

Source Information

Source file <RAREG2.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Radiology Nuclear Medicine 5 $$EN1^RAO7XX  ^RAORDU  SL^RAREG3  (COPY3,COPY4,COPY5)^RARTE2  ($$PRCEXA,$$PTAGE,$$PTSEX)^RAUTL8  
VA FileMan 3 (,FILE)^DIE  (,IX1)^DIK  ^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: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RAMAG03  RAREG1  RAREG4  

Entry Points

Name Comments DBIA/ICR reference
ORDER ; Get data from ordered procedure for registration
EXAMLOOP ; register the exam
EXAMDEL ; Delete examset if incomplete
XTRADESC ; Ask extra descendent procedures for a parent
EXAMSET ; Set the EXAM SET field if a parent is registered
MEMSET(RAX,RAY,RAZ) ; Set 'MEMBER OF SET' field on the exam node
; if the procedure is a descendant procedure.
; Var List: RAX <-> RADFN : RAY <-> RADTI : RAZ <-> RACNI
SET17(RAX,RAY,RAZ) ; quad slash piece 17 on exam node
UOSM ; called from RAREG1
; update order status and send OE v3.0 message
; This code will $O through the ^TMP($J,"RAREG1" global and make
; just one call per order/request number to ^RAORDU to update the
; status in File 75.1. One call to ^RAORDU per order/request number
; means only one HL7 type message per order/request will be sent to
; OE v3.0.
CKDUPORD ; ck for dupl procedures in outstanding orders
CKD1
COPYFROM(RAZ) ;called by RAREG1 if add exam shd copy dx/staff/resident

External References

Name Field # of Occurrence
^DIE EXAMLOOP+4, EXAMDEL+10, EXAMSET+5, MEMSET+6, SET17+10
FILE^DIE EXAMLOOP+31, EXAMLOOP+35
^DIK EXAMLOOP+12, EXAMDEL+8
IX1^DIK COPYFROM+32
^DIR XTRADESC+5
$$EN1^RAO7XX UOSM+16
^RAORDU UOSM+17
SL^RAREG3 ORDER+4
COPY3^RARTE2 COPYFROM+25
COPY4^RARTE2 COPYFROM+26
COPY5^RARTE2 COPYFROM+27
$$PRCEXA^RAUTL8 EXAMLOOP+3
$$PTAGE^RAUTL8 EXAMLOOP+26
$$PTSEX^RAUTL8 EXAMLOOP+3, EXAMLOOP+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!?5,"Someone else has already started editing a record for this",!?5,"patient at this time, please try a few minutes later."
  • Line Location: ORDER+11
Function Call: WRITE
  • Prompt: !?3,$C(7),"Exam entry not complete. Must delete..."
  • Line Location: EXAMLOOP+9
Function Call: WRITE
  • Prompt: !!?3,$C(7),"Exam entry not complete. Must delete all descendent exams..."
  • Line Location: EXAMDEL+1
Function Call: WRITE
  • Prompt: !?3,"Deletion complete!",!
  • Line Location: EXAMDEL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: XTRADESC+5
Function Call: WRITE
  • Prompt: !?5,$P(^RAMIS(71,RA6,0),U)
  • Line Location: CKD1+7
Function Call: WRITE
  • Prompt: ?35,"(parent=",$P(^RAMIS(71,$P($G(^RAO(75.1,RA7,0)),U,2),0),U),")"
  • Condition for execution: ^TMP($J,"PRO-ORD",RA6,RA7)="DESC"
  • Line Location: CKD1+7
Routine Call
  • DIE
  • Line Location:
    • EXAMLOOP+4
    • EXAMDEL+10
    • EXAMSET+5
    • MEMSET+6
    • SET17+10
Routine Call
  • DIE
  • Line Location:
    • EXAMLOOP+31
    • EXAMLOOP+35
Routine Call
  • DIR
  • Line Location:
    • XTRADESC+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RADPT - [#70] Classic Fileman Calls
^RAO(75.1 - [#75.1] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(75.1 ORDER+3
^DIC(34 - [#34] ORDER+5
^DISV( EXAMLOOP+39*
^RADPT - [#70] ORDER+10, EXAMLOOP+22, EXAMLOOP+23, EXAMLOOP+32, EXAMLOOP+34, EXAMLOOP+38*, MEMSET+3, SET17+7, COPYFROM+3, COPYFROM+4
, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20, COPYFROM+22*, COPYFROM+23*, COPYFROM+24*
^RAMIS(71 - [#71] ORDER+2, EXAMLOOP+37, MEMSET+6, CKD1+7
^RAO(75.1 - [#75.1] ORDER+2, ORDER+5, EXAMLOOP+38, UOSM+15, CKD1+7
^SC - [#44] ORDER+6, ORDER+7
^TMP($J EXAMLOOP+7*, EXAMLOOP+13!, EXAMLOOP+40*, EXAMDEL+3, EXAMDEL+4, EXAMDEL+9!, UOSM+8, UOSM+11, UOSM+12, CKD1
, CKD1+1, CKD1+2!, CKD1+3, CKD1+7
^VA(200 - [#200] ORDER+6

Label References

Name Line Occurrences
CKD1 CKD1+1, CKD1+3, CKD1+8
EXAMLOOP XTRADESC+9
MEMSET XTRADESC+9
ORDER XTRADESC+8

Naked Globals

Name Field # of Occurrence
^( COPYFROM+18, COPYFROM+19, COPYFROM+20
^("H" EXAMLOOP+38
^("R" ORDER+5
^("SL" ORDER+7
^(0 ORDER+2, ORDER+5, ORDER+7, EXAMLOOP+38, COPYFROM+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D MEMSET+4~, SET17+8~
D0 MEMSET+4~, SET17+8~
DA EXAMLOOP+4*, EXAMLOOP+10*, EXAMDEL+6*, EXAMDEL+10*, EXAMSET+1~, EXAMSET+3*, MEMSET+4~, MEMSET+6*, SET17+8~, SET17+10*
, COPYFROM+31*
DA(1 EXAMLOOP+10*, EXAMLOOP+12, EXAMDEL+6*, EXAMDEL+8, EXAMSET+3*, MEMSET+6*, SET17+10*, COPYFROM+31*
DA(2 EXAMLOOP+10*, EXAMLOOP+12, EXAMDEL+5*, EXAMDEL+8, MEMSET+6*, SET17+10*, COPYFROM+31*
DE EXAMLOOP+4!
DI MEMSET+4~, SET17+8~
DIC MEMSET+4~, SET17+8~
DIE EXAMLOOP+4*, EXAMDEL+10!*, EXAMSET+1~, EXAMSET+2*, MEMSET+4~, MEMSET+5*, SET17+8~, SET17+9*
DIE("NO^" EXAMLOOP+4*!
>> DIK EXAMLOOP+12*, EXAMDEL+8*, COPYFROM+30*
DIR XTRADESC+3~
DIR("A" XTRADESC+4*
DIR(0 XTRADESC+3*
DQ EXAMLOOP+4!, MEMSET+4~, SET17+8~
DR EXAMLOOP+4*, EXAMLOOP+41!, EXAMDEL+10!*, EXAMSET+1~, EXAMSET+4*, MEMSET+4~, MEMSET+6*, SET17+8~, SET17+10*
DTIME ORDER+11
>> DTOUT XTRADESC+6
>> DUOUT XTRADESC+6
DUZ EXAMLOOP+39
>> I EXAMLOOP+38*
RA EXAMDEL+4*, EXAMDEL+5, EXAMDEL+6, COPYFROM+5~, COPYFROM+18*, COPYFROM+19*, COPYFROM+20*
>> RA17 SET17+10
RA18PCHG UOSM+16~*
RA1PD COPYFROM+12~, COPYFROM+17*, COPYFROM+24
RA1PR COPYFROM+10~, COPYFROM+17*, COPYFROM+22
RA1PS COPYFROM+10~, COPYFROM+17*, COPYFROM+23
RA1SD COPYFROM+12~
RA1SD( COPYFROM+20*
RA1SD("" COPYFROM+27
RA1SR COPYFROM+11~
RA1SR( COPYFROM+18*
RA1SR("" COPYFROM+25
RA1SS COPYFROM+11~
RA1SS( COPYFROM+19*
RA1SS("" COPYFROM+26
RA2 COPYFROM+5~, COPYFROM+15*
RA3 EXAMLOOP+20~, EXAMLOOP+22*, EXAMLOOP+24, EXAMLOOP+25, EXAMLOOP+28, EXAMLOOP+30, COPYFROM+5~, COPYFROM+25*, COPYFROM+26*, COPYFROM+27*
RA5 COPYFROM+5~*, COPYFROM+22*, COPYFROM+23*, COPYFROM+24*, COPYFROM+25*, COPYFROM+26*, COPYFROM+27*, COPYFROM+28
>> RA6 CKDUPORD+1*, CKD1*, CKD1+1, CKD1+2, CKD1+3, CKD1+7
>> RA7 CKD1+1*, CKD1+2, CKD1+6*, CKD1+7*
RA703DAT EXAMLOOP+3*, EXAMLOOP+19, EXAMLOOP+21, EXAMLOOP+41!
>> RA8 CKDUPORD+1*, CKD1+4, CKD1+5*
RAAHEAD ORDER+9~, ORDER+10*, ORDER+11*
>> RACAT ORDER+3*, ORDER+5
RACLNC ORDER+1!, ORDER+7*, EXAMLOOP+42!
RACMTHOD EXAMLOOP+5!
>> RACN EXAMLOOP+4*
>> RACNI EXAMLOOP+7, EXAMLOOP+10, EXAMLOOP+30, EXAMLOOP+34, EXAMLOOP+38, EXAMLOOP+39, EXAMDEL+6*, XTRADESC+9
>> RACNICNT EXAMLOOP+6*, EXAMLOOP+7, EXAMLOOP+13
RACNIEN EXAMLOOP+20~, EXAMLOOP+21*, EXAMLOOP+22, EXAMLOOP+23, EXAMLOOP+32, EXAMLOOP+34
RACNT UOSM+9~, UOSM+10*, UOSM+11*, UOSM+12
>> RADFN ORDER+10, EXAMLOOP+3, EXAMLOOP+4, EXAMLOOP+7, EXAMLOOP+10, EXAMLOOP+18, EXAMLOOP+22, EXAMLOOP+23, EXAMLOOP+26, EXAMLOOP+30
, EXAMLOOP+32, EXAMLOOP+34, EXAMLOOP+38, EXAMLOOP+39, EXAMDEL+5*, XTRADESC+9, EXAMSET+2, EXAMSET+3, COPYFROM+3, COPYFROM+4
, COPYFROM+15, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20, COPYFROM+22, COPYFROM+23, COPYFROM+24, COPYFROM+30, COPYFROM+31
>> RADPARFL ORDER+2, EXAMLOOP+40
>> RADPARPR ORDER+2
>> RADTE ORDER+10, ORDER+11
>> RADTI EXAMLOOP+7, EXAMLOOP+10, EXAMLOOP+30, EXAMLOOP+34, EXAMLOOP+38, EXAMLOOP+39, EXAMDEL+6*, XTRADESC+9, EXAMSET+3, COPYFROM+3
, COPYFROM+4, COPYFROM+15, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20, COPYFROM+22, COPYFROM+23, COPYFROM+24, COPYFROM+30
, COPYFROM+31
RADTIEN EXAMLOOP+20~, EXAMLOOP+21*, EXAMLOOP+22, EXAMLOOP+23, EXAMLOOP+32, EXAMLOOP+34
>> RAEXIT XTRADESC+2, XTRADESC+6*, XTRADESC+7
RAFDA EXAMLOOP+29~, EXAMLOOP+33~, COPYFROM+13~
RAFDA( EXAMLOOP+30*, EXAMLOOP+34*
RAFIN EXAMLOOP+8, EXAMLOOP+41!
>> RAFIRST COPYFROM+2, COPYFROM+4, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20
RAFM EXAMLOOP+5!
RAFM1 EXAMLOOP+5!
RAI EXAMLOOP+5!
RAIEN COPYFROM+13~
RAIEN702 EXAMLOOP+5!
RALIFN ORDER+1!, ORDER+6*, ORDER+7, EXAMLOOP+42!
RALOC ORDER+1!, ORDER+7*, EXAMLOOP+42!
RAMOD EXAMLOOP+5!
RAMSG COPYFROM+13~
>> RANME XTRADESC+4
RANMFLG EXAMLOOP+5!
>> RAOIFN ORDER+2, ORDER+5, EXAMLOOP+7, EXAMLOOP+38, EXAMLOOP+40, EXAMDEL+5*, EXAMDEL+10, UOSM+13*, UOSM+14, UOSM+15
, UOSM+16, UOSM+18
>> RAOPT("ADDEXAM" EXAMLOOP+3, EXAMLOOP+18
RAORDNUM UOSM+9~
RAORDNUM( UOSM+14, UOSM+18*
RAOSTS EXAMLOOP+42!, UOSM+17*
>> RAPARENT EXAMLOOP+37*
RAPCOMM EXAMLOOP+20~, EXAMLOOP+23*, EXAMLOOP+25
RAPHY EXAMLOOP+42!
RAPIFN ORDER+1!, ORDER+6*
RAPOP EXAMLOOP+5!
RAPRC ORDER+1!, ORDER+2*, EXAMLOOP+42!, XTRADESC+8!
>> RAPROC EXAMLOOP+37, MEMSET+6, UOSM+15*
>> RAPROCI EXAMLOOP+40
RAPTAGE EXAMLOOP+26~*, EXAMLOOP+27
RAPX EXAMLOOP+14!
RAPX( EXAMDEL+9!
>> RAQUIT ORDER+4, ORDER+11*, XTRADESC+2, XTRADESC+8
RARDTE ORDER+1!, ORDER+6*, EXAMLOOP+42!
>> RAREC EXAMLOOP+39*
RARSH ORDER+1!, ORDER+5*, EXAMLOOP+42!
RASHA ORDER+1!, ORDER+5*, EXAMLOOP+42!
RASKIPIT XTRADESC+1~*, XTRADESC+2, XTRADESC+6*, XTRADESC+7
RASTI EXAMLOOP+5!
>> RATMP EXAMDEL+2*, EXAMDEL+3*, EXAMDEL+4, EXAMDEL+9
RATMPNDE UOSM+9~, UOSM+12*, UOSM+13
>> RAWARD ORDER+3, ORDER+7
RAX MEMSET~, MEMSET+3, MEMSET+5, MEMSET+6, SET17~, SET17+7, SET17+9, SET17+10
RAXIT COPYFROM+13~, COPYFROM+14*
RAY MEMSET~, MEMSET+3, MEMSET+5, MEMSET+6, SET17~, SET17+7, SET17+9, SET17+10
RAZ MEMSET~, MEMSET+3, MEMSET+6, SET17~, SET17+7, SET17+10, COPYFROM~, COPYFROM+3, COPYFROM+15, COPYFROM+22
, COPYFROM+23, COPYFROM+24, COPYFROM+31
REM EXAMLOOP+1~
U EXAMLOOP+7, EXAMLOOP+21, EXAMLOOP+24, EXAMLOOP+25, EXAMLOOP+28, EXAMLOOP+30, EXAMLOOP+37, EXAMDEL+5, EXAMDEL+6, UOSM+13
, UOSM+15, CKD1+7, COPYFROM+17, COPYFROM+22, COPYFROM+23, COPYFROM+24
X MEMSET+4~, SET17+8~
Y ORDER+2*, ORDER+3, ORDER+5, ORDER+6, XTRADESC+6, EXAMSET+1~, MEMSET+4~, SET17+8~
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