Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ORCDLG2

Package: Order Entry Results Reporting

Routine: ORCDLG2


Information

ORCDLG2 ;SLC/MKB-Order dialogs cont ;10/12/2007

Source Information

Source file <ORCDLG2.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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: !?5,"Entries are matched based on the first 30 characters. Longer entries may"
  • Line Location: DIC+9
Function Call: WRITE
  • Prompt: !?5,"result in more than one match. If this happens, please select the desired"
  • Line Location: DIC+10
Function Call: WRITE
  • Prompt: !?5,"entry.",!!,X
  • Line Location: DIC+11
Function Call: WRITE
  • Prompt: " ",$P(Y,"^",2)
  • Line Location: DIC+17
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIST(1.2 - [#1.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call