Routine: ORY2340

Package	Total	Call Graph
Order Entry Results Reporting	2	$$NETNAME^OCXSEND ($$DATE,$$FILE,$$FILENAME)^OCXSENDD
VA Fileman	2	^%DT EN^DIQ1

Package

Total

Call Graph

Order Entry Results Reporting

$$NETNAME^OCXSEND ($$DATE,$$FILE,$$FILENAME)^OCXSENDD

VA Fileman

^%DT EN^DIQ1

Package	Total	Caller Graph
Order Entry Results Reporting	1	ORY234ES

Package

Total

Caller Graph

Order Entry Results Reporting

ORY234ES

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

Name	Field # of Occurrence
^%DT	NOW
EN^DIQ1	DIQ+1
$$NETNAME^OCXSEND	WARN+9, HEADER+3
$$DATE^OCXSENDD	NOW
$$FILE^OCXSENDD	GETFILE+10, LOOKUP+3, GETREC+7, GETREC+8
$$FILENAME^OCXSENDD	GETFILE+4, GETFILE+5, GETFILE+6, GETFILE+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"--------------",MSG,DASH Line Location: WARN+7
Function Call: WRITE	Prompt: !,RTN,?10,"[DEVCUR.FO-SLC.MED.VA.GOV] -> [",$$NETNAME^OCXSEND,"] 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: MAY 13,2005 at 09:31 at DEVCUR.FO-SLC.MED.VA.GOV" Line Location: HEADER+2
Function Call: WRITE	Prompt: !," Current Date: ",$$NOW," at ",$$NETNAME^OCXSEND,!! Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME Line Location: GETFILE+4
Function Call: WRITE	Prompt: !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME," duplicate local entries.",! Line Location: GETFILE+5
Function Call: WRITE	Prompt: !!,$$FILENAME^OCXSENDD(FILE)," (",FILE,") local file not found." Line Location: GETFILE+6
Function Call: WRITE	Prompt: ! Line Location: GETFILE+6
Function Call: WRITE	Prompt: !!,$$FILENAME^OCXSENDD(FILE),": ",RECNAME," unknown lookup error." 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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("OCXRULE"	HEADER+4!, HEADER+5, LOOKUP+1, LOOKUP+7

Name	Line Occurrences
$$LOOKUP	GETFILE+3
$$NOW	HEADER+3
$$PAUSE	GETFILE+6, GETFILE+7
$$SUB	GETREC+11, GETREC+12
DIQ	GETREC+4
GETREC	GETFILE+10, GETREC+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	NOW~*
ARRAY	GETFILE~, GETFILE+10, LKUPARRY~
ARRAY(	LKUPARRY+2
CHECK	GETFILE+2~, GETFILE+9*
CNT	LOOKUP+2~, LOOKUP+5, LOOKUP+6
D0	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	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	GETFILE~, GETFILE+3, GETFILE+4, GETFILE+5, GETFILE+6, GETFILE+7, GETFILE+10, LOOKUP~, LOOKUP+1, LOOKUP+3 , LOOKUP+7
FLD	GETFILE+2~
GL	LOOKUP+3*, LOOKUP+4, LOOKUP+5, GETREC~, GETREC+2, GETREC+4, GETREC+11, GETREC+12
GLNEXT	GETFILE+2~
GLREF	GETFILE+2~, GETFILE+11, GETREC+12~, GETREC+13
KEY	LKUPARRY~, LKUPARRY+2, LOOKUP~, LOOKUP+1, LOOKUP+4, LOOKUP+5
>> LASTFILE	HEADER+4*
LINE	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	WARN~, WARN+6, WARN+7
NLINE	WARN+4~, WARN+16*
OCXARY	DIQ~
>> OCXAUTO	WARN+2
PATH	GETREC~, GETREC+7, GETREC+8, GETREC+9, GETREC+13
PLINE	WARN+4~, WARN+16*, WARN+17, WARN+18
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
RTN	WARN~, WARN+9, TEXT~, TEXT+2
S1	GETREC+3~, GETREC+11*, GETREC+12
SHORT	LOOKUP+2~, LOOKUP+4*
TEXT	TEXT+2~
U	LOOKUP+5, LOOKUP+7, GETREC+2, PAUSE
X	SUB~, PAUSE, NOW~
Y	NOW~*

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORY2340

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: