Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ORX1

Package: Order Entry Results Reporting

Routine: ORX1


Information

ORX1 ; SLC/DCM - OE/RR Nature of Order entry points ;Apr 24, 2024@07:20:01

Source Information

Source file <ORX1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 5 ^DIC  MIX^DIC1  ^DIE  EN^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 21

Package Total Caller Graph
Order Entry Results Reporting 14 ORCL NATURE  ORCL ORDER REASON  ORCL OVERRIDE REASONS  ORCSAVE2  ORCSEND  ORCSIGN  OREVNT1  ORMFH  
ORMGMRC  ORMLR  ORMPS  ORMRA  ORMVBEC  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  

Entry Points

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

External References

Name Field # of Occurrence
^DIC EDN+2, EOVR1+1
MIX^DIC1 EDC1+2
^DIE EDC1+3, EDN+3, EOVR1+5
EN^DIQ EOVR1+22
^DIR OT2, OT1, EOVR1+17

Interaction Calls

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
Function Call: WRITE
  • Prompt: !
  • Line Location: EDITOVR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EOVR1+21
Function Call: WRITE
  • Prompt: !
  • Line Location: EOVR1+23
Routine Call
  • DIC
  • Line Location:
    • EDN+2
    • EOVR1+1
Routine Call
  • DIE
  • Line Location:
    • EDC1+3
    • EDN+3
    • EOVR1+5
Routine Call
  • DIR
  • Line Location:
    • OT2
    • OT1
    • EOVR1+17

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.02 - [#100.02] Classic Fileman Calls

Global Variables Directly Accessed

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
^ORD(100.04 - [#100.04] EOVR1+2

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D EDITDCR+1~, EDC1+1*
DA EDITDCR+1~, EDC1+3*, EDITNAT+1~, EDN+3*, EDITOVR+1~, EOVR1+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, EDITOVR+1~, EOVR1*, EOVR1+5
DIC("A" EDC1*, EDN*, EOVR1*
DIC("DR" EDC1+2*, EOVR1*
DIC("S" EDC1+1*, EDN+1*
DIC(0 EDC1*, EDN*, EOVR1*
>> DIDEL EOVR1+5*
DIE EDITDCR+1~, EDC1+3*, EDITNAT+1~, EDN+3*, EDITOVR+1~, EOVR1+5*
DIQ EOVR1+19~
DIQ(0 EOVR1+20*
DIR NA+19~, DC+5~, EOVR1+7~
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*, EOVR1+9*, EOVR1+10*, EOVR1+11*, EOVR1+12*, EOVR1+13*, EOVR1+14*, EOVR1+15*
DIR("B" NA+29*!, DC+13*, EOVR1+16*
DIR("S" NA+32*, NA+33*, NA+34*, DC+15*
DIR(0 NA+30*, DC+14*, EOVR1+8*
DIRA NA~, NA+27, OT2+1, DC~, DC+12
DIROUT EOVR1+7~
DIRUT NA+19~, DC+5~, EOVR1+7~
DLAYGO EDITDCR+1~, EDC1*, EDITOVR+1~, EOVR1*
DR EDITDCR+1~, EDC1+3*, EDITNAT+1~, EDN+3*, EDITOVR+1~, EOVR1+5*
DTOUT EDITOVR+1~, EOVR1+7~
DUOUT NA+19~, DC+5~, EDITOVR+1~, EOVR1+7~
FB NA~, NA+31*, NA+33
I NA2+2~, NA2+6*
LIST NA~, NA+29, NA+32, NA+33
NATIONAL EDITOVR+1~, EOVR1+2*, EOVR1+4, EOVR1+6
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, EOVR1+2
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~, EDITOVR+1~, EOVR1+7~
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, EDITOVR+1~, EOVR1+1, EOVR1+2
, EOVR1+3, EOVR1+7~, EOVR1+18
Y(0 OT1+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All