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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Order Entry Results Reporting 4 $$PTR^ORCD  $$COPY^ORCMEDIT  $$OI^ORCMEDT3  RECURSV^ORCMEDT5  
VA FileMan 3 (,IX)^DIC  ^DIE  (,ENALL)^DIK  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Order Entry Results Reporting 5 ORCMEDT1  ORCMEDT2  ORCMEDT3  ORY117  ORY94  

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

External References

Name Field # of Occurrence
^DIC D0+10, D1+2, D2+5, IT1
IX^DIC D0
^DIE D0+4, D1+7, D2+1
^DIK D0+6, D0+14, DEL+1
ENALL^DIK D1+8
$$PTR^ORCD D2+2
$$COPY^ORCMEDIT D1
$$OI^ORCMEDT3 D0+7
RECURSV^ORCMEDT5 IT1+1
$$UP^XLFSTR D1+5

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
Routine Call
  • DIC
  • Line Location:
    • D0+10
    • D1+2
    • D2+5
    • IT1
Routine Call
  • DIC
  • Line Location:
    • D0
Routine Call
  • DIE
  • Line Location:
    • D0+4
    • D1+7
    • D2+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ORD(100.98 - [#100.98] D2+9, SAVE+11, SAVE+12
^ORD(101.41 - [#101.41] DIALOG+4, DIALOG+5*, D0+2, D0+5, D0+12*, D0+13, D1+3*, D1+4*, D1+5*, D1+6*
, D2+2, D2+3, D2+6, D2+7*, D2+8*, D2+10*, SAVE+1!, SAVE+6*, SAVE+7*, SAVE+8*
, SAVE+9*, SAVE+10*, SAVE+14*, ITEM+3, CHKDA+8, CHKDA+9

Label References

Name Line Occurrences
$$CHKDA DIALOG+4
D0 D0+2
DEL D0+2
DQ D0, D0+1, D0+3, D0+8
IT1 IT1+1

Naked Globals

Name Field # of Occurrence
^(0 D2+10*
^(2 D2+7*
^(3 D2+10*
^(7 D2+10*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SAVE+1~, SAVE+2*, SAVE+5*, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+10
D DIALOG+1~, D0*
DA DIALOG+1~, D0+4*, D0+6*, D0+14*, D1+7*, D1+8!, D2+1*, D2+2*, D2+4!, D2+5*
, D2+7, D2+8, D2+10, DEL~, DEL+1
DA(1 D1+8*, D2+4*
DIC DIALOG+1~, DIALOG+6*, D0+4, D0+6, D0+9*, D1+7, D2+4!*, ITEM+1~, ITEM+2*
DIC("A" DIALOG+8*, D0+10*, D1+1*, ITEM+2*
DIC("B" D1+1!, ITEM+3*
DIC("DR" DIALOG+9*
DIC("S" DIALOG+7*, D0+9*, ITEM+4*
DIC(0 DIALOG+6*, D0+9*, D1+1*, D2+4*, ITEM+2*
DIE DIALOG+1~, D0+4*, D1+7*, D2+1*
DIK DIALOG+1~, D0+6*, D0+14*, D1+8*, DEL+1~*
DIK(1 D1+8*
DLAYGO DIALOG+1~, DIALOG+7*, D1+1!
DR DIALOG+1~, D0+4*, D1+7*, D2+1*
>> DTOUT IT1
>> DUOUT IT1
I DIALOG+1~, D1+3*, D1+6*, ITEM+1~, IT1+3*
IDX DIALOG+1~, D2+9*, D2+10
INP SAVE+1~, SAVE+11*, SAVE+13
INST SAVE+1~, SAVE+4*, SAVE+5, SAVE+6
ITM SAVE+1~, SAVE+3*, SAVE+6
ORD03 DIALOG+4~*, DIALOG+5
ORD03TMP DIALOG+4~*, DIALOG+5
ORDDF ITEM+1~
>> ORDG D0+1*, D0+5*, D0+6, D0+7, D0+12*, D2+9, SAVE+13*, SAVE+14
>> ORDIALOG( SAVE+2, SAVE+3, SAVE+4, SAVE+5
ORDLG DIALOG+1~, D0*, D0+1*, D0+3, D0+4, D0+5, D0+6*, D0+7*, D0+12, D0+13
, D0+14*, D1+3, D1+4, D1+5, D1+6, D1+7, D1+8, D2+1, D2+2, D2+3
, D2+4, D2+6, D2+7, D2+8, D2+10, DQ
ORERR ITEM+1~, IT1+1, IT1+3
ORERR( IT1+3
ORFLG CHKDA+1~, CHKDA+2*, CHKDA+8, CHKDA+9*
ORIFN CHKDA~, CHKDA+6, CHKDA+7, CHKDA+10, CHKDA+11
ORIT DIALOG+1~, D0+4*, D0+6, D0+7*, D2, D2+1, D2+10
>> ORMENU IT1+1
ORNEW CHKDA+1~, CHKDA+7*, CHKDA+8*, CHKDA+9, CHKDA+10
OROI DIALOG+1~, D2+2*, D2+7, D2+8
ORPKG DIALOG+1~, DIALOG+6*
>> ORQDLG SAVE+1, SAVE+6, SAVE+7, SAVE+8, SAVE+9, SAVE+10, SAVE+14
PROMPT SAVE+1~, SAVE+2*, SAVE+3, SAVE+4, SAVE+5, SAVE+6, SAVE+9
TYPE DIALOG~, DIALOG+7, DIALOG+8, DIALOG+9, D0+3, D0+8, D1, D1+1, D1+4, D2
, SAVE+1~, SAVE+3*, SAVE+7, SAVE+8
U DIALOG+4, DIALOG+5, D0+1, D0+2, D0+4, D0+5, D0+12, D0+13, D1+3, D1+4
, D1+5, D1+7, D2+1, D2+7, D2+9, D2+10, SAVE+6, SAVE+10, SAVE+14, ITEM+3
UD SAVE+1~, SAVE+12*, SAVE+13
VALUE SAVE+1~, SAVE+5*, SAVE+7, SAVE+8
X DIALOG+1~, D2+3*, D2+7, D2+8, ITEM+1~
Y DIALOG+1~, D0, D0+1, D0+2, D0+4, D0+12, D1+2, D1+6, D2+5, ITEM+1~
, IT1*, IT1+1, IT1+4
Y(0 D0+1, D1+3, D1+4, D1+5, D1+7
Z DIALOG+1~, D2+6*, D2+7, ITEM~, ITEM+3*
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  | All