Routine: ORX1

Information

ORX1 ; slc/dcm - OE/RR Nature of Order entry points ;12/26/96 09:49

Source Information

Source file <ORX1.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	4	^DIC MIX^DIC1 ^DIE ^DIR

Caller Graph

Caller Graph Total: 19

Package	Total	Caller Graph
Order Entry Results Reporting	12	ORCL NATURE ORCL ORDER REASON ORCSAVE2 ORCSEND ORCSIGN OREVNT1 ORMFH ORMGMRC ORMLR ORMPS ORMRA ORQ11
Outpatient Pharmacy	3	PSOCAN4 PSOHLD PSONEW
Radiology Nuclear Medicine	2	^RA(75.2 ^RAO(75.1
Inpatient Medications	1	PSJUTL5
Lab Service	1	LROR6

Name	Comments	DBIA/ICR reference
ACTV(X)	; -- Returns 1 or 0, include action in Active Orders
ACTQ
DC(DEFAULT,REQ,PKG,DIRA)	;Function to get a DC Reason
EDN
NA2(SCREEN)	;Get help for DC Reasons
EDITNAT	; -- Edit allowable Nature of Order fields
SIGQ
CHQ
EDC1
CREATE(X)	; -- Returns 1 or 0, if action should be created or not
OT1
NA(DEFAULT,REQUIRD,FB,DIRA,DC,LIST)	;Function to get Nature of order
CHART(X)	; -- Returns 1 or 0, print chart copy for nature X
OT2
SIGSTS(X)	; -- Returns default signature status for nature X
EDITDCR	; -- Edit DC Reason
NA1(SCREEN)	;Executable help for Nature of order

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"A "_$S($L($G(DIRA)):DIRA,1:"NATURE OF ORDER/CHANGE")_" must be entered",$C(7),! Line Location: OT2+1
Function Call: WRITE	Prompt: !?30," Require",?43," Print",?56,"Print on" Line Location: NA1+3
Function Call: WRITE	Prompt: !?2,"Nature of Order Activity",?29,"E.Signature",?43,"Chart Copy",?56,"Summary" Line Location: NA1+4
Function Call: WRITE	Prompt: !?2,"------------------------",?29,"-----------",?43,"----------",?56,"--------" Line Location: NA1+5
Function Call: WRITE	Prompt: !,?2,$P(X,"^"),?34,$S($P(X1,"^",4)=2:"x",1:""),?47,$S($P(X1,"^",2):"x",1:""),?59,$S($P(X1,"^",3):"x",1:"") Line Location: NA1+6
Function Call: WRITE	Prompt: !?30," Require",?43," Print",?56,"Print on" Line Location: NA2+3
Function Call: WRITE	Prompt: !,"Order Reason",?29,"E.Signature",?43,"Chart Copy",?56,"Summary" Line Location: NA2+4
Function Call: WRITE	Prompt: !,"------------",?29,"-----------",?43,"----------",?56,"--------" Line Location: NA2+5
Function Call: WRITE	Prompt: !,$P(X,"^") Line Location: NA2+6
Function Call: WRITE	Prompt: ?34,$S($P(X1,"^",4)=2:"x",1:""),?47,$S($P(X1,"^",2):"x",1:""),?59,$S($P(X1,"^",3):"x",1:"") Line Location: NA2+7
Function Call: WRITE	Prompt: !,"A REASON FOR DC must be entered",$C(7),! Line Location: OT1+1
Function Call: WRITE	Prompt: ! Line Location: EDITDCR+1
Function Call: WRITE	Prompt: ! Line Location: EDC1+4
Function Call: WRITE	Prompt: ! Line Location: EDITNAT+1
Function Call: WRITE	Prompt: ! Line Location: EDN+4
Routine Call	DIE Line Location: EDC1+3 EDN+3
Routine Call	DIC Line Location: EDN+2
Routine Call	DIR Line Location: OT2 OT1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	EDC1+1, EDC1+2
^ORD(100.02 - [#100.02]	NA+28, NA+29, OT2+2, NA1+6, NA2+6, CREATE+2, CREATE+3, SIGSTS+2, SIGSTS+3, CHART+2 , CHART+3, ACTV+2, ACTV+3
^ORD(100.03 - [#100.03]	NA2+6, DC+13

Name	Line Occurrences
ACTQ	ACTV+1, ACTV+2
CHQ	CHART+1, CHART+2
EDC1	EDC1+4
EDN	EDN+4
OT1	OT1+1
OT2	OT2+1
SIGQ	SIGSTS+1, SIGSTS+2

Name	Field # of Occurrence
^(	NA1+6, NA2+6
^(0	NA+28, NA+29, NA2+6, DC+13
^(1	NA1+6, NA2+6

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORX1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
D	EDITDCR+1~, EDC1+1*
DA	EDITDCR+1~, EDC1+3, EDITNAT+1~, EDN+3
DC	NA~, NA+31*
DEFAULT	NA~, NA+28*, NA+29, DC~, DC+13
DIC	EDITDCR+1~, EDC1, EDC1+3, EDITNAT+1~, EDN, EDN+3
DIC("A"	EDC1, EDN
DIC("DR"	EDC1+2*
DIC("S"	EDC1+1, EDN+1
DIC(0	EDC1, EDN
DIE	EDITDCR+1~, EDC1+3, EDITNAT+1~, EDN+3
DIR	NA+19~, DC+5~
DIR("?"	NA+20, NA+21, NA+22, NA+23, NA+24, NA+25, NA+26, DC+6, DC+7, DC+8 , DC+9, DC+10, DC+11*
DIR("??"	NA+35, DC+16
DIR("A"	NA+27, DC+12
DIR("B"	NA+29!, DC+13
DIR("S"	NA+32, NA+33, NA+34, DC+15
DIR(0	NA+30, DC+14
DIRA	NA~, NA+27, OT2+1, DC~, DC+12
DIRUT	NA+19~, DC+5~
DLAYGO	EDITDCR+1~, EDC1*
DR	EDITDCR+1~, EDC1+3, EDITNAT+1~, EDN+3
DUOUT	NA+19~, DC+5~
FB	NA~, NA+31*, NA+33
I	NA2+2~, NA2+6*
LIST	NA~, NA+29, NA+32, NA+33
PKG	DC~, DC+15
REQ	DC~, OT1+1
REQUIRD	NA~, OT2+1
SCREEN	NA1~, NA1+6, NA2~, NA2+6
U	CREATE+3, SIGSTS+3, CHART+3, ACTV+3
X	NA+19~, NA1+2~, NA1+6, NA2+2~, NA2+6, CREATE~, CREATE+1, CREATE+2, CREATE+3, SIGSTS~ , SIGSTS+1, SIGSTS+2, SIGSTS+3, CHART~, CHART+1, CHART+2, CHART+3, ACTV~, ACTV+1, ACTV+2 , ACTV+3, DC+5~, EDITDCR+1~, EDITNAT+1~
X1	NA1+2~, NA1+6, NA2+2~, NA2+6, NA2+7
Y	NA+19~, OT2+1, OT2+2, OT2+3, NA1+2~, NA1+6, CREATE+1~, CREATE+3, CREATE+4, SIGSTS+1~ , SIGSTS+3, SIGQ, CHART+1~, CHART+3, CHQ, ACTV+1~, ACTV+3*, ACTQ, DC+5~, OT1+1 , OT1+2, EDITDCR+1~, EDC1+2, EDC1+3, EDITNAT+1~, EDN+2, EDN+3
Y(0	OT1+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed