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

Package: Order Entry Results Reporting

Routine: ORY4272


Information

ORY4272 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE ; 11/28/18 3:41pm

Source Information

Source file <ORY4272.m>

Entry Points

Name Comments DBIA/ICR reference
S ;
; Record Utilities
ADDREC(OCXCREF) ;
CREATE(OCXCREF,OCXDD,OCXDA,OCXLVL) ;
LOADWORD(RREF,OCXDD,OCXFLD,OCXSUB) ;
GETREF(OCXDD,OCXDA,OCXLVL) ;
WORD(DD,GREF,FLD,DA,RREF) ;
DATE(X)
DIE(OCXDD,OCXDIC,OCXFLD,OCXVAL,OCXDA,OCXLVL) ;
DIC(DIC,X,OCXADD)
PUSH(OCXDA) ;
POP(OCXDA) ;
APPEND(ARRAY,OCXSUB) ;
READ(OCXZ0,OCXZA,OCXZB,OCXZL) ;
PAUSE()

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " record missing..."
  • Line Location: ADDREC+6
Function Call: WRITE
  • Prompt: !!,"Unresolved subscript."
  • Line Location: CREATE+4
Function Call: WRITE
  • Prompt: !!,"Error adding record..."
  • Line Location: CREATE+14
Function Call: WRITE
  • Prompt: !
  • Line Location: CREATE+24
Function Call: WRITE
  • Prompt: !,?(OCXLVL*5),$$FIELD^OCXSENDD(+OCXDD,OCXFLD,"LABEL"),": ",OCXVAL
  • Line Location: DIE+6
Function Call: WRITE
  • Prompt: " ^DIE filer data error..."
  • Line Location: DIE+22
Function Call: WRITE
  • Prompt: " ...Correct data Filed"
  • Line Location: DIE+23
Function Call: WRITE
  • Prompt: !
  • Line Location: READ+6
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