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: ORCACT2

Package: Order Entry Results Reporting

Routine: ORCACT2


Information

ORCACT2 ;SLC/MKB-DC orders ; 03/27/2007

Source Information

Source file <ORCACT2.m>

Call Graph

Call Graph Total: 25

Package Total Call Graph
Order Entry Results Reporting 17 $$VALID^ORCACT0  $$DOSES^ORCACT4  $$NMSP^ORCD  PROVIDER^ORCDPSIV  $$ORDERS^ORCHART  FREEZE^ORCMENU  ($$LOCATION,$$PROVIDER)^ORCMENU1  ($$ACTION,RESUME)^ORCSAVE  
(CANCEL,DELETE,STATUS)^ORCSAVE2  EN^ORCSEND  UNOTIF^ORCSIGN  EX^OREVNT  ($$EMPTY,$$NAME,CANCEL)^OREVNTX  PRINT^ORPR02  TEXT^ORQ12  ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2  
($$VALUE,DELAYED)^ORX8  
VA Fileman 4 ^DIC  ^DIE  ^DIK  ^DIR  
Kernel 2 $$NOW^XLFDT  $$UP^XLFSTR  
Dietetics 1 $$RESUME^FHWORR  
Toolkit 1 $$GET^XPAR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Order Entry Results Reporting 3 ORCDFHTF  OREVNTX  ORWDXA  

Entry Points

Name Comments DBIA/ICR reference
UNREL ; -- Process unreleased/delayed order
DQ
DCD(IFN) ; -- order discontinued already?
NXT() ; -- Return next available subscript in ORDC()
COMPLX ; -- Ck for other child orders to be dc'd at same time
DCRQ
CLRDLY(IFN) ; -- [old Clear delayed fields] Cancel delayed [event]order
DC ; -- start here with:
; ORNMBR = #,#,...,# of selected orders
SET(ORDER,NATURE,REASON,TEXT,DCORIG) ; -- Set DC Reason into 6-node
PRINT(NATR) ; -- Ok to print order?
DCREASON() ; -- Returns Reason for DC
UNLOCK ; -- Unlock orders in ORDC(ORI)=ORIFN
ORDITEM(ID) ; -- Returns order text
SUBHDR(X) ; -- Display subheader of order being acted on
EVENT ; -- Cancel event too?
RESUME(ORDER) ; -- Resume tray service when dc'ing tubefeeding ORDER?
OK(NUM) ; -- Ok to DC delayed order(s) too?
DC1
DC2
DC3
DCQ

External References

Name Field # of Occurrence
^DIC DCREASON+5
^DIE UNREL+7
^DIK DC2+15
^DIR OK+4, RESUME+6
$$RESUME^FHWORR RESUME+1
$$VALID^ORCACT0 DC1+6
$$DOSES^ORCACT4 DC2+1
$$NMSP^ORCD DC2
PROVIDER^ORCDPSIV DC3+5
$$ORDERS^ORCHART DC+7
FREEZE^ORCMENU DC+8
$$LOCATION^ORCMENU1 DC3+6
$$PROVIDER^ORCMENU1 DC3+4
$$ACTION^ORCSAVE DC3+10
RESUME^ORCSAVE RESUME+7
CANCEL^ORCSAVE2 UNREL+13
DELETE^ORCSAVE2 UNREL+11
STATUS^ORCSAVE2 CLRDLY+5
EN^ORCSEND DC3+12
UNOTIF^ORCSIGN DCQ
EX^OREVNT EVENT+10
$$EMPTY^OREVNTX EVENT+3
$$NAME^OREVNTX EVENT+8
CANCEL^OREVNTX EVENT+8
PRINT^ORPR02 DC3+17
TEXT^ORQ12 DC2+7, ORDITEM+6
$$LOCK^ORX2 DC+6
$$LOCK1^ORX2 DC1+7, DC2+12
UNLK1^ORX2 DC2+16, DC3+12, UNLOCK+2, UNREL+8, UNREL+11
UNLOCK^ORX2 DCQ+1
$$VALUE^ORX8 DC2+1
DELAYED^ORX8 DC2+5
$$NOW^XLFDT SET+3, CLRDLY+4
$$UP^XLFSTR DC2+4
$$GET^XPAR DC3+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: DC+6
Function Call: WRITE
  • Prompt: !,"This order has been deleted!"
  • Line Location: DC1+3
Function Call: WRITE
  • Prompt: !,ORERR
  • Line Location: DC1+6
Function Call: WRITE
  • Prompt: !,$P(ORLK,U,2)
  • Line Location: DC1+7
Function Call: WRITE
  • Prompt: !,$C(7),"This is part of a complex order, which will be discontinued in its entirety:"
  • Line Location: DC2+3
Function Call: WRITE
  • Prompt: !,+ORY_" delayed order(s) for the same medication were found:"
  • Line Location: DC2+6
Function Call: WRITE
  • Prompt: !,$E(ORTX(1),1,75)_$S($L(ORTX(1))>75:"...",1:""),!," >> delayed until "_$P(ORV,U,2)
  • Line Location: DC2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DC2+8
Function Call: WRITE
  • Prompt: !,"Orders not signed or released to the service will be deleted.",!
  • Line Location: DC2+9
Function Call: WRITE
  • Prompt: !,$P(ORLKD,U,2)
  • Line Location: DC2+12
Function Call: WRITE
  • Prompt: $C(7),!,"You are not authorized to release med orders.",!
  • Line Location: DC3+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: DC3+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: DC3+13
Function Call: WRITE
  • Prompt: !,$$ORDITEM(+ORIFN)_" not discontinued."
  • Line Location: DC3+14
Function Call: WRITE
  • Prompt: !," >> "_$P(ORERR,U,2)
  • Condition for execution: $L($P($G(ORERR),U,2))
  • Line Location: DC3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DC3+15
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: !!,?(36-($L(X)\2)),"-- "_X_" --",!
  • Line Location: SUBHDR+1
Function Call: WRITE
  • Prompt: !,"NOTE: NO current diet order exists for this patient!"
  • Line Location: RESUME+2
Function Call: WRITE
  • Prompt: !,"Note: Patient is on a WITHHOLD SERVICE order!"
  • Line Location: RESUME+3
Function Call: WRITE
  • Prompt: !,"This order will be deleted."
  • Line Location: UNREL+10
Function Call: WRITE
  • Prompt: !,"This order was not released and will be cancelled."
  • Line Location: UNREL+12
Function Call: WRITE
  • Prompt: !," ... "_X_" event cancelled."
  • Line Location: EVENT+9
Routine Call
  • DIE
  • Line Location:
    • UNREL+7
Routine Call
  • DIC
  • Line Location:
    • DCREASON+5
Routine Call
  • DIR
  • Line Location:
    • OK+4
    • RESUME+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] Classic Fileman Calls
^ORD(100.03 - [#100.03] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] DCREASON+4
^OR(100 - [#100] DC1+3, DC1+4, DC1+8, DC2+4, DC2+13, COMPLX+3, COMPLX+4, SET+1, SET+3*, UNREL+2
, UNREL+5!, UNREL+6*, CLRDLY+2, CLRDLY+4*, CLRDLY+5*, DCD+2, DCD+5
^ORD(100.02 - [#100.02] PRINT+1, DCREASON+4, DCRQ, SET+2, CLRDLY+4
^ORD(100.03 - [#100.03] DCREASON+3
^ORD(100.98 - [#100.98] DC1+11
^ORE(100.2 - [#100.2] UNREL+7, EVENT+3
^TMP("OR" DC1+1
^TMP("ORNEW" DC2+16, DC3+10*, DCQ+1, UNREL+9
^XUSEC("OREMAS" DC3+2

Label References

Name Line Occurrences
$$DCREASON DC3
$$NXT DC2+14, COMPLX+5
$$OK DC2+8
$$ORDITEM DC1+5, DC3+14
$$PRINT DC3+8
CLRDLY DC2+15, UNREL+13
COMPLX DC2+17
DC3 DC3+2
DCQ DC+7, DC2+17, DC3, DC3+3
DQ DCD+3
EVENT DCQ+3
RESUME DC1+11
SET DC3+10
SUBHDR DC1+5
UNLOCK DC3, DC3+3
UNREL DC1+10

Naked Globals

Name Field # of Occurrence
^( DC2+4, UNREL+9!
^(1 DC2+16!
^(3 DC1+8, CLRDLY+2
^(6 SET+3*
^(8 DC1+8, DC2+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHLD COMPLX+1~, COMPLX+3*, COMPLX+4, COMPLX+5
DA DC2+5~, DC2+10*, DC2+12, DC2+13, DC2+14, DC2+15, DC2+16, RESUME+1~, UNREL+1~, UNREL+7*
DAD COMPLX+1~, COMPLX+2*, COMPLX+3, COMPLX+5
DCORIG SET~, SET+3
DIC DCREASON+1~, DCREASON+3*, RESUME+1~
DIC("A" DCREASON+4*
DIC("B" DCREASON+3*!
DIC("S" DCREASON+4*
DIC("W" DCREASON+3*
DIC(0 DCREASON+3*
DIE UNREL+1~, UNREL+7*
DIK DC2+5~, DC2+10*
DIR OK+1~, RESUME+1~
DIR("?" OK+3*, RESUME+5*
DIR("A" OK+2*, RESUME+4*
DIR("B" OK+1*, RESUME+5*
DIR(0 OK+1*, RESUME+4*
DR UNREL+1~, UNREL+7*
>> DTOUT RESUME+6
DUZ DC3+2, SET+3, CLRDLY+4
EVT EVENT+1~, EVENT+2*, EVENT+3, EVENT+8, EVENT+10
I DC2+2~, DC2+4*, PRINT+1~*, DCD+1~, DCD+5*
ID ORDITEM~, ORDITEM+6
IDX DC+5~, DC1+1*, DC1+2
IFN CLRDLY~, CLRDLY+1*, CLRDLY+2, CLRDLY+4, CLRDLY+5, DCD~, DCD+1, DCD+2, DCD+5
NATR PRINT~, PRINT+1
NATURE SET~, SET+2*, SET+3
NMBR DC+5~, DC1*, DC1+1
NUM OK~, OK+2
OR0 DC+5~, DC1+8*, DC1+9, DC1+11, DC2, UNREL+7
OR1 PRINT+1~*, PRINT+2
OR3 DC+5~, DC1+8*, DC1+11, DC2+1, DC2+2, DC2+4, UNREL+6
ORA UNREL+1~, UNREL+2*, UNREL+9
ORA0 UNREL+1~, UNREL+2*, UNREL+5
ORACT DC+5~, DC+8*, DC1+6, DC3+12
ORCLNUP DC+5~, DC3+8*
ORCREATE DC+5~, DC3+1*, DC3+2, DC3+3, DC3+7, DC3+10, DC3+16
ORDA DC+5~, DC3+10*
ORDC DC+5~
ORDC( DC2*, DC2+14*, DC3+9, UNLOCK+2, COMPLX+5*
ORDC("" NXT+1
ORDC("DAD" DC2+2*, DC2+17, COMPLX+2, COMPLX+5
ORDC(0 DC2+17
ORDER SET~, SET+1*, SET+3, RESUME~, RESUME+7
ORDITM DC+5~, DC1+5*
OREASON DC+5~, DC3*, DC3+1, DC3+10, DC3+12
OREBUILD DC+8!, DC3+18*, DCQ, UNREL+8*
ORERR DC+5~, DC1+6, DC3+12, DC3+13, DC3+15
>> OREVENT EVENT+10
OREVT DC+5~, DCQ+3
OREVT( DC1+9*, DC2+15*, EVENT+2
ORI DC+5~, DC1*, DC2, DC3+9*, UNLOCK+1~*, UNLOCK+2*
ORIFN DC+5~, DC1+2*, DC1+3, DC1+4*, DC1+5, DC1+6, DC1+7, DC1+8, DC1+11, DC2
, DC2+1, DC2+2, DC2+5, DC3+9*, DC3+10, DC3+12, DC3+13, DC3+14, UNLOCK+1~, UNLOCK+2*
, UNREL+2, UNREL+5, UNREL+7, UNREL+8, UNREL+9, UNREL+11, UNREL+13
ORJ DC2+5~, DC2+7*, DC2+11~
>> ORL DC3+3, DC3+6*, DC3+17
ORLK DC+5~, DC1+7*
ORLKD DC2+11~, DC2+12*
ORNATR DC+5~, DC3+1*, DC3+8, DC3+10, DC3+12
>> ORNMBR DC+7*, DC1, NXT+1
>> ORNP DC3+3, DC3+4*, DC3+5*, DC3+10, DCQ+2*
ORPRINT DC+5~, DC3+9*, DC3+13*, DC3+17
ORPRINT( DC3+13*
ORPRINT(0 DC3+17
ORPRNT DC+5~, DC3+8*, DC3+13, DC3+17
ORPTLK DC+5~, DC+6*
ORQUIT DC+5~, DC1, DC1+11, DC3+5, RESUME+6*, EVENT+2
ORSIG DC2+11~, DC2+13*, DC2+15
ORSTS DC+5~, DC1+8*, DC1+10, UNREL+13
>> ORTAB DC1+1, DC1+2
ORTX DC2+5~, DC2+7
ORTX(1 DC2+7
ORV DC2+5~, DC2+7*
>> ORVP DC+6, DC3+17, DCQ+1, RESUME+1
ORX DC+5~, DC2*, DC3+2, DC3+5, ORDITEM+6~, CLRDLY+1~, CLRDLY+3*, CLRDLY+4
ORX(1 ORDITEM+6
ORXNP DC+5~, DCQ+2
ORY DC2+5~, DC2+6, DC2+8
ORY( DC2+7, DC2+10, DC2+15
REASON SET~, SET+3
STS DC2+11~, DC2+13*, DC2+14, CLRDLY+1~, CLRDLY+2*, CLRDLY+3, DCD+1~, DCD+2*, DCD+3
TEXT SET~, SET+3
U DC+6, DC1+2, DC1+4, DC1+7, DC1+8, DC1+9, DC1+11, DC2, DC2+1, DC2+2
, DC2+4, DC2+7, DC2+12, DC2+13, DC3+1, DC3+10, DC3+13, DC3+15, PRINT+2, COMPLX+4
, DCRQ, SET+3, UNREL+5, UNREL+6, UNREL+7, CLRDLY+2, CLRDLY+4, CLRDLY+5, DCD+2, DCD+3
, DCD+5
>> VALMBCK DC+5*, DC+8*
X DC2+2~, DC2+4*, OK+1~, ORDITEM+6~*, ORDITEM+7, SUBHDR~, SUBHDR+1, DCREASON+1~, RESUME+1~*, RESUME+2
, RESUME+3, RESUME+6, EVENT+1~, EVENT+8*, EVENT+9
Y OK+1~, OK+5, NXT+1~*, NXT+2, PRINT+1~, PRINT+2*, PRINT+3, DCREASON+1~, DCRQ*, DCRQ+1
, RESUME+1~, RESUME+6, RESUME+7, DCD+1~*, DCD+3*, DCD+5*, DQ
Y(0 DCRQ
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