Routine: ORX2

Information

ORX2 ; slc/dcm - OE/RR Patient lock entry points ;17-May-2010 08:35;PLS

Source file <ORX2.m>

Package	Total	Call Graph
Kernel	1	($$FMADD,$$NOW)^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	18	OR3CONV ORCACT ORCACT1 ORCACT2 ORCACT3 ORCB ORCFLAG ORCHART ORCMED ORCMENU ORCMENU1 ORCMENU2 ORCSIGN OREVNT OREVNT1 ORMEVNT ORWDX ORWDXA
Outpatient Pharmacy	9	PSOBBC PSOHLEXP PSOMAUEX PSONEW PSOORCPY PSOORFI1 PSOORFI3 PSORENW PSORENW4
Consult Request Tracking	2	GMRCA1 GMRCUTL1
Inpatient Medications	2	PSIVOD PSIVORE
Care Management	1	ORRCOR
Kernel	1	XQORO
Lab Service	1	LRDPA
Pharmacy Data Management	1	PSSLOCK
Registration	1	VALMXQ15

Name	Comments	DBIA/ICR reference
LCKEVT(EVT)	;Function atttempts to lock event, added w/patch 194
LOCK1(ORDER)	; -- Lock ORDER in file #100 ; Returns 1 if successful or 0^Message if could not get lock
READ	; -- instead of READ^ORUTL
LOCK(DFN)	; -- Lock patient chart (silent) ; Returns 1 if successful, or 0^Message if could not get lock
LK	;;Entry point for locking patient when updating orders
UNLOCK(DFN)	; -- Unlock patient chart (silent)
UNLK1(ORDER)	; -- Unlock ORDER in file #100
ULK	;;Entry point to unlock patient
INC(IFN)	;Increment zero node on file 100.2
UNLEVT(EVT)	;Unlocks global, added w/patch 195
PT1	;;Entry point to unlock patient when done adding orders - NO LONGER USED

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$P(Y,U,2) Line Location: LK+4
Routine Call	DIR Line Location: READ+3

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	LOCK1+7, LOCK1+8, LOCK1+9, LOCK1+10, UNLK1+5, UNLK1+6, UNLK1+8, UNLK1+9
^OR(100.2	INC+2, INC+3, INC+4, INC+6*, INC+7
^ORE(100.2 - [#100.2]	LCKEVT+2, UNLEVT+1
^VA(200 - [#200]	LOCK+5, LOCK1+7
^XTMP("ORLK-"	LOCK1+5, LOCK1+6, LOCK1+7, LOCK1+12*, UNLK1+3, UNLK1+4, UNLK1+5!, UNLK1+9!
^XTMP("ORPTLK-"	LOCK+4, LOCK+5, LOCK+7*, UNLOCK+1, UNLOCK+2!

Name	Field # of Occurrence
DFN	LOCK~, LOCK+3, LOCK+4, LOCK+5, LOCK+7, UNLOCK~, UNLOCK+1, UNLOCK+2
>> DILOCKTM	LOCK+5, LOCK1+7, UNLK1+6
DIR	READ+1~
DIR("A"	READ+2*
DIR(0	READ+2*
DUZ	LOCK+4, LOCK+7, UNLOCK+2, LOCK1+12
EVT	LCKEVT~, LCKEVT+2, UNLEVT~, UNLEVT+1
IFN	INC~, INC+2, INC+5
J	LCKEVT+1~, LCKEVT+2*
NOW	LOCK+3~, LOCK+6, LOCK+7, LOCK1+3~, LOCK1+11, LOCK1+12
NOW1	LOCK+3~, LOCK+6, LOCK+7, LOCK1+3~, LOCK1+11, LOCK1+12
ORDER	LOCK1~, LOCK1+3, LOCK1+5, LOCK1+6, LOCK1+7, LOCK1+8, LOCK1+10, LOCK1+12, UNLK1~, UNLK1+2* , UNLK1+3, UNLK1+4, UNLK1+5, UNLK1+6, UNLK1+8, UNLK1+9
ORELK	PT1+3!
ORLK	LOCK+3~, LOCK+4*, LOCK+5
ORPTLK	PT1+3!
>> ORVP	PT1+2, PT1+3
U	LK+4, LOCK+4, LOCK+5, LOCK+7, UNLOCK+2, INC+5, INC+6, LOCK1+6, LOCK1+7, LOCK1+8 , LOCK1+9, LOCK1+12, UNLK1+4
X	LK+2, LK+3, LK+5!, ULK+2, ULK+3, INC+1~, INC+4, INC+5, LOCK1+3~, LOCK1+7 , LOCK1+9*, LOCK1+10, READ+1~
X3	INC+1~, INC+5*, INC+6
X4	INC+1~, INC+5*, INC+6
Y	LK+3, LK+4, LK+5, LOCK+3~, LOCK+5, LOCK1+3~, LOCK1+7, LOCK1+8, LOCK1+9, LOCK1+10 , READ+1~