Routine: RAUTL5

Package	Total	Call Graph
VA Fileman	6	YN^DICN Y^DIQ ^DIR EN^DIWE ^DIWP ^DIWW
Kernel	2	$$FMADD^XLFDT $$UP^XLFSTR
Order Entry Results Reporting	1	READ^ORUTL
Registration	1	IN5^VADPT
Scheduling	1	$$OUTPTPR^SDUTL3

Package

Total

Call Graph

VA Fileman

YN^DICN Y^DIQ ^DIR EN^DIWE ^DIWP ^DIWW

Kernel

$$FMADD^XLFDT $$UP^XLFSTR

Order Entry Results Reporting

READ^ORUTL

Registration

IN5^VADPT

Scheduling

$$OUTPTPR^SDUTL3

Package	Total	Caller Graph
Radiology Nuclear Medicine	75	RABAR1 RABTCH2 RABTCH3 RABUL RABUL1 RABUL2 RABUL3 RACDR1 RACMP RACMP1 RACMP2 RACTOE3 RACTVR RADD3 RADLQ1 RADLQ2 RADLQ3 RADLY RADLY1 RADOSTIK RAERRPT RAESR1 RAESR2 RAESR3 RAFLM2 RAFLM3 RALIST1 RALWKL1 RALWKL2 RALWKL4 RAMAIN1 RAMIS1 RANMUSE2 RANMUSE3 RAORD1 RAORD2 RAORD3 RAORD5 RAORD6 RAORDP RAPINFO RAPRC1 RAPROD RAPROD1 RAPROD2 RART1 RART3 RARTE2 RARTR RARTR0 RARTUVR1 RARTUVR2 RARTUVR3 RASTRPT RASTRPT1 RASYS RASYS1 RATRAN RAUTL11 RAUTL12 RAUTL19 RAUTL19A RAUTL19B ^RABTCH(74.3 RARTR3 RAUTL1 RAUTL19C RAWFR2 RAWFR3 RAWFR4 RAWKL2 RAWKLU1 RAWKLU3 RAWRVUP RAXSTAT

Package

Total

Caller Graph

Radiology Nuclear Medicine

RABAR1  RABTCH2  RABTCH3  RABUL  RABUL1  RABUL2  RABUL3  RACDR1
RACMP  RACMP1  RACMP2  RACTOE3  RACTVR  RADD3  RADLQ1  RADLQ2
RADLQ3  RADLY  RADLY1  RADOSTIK  RAERRPT  RAESR1  RAESR2  RAESR3
RAFLM2  RAFLM3  RALIST1  RALWKL1  RALWKL2  RALWKL4  RAMAIN1  RAMIS1
RANMUSE2  RANMUSE3  RAORD1  RAORD2  RAORD3  RAORD5  RAORD6  RAORDP
RAPINFO  RAPRC1  RAPROD  RAPROD1  RAPROD2  RART1  RART3  RARTE2
RARTR  RARTR0  RARTUVR1  RARTUVR2  RARTUVR3  RASTRPT  RASTRPT1  RASYS
RASYS1  RATRAN  RAUTL11  RAUTL12  RAUTL19  RAUTL19A  RAUTL19B  ^RABTCH(74.3
RARTR3  RAUTL1  RAUTL19C  RAWFR2  RAWFR3  RAWFR4  RAWKL2  RAWKLU1
RAWKLU3  RAWRVUP  RAXSTAT

Entry Points

Name	Comments	DBIA/ICR reference
PRIM(RADFN,DATE)	;Returns the external form of the PRIMARY PHYSICIAN
DIWP(DIWL,DIWR,X)	; work ^DIWP & ^DIWW FM call "WRITE" mode P75
CH	; Populate the 'CLINICAL HISTORY' field (#400); file 75.1 (^RAO(75.1)) ; Called from 'CREATE1^RAORD1'.
XTERNAL(Y,C)	; Change internal format to external format ; 'Y' is the internal form of the data ; 'C' defines the data type of the variable 'Y'
MIDNGHT(X)	; Check if the date passed in is midnight. If it is, add one ; minute to the date/time. Fixes infinite loop problem in FM when ; midnight. ; Input: X-Current system date/time (derived from $$NOW^XLFDT)
CH1	;ask/re-ask 'CLINICAL HISTORY'
STYREA(RAOUT,RAREAST)	;ask for the 'Reason for Study' P75 (required)
PROCMSG(RAPRI)	; Print the appropriate procedure messages. Called from ; DESDT^RAUTL12. This code works under the assumption that the ; user has entered through OE/RR.
ATND(RADFN,DATE)	;Returns the external form of the ATTENDING PHYSICIAN
VALWP(RAROOT)	; Validate word processing field. ; Pass back '1' if data is valid, '0' if not valid. ; at least 2 alphanumeric char's required
XIT	;kill variable(s), exit CH subroutine
RDQ(D0)	; Used by input transform on ^DD(74.31,2 ; Checks for unprinted reports associated with REPORT ; DISTRIBUTION QUEUE of internal entry number of D0.
EOS()	; 'End Of Screen' prompt for terminals only, check user response.
PURGECH	;Delete the invalid 'CLINICAL HISTORY'; inform the user
WPLEN	;Is clin hist too long to go into a local array for OE/RR HL7 msg?

External References

Name	Field # of Occurrence
YN^DICN	RDQ+13
Y^DIQ	XTERNAL+3
^DIR	CH1+3, CH1+16, WPLEN+11, EOS+4, STYREA+3
EN^DIWE	CH1+6
^DIWP	PROCMSG+23, DIWP+5
^DIWW	PROCMSG+26, DIWP+5
READ^ORUTL	PROCMSG+12, PROCMSG+22, PROCMSG+25
$$OUTPTPR^SDUTL3	PRIM+11
IN5^VADPT	ATND+4, PRIM+4
$$FMADD^XLFDT	MIDNGHT+5
$$UP^XLFSTR	PROCMSG+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,$C(7),^("HIS"),! Line Location: CH1+3
Function Call: WRITE	Prompt: !,"CLINICAL HISTORY FOR EXAM" Line Location: CH1+6
Function Call: WRITE	Prompt: !!,"* UNPRINTED REPORTS IN THE QUEUE ! *" Line Location: RDQ+9
Function Call: WRITE	Prompt: !,"If this queue is inactivated before printing, these reports will be",!,"removed from the queue." Line Location: RDQ+10
Function Call: WRITE	Prompt: !!,"Are you sure you want to remove these reports" Line Location: RDQ+12
Function Call: WRITE	Prompt: !!?5,"Please answer Y(es) or N(o)." Line Location: RDQ+14
Function Call: WRITE	Prompt: !,"Inactivation date deleted" Line Location: RDQ+16
Function Call: WRITE	Prompt: !!?5,"NOTE: The following special requirements apply to this " Line Location: PROCMSG+7
Function Call: WRITE	Prompt: "procedure:",$C(7),! Line Location: PROCMSG+8
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+12
Function Call: WRITE	Prompt: !?3,X Line Location: PROCMSG+13
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+22
Function Call: WRITE	Prompt: @IOF Line Location: PROCMSG+25
Function Call: WRITE	Prompt: ! Line Location: PROCMSG+27
Function Call: WRITE	Prompt: !,"Invalid CLINICAL HISTORY deleted..." Line Location: PURGECH+2
Routine Call	DIR Line Location: CH1+3 CH1+16 WPLEN+11 EOS+4 STYREA+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PRIM+10
^RA(79 - [#79]	CH1+3
^RABTCH(74.4 - [#74.4]	RDQ+5, RDQ+6
^RADPT - [#70]	CH1+1
^RAMIS(71 - [#71]	PROCMSG+5, PROCMSG+9, PROCMSG+10, PROCMSG+17, PROCMSG+18, PROCMSG+21, PROCMSG+23
^RAMIS(71.4 - [#71.4]	PROCMSG+11, PROCMSG+13
^TMP($J	CH+6!, CH1+1*, CH1+7, WPLEN+2, PURGECH+2!
^UTILITY($J	PROCMSG+20!, DIWP+5!, DIWP+6!

Name	Line Occurrences
$$VALWP	CH1+9
CH1	CH1+10, WPLEN+3
PURGECH	CH1+10, WPLEN+3
STYREA	CH+5
XIT	CH+5, CH1+4, CH1+7, CH1+22

Name	Field # of Occurrence
^("H"	CH1+1
^("HIS"	CH1+3
^(0	CH1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RDQ+3~, RDQ+11, RDQ+13*, RDQ+14, RDQ+16, DIWP+4~
%Y	RDQ+3~
C	XTERNAL~
CHAR	VALWP+4~, VALWP+11*, VALWP+12
CNT	VALWP+4~, VALWP+7, VALWP+11, VALWP+12*
D0	RDQ~, RDQ+5
DA	STYREA+3~
DATE	ATND~, ATND+3, ATND+4, PRIM~, PRIM+3, PRIM+4
>> DFN	ATND+3, PRIM+3
DIC	CH1+5, CH1+6!, CH1+8!
DIR	CH1+3!, CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DIR("?"	CH1+14, CH1+15, CH1+16, WPLEN+8, WPLEN+9, WPLEN+10, WPLEN+11*
DIR("A"	CH1+13, WPLEN+7
DIR("B"	CH1+12, WPLEN+6
DIR(0	CH1+3, CH1+12, WPLEN+6, EOS+4, STYREA+3*
DIROUT	CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DIRUT	CH1+4, CH1+12!, CH1+18, CH1+20!, WPLEN+5!, WPLEN+13, WPLEN+15!, EOS+4!, STYREA+3~, STYREA+4
DIW	PROCMSG+19~, DIWP+4~
DIWESUB	CH1+5*, CH1+6!
DIWF	PROCMSG+19~, PROCMSG+20, DIWP+4~, DIWP+5
DIWL	PROCMSG+19~, PROCMSG+20*, DIWP~
DIWR	PROCMSG+19~, PROCMSG+20*, DIWP~
DIWT	DIWP+4~
DN	DIWP+4~
DPT	ATND+2~, PRIM+2~
DTOUT	CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DUOUT	CH1+12!, CH1+20!, WPLEN+5!, WPLEN+15!, EOS+4!, STYREA+3~
DWPK	CH1+5, CH1+6!, CH1+8
FOUND	RDQ+3~, RDQ+4, RDQ+5, RDQ+6, RDQ+8
I	PROCMSG+6~, PROCMSG+9, PROCMSG+10, DIWP+4~
IOF	PROCMSG+12, PROCMSG+22, PROCMSG+25
IOSL	PROCMSG+12, PROCMSG+22, PROCMSG+25
IOST	EOS+1
RA744	RDQ+3~, RDQ+4, RDQ+5, RDQ+6
RACNT	WPLEN+1~, WPLEN+2, WPLEN+3
RADFN	CH1+1, ATND~, ATND+3, PRIM~, PRIM+3, PRIM+11
>> RADIV	CH1+3
>> RAI	CH1+1*
RAOUT	CH+5, STYREA~, STYREA+4*
RAPRI	PROCMSG~, PROCMSG+5, PROCMSG+9, PROCMSG+10, PROCMSG+17, PROCMSG+18, PROCMSG+21, PROCMSG+23
RAREAST	CH+5, STYREA~, STYREA+4*
RAROOT	VALWP~, VALWP+3, VALWP+6, VALWP+8
>> RASTOP	PROCMSG+4, PROCMSG+5*
>> RAVLECNI	CH1+1
>> RAVLEDTI	CH1+1
>> RAVSTFLG	CH1+1
RAWPFLG	CH1+9*, CH1+10, XIT+1!
RAX	WPLEN+1~, WPLEN+2, PROCMSG+6~, PROCMSG+10, PROCMSG+11, PROCMSG+13, PROCMSG+19~, PROCMSG+20, PROCMSG+21*, PROCMSG+23
RAY	EOS+2~, EOS+5*, EOS+6
RAYN	CH1+5~, CH1+9, CH1+10, CH1+17, CH1+18, CH1+22, WPLEN+3, WPLEN+12, WPLEN+13
VA200	ATND+2~, ATND+3, PRIM+2~, PRIM+3
VAIP	ATND+2~, PRIM+2~
VAIP("D"	ATND+3, PRIM+3
VAIP(18	ATND+5
VAIP(7	PRIM+5, PRIM+11*, PRIM+13
WL	VALWP+4~, VALWP+7, VALWP+9, VALWP+10
WPFLG	VALWP+4~, VALWP+5, VALWP+6, VALWP+10, VALWP+12, VALWP+15
X	CH1+12~, WPLEN+5~, VALWP+4~, VALWP+5, VALWP+6, VALWP+8, RDQ+16!, ATND+2~, ATND+5, ATND+6 , PRIM+2~, PRIM+10~, PRIM+13, PRIM+14, EOS+2~, PROCMSG+6~, PROCMSG+13, PROCMSG+19~, PROCMSG+23, MIDNGHT~ , MIDNGHT+4, MIDNGHT+5*, MIDNGHT+6, STYREA+3~, DIWP~
X1	EOS+2~
X2	EOS+2~
X3	EOS+2~
Y	CH1+12~, CH1+17, WPLEN+5~, WPLEN+12, VALWP+4~, VALWP+8*, VALWP+9, VALWP+11, EOS+2~, EOS+5 , XTERNAL~, XTERNAL+3, XTERNAL+4, STYREA+3~, STYREA+4
Y0	EOS+2~
Y1	EOS+2~
Y2	EOS+2~
Y3	EOS+2~
Y4	EOS+2~
Y5	EOS+2~
Z	VALWP+4~, VALWP+10*, VALWP+11, DIWP+4~

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAUTL5

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 75

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: