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

Package: Order Entry Results Reporting

Routine: ORY2690


Information

ORY2690 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*269) ;JUL 26,2013 at 06:56

Source Information

Source file <ORY2690.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
WARN(RTN,MSG,LINES) ;
TEXT(RTN,LINE) ;
HEADER ;
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: !!,"--------------",MSG,DASH
  • Line Location: WARN+7
Function Call: WRITE
  • Prompt: !,RTN,?10,"[CPRS30.FO-SLC.DOMAIN.EXT] -> [",$$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: JUL 26,2013 at 06:56 at CPRS30.FO-SLC.DOMAIN.EXT"
  • 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
  • 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