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 ;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  

Entry Points

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

External References

Name Field # of Occurrence
^DIC EDN+2
MIX^DIC1 EDC1+2
^DIE EDC1+3, EDN+3
^DIR OT2, OT1

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
Routine Call
  • DIE
  • Line Location:
    • EDC1+3
    • EDN+3
Routine Call
  • DIC
  • Line Location:
    • EDN+2
Routine Call
  • DIR
  • Line Location:
    • OT2
    • OT1

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

Label References

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

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*
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
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