Routine: RAREG2

Information

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

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

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~

Customize PDF page

Package: Radiology Nuclear Medicine