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
Print Page as PDF
Routine: OCXOED01

Package: Order Entry Results Reporting

Routine: OCXOED01


Information

OCXOED01 ;SLC/RJS,CLA - Rule Editor (Rule Display) ;10/29/98 12:37

Source Information

Source file <OCXOED01.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
EN(OCXR0) ;
DISP(OCXR0,OCXRD,OCXACT) ;
XLATE(X) ;
BTW(X,Y)
CENTER(X,M) ;
SEP(OCXHDR) ;
FIELD(OCXHDR) ;
DATA(OCXVAL,OCXLEN) ;
GETDATA(OCXD0,OCXD) ;
GETMULT(OCXD0,OCXD1,OCXSUB,OCXSLOT,OCXSUBD,OCXD) ;
GETELEM(OCXD0,OCXD1,OCXSUB,OCXSLOT,OCXSUBD,OCXD) ;
DIC(OCXDIC,OCXDIC0,OCXDICA,OCXX,OCXDICS,OCXDR) ;
DIQ(DIC,DA,OCXDIQ0,OCXARY) ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,OCXTNLN
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,$$CENTER($$FIELD("Rule Edit Screen"),80),!
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: " ",$$OPT^OCXOEDT("Edit Rule","EDRULE","02",.OCXACT,OCXR0,"ER")
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: " ",$$FIELD("Rule:")," ",$$DATA($G(OCXRD("RUL",OCXR0,.01,"E")),30)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: " ",$$FIELD("Status:")," ",$$DATA($G(OCXRD("RUL",OCXR0,.02,"E")),10)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !!,$$SEP("Event/Element Definitions"),!
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: $$FIELD("*")
  • Line Location: DISP+34
Function Call: WRITE
  • Prompt: " "
  • Line Location: DISP+35
Function Call: WRITE
  • Prompt: $$FIELD(" From: "),$$DATA($G(OCXRD("RUL",OCXR0,"ELE",OCXR1,1,"SRC",2,"E")),(90-$X))
  • Line Location: DISP+37
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+39
Function Call: WRITE
  • Prompt: !," ",$$OPT^OCXOEDT("Add Element","EOPT","02",.OCXACT,"""ADD"","_OCXR0,"AE")
  • Line Location: DISP+40
Function Call: WRITE
  • Prompt: " ",$$OPT^OCXOEDT("Delete Element","EOPT","02",.OCXACT,"""DEL"","_OCXR0,"DE")
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: !!,$$SEP("Relation Descriptions"),!
  • Line Location: DISP+43
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: ($X>70)
  • Line Location: DISP+51
Function Call: WRITE
  • Prompt: $P(OCXEXP," ",OCXWORD)," "
  • Line Location: DISP+51
Function Call: WRITE
  • Prompt: $$FIELD(" ("_OCXSC1_")")
  • Line Location: DISP+52
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+53
Function Call: WRITE
  • Prompt: !," ",$$OPT^OCXOEDT("Add Relation","ROPT","02",.OCXACT,"""ADD"","_OCXR0,"AR")
  • Line Location: DISP+54
Function Call: WRITE
  • Prompt: " ",$$OPT^OCXOEDT("Delete Relation","ROPT","02",.OCXACT,"""DEL"","_OCXR0,"DR")
  • Line Location: DISP+55
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: GETDATA+8
Info |  Source |  Entry Points |  Interaction Calls