Routine: RAORD1

Package	Total	Call Graph
Radiology Nuclear Medicine	14	($$PROV,ASK,FILEDX)^RABWORD (ADDEXAM,PREV)^RABWORD2 EXAM^RADEM1 KILL^RAORD $$PREG^RAORD1A ^RAORDQ ($$ORVR,OERR,SETORD)^RAORDU DISP^RAORDU1 (DISP,DISP1,HELP,LOOKUP)^RAPRI $$ITYPE^RASITE $$DESDT^RAUTL12 ($$LK,OENO,ULK)^RAUTL19 CONTRAST^RAUTL2 CH^RAUTL5
VA Fileman	6	NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK $$EXTERNAL^DILFD
Kernel	2	$$FMTE^XLFDT $$PATCH^XPDUTL
Registration	2	(ELIG,IN5)^VADPT $$SITE^VASITE
Adverse Reaction Tracking	1	$$ORCHK^GMRAOR

Package	Total	Caller Graph
Radiology Nuclear Medicine	3	RA ORDEREXAM RAORR RAREG1

Entry Points

Name	Comments	DBIA/ICR reference
Q	; Kill, unlock if locked, and quit
MODS	;RAPRI= Procedure IEN, RAIMAG=Imaging Type for the procedure.
PAT
ENADD	;OE/RR Entry Point for the ACTION Option
CREATE
ALLERGY	; If patient has had a previous contrast media allergic reaction ; check procedure RAPRI for specific contrast media associations ; (new with RA545)
ADDORD
CREATE1	;ask for the 'Date Desired' req'd P75
ADDORD1
SAVE	; Save original value of RAMDV before it is altered in the ENADD sub- ; routine. This code will also reset RAMDV to the sign-on value.
PL	;Ask for the patient location (REQ. LOCATION file: 75.1, field: #22)
BAQUES	;*Billing Awareness Project ; Ask Ordering ICD-9 Diagnosis and Related SC/EI/MST/HNC questions.

External References

Name	Field # of Occurrence
NOW^%DTC	BAQUES+2
^DIC	PAT, PL+15, PL+21, MODS+4
FILE^DICN	BAQUES+6
^DIE	BAQUES+14
^DIK	BAQUES+17
$$EXTERNAL^DILFD	ENADD+15
$$ORCHK^GMRAOR	ALLERGY+3
$$PROV^RABWORD	PL+20
ASK^RABWORD	BAQUES+3, BAQUES+13
FILEDX^RABWORD	BAQUES+16
ADDEXAM^RABWORD2	ADDORD+6
PREV^RABWORD2	ADDORD+5
EXAM^RADEM1	ENADD+6
KILL^RAORD	Q+1
$$PREG^RAORD1A	CREATE1+6
^RAORDQ	BAQUES+16
$$ORVR^RAORDU	Q+3, BAQUES+26
OERR^RAORDU	BAQUES+16
SETORD^RAORDU	BAQUES+16
DISP^RAORDU1	BAQUES+4
DISP^RAPRI	ADDORD+7
DISP1^RAPRI	ADDORD1+4, ADDORD1+7
HELP^RAPRI	ADDORD1+4
LOOKUP^RAPRI	ADDORD1+6
$$ITYPE^RASITE	MODS+2
$$DESDT^RAUTL12	CREATE1+1
$$LK^RAUTL19	PAT+2
OENO^RAUTL19	BAQUES+28
ULK^RAUTL19	Q+4
CONTRAST^RAUTL2	ALLERGY+6, ALLERGY+9
CH^RAUTL5	CREATE1+8
ELIG^VADPT	ADDORD+3
IN5^VADPT	PAT+4, ENADD+6
$$SITE^VASITE	ENADD+9
$$FMTE^XLFDT	CREATE1+2
$$PATCH^XPDUTL	PL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PAT+0
Function Call: WRITE	Prompt: !,"Select Procedure",$S(RACNT:" (1-"_RACNT_") ",1:" "),"or enter '?' for help: " Line Location: ADDORD1+0
Function Call: WRITE	Prompt: !!!,"Processing procedure: ",$S(+X&(+X'>RACNT):$P($G(RAPRC(X)),"^"),$E(X)'="`":X,1:"") Line Location: ADDORD1+6
Function Call: WRITE	Prompt: ! Line Location: BAQUES+9
Function Call: WRITE	Prompt: !! Line Location: BAQUES+13
Function Call: WRITE	Prompt: !?3,$C(7),"Request not complete. Must Delete..." Line Location: BAQUES+17
Function Call: WRITE	Prompt: "...deletion complete!" Line Location: BAQUES+17
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: MODS+4
Routine Call	DIE Line Location: BAQUES+14
Routine Call	DIC Line Location: PAT PL+15 PL+21 MODS+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^RADPT - [#70]	EXTERNAL^DILFD
^RAMIS(71.2 - [#71.2]	Classic Fileman Calls
^RAO(75.1 - [#75.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(71.2	MODS+2
^DPT - [#2]	ENADD+6
^RA(79 - [#79]	ENADD+10, ENADD+11, BAQUES+8
^RA(79.1 - [#79.1]	BAQUES+24
^RADPT - [#70]	ENADD+14
^RAMIS(71 - [#71]	ALLERGY+4, ALLERGY+9
^RAO(75.1 - [#75.1]	ADDORD+4, BAQUES+16, BAQUES+18, BAQUES+22
^SC - [#44]	ENADD+8
^TMP("XQORS"	ENADD+22
^TMP($J	ENADD+21!, ENADD+22!
^VA(200 - [#200]	PL+20

Label References

Name	Line Occurrences
ADDORD	RAORD1+21, PL+21
ADDORD1	ADDORD1+4, ADDORD1+7
ALLERGY	ADDORD, ADDORD1+6
CREATE	ADDORD1+6
CREATE1	ADDORD
MODS	CREATE, MODS+4, MODS+5
PAT	PAT+2
Q	RAORD1+23, PL+15, PL+21, ENADD+2, ADDORD, ADDORD+7, ADDORD1+2, ADDORD1+4
SAVE	ENADD+7, Q+2

Naked Globals

Name	Field # of Occurrence
^(	BAQUES+8, ALLERGY+9
^(0	ENADD+8, BAQUES+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	BAQUES+2
C	Q+9!
>> DA	BAQUES+9, BAQUES+17
DD	PL+21!
DE	BAQUES+15!
>> DFN	PAT+3, ENADD+2
DI	Q+9!
DIC	PAT!, PL+3, PL+15!, PL+20, PL+21!, BAQUES+5, BAQUES+6!, MODS+2*, MODS+4!
DIC("A"	PL+2, PL+16, MODS+2*
DIC("B"	PL+2, PL+20
DIC("S"	PL+13, PL+18, MODS+3*
DIC(0	PAT, PL+3, PL+20, BAQUES+5, MODS+2*
DIE	BAQUES+9*, BAQUES+15!
DIE("NO^"	BAQUES+9*, BAQUES+15!
DIG	Q+9!
DIH	Q+9!
>> DIK	BAQUES+17*
DISYS	Q+9!
DIU	Q+9!
DIW	Q+9!
DIWF	Q+9!
DIWL	Q+9!
DIWR	Q+9!
DIWT	Q+9!
DLAYGO	BAQUES+5*, BAQUES+6!
DN	Q+9!
DO	PL+21!
DQ	BAQUES+15!
DR	BAQUES+10*, BAQUES+13, BAQUES+15!
DT	ENADD+9, CREATE1+6
DTIME	ADDORD1+1
>> DTOUT	MODS+4
>> DUOUT	MODS+4
DUZ	PL+20
I	Q+9!, ALLERGY+8, ALLERGY+9, ALLERGY+10!
ORCHART	Q+9!
ORCOST	ENADD+1!
ORIFN	Q+7!
ORIT	Q+7!
ORL	ENADD+2, Q+7!
ORNP	ENADD+2, Q+7!
ORNS	Q+7!
ORPCL	Q+7!
ORPK	Q+7!
ORPURG	ENADD+1!, Q+7!
ORPV	Q+7!
ORSTOP	ENADD+1!
ORSTS	Q+7!
ORTO	ENADD+1!
ORTX	Q+7!
ORVP	ENADD+2, Q+7!
POP	Q+9!
RABWDX	RAORD1+18!
RACAT	ENADD+12, ENADD+13, ENADD+14, ENADD+15, ENADD+16, Q+5!
>> RACNT	ADDORD1, ADDORD1+6
RACOPYOR	RAORD1+20~
RACPRS27	PL+1~*, PL+13
>> RACT	CREATE, MODS+5
RADFN	PAT+3, ENADD+2, ENADD+6, ENADD+14, ADDORD+4, Q+3, Q+4, Q+5!, CREATE1+6, BAQUES+3 , BAQUES+5, BAQUES+13, BAQUES+16, ALLERGY+3
>> RADIV	ENADD+9, ENADD+10, ENADD+11, BAQUES+8
RADR1	ADDORD, BAQUES+4, BAQUES+10, BAQUES+15!
RADR2	BAQUES+10, BAQUES+15!
RADTM	BAQUES+2~*, BAQUES+3, BAQUES+13
>> RAEXMUL	ADDORD1+5*, BAQUES+10
RAFIN	BAQUES+16, BAQUES+17, BAQUES+18, BAQUES+19!
>> RAFIN1	BAQUES+10
>> RAFOERR	ENADD+2*
RAGMTS	RAORD1+20~
RAHSMULT	ADDORD1+5!, Q+8!
RAIMAG	Q+8!, MODS+2*, MODS+4!
>> RAIMGTYI	ADDORD+7
>> RAJ	ADDORD1+6*
>> RAL0	ENADD+8*, ENADD+9
>> RALIFN	RAORD1+21, PL+15, ENADD+2, ENADD+8
RALOC	BAQUES+21~, BAQUES+22*, BAQUES+23, BAQUES+24
>> RALOCFLG	BAQUES+8*
RAMDIV	Q+6!
RAMDV	ENADD+11, Q+6!, SAVE+3, SAVE+4, SAVE+5
RAMDVZZ	Q+9!, SAVE+3, SAVE+4*, SAVE+5
RAMLC	Q+6!
>> RAMOD(	MODS+5*
RANME	ENADD+6*, Q+5!
>> RANUM	BAQUES+7*, BAQUES+17
>> RAOIFN	BAQUES+6*, BAQUES+7, BAQUES+9, BAQUES+16, BAQUES+17, BAQUES+18, BAQUES+22, BAQUES+28
RAORD0	BAQUES+16!, BAQUES+21~, BAQUES+22, BAQUES+24
>> RAORDS(	BAQUES+7*, BAQUES+17!
>> RAOUT	ADDORD1+6, ADDORD1+7, CREATE, CREATE1+1, CREATE1+6, CREATE1+8, BAQUES+4, MODS+4
>> RAPIFN	RAORD1+21, PL+21, ENADD+2
RAPKG	RAORD1+20*, ENADD+2, ENADD+6, ENADD+21, ENADD+22, Q+6, Q+7!, BAQUES+16, SAVE+2
RAPOP	Q+8!
>> RAPRC(	ADDORD1+6
>> RAPREG	CREATE1+6*
RAPRI	ADDORD1+6!, CREATE1+1, MODS+2, ALLERGY+4, ALLERGY+6, ALLERGY+9
RAPRI(0	ALLERGY+4*, ALLERGY+5, ALLERGY+12!
RAPTLKUP	RAORD1+20~, RAORD1+23, PAT+1, PAT+3
RAPTLOCK	RAORD1+23~, PAT+2*, Q+3
RAREASK	ADDORD1+7!
RAREAST	Q+8!
>> RAREGFLG	RAORD1+23, PL+15, ENADD+6, Q+5, BAQUES+7, BAQUES+17
RAREQLOC	Q+8!
>> RARX	ADDORD1+1, ADDORD1+2, ADDORD1+3*, ADDORD1+4, ADDORD1+6
RASCI	Q+9!
RASERIES	Q+9!
>> RASEX	ENADD+6*
>> RASKPREG	CREATE1+6*
>> RASTOP	ADDORD1+6*
>> RASX	ADDORD1+3, ADDORD1+6*
>> RAVSTFLG	RAORD1+21, RAORD1+23, PL+21, ADDORD+5, Q+5, BAQUES+7, BAQUES+17
RAWARD	RAORD1+23!, PAT+4, PL+2, PL+13, PL+15!, ENADD+6, ENADD+13, Q+5!
>> RAWHEN	CREATE1+1, CREATE1+2
U	ENADD+15, ALLERGY+5
VA200	PAT+3, PL+21!, ENADD+6
>> VAEL	ADDORD+3
VAERR	PL+21!
VAIP	PL+21!
VAIP(1	PAT+4, ENADD+6
VAIP(5	PAT+4, ENADD+6
>> X	ADDORD1+6, BAQUES+5, MODS+4
>> XQORS	ENADD+22
Y	PAT+1, PAT+2, PAT+3, PL+15, PL+20, PL+21, ENADD+14~, ENADD+15, ADDORD1+4, BAQUES+6 , MODS+4, MODS+5

Customize PDF page

Package: Radiology Nuclear Medicine

Routine: RAORD1

Information

Source Information

Call Graph

Call Graph Total: 25

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: