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: ORCMEDT0

Package: Order Entry Results Reporting

Routine: ORCMEDT0


Information

ORCMEDT0 ;SLC/MKB-Dialog Utilities ;Jun 17, 2022@14:32:43

Source Information

Source file <ORCMEDT0.m>

Entry Points

Name Comments DBIA/ICR reference
DIALOG(TYPE) ; -- Get Dialog file entry
D0
D1
D2
DQ
DEL(DA) ; -- delete bad entry in Order Dialog file
SAVE ; -- Save ORDG, responses in ORDIALOG to dialog ORQDLG
ITEM(Z) ; -- Select new item to add
IT1
CHKDA(ORIFN) ; return numerically largest IEN in use

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Another entry already exists by this name!",!
  • Line Location: D0+2
Function Call: WRITE
  • Prompt: $C(7),!,"Deleting <"_ORIT_"> ..."
  • Line Location: D0+6
Function Call: WRITE
  • Prompt: !,!,"ANATOMIC PATHOLOGY does not support quick orders at this time.",!
  • Line Location: D0+11
Function Call: WRITE
  • Prompt: !,$P(^ORD(101.41,ORDLG,0),U)_" quick order dialog DELETED!",!
  • Line Location: D0+13
Function Call: WRITE
  • Prompt: !,"Copying ..."
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: $C(7),!!,"If an item is already included on this menu, it may not be added!"
  • Line Location: IT1+2
Function Call: WRITE
  • Prompt: !?18," =>"_ORERR(I)
  • Line Location: IT1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(100.98 - [#100.98] Classic Fileman Calls
^ORD(101.41 - [#101.41] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call