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 |  Marked Items |  All
Print Page as PDF
Routine: ORCDLG2

Package: Order Entry Results Reporting

Routine: ORCDLG2


Information

ORCDLG2 ;SLC/MKB-Order dialogs cont ;13-Oct-2014 15:27;DU

Source Information

Source file <ORCDLG2.m>

Call Graph

Call Graph Total: 12

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  

Caller Graph

Caller Graph Total: 4

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
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 |  Marked Items |  All