ORDD41 ;slc/KCM,MKB-Build menus in XUTL (file 101.41) ;10:36 AM 11 Feb 1999
Source file <ORDD41.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SET(DLG) | ; -- create dialog menu in ^XUTL("XQORM")
|
|
KILL(DLG) | ; -- Cleanup ^XUTL("XQORM")
|
|
UP(X) | ;Convert X to upper case
|
|
REDO | ; -- Rebuild menu in ^XUTL when changed
|
|
REDOM | ; -- Rebuild menu(s) in ^XUTL when DISPLAY TEXT changed
|
|
REDOX | ; -- Rebuild menu in ^XUTL when ITEMS changed
|
|
TREE | ; -- Ck menu tree to ensure new item is not an ancestor
; Input Xform for Item field #2 of Items subfile #101.412 ; expecting DA, DA(1), X from FileMan |
|
TREE1 | ; -- Look for X in ancestors
|
|
TREE2 | ; -- Back up another level
|
|
LIST(MENU) | ; -- List items on MENU for ?-help in editor
|
|
LOCK(MENU) | ; -- Lock [and rebuild?] Order Dialog menu
|
|
LKQ | ||
UNLOCK(MENU) | ; -- Unlock Order Dialog menu
|
|
REBLD(MENU,RES) | ; -- Lock, rebuild Order Dialog menu
|
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ORD(101.41 - [#101.41] | Classic Fileman Calls |