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 ; 06 Oct 2013 11:04 AM

Source Information

Source file <RAREG2.m>

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

Caller Graph Total: 3

Package Total Caller Graph
Radiology Nuclear Medicine 3 RAMAG03  RAREG1  RAREG4  

Entry Points

Name Comments DBIA/ICR reference
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.
EXAMLOOP ; register the exam
XTRADESC ; Ask extra descendent procedures for a parent
CKDUPORD ; ck for dupl procedures in outstanding orders
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
EXAMSET ; Set the EXAM SET field if a parent is registered
CKD1
SET17(RAX,RAY,RAZ) ; Set piece 17 on exam node
EXAMDEL ; Delete examset if incomplete
COPYFROM(RAZ) ;called by RAREG1 if add exam shd copy dx/staff/resident
ORDER ; Get data from ordered procedure for registration

External References

Name Field # of Occurrence
^DIE EXAMLOOP+8, EXAMDEL+10, EXAMSET+5, MEMSET+6, SET17+4
FILE^DIE EXAMLOOP+54, EXAMLOOP+58
^DIK EXAMLOOP+31, 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+6
$$PTAGE^RAUTL8 EXAMLOOP+17, EXAMLOOP+18, EXAMLOOP+49
$$PTSEX^RAUTL8 EXAMLOOP+6, EXAMLOOP+16, EXAMLOOP+40

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+28
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+8
    • EXAMDEL+10
    • EXAMSET+5
    • MEMSET+6
    • SET17+4
Routine Call
  • DIE
  • Line Location:
    • EXAMLOOP+54
    • EXAMLOOP+58
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+66*
^RA(79 - [#79] EXAMLOOP+12
^RADPT - [#70] ORDER+10, EXAMLOOP+19, EXAMLOOP+20, EXAMLOOP+21*, EXAMLOOP+45, EXAMLOOP+46, EXAMLOOP+55, EXAMLOOP+57, EXAMLOOP+61*, EXAMLOOP+64*
, MEMSET+3, SET17+1, COPYFROM+3, COPYFROM+4, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20, COPYFROM+22*, COPYFROM+23*
, COPYFROM+24*
^RAMIS(71 - [#71] ORDER+2, EXAMLOOP+60, MEMSET+6, CKD1+7
^RAO(75.1 - [#75.1] ORDER+2, ORDER+5, EXAMLOOP+61, UOSM+15, CKD1+7
^SC - [#44] ORDER+6, ORDER+7
^TMP($J EXAMLOOP+26*, EXAMLOOP+32!, EXAMLOOP+67*, 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+61
^("R" ORDER+5
^("SL" ORDER+7
^(0 ORDER+2, ORDER+5, ORDER+7, EXAMLOOP+61, COPYFROM+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D MEMSET+4~, SET17+2~
D0 MEMSET+4~, SET17+2~
DA EXAMLOOP+8*, EXAMLOOP+29*, EXAMDEL+6*, EXAMDEL+10*, EXAMSET+1~, EXAMSET+3*, MEMSET+4~, MEMSET+6*, SET17+2~, SET17+4*
, COPYFROM+31*
DA(1 EXAMLOOP+29*, EXAMLOOP+31, EXAMDEL+6*, EXAMDEL+8, EXAMSET+3*, MEMSET+6*, SET17+4*, COPYFROM+31*
DA(2 EXAMLOOP+29*, EXAMLOOP+31, EXAMDEL+5*, EXAMDEL+8, MEMSET+6*, SET17+4*, COPYFROM+31*
DE EXAMLOOP+8!
DI MEMSET+4~, SET17+2~
DIC MEMSET+4~, SET17+2~
DIE EXAMLOOP+8*, EXAMDEL+10!*, EXAMSET+1~, EXAMSET+2*, MEMSET+4~, MEMSET+5*, SET17+2~, SET17+3*
DIE("NO^" EXAMLOOP+8*!
>> DIK EXAMLOOP+31*, EXAMDEL+8*, COPYFROM+30*
DIR XTRADESC+3~
DIR("A" XTRADESC+4*
DIR(0 XTRADESC+3*
DQ EXAMLOOP+8!, MEMSET+4~, SET17+2~
DR EXAMLOOP+8*, EXAMLOOP+68!, EXAMDEL+10!*, EXAMSET+1~, EXAMSET+4*, MEMSET+4~, MEMSET+6*, SET17+2~, SET17+4*
DTIME ORDER+11
>> DTOUT XTRADESC+6
>> DUOUT XTRADESC+6
DUZ EXAMLOOP+66
>> I EXAMLOOP+61*
RA EXAMDEL+4*, EXAMDEL+5, EXAMDEL+6, COPYFROM+5~, COPYFROM+18*, COPYFROM+19*, COPYFROM+20*
>> RA17 SET17+4
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+43~, EXAMLOOP+45*, EXAMLOOP+47, EXAMLOOP+48, EXAMLOOP+51, EXAMLOOP+53, 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+6*, EXAMLOOP+42, EXAMLOOP+44, EXAMLOOP+68!
>> 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+69!
RACMTHOD EXAMLOOP+24!
>> RACN EXAMLOOP+8*
>> RACNI EXAMLOOP+15, EXAMLOOP+19, EXAMLOOP+20, EXAMLOOP+21, EXAMLOOP+26, EXAMLOOP+29, EXAMLOOP+53, EXAMLOOP+57, EXAMLOOP+61, EXAMLOOP+64
, EXAMLOOP+66, EXAMDEL+6*, XTRADESC+9
>> RACNICNT EXAMLOOP+25*, EXAMLOOP+26, EXAMLOOP+32
RACNIEN EXAMLOOP+43~, EXAMLOOP+44*, EXAMLOOP+45, EXAMLOOP+46, EXAMLOOP+55, EXAMLOOP+57
RACNT UOSM+9~, UOSM+10*, UOSM+11*, UOSM+12
>> RADFN ORDER+10, EXAMLOOP+6, EXAMLOOP+8, EXAMLOOP+13, EXAMLOOP+16, EXAMLOOP+17, EXAMLOOP+18, EXAMLOOP+19, EXAMLOOP+20, EXAMLOOP+21
, EXAMLOOP+26, EXAMLOOP+29, EXAMLOOP+40, EXAMLOOP+45, EXAMLOOP+46, EXAMLOOP+49, EXAMLOOP+53, EXAMLOOP+55, EXAMLOOP+57, EXAMLOOP+61
, EXAMLOOP+64, EXAMLOOP+66, 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+67
>> RADPARPR ORDER+2
>> RADTE ORDER+10, ORDER+11, EXAMLOOP+64
>> RADTI EXAMLOOP+14, EXAMLOOP+19, EXAMLOOP+20, EXAMLOOP+21, EXAMLOOP+26, EXAMLOOP+29, EXAMLOOP+53, EXAMLOOP+57, EXAMLOOP+61, EXAMLOOP+64
, EXAMLOOP+66, 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+43~, EXAMLOOP+44*, EXAMLOOP+45, EXAMLOOP+46, EXAMLOOP+55, EXAMLOOP+57
>> RAEXIT XTRADESC+2, XTRADESC+6*, XTRADESC+7
RAFDA EXAMLOOP+52~, EXAMLOOP+56~, COPYFROM+13~
RAFDA( EXAMLOOP+53*, EXAMLOOP+57*
RAFIN EXAMLOOP+27, EXAMLOOP+68!
>> RAFIRST COPYFROM+2, COPYFROM+4, COPYFROM+17, COPYFROM+18, COPYFROM+19, COPYFROM+20
RAFM EXAMLOOP+24!
RAFM1 EXAMLOOP+24!
RAI EXAMLOOP+24!
RAIEN COPYFROM+13~
RAIEN702 EXAMLOOP+24!
RALIFN ORDER+1!, ORDER+6*, ORDER+7, EXAMLOOP+69!
RALOC ORDER+1!, ORDER+7*, EXAMLOOP+69!
>> RAMDIV EXAMLOOP+12
RAMOD EXAMLOOP+24!
RAMSG COPYFROM+13~
>> RANME XTRADESC+4
RANMFLG EXAMLOOP+24!
>> RAOIFN ORDER+2, ORDER+5, EXAMLOOP+26, EXAMLOOP+61, EXAMLOOP+67, EXAMDEL+5*, EXAMDEL+10, UOSM+13*, UOSM+14, UOSM+15
, UOSM+16, UOSM+18
>> RAOPT("ADDEXAM" EXAMLOOP+6, EXAMLOOP+40
RAORDNUM UOSM+9~
RAORDNUM( UOSM+14, UOSM+18*
RAOSTS EXAMLOOP+69!, UOSM+17*
>> RAPARENT EXAMLOOP+60*
RAPCOMM EXAMLOOP+43~, EXAMLOOP+46*, EXAMLOOP+48
RAPHY EXAMLOOP+69!
RAPIFN ORDER+1!, ORDER+6*
RAPOP EXAMLOOP+24!
RAPRC ORDER+1!, ORDER+2*, EXAMLOOP+69!, XTRADESC+8!
>> RAPROC EXAMLOOP+60, MEMSET+6, UOSM+15*
>> RAPROCI EXAMLOOP+67
RAPTAGE EXAMLOOP+49~*, EXAMLOOP+50
RAPX EXAMLOOP+33!
RAPX( EXAMDEL+9!
>> RAQUIT ORDER+4, ORDER+11*, XTRADESC+2, XTRADESC+8
RARDTE ORDER+1!, ORDER+6*, EXAMLOOP+69!
>> RAREC EXAMLOOP+66*
RARSH ORDER+1!, ORDER+5*, EXAMLOOP+69!
RASHA ORDER+1!, ORDER+5*, EXAMLOOP+69!
RASKIPIT XTRADESC+1~*, XTRADESC+2, XTRADESC+6*, XTRADESC+7
RASTI EXAMLOOP+24!
>> 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+1, SET17+3, SET17+4
RAXIT COPYFROM+13~, COPYFROM+14*
RAY MEMSET~, MEMSET+3, MEMSET+5, MEMSET+6, SET17~, SET17+1, SET17+3, SET17+4
RAZ MEMSET~, MEMSET+3, MEMSET+6, SET17~, SET17+1, SET17+4, COPYFROM~, COPYFROM+3, COPYFROM+15, COPYFROM+22
, COPYFROM+23, COPYFROM+24, COPYFROM+31
REM EXAMLOOP+1~
U EXAMLOOP+20, EXAMLOOP+21, EXAMLOOP+26, EXAMLOOP+44, EXAMLOOP+47, EXAMLOOP+48, EXAMLOOP+51, EXAMLOOP+53, EXAMLOOP+60, EXAMDEL+5
, EXAMDEL+6, UOSM+13, UOSM+15, CKD1+7, COPYFROM+17, COPYFROM+22, COPYFROM+23, COPYFROM+24
X MEMSET+4~, SET17+2~
Y ORDER+2*, ORDER+3, ORDER+5, ORDER+6, XTRADESC+6, EXAMSET+1~, MEMSET+4~, SET17+2~
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