Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Order Entry Results Reporting 4 $$CUCI^OCXBDT  ($$DATE,$$FILE,$$FILENAME)^OCXBDTD  ($$DELDUP,$$DELREC)^OCXDI2  DOT^OCXDIAG  
VA FileMan 2 ^%DT  EN^DIQ1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Order Entry Results Reporting 1 OCXDIAG  

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()

External References

Name Field # of Occurrence
^%DT NOW
EN^DIQ1 DIQ+1
$$CUCI^OCXBDT WARN+9, HEADER+3, LISTFILE+10
$$DATE^OCXBDTD NOW
$$FILE^OCXBDTD GETFILE+10, LOOKUP+3, GETREC+7, GETREC+8
$$FILENAME^OCXBDTD GETFILE+4, GETFILE+5, GETFILE+6, GETFILE+7
$$DELDUP^OCXDI2 GETFILE+5
$$DELREC^OCXDI2 LISTFILE+11
DOT^OCXDIAG RTN+2, LISTFILE+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" RTN+10
^TMP("OCXDIAG" HEADER+5!, HEADER+6*, LISTFILE+9, LOOKUP+1, LOOKUP+7*

Label References

Name Line Occurrences
$$LOOKUP GETFILE+3
$$NOW HEADER+3
$$PAUSE LISTFILE+5, LISTFILE+8, GETFILE+6, GETFILE+7
$$SUB GETREC+11, GETREC+12
$$TEXT RTN+12, RTN+13
DIQ GETREC+4
GETREC GETFILE+10, GETREC+13
WARN RTN+10, RTN+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NOW~*
ARRAY GETFILE~, GETFILE+10, LKUPARRY~
ARRAY( LKUPARRY+2
CHAR RTN+4~, RTN+14*
CHECK GETFILE+2~, GETFILE+9*
CNT LISTFILE+3~, LISTFILE+6*, LOOKUP+2~*, LOOKUP+5*, LOOKUP+6
CSUM RTN+4~, RTN+14*, RTN+15
D0 LISTFILE+3~, LISTFILE+6*, LISTFILE+8, LISTFILE+11, LKUPARRY+2~*, LKUPARRY+3, LOOKUP+2~, LOOKUP+5*, GETREC~, GETREC+4
, GETREC+7, GETREC+8, GETREC+9, GETREC+11, GETREC+12
D1 GETREC+12~, GETREC+13*
DA DIQ~
DASH RTN+4~, WARN+4~, WARN+6*, WARN+7
DATA GETREC+3~, GETREC+4*
DATA( GETREC+9
DATA(0 GETREC+5
DD GETFILE+2~, LKUPARRY~, LKUPARRY+2, GETREC+3~, GETREC+5*, GETREC+7, GETREC+8, GETREC+9
DIC DIQ~
DIQ DIQ+1~*
DIQ(0 DIQ+1*
DR DIQ+1~*
DTIME PAUSE
FILE LISTFILE+3~, LISTFILE+4*, LISTFILE+5, LISTFILE+8, LISTFILE+10, GETFILE~, GETFILE+3, GETFILE+4, GETFILE+5, GETFILE+6
, GETFILE+7, GETFILE+10, LOOKUP~, LOOKUP+1, LOOKUP+3, LOOKUP+7
FILENUM LISTFILE+3~, LISTFILE+4*, LISTFILE+9, LISTFILE+11
FLD GETFILE+2~
GL LOOKUP+3*, LOOKUP+4, LOOKUP+5, GETREC~, GETREC+2, GETREC+4, GETREC+11, GETREC+12
GLNEXT GETFILE+2~
GLREF LISTFILE~, LISTFILE+2, LISTFILE+4, LISTFILE+5, LISTFILE+6, LISTFILE+8, GETFILE+2~, GETFILE+11*, GETREC+12~*, GETREC+13
KEY LKUPARRY~, LKUPARRY+2, LOOKUP~, LOOKUP+1, LOOKUP+4, LOOKUP+5
>> LASTFILE HEADER+4*
LINE RTN+4~, RTN+12*, RTN+13*, RTN+15, WARN+4~, WARN+14*, WARN+16, WARN+17, WARN+18*, TEXT~
, TEXT+2
LINES WARN~, GETFILE+2~, GETFILE+9*
LINES( WARN+11, WARN+14, WARN+16
LINES(0 WARN+11
MSG RTN+4~, WARN~, WARN+6, WARN+7
NAME LISTFILE+3~, LISTFILE+6*, LISTFILE+8, LISTFILE+9, LISTFILE+10
NLINE WARN+4~, WARN+16*
OCXARY DIQ~
>> OCXAUTO WARN+2
>> OCXFLGC PAUSE
>> OCXFLGR LISTFILE+9, GETFILE+4, GETFILE+5, GETFILE+6, GETFILE+7
PATH GETREC~, GETREC+7*, GETREC+8*, GETREC+9, GETREC+13
PLINE WARN+4~, WARN+16*, WARN+17, WARN+18
QUIT LISTFILE+3~, LISTFILE+4*, LISTFILE+6*, LISTFILE+8*, LISTFILE+11*, LISTFILE+12
RCSM RTN+4~
RCSM( RTN+7*, RTN+12, RTN+13, RTN+15
RCSM("" RTN+7
RCSM(3 RTN+6*, RTN+8!
RDIFF RTN+4~, RTN+19
RDIFF( RTN+12*, RTN+15*
RDIFF(0 RTN+17
REC GETFILE+2~, GETFILE+3*, GETFILE+4, GETFILE+5*, GETFILE+6, GETFILE+7, GETFILE+8, GETFILE+10, GETFILE+13, LOOKUP+2~*
, LOOKUP+5*, LOOKUP+7, LOOKUP+8
RECNAM LOOKUP+2~, LOOKUP+4*, LOOKUP+5
RECNAME GETFILE~, GETFILE+3, GETFILE+4, GETFILE+5, GETFILE+7, LOOKUP+5
REM GETREC~, GETREC+13
RNDX RTN+4~, RTN+7*
RPC RTN+4~, RTN+7*
RSUM RTN~
RSUM( RTN+7
RSUM(0 RTN+6
RTN RTN+4~, RTN+6*, RTN+10, RTN+12, RTN+13, RTN+19, WARN~, WARN+9, TEXT~, TEXT+2
S1 GETREC+3~, GETREC+11*, GETREC+12
SCANDUP LISTFILE~, LISTFILE+6
SHORT LOOKUP+2~, LOOKUP+4*
TEXT RTN+4~, RTN+12*, RTN+13*, RTN+14, RTN+15, TEXT+2~
U RTN+6, RTN+7, LISTFILE+4, LISTFILE+6, LOOKUP+5, LOOKUP+7, GETREC+2, PAUSE
X RTN+4~, RTN+10*, SUB~, PAUSE*, NOW~*
Y NOW~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All