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

Package: Order Entry Results Reporting

Routine: ORCMEDT5


Information

ORCMEDT5 ;SLC/MKB-Misc menu utilities ;03:29 PM 12 Feb 1999

Source Information

Source file <ORCMEDT5.m>

Entry Points

Name Comments DBIA/ICR reference
SEARCH ; -- Search/replace menu items
SR1(ORX) ; -- list parents, get replacement
LOOP(ORNMBR)
TYPE(X) ; -- Returns name of dialog type
DIC() ; -- ^DIC on Order Dialog file
SELECT(ORY,MAX,Y) ; -- Select which Dlgs to replace items
OK() ; -- Are you ready?
REPLWITH(ORIT) ; -- Remove item, or select replacement
R1
VALID(ITM,DAD,ERR) ; -- Ck if ITM may be placed on DAD
VQ
RECURSV(ITEM,MENU,MSG) ; -- Return 1 or 0, if recursive reference to ITEM
CHKPAR(MENU) ; follow tree to check parents
INUSE(MENU) ; -- Returns 1 or 0, if MENU is in use by parameter
ASSIGN ; -- Assign menu to user(s)
INQ ; -- Inquire to Order Dialog file
OUTPUT(ORY) ; -- Output Xform for Value field of Response multiple
AOPAR ; -- List of add order menus assigned to users
DISABLE ; -- Disable order dialogs
DQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SEARCH+2
Function Call: WRITE
  • Prompt: !,$P(ORX,U,2)_" has no menu items."
  • Line Location: SR1+2
Function Call: WRITE
  • Prompt: @IOF,"Menu items of "_$P(ORX,U,2),!?4,"Name",?69,"Type",!,$$REPEAT^XLFSTR("-",79)
  • Line Location: SR1+3
Function Call: WRITE
  • Prompt: !,ORDAD,?4,$P(^ORD(101.41,I,0),U),?69,$$TYPE($P(^(0),U,4))
  • Line Location: SR1+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: SR1+8
Function Call: WRITE
  • Prompt: !!,$S(ORY="@":"Removing",1:"Replacing "_$P(ORX,U,2)_" with "_$P(ORY,U,2))_" in:"
  • Line Location: SR1+11
Function Call: WRITE
  • Prompt: !?3,ORNM_" ..."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: "not "_$S(ORY="@":"removed.",1:"changed."),!?3,">> "_$G(ORERR)
  • Line Location: LOOP+5
Function Call: WRITE
  • Prompt: !?25,"=>"_ORERR(I)
  • Line Location: LOOP+6
Function Call: WRITE
  • Prompt: "done."
  • Line Location: LOOP+7
Function Call: WRITE
  • Prompt: $S($P(^ORD(101.41,DA(1),10,DA,0),U,2)=+ORY:"done.",1:"error - not replaced.")
  • Line Location: LOOP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ+3
Function Call: WRITE
  • Prompt: !
  • Line Location: INQ+3
Function Call: WRITE
  • Prompt: !!,"Enter a message to disable the dialog(s), or @ to enable again."
  • Line Location: DISABLE+6
Function Call: WRITE
  • Prompt: !,"Nothing "_$S(ORDIS="@":"en",1:"dis")_"abled."
  • Line Location: DISABLE+10
Function Call: WRITE
  • Prompt: "."
  • Line Location: DISABLE+11
Function Call: WRITE
  • Prompt: !,"done."
  • Line Location: DISABLE+12

FileMan Files Accessed Via FileMan Db Call

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