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

Package: Order Entry Results Reporting

Routine: OCXDI2


Information

OCXDI2 ;SLC/RJS,CLA - OCX PACKAGE DIAGNOSTIC UTILITY ROUTINE ;SEP 7,1999 at 10:30

Source Information

Source file <OCXDI2.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
; Record Utilities
ADDREC(OCXCREF) ;
DELREC(OCXFILE,OCXDA) ;
DELDUP(OCXFILE,OCXNAME) ;
CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) ;
LOADWORD(RREF,OCXDD,OCXFLD,OCXSUB) ;
GETREF(OCXDD,OCXDA,OCXLVL) ;
WORD(DD,GREF,FLD,DA,RREF) ;
DATE(X)
DIE(OCXDD,OCXDIC,OCXFLD,OCXVAL,OCXDA,OCXLVL) ;
DIC(DIC,X,OCXADD)
PUSH(OCXDA) ;
POP(OCXDA) ;
APPEND(ARRAY,OCXSUB) ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) ;
PAUSE()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,OCXFILE," ",OCXDA
  • Line Location: DELREC+7
Function Call: WRITE
  • Prompt: !!," deleted..."
  • Line Location: DELREC+9
Function Call: WRITE
  • Prompt: !," There are duplicate copies of the '"_$$FILENAME^OCXBDTD(+OCXFILE)_":"_OCXNAME_"' record."
  • Line Location: DELDUP+5
Function Call: WRITE
  • Prompt: !!,"Error adding record..."
  • Line Location: CREATE+12
Function Call: WRITE
  • Prompt: !,?(OCXLVL*5),$$FIELD^OCXBDTD(+OCXDD,OCXFLD,"LABEL"),": ",OCXVAL
  • Line Location: DIE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+6
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: " Press Enter "
  • Line Location: PAUSE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+0
Info |  Source |  Entry Points |  Interaction Calls