Routine: ORCDLG2

Package	Total	Call Graph
VA Fileman	8	^%DT YN^DICN $$ROOT^DILFD $$GET1^DIQ ^DIR EN^DIWE ^DIWP ^DIWW
Kernel	2	$$FMTE^XLFDT $$UP^XLFSTR
Order Entry Results Reporting	2	LIST^ORCD $$REQUIRED^ORCDLG1

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORCDFH1 ORCDLG1 ORCDRA OREVNT

Entry Points

Name	Comments	DBIA/ICR reference
FQ
ERR	; -- show help msg on error
WP	; -- edit WP field
SPACE(FILE)	; -- Resolve spbar-return for ptrs
DIC	; -- ^DIC lookup on X, return Y
ED1
LINEDTR(USER)	; -- Returns 1 or 0, if user's editor will be LineEd
DT	; -- %DT validation on X, return Y
DIR	; -- ^DIR read of X, returns Y
DIR1
SETDISV	; -- Save entry Y=ifn^name in ^DISV for #101.43
SPBAR	; -- Resolve spbar-return for #101.43
RETURN()	; -- press return to cont
RELDT(X)	; -- Returns 1 or 0, if X is relative date
HELP(TYPE)	; -- Returns default help msg for TYPE prompt
WP1
EDITWP()	; -- Want to edit WP field?
OK()	; -- Return 1 or 0, if selected item is correct
DONE()	; -- Done editing?
FIND(LIST,X)	; -- find value X in LIST(#) or LIST("B",name)
DT1
FMDT(X)	; -- Return FM form of date X

External References

Name	Field # of Occurrence
^%DT	DT+4, DT1+1, DT1+12, FMDT+1
YN^DICN	ED1
$$ROOT^DILFD	SPACE+3
$$GET1^DIQ	LINEDTR+3
^DIR	DIR1+1, DIR1+25, FIND+9, OK+4, DONE+4
EN^DIWE	WP1+1
^DIWP	DIR1+13, EDITWP+7
^DIWW	EDITWP+8
LIST^ORCD	DIR1+16
$$REQUIRED^ORCDLG1	DIR1+2, DIR1+3
$$FMTE^XLFDT	DT+7, DT+10
$$UP^XLFSTR	FIND+2, DT+1, DT1+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: DIR1+0
Function Call: WRITE	Prompt: $C(7),!!,$$REQUIRED^ORCDLG1,! Line Location: DIR1+2
Function Call: WRITE	Prompt: $C(7),!!,$$REQUIRED^ORCDLG1,! Line Location: DIR1+3
Function Call: WRITE	Prompt: !,DIR("?"),! Line Location: DIR1+10
Function Call: WRITE	Prompt: ! Line Location: DIR1+11
Function Call: WRITE	Prompt: !,$G(^UTILITY($J,"W",DIWL,I,0)) Line Location: DIR1+13
Function Call: WRITE	Prompt: $C(7) Line Location: DIR1+16
Function Call: WRITE	Prompt: " "_$P(Y,U,2) Line Location: FIND+4
Function Call: WRITE	Prompt: " " Line Location: FIND+4
Function Call: WRITE	Prompt: $E(XP,$L(X)+1,$L(XP)) Line Location: FIND+6
Function Call: WRITE	Prompt: " "_$P(Y,U,2) Line Location: FIND+10
Function Call: WRITE	Prompt: $S(Y>0:" "_X,1:$C(7)_" ??") Line Location: DIC+3
Function Call: WRITE	Prompt: $C(7),!,"Lookup by internal entry number not allowed!",! Line Location: DIC+4
Function Call: WRITE	Prompt: " ",$P(Y,"^",2) Line Location: DIC+13
Function Call: WRITE	Prompt: $C(7),!,"Date may not be before "_$$FMTE^XLFDT(BEG) Line Location: DT+7
Function Call: WRITE	Prompt: $C(7),!,"Date may not be after "_$$FMTE^XLFDT(END) Line Location: DT+10
Function Call: WRITE	Prompt: !,ORDIALOG(PROMPT,"A") Line Location: EDITWP+2
Function Call: WRITE	Prompt: " Edit" Line Location: ED1+0
Function Call: WRITE	Prompt: !," Enter 'YES' if you wish to go into the editor.",!," Enter 'NO' if you do not wish to edit at this time.",! Line Location: ED1+1
Function Call: WRITE	Prompt: !,"Press <return> to continue ..." Line Location: RETURN+1
Routine Call	DIR Line Location: DIR1+1 DIR1+25 FIND+9 OK+4 DONE+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIST(1.2 - [#1.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	SPACE+3, SPBAR+3, SETDISV+4*
^ORD(100.98 - [#100.98]	DIC+8
^ORD(101.41 - [#101.41]	WP+4, WP1+9
^ORD(101.43 - [#101.43]	SPBAR+4
^TMP("ORWORD"	WP+4*, WP1+2, WP1+3!, WP1+5, WP1+6, EDITWP+7
^UTILITY($J	DIR1+12!, DIR1+13, EDITWP+6!
^VA(200 - [#200]	LINEDTR+2

Label References

Name	Line Occurrences
$$DONE	WP1+2, WP1+7
$$EDITWP	WP+5
$$FIND	DIR1+19
$$FMDT	DT+2, DT+3
$$HELP	DIR1+9
$$LINEDTR	WP+3
$$OK	FIND+4
$$RELDT	DT+11
$$SPACE	DIR1+18
@(	DIR1+15, DIC+12
DIC	DIR1+21
DIR1	DIR1+2, DIR1+3, DIR1+5, DIR1+14, DIR1+15, DIR1+16, DIR1+21, DIR1+22, DIR1+23
DT	DIR1+22
ED1	ED1+1
ERR	DIR1+14, DIR1+15, DIR1+21, DIR1+22, DIR1+23
FQ	FIND+4, FIND+5, FIND+6, FIND+9
SETDISV	FQ, DIC+12
SPBAR	DIC+3, SPACE+2
WP1	WP1+2, WP1+7, WP1+9

Naked Globals

Name	Field # of Occurrence
^(	EDITWP+7
^(5	WP1+9
^(8	WP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDITWP+1~, ED1*, ED1+1, ED1+2
%DT	DT+1~, DT+11, DT1+12, FMDT+1~*
%Y	EDITWP+1~
BEG	DT+1~, DT+2, DT+5, DT+6, DT+7
CNT	FIND+1~, FIND+3*, FIND+5, FIND+6, FIND+7, OK+1
D	DIC+1~, DIC+10, DIC+11, SPBAR+1~, SPBAR+2, SETDISV+2, SETDISV+3, DT1+2, DT1+3, DT1+4 , DT1+6
>> DATATYPE	DIR+5, DIR1+7, DIR1+8, DIR1+9, DIR1+18, DIR1+21, DIR1+22, DIR1+23, DT+11
DDER	DIR+1!, DIR1+23
DIC	DIC+1~, DIC+6, SPACE+1~, WP+1~, WP+2
DIC("S"	DIC+7*
DIC("W"	DIC+9*
DIC(0	DIC+6, DIC+11, DIC+13
DIR	FIND+1~, OK+1~, DONE+1~
DIR("?"	DIR1+9, DIR1+10, DIR1+12, ERR+1, FIND+8, OK+3, DONE+3
DIR("??"	DIR1+7
DIR("A"	DIR1, FIND+3, FIND+7, OK+2, WP+3, WP1, DONE+2
DIR("B"	DIR+5, DIR1, DIR1+2, OK+2, DIC+5, DONE+2
DIR("V"	DIR1+25*
DIR(0	DIR+2, DIR+5, FIND+7, OK+2, DONE+2
DIROUT	DIR+1!, DIR1+4*
DIRUT	DIR+1!, DIR1+4*
DIWESUB	WP+1~, WP+3, WP1
DIWF	EDITWP+5~, EDITWP+6*
DIWL	DIR1+12~, DIR1+13, EDITWP+5~, EDITWP+6
DIWR	DIR1+12~, EDITWP+5~, EDITWP+6
>> DOMAIN	DIR1+18, FQ, DT+1, DT+2, DT+3, DT1+9, DT1+11, DT1+12
DONE	WP+1~, WP1+8*, WP1+9
DTIME	DIR1, RETURN+1
DTOUT	DIR+1!, DIR1*, DIR1+1, FIND+9, OK+4, WP1+1
DUOUT	DIR+1!, DIR1+1, DIR1+4*, FIND+9, OK+4, WP1+1
DUZ	SPACE+3, SPBAR+3, SETDISV+4, WP+3
DWLW	WP+1~, WP+2*
DWPK	WP+1~, WP+2*
END	DT+1~, DT+3, DT+8, DT+9, DT+10
FILE	SPACE~, SPACE+1*, SPACE+2, SPACE+3
I	DIR1+12~, DIR1+13, DIR1+24~, FIND+1~, SPBAR+1~, SPBAR+2, SETDISV+1~, SETDISV+3
INPUTXFM	DIR+1~, DIR+2*, DIR1+14
>> INST	WP+2, WP+4, WP1+2, WP1+3, WP1+5, WP1+6, WP1+8, EDITWP+2, EDITWP+7
>> ITM	WP+4, WP1+9
LCNT	WP+1~, WP1+4, WP1+5, WP1+6
LIST	FIND~, FIND+3, FIND+4
LKUP	DIR+1~, DIR+3*, DIR1+15
MATCH	FIND+1~
MATCH(	FIND+3*, FIND+10
MATCH(1	FIND+6
>> MULT	DIR1+2
OFFSET	DT1+5~, DT1+6*, DT1+7
>> ORDG	DIC+8
>> ORDIALOG	WP+4, WP1+9
>> ORDIALOG(	DIR+3, DIR1+2, DIR1+16, DIC+1, DIC+5, DIC+7, DIC+10, SPBAR+1, SETDISV+2, WP1+3! , WP1+8*, EDITWP+2
ORDIC	DIC+1~, DIC+6, DIC+11, DIC+12
ORDITM	DIC+1~, DIC+2*, DIC+3, DIC+4, DIC+9, DIC+12
ORDMN	DIC+1~*, DIC+2, DIC+6
>> OREDIT	ED1
ORI	DIR1+2, DIC+5, EDITWP+5~, EDITWP+7*
ORLINEDT	WP+1~, WP+3*, WP+5, WP1
OROOT	DIR1+17~*, DIR1+19
>> ORQUIT	WP1+1, WP1+2, WP1+7*, WP1+9
>> PROMPT	DIR+3, DIR1+2, DIR1+16, DIR1+17, DIC+1, DIC+5, DIC+7, DIC+10, SPBAR+1, SETDISV+2 , WP+2, WP+4, WP1+2, WP1+3, WP1+5, WP1+6, WP1+8, EDITWP+2, EDITWP+7
REPL	DIR+1~, DIR+5*, DIR1, DIR1+1
>> REQD	DIR1+2, DIR1+3, WP+5, WP1+2, EDITWP+3
ROOT	SPACE+1~, SPACE+3*, SPACE+4
SDX	SPBAR+1~, SPBAR+2, SPBAR+3, SPBAR+4, SETDISV+1~, SETDISV+2, SETDISV+3, SETDISV+4
>> SEQ	DIR1+2
SIGN	DT1+5~, DT1+6*, DT1+8
T	DT1+2, DT1+9, DT1+10, DT1+11!, DT1+12!, DT1+13, DT1+14
TYPE	DIC+1~, DIC+8*, DIC+9, HELP~, HELP+2, HELP+3, HELP+4, HELP+5, HELP+6, HELP+7 , HELP+8, HELP+9
U	DIR+2, DIR+5, DIR1+7, DIR1+16, DIR1+23, FIND+3, FIND+4, FIND+6, FIND+10, DIC+1 , DIC+6, DIC+8, DIC+11, SPACE+3, SPACE+4, SPBAR+2, SPBAR+4, SETDISV+1, SETDISV+4, WP1+6 , LINEDTR+2
UPCARR	WP+1~, WP1+4, WP1+5, WP1+6, WP1+7
USER	LINEDTR~, LINEDTR+2
X	DIR+2, DIR1, DIR1+2, DIR1+3, DIR1+4, DIR1+5, DIR1+8, DIR1+12~, DIR1+14, DIR1+18* , DIR1+19, DIR1+24, FIND~, FIND+2, FIND+3, FIND+4, FIND+6, OK+1~, DIC+3, DIC+4 , DIC+5, DIC+13, SPACE+1~, SPACE+2, SPACE+4, SPACE+5, SPBAR+4, DT+1, DT+11, DT1* , DT1+1, DT1+2, DT1+12~, RELDT~, RELDT+1, RELDT+2, FMDT~, EDITWP+1~, EDITWP+5~, EDITWP+7* , LINEDTR+1~, LINEDTR+2, LINEDTR+3, RETURN+1~, DONE+1~
X1	SPBAR+1~, SPBAR+3, SPBAR+4, DT1+5~, DT1+7, DT1+8
X2	DT1+5~, DT1+7*, DT1+8
XHELP	DIR1+6~, DIR1+7*, DIR1+8
XP	FIND+1~, FIND+3, FIND+6
Y	DIR+1!, DIR+2, DIR1+2, DIR1+4, DIR1+15, DIR1+16, DIR1+19, DIR1+21, DIR1+22, FIND+1~ , FIND+4, FIND+5, FIND+6, FIND+9, FIND+10, FQ, FQ+1, OK+1~, OK+4, OK+5 , DIC+1, DIC+3, DIC+5, DIC+12, DIC+13, SPACE+1~, SPACE+3, SPACE+4, SPBAR+4, SETDISV+1 , SETDISV+4, DT+4, DT+5, DT+6, DT+7, DT+8, DT+9, DT+10, DT+11, DT1+1 , DT1+3, DT1+4, DT1+6, DT1+7, DT1+8, DT1+9, DT1+10, DT1+12~, DT1+13, DT1+14* , RELDT+1~, RELDT+2, RELDT+3, RELDT+4, FMDT+1~, FMDT+2, EDITWP+1~, EDITWP+2, EDITWP+3, EDITWP+4 , ED1+2, ED1+3, LINEDTR+1~, LINEDTR+2, LINEDTR+3, LINEDTR+4, DONE+1~, DONE+5, HELP+1~, HELP+2 , HELP+3, HELP+4, HELP+5, HELP+6, HELP+7, HELP+8, HELP+9*, HELP+10

Marked Items

Name	Field # of Occurrence
$T(@LKUP	DIR1+15

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCDLG2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items