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

Package: Order Entry Results Reporting

Routine: OCXDI0


Information

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

Source Information

Source file <OCXDI0.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
RTN(RSUM) ;
WARN(RTN,MSG,LINES) ;
TEXT(RTN,LINE) ;
HEADER ;
LISTFILE(GLREF,SCANDUP) ;
GETFILE(FILE,RECNAME,ARRAY) ;
LKUPARRY(DD,KEY,ARRAY) ;
LOOKUP(FILE,KEY) ;
GETREC(GL,PATH,D0,REM) ;
SUB(X)
DIQ(DIC,DA,OCXARY) ;
PAUSE()
NOW()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"----WARNING-","--",MSG,DASH
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !,RTN,?10,"[OEX,OER] -> [",$$CUCI^OCXBDT,"] Line"
  • Line Location: WARN+9
Function Call: WRITE
  • Prompt: "s: "
  • Line Location: WARN+11
Function Call: WRITE
  • Prompt: ": "
  • Line Location: WARN+12
Function Call: WRITE
  • Prompt: " ",LINE
  • Line Location: WARN+17
Function Call: WRITE
  • Prompt: " ",LINE,"-",PLINE
  • Line Location: WARN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: WARN+20
Function Call: WRITE
  • Prompt: !," Created: SEP 7,1999 at 10:30 in UCI: OEX,OER"
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !," Current Date: ",$$NOW," Current UCI: ",$$CUCI^OCXBDT,!!
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,"Cannot find File: ",GLREF
  • Line Location: LISTFILE+5
Function Call: WRITE
  • Prompt: !,GLREF," ",FILE," -> Record #",D0," does not have a name."
  • Line Location: LISTFILE+8
Function Call: WRITE
  • Prompt: !!,$$FILENAME^OCXBDTD(FILE)," (",FILE,") local file not found."
  • Condition for execution: OCXFLGR
  • Line Location: GETFILE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFILE+6
Function Call: WRITE
  • Prompt: !!,$$FILENAME^OCXBDTD(FILE),": ",RECNAME," unknown error."
  • Condition for execution: OCXFLGR
  • Line Location: GETFILE+7
Function Call: WRITE
  • Prompt: !
  • Line Location: GETFILE+7
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