Routine: OCXDI0

Information

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

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

Caller Graph Total: 1

Package	Total	Caller Graph
Order Entry Results Reporting	1	OCXDIAG

Entry Points

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

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	Timeout: DTIME Variable: X 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~*

Customize PDF page

Package: Order Entry Results Reporting

Routine: OCXDI0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: