Routine: ORCDRA

Information

ORCDRA ; SLC/MKB - Utility functions for RA dialogs ;7/23/01 11:47

Package	Total	Call Graph
Order Entry Results Reporting	3	$$PTR^ORCD ($$FIND,DIC)^ORCDLG2 $$DIV^ORCDRA1
Kernel	2	$$NOW^XLFDT $$LOW^XLFSTR
VA Fileman	2	^DIC ^DIR
Radiology Nuclear Medicine	1	(EN2,EN4)^RAO7PC1
Registration	1	$$LOWER^VALM1
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

Order Entry Results Reporting

$$PTR^ORCD ($$FIND,DIC)^ORCDLG2 $$DIV^ORCDRA1

Kernel

$$NOW^XLFDT $$LOW^XLFSTR

VA Fileman

^DIC ^DIR

Radiology Nuclear Medicine

(EN2,EN4)^RAO7PC1

Registration

$$LOWER^VALM1

Toolkit

$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORY281

Package

Total

Caller Graph

Order Entry Results Reporting

ORY281

Entry Points

Name	Comments	DBIA/ICR reference
ENA
EN	; -- Entry action for RA OERR EXAM order dialog
ITYPE	; -- Select Imaging Type for ordering, sets ORIMTYPE
BROAD(PROC)	; -- Ck PROC type vs ORBROAD
ACTQ
LIST	; -- List Common Procedures in ORDIALOG(PROMPT,"LIST") for selection
NEXTPROC	; -- Gets next procedure in ORMORE()
ACTIVE(DG)	; -- Returns 1 or 0, if active OI's exist for DG
LAST7	; -- Display last 7 days of exams for patient
EX	; -- Exit action for RA OERR EXAM order dialog
COMMON	; -- Build ORDIALOG(PROMPT,"LIST") of Common Procedures
LKP	; -- Special lookup on [common] procedures
ITQ

External References

Name	Field # of Occurrence
^DIC	ITYPE+16
^DIR	LIST+10
$$PTR^ORCD	ITQ, ITQ+5
$$FIND^ORCDLG2	LKP+2
DIC^ORCDLG2	LKP+2, NEXTPROC+6
$$DIV^ORCDRA1	ITQ+7
EN2^RAO7PC1	LAST7+3
EN4^RAO7PC1	ITQ+7
$$LOWER^VALM1	LIST+4
$$NOW^XLFDT	ACTIVE+3
$$LOW^XLFSTR	COMMON+7
$$GET^XPAR	ENA+2, ITQ+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Case # Exams Over the Last 7 Days Exam Date Status of Exam Imaging Loc.",!,"------ -------------------------- --------- -------------- ------------" Line Location: LAST7+5
Function Call: WRITE	Prompt: !,$E($P(EXAM,U,2),1,9),?10,$E($P(EXAM,U),1,28),?39,Y_" "_STS,?67,$E($P(EXAM,U,5),1,12) Line Location: LAST7+9
Function Call: WRITE	Prompt: ! Line Location: LAST7+10
Function Call: WRITE	Prompt: $C(7),!!,"No active Imaging Types defined!",! Line Location: ITYPE+10
Function Call: WRITE	Prompt: !!,"Select one of the following imaging types:" Line Location: ITYPE+12
Function Call: WRITE	Prompt: !," "_$P(ITYPE(I),U,2) Line Location: ITYPE+13
Function Call: WRITE	Prompt: ! Line Location: ITYPE+15
Function Call: WRITE	Prompt: !!,"Common "_$$LOWER^VALM1($P(ORDG,U,2))_" Procedures: " Line Location: LIST+4
Function Call: WRITE	Prompt: !,$J(NUM,3)_" "_$E($P(ORDIALOG(PROMPT,"LIST",NUM),U,2),1,36) Line Location: LIST+7
Function Call: WRITE	Prompt: ?40,$J(NUM+HALF,3)_" "_$E($P(ORDIALOG(PROMPT,"LIST",NUM+HALF),U,2),1,36) Line Location: LIST+9
Function Call: WRITE	Prompt: $C(7),!,"You may not select a broad procedure!",! Line Location: BROAD+2
Function Call: WRITE	Prompt: !!,"For "_$P(ORDIALOG(PROMPT,"A"),":")_" "_$P(X,U,2)_":" Line Location: NEXTPROC+4
Routine Call	DIC Line Location: ITYPE+16
Routine Call	DIR Line Location: LIST+10

FileNo	Call Tags
^RA(79.2 - [#79.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	LAST7+7
^OR(100 - [#100]	ITYPE+3
^ORD(100.98 - [#100.98]	ITYPE+2, ITYPE+3, ITYPE+4, ITYPE+5, ITYPE+6, ITYPE+7, COMMON+2, COMMON+3
^ORD(101.41 - [#101.41]	COMMON+2
^ORD(101.43 - [#101.43]	ACTIVE+2, COMMON+3, COMMON+5, BROAD+1
^RA(79.2 - [#79.2]	ITQ+2
^TMP($J	LAST7+3!, LAST7+4, LAST7+6, LAST7+10!

Name	Line Occurrences
$$ACTIVE	ITYPE+9
ACTQ	ACTIVE+2
ITQ	ITYPE+2, ITYPE+3, ITYPE+5, ITYPE+11
ITYPE	ENA
LAST7	EN+1
NEXTPROC	LKP+8

Name	Field # of Occurrence
^(	LAST7+6, ITYPE+6, COMMON+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABBREV	ITYPE+1~, ITYPE+7*, ITYPE+9
BEG	LKP+1~, LKP+6*, LKP+7
CNT	ITYPE+1~, ITYPE+4, ITYPE+9, ITYPE+10, ITYPE+11, ITQ+8, ITQ+9, ITQ+10, COMMON+1~, COMMON+4 , COMMON+5*, COMMON+6, COMMON+7
DA	ITYPE+1~, ITYPE+4, ITYPE+6, COMMON+1~, COMMON+5, LIST+1~, LIST+6, LIST+8*
DG	ITYPE+1~, ITYPE+3, ITYPE+6, ITYPE+7, ITYPE+9, ACTIVE~, ACTIVE+2, ACTIVE+3
DG0	ITYPE+1~, ITYPE+7*, ITYPE+9
DIC	ITYPE+1~, ITYPE+14*
DIC("A"	ITYPE+14*
DIC("S"	ITYPE+15*
DIC(0	ITYPE+14*
DIR	LIST+1~, LIST+10!
DIR(0	LIST+10*
DONE	BROAD+2!
>> DTOUT	ITYPE+16
>> DUOUT	ITYPE+16
>> EDITONLY	NEXTPROC+5, NEXTPROC+6
END	LKP+1~, LKP+6*, LKP+7
ENT	ENA~, ENA+1*, ENA+2
EXAM	LAST7+1~, LAST7+6*, LAST7+8, LAST7+9
EXDT	LAST7+1~
HALF	LIST+1~, LIST+2, LIST+3, LIST+5, LIST+8, LIST+9
I	ITYPE+1~, ITYPE+11, ITYPE+13, LKP+1~, LKP+3, NEXTPROC+2~, NEXTPROC+3
IDT	LAST7+1~, LAST7+4, LAST7+6, LAST7+7
IDX	ACTIVE+1~, ACTIVE+3, ACTIVE+4
IFN	ITYPE+1~, ITQ+8*
>> INST	NEXTPROC+1, NEXTPROC+5, NEXTPROC+6
ITYPE	ITYPE+1~, ITQ+2, ITQ+3, ITQ+7, COMMON+1~, COMMON+3, COMMON+5
ITYPE(	ITYPE+9*, ITYPE+11, ITYPE+13, ITYPE+17
ITYPE(""	ITYPE+11
J	LKP+1~, LKP+7*
NAME	ITYPE+1~, ITQ, ITQ+1, COMMON+1~, COMMON+4, COMMON+5*
NOW	ACTIVE+1~, ACTIVE+3*, ACTIVE+4
NUM	LIST+1~, LIST+5*, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10
OI	ITYPE+1~, ITQ*, ITQ+1, ITQ+3
>> ORACT	LAST7+2
ORBROAD	ENA+2*, EX+1!, BROAD+1
>> ORDG	ITYPE+2, ITYPE+3, ITYPE+5, ITYPE+11, ITYPE+17, ITQ, ITQ+2, COMMON+2, COMMON+3, COMMON+7 , LIST+4
>> ORDIALOG	COMMON+2
>> ORDIALOG(	ITQ+1, ITQ+3, ITQ+6, COMMON+1!, COMMON+5, COMMON+6, COMMON+7, LIST+1, LIST+2, LIST+3 , LIST+6, LIST+7, LIST+8, LIST+9, LKP+7, NEXTPROC+1, NEXTPROC+4, NEXTPROC+5, NEXTPROC+6
ORDIV	ENA+1, EX+1!, ITQ+7*, ITQ+9
>> ORIFN	ITYPE+3
ORIMLOC	EX+1!, ITQ+9!, ITQ+10*
ORIMLOC(	ITQ+8*
ORIMLOC("B"	ITQ+8*
ORIMTYPE	EX+1!, ITQ+2*, ITQ+4, ITQ+6
ORMORE	EX+1!, LKP+1!, LKP+4, LKP+7, NEXTPROC+2!, NEXTPROC+3*
ORMORE(	LKP+4, LKP+7, NEXTPROC+3!
ORMORE(0	NEXTPROC+2
>> ORQUIT	ITYPE+10, ITYPE+16, NEXTPROC+6*
>> ORTAB	EN+1, LIST+10
>> ORTYPE	LAST7+2, ITYPE+2, ITYPE+5
>> ORVP	LAST7+3, LAST7+4, LAST7+6
ORX	LKP+1~, LKP+3*
ORY	ITYPE+1~
ORY(	ITQ+8
PROC	BROAD~, BROAD+1
>> PROMPT	COMMON+1, COMMON+5, COMMON+6, COMMON+7, LIST+1, LIST+2, LIST+3, LIST+6, LIST+7, LIST+8 , LIST+9, LKP+2, LKP+7, NEXTPROC+1, NEXTPROC+4, NEXTPROC+5, NEXTPROC+6
PTR	ITQ+5~*, ITQ+6
ROOT	ACTIVE+1~, ACTIVE+3*, ACTIVE+4
>> SCR	LIST+10
STS	LAST7+1~, LAST7+8*, LAST7+9
U	LAST7+8, LAST7+9, ITYPE+2, ITYPE+3, ITYPE+5, ITYPE+7, ITYPE+9, ITYPE+13, ITYPE+17, ITQ , ITQ+2, ITQ+8, ACTIVE+4, COMMON+2, COMMON+3, COMMON+5, COMMON+7, LIST+4, LIST+7, LIST+9 , BROAD+1, LKP+4, NEXTPROC+4, NEXTPROC+6
>> VALM("TM"	LIST+10
X	ITYPE+1~, ACTIVE+1~, ACTIVE+4, LKP+2, LKP+3, LKP+4, LKP+5, LKP+6, NEXTPROC+2~, NEXTPROC+3* , NEXTPROC+4, NEXTPROC+5, NEXTPROC+6*
XRAY	ITYPE+1~, ITYPE+4*, ITYPE+5, ITYPE+6
Y	LAST7+1~, LAST7+7, LAST7+9, ITYPE+1~, ITYPE+16, ACTIVE+1~, ACTIVE+4, ACTQ, LIST+1~, LIST+5 , LKP+2, NEXTPROC+5, NEXTPROC+6
Y(0	ITYPE+17
Z	LKP+1~, LKP+7*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDRA

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: