Routine: RAREG3

Information

RAREG3 ;HISC/CAH,DAD,FPT,GJC-Register Rad/NM Patient (cont.) ;6/10/97 08:45

Source Information

Source file <RAREG3.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Radiology Nuclear Medicine	4	FLH^RAFLH JAC^RAJAC SET^RAPSET1 ^RASERV
Kernel	1	($$FMADD,$$NOW)^XLFDT
Uncategorized	1	^RTQ5
VA Fileman	1	^%DT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Radiology Nuclear Medicine	2	RAREG1 RAREG2

Entry Points

Name	Comments	DBIA/ICR reference
SETDISV	; when registering procedures of different imaging types set imaging ; location default value in DIC("B") if only one location associated with ; imaging type.
SUB1MIN	; subtract 1 minute from NOW to get an unused date/time
LABEL	; *** Print labels
SL	; switch locations ; Prompt the user to switch locations if the current sign-on imaging ; type does not match the procedure's imaging type. ; comment out 06/10/97 D EXAMSET^RAREG2 S RAPARENT=0
DT2
DT1
RSBIT	; renumber selections by imaging type ; The RAORDS array has the list of orders the user selected to register ; in the order the user entered them. This subroutine will reorganize ; the array so the orders are arranged by imaging type of their ; procedure starting with the imaging type the user is currently signed ; on with followed by the ascending internal entry number of the ; remaining imaging types.
DT	; prompt for new imaging date/time when imaging type changes

External References

Name	Field # of Occurrence
^%DT	DT+8
FLH^RAFLH	LABEL+5
JAC^RAJAC	LABEL+6
SET^RAPSET1	SL+13
^RASERV	DT2+3
^RTQ5	LABEL+8
$$FMADD^XLFDT	DT+7, SUB1MIN+1
$$NOW^XLFDT	DT+6, DT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You have switched Divisions from: ",$P(^DIC(4,+RAMDIVHD,0),U),!,?30,"to: ",$P(^DIC(4,+RAMDIV,0),U),! Line Location: SL+16
Function Call: WRITE	Prompt: !,*7,"Patient already has exams entered for this date/time.",!,"....use 'Add Exams to Last Visit' option." Line Location: DT1+0
Function Call: WRITE	Prompt: ! Line Location: LABEL+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(195.4	LABEL+8
^DIC(4 - [#4]	SL+16
^RA(79 - [#79]	DT+2
^RA(79.1 - [#79.1]	SETDISV+5, SETDISV+7
^RA(79.2 - [#79.2]	RSBIT+16, SL+5, SL+6
^RADPT - [#70]	DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+3, LABEL+4
^RAMIS(71 - [#71]	RSBIT+13, SL+4
^RAO(75.1 - [#75.1]	RSBIT+12
^SC - [#44]	SETDISV+7

Label References

Name	Line Occurrences
DT	SL+17, DT+8, DT1
DT2	DT2
LABEL	SL+7
SETDISV	SL+11
SUB1MIN	DT+6, DT2

Naked Globals

Name	Field # of Occurrence
^(0	SETDISV+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DT+7*, DT+8!
%DT(0	DT+7*
>> DIC("B"	SETDISV+7*
DTIME	DT+3
RABED	DT2+3!
>> RACAT	DT2+2, DT2+3
>> RACNI	LABEL+4
RACNT	SETDISV+3~, SETDISV+4, SETDISV+5, SETDISV+7
>> RADFN	DT+1, DT+6, DT1, DT2, SUB1MIN+1, LABEL+2, LABEL+3, LABEL+4, LABEL+7*
>> RADTE	DT1, DT2, SUB1MIN+1
RADTEBAD	DT2!*, DT2+1!
>> RADTI	DT+1, DT1, DT2, LABEL+3, LABEL+4
RADTICHK	DT+6!, DT2, SUB1MIN+1
RAHRS	DT+2~*, DT+7
>> RAIMGTY	RSBIT+16, SL+5, SL+8
RAIMGTYN	RSBIT+16, RSBIT+18, RSBIT+19, RSBIT+20!
RAIN	RSBIT+13, RSBIT+14, RSBIT+17, RSBIT+18, RSBIT+19, RSBIT+20!
RAITN	SETDISV+5, SL+4*, SL+5, SL+6, SL+20!
RAITNHLD	SETDISV+3~, SETDISV+5*, SETDISV+7
RAITNXT	SETDISV+3~, SETDISV+4, SETDISV+5
RALOOP	RSBIT+9!, RSBIT+10, RSBIT+11, RSBIT+14, RSBIT+17, RSBIT+18, RSBIT+19, RSBIT+20!, SETDISV+3~, SETDISV+5* , SUB1MIN+1*, SUB1MIN+2!
>> RAMDIV	SL+6, SL+16, DT+2
RAMDIVHD	SL+6*, SL+16, SL+20!
>> RAMDV	LABEL+6
RAMLC	SL+6, SL+12!, SL+15*
RAMLCHLD	SL+6*, SL+15, SL+20!
>> RANOW	DT+5*, DT2+2, DT2+3
RANUMF	LABEL+5!
RAON	RSBIT+11*, RSBIT+12, RSBIT+14, RSBIT+20!
RAORDS	RSBIT+8, RSBIT+17!
RAORDS(	RSBIT+10, RSBIT+11, RSBIT+18, RSBIT+19
RAORDST	RSBIT+9!, RSBIT+19, RSBIT+20!
RAORDST(	RSBIT+14*, RSBIT+18!, RSBIT+19
RAPN	RSBIT+12*, RSBIT+13, RSBIT+20!
RAPROLOC	SL+6*, SL+9, SL+10, SL+20!
RAPX	LABEL+1, LABEL+2*, LABEL+7, LABEL+9!
>> RAQUIT	SL+15, SL+17, DT+4
>> RASAV2	LABEL+3*
>> RASAV3	LABEL+4*
RASER	DT2+3!
RASWLOC	SL+12*, SL+14!
RAWARD	DT2+2, DT2+3!
RAYHOLD	SL+6*, SL+18, SL+20!
RAZIS	LABEL+2*, LABEL+7!
U	RSBIT+11, RSBIT+12, RSBIT+13, SL+4, SL+6, SL+16, LABEL+6, LABEL+8
>> X	DT+3, DT+4, DT+5, DT+6, DT2, SUB1MIN+1*
>> Y	SL+4, SL+6, SL+18*, DT+8, DT1

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAREG3

Call Graph Total: 7

Caller Graph Total: 2