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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ORY2210

Package: Order Entry Results Reporting

Routine: ORY2210


Information

ORY2210 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*221) ;AUG 30,2005 at 11:41

Source Information

Source file <ORY2210.m>

Call Graph

Call Graph Total: 4

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

Entry Points

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

External References

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: AUG 30,2005 at 11:41 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

Global Variables Directly Accessed

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

Label References

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~*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All