Routine: ORCACT

Information

ORCACT ; SLC/MKB - Act on orders ;4/2/02 16:41

Source file <ORCACT.m>

Package	Total	Call Graph
Order Entry Results Reporting	11	$$VALID^ORCACT0 $$NMSP^ORCD ADD^ORCDLG PROVIDER^ORCDPSIV ($$ORDERS,TAB)^ORCHART (FREEZE,REBLD)^ORCMENU ($$LOCATION,$$PROVIDER)^ORCMENU1 INIT^ORCMENU2 $$PTEVENT^OREVNT TEXT^ORQ12 ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2
VA Fileman	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	9	ORCACT1 ORCB ORCDPS3 ORCMED ORCMENU2 ORCONSLT ORCSIGN OREVNT OREVNT1

Name	Comments	DBIA/ICR reference
UNHOLD	; -- release hold on orders
DELAY()	; -- Delay release of orders?
REWRITE	; -- rewrite orders
EDIT	; -- change orders
ADQ
RENEW	; -- renew orders
EN1
ADD	; -- add new order via NW on pkg results tab ; Requires ORDIALOG = name of pkg dialog
ORDITEM(ID)	; -- Returns order text
EN(ORACT)	; -- start here with: ; ORNMBR = #,#,...,# of selected orders ; ORACT = action to be taken on orders
EX	; -- exit action
SUBHDR(X)	; -- Display subheader of order being acted on
ENQ
HOLD	; -- hold orders

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: ADD+3
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: EN+7
Function Call: WRITE	Prompt: !,"This order has been deleted!" Line Location: EN1+3
Function Call: WRITE	Prompt: !,ORERR Line Location: EN1+6
Function Call: WRITE	Prompt: !,$P(ORLK,U,2) Line Location: EN1+8
Function Call: WRITE	Prompt: !!,?(36-($L(X)\2)),"-- "_X_" --",! Line Location: SUBHDR+1
Routine Call	DIR Line Location: DELAY+5

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN1+3, EN1+4, EN1+7
^ORD(100.5 - [#100.5]	DELAY+1
^ORD(101.41 - [#101.41]	ADD+10
^TMP("OR"	ADQ, EN1+1, EX+4, EX+5, EX+7
^TMP("ORECALL"	ADD+12!
^TMP("ORNEW"	ADD+11, ADQ+1, EN1+8, EN1+10, EN1+11, ENQ
^TMP("ORWORD"	ADD+12!

Name	Line Occurrences
$$DELAY	ADD+5, REWRITE+1
$$ORDITEM	EN1+5
@(	EN1+9
ADQ	ADD+2, ADD+5, ADD+8, ADD+9, ADD+10
EN	EDIT+1, RENEW+1, REWRITE+4, HOLD+1, UNHOLD+1
ENQ	EN+8, EN+10, EN+11
SUBHDR	EN1+5

Name	Field # of Occurrence
^("MENU"	ADQ, EX+7
^(0	EX+4, EX+5

Name	Field # of Occurrence
DIR	DELAY+2~
DIR("?"	DELAY+4*
DIR("A"	DELAY+3*
DIR("B"	DELAY+2*
DIR(0	DELAY+2*
>> DTOUT	DELAY+5
>> DUOUT	DELAY+5
ID	ORDITEM~, ORDITEM+6
IDX	EN+6~, EN1+1*, EN1+2
NMBR	EN+6~, EN1*, EN1+1
ORACT	EN~, EN1+6, EN1+9
ORDER	EN+6~
ORDG	EN+6~
ORDIALOG	ADD+2, ADD+10*, ADD+12!
ORDITM	EN+6~, EN1+5*
OREBUILD	EN+9!, EN1+11*, EX+1
OREL	EN+6~
ORERR	EN+6~, EN1+6
OREVENT	ADD+2~, ADD+7, REWRITE+1~, REWRITE+3
ORI	EN+6~, EN1*
ORIFN	EN+6~, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7
ORIG	EN+6~, EN1+5*, EN1+8, EN1+10
>> ORL	ADD+9, EN+11
ORLK	EN+6~, EN1+8*
>> ORNMBR	EN+8*, EN1
ORNOW	EN+6~
>> ORNP	ADD+8, EN+10, ENQ+1*
ORPRINT	EN+6~
ORPRNT	EN+6~
ORPTLK	ADD+2~, ADD+3, EN+6~, EN+7
ORQUIT	EN+6~, EN1, EN1+7
ORSIG	EN+6~
ORSTS	EN+6~
>> ORTAB	ADD+5, EN1+1, EN1+2, EX+2, EX+3, EX+6, EX+7
>> ORVP	ADD+3, ADD+6, ADQ+1, REWRITE+2, EN+7, ENQ
ORX	ORDITEM+6~
ORX(1	ORDITEM+6
ORXNP	EN+6~, ENQ+1
TAB	EX+3~, EX+4*
U	ADD+3, EN+7, EN1+2, EN1+4, EN1+7, EN1+8, EX+4, EX+5
>> VALMBCK	ADD+2, ADD+4, ADD+12, EN+6, EN+9*
X	ADD+2~, ADD+5, ADD+6, ADD+7, REWRITE+1~, REWRITE+2, REWRITE+3, ORDITEM+6~*, ORDITEM+7, SUBHDR~ , SUBHDR+1, DELAY+2~
>> XQORM("HIJACK"	ADQ, EX+7
Y	DELAY+2~, DELAY+5*, DELAY+6