Routine: RAREG2

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

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~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAREG2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: