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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENARG

Package: Engineering

Routine: ENARG


Information

ENARG ;(WCIOFO)/JED,SAB-GATHER ARCHIVAL RECORDS ;10/12/1999

Source Information

Source file <ENARG.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 (,IX)^DIC  YN^DICN  ^DIR  
Engineering 1 G^ENARG1  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Engineering 1 ENAR1  

Entry Points

Name Comments DBIA/ICR reference
G ;GET SORT PARAMS
G1
1 ; WORK ORDERS
2 ; 2162 ACCIDENT REPORTS
3 ;EQUIPMENT INV.
4 ; PROJECTS
5 ; CONTROL POINT TRANSACTIONS
STA ;PICK STATION
P1
I ;INTERVAL SELECTION
I1
FY ; ask fiscal year
; return ENFY or ENERR'=0
FY1
QTR ; ask quarter
; return ENQT or ENERR'=0
QTR1
MSG
MSG1
MSG2
MSG3
MSGA
OUT

External References

Name Field # of Occurrence
^DIC 1+15
IX^DIC P1
YN^DICN G1STA+1
^DIR 1+5, 1+11, 3+5, 3+14, 3+22
G^ENARG1 G1+3
$$FMADD^XLFDT 3+1
$$FMTE^XLFDT 3+3, MSG3+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"IS IT O.K. TO PROCEED"
  • Line Location: G1+0
Function Call: WRITE
  • Prompt: !,"Proceeding will build a list of all records meeting the above criteria,",!,"and give you a count. This may take a considerable amount of time."
  • Line Location: G1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: 1+14
Function Call: WRITE
  • Prompt: !,"Station Number: ",ENSTA,!,"Is this correct"
  • Line Location: STA+1
Function Call: READ
  • Variable: ENR
  • Timeout: DTIME
  • Line Location: I+1
Function Call: WRITE
  • Prompt: !,"Do you wish to archive by fiscal YEAR or QUARTER (Y or Q) Y// "
  • Line Location: I+1
Function Call: WRITE
  • Prompt: !!," Please enter 'Y' for YEAR or 'Q' for QUARTER (or '^' to abort)...",!
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !,"SELECT FISCAL YEAR (4 digits): ",ENFYT,"//"
  • Line Location: FY1+0
Function Call: READ
  • Variable: ENFY
  • Timeout: DTIME
  • Line Location: FY1+1
Function Call: WRITE
  • Prompt: $C(7),!!," Please enter the FISCAL YEAR (Oct 1 thru Sep 30) in"
  • Line Location: FY1+4
Function Call: WRITE
  • Prompt: !," four digit format. Work orders whose DATE COMPLETE is within"
  • Line Location: FY1+5
Function Call: WRITE
  • Prompt: !," this FISCAL YEAR will be archived.",!
  • Line Location: FY1+6
Function Call: WRITE
  • Prompt: !,"SELECT QUARTER (1, 2, 3, or 4): ",ENQTT,"//"
  • Line Location: QTR1+0
Function Call: READ
  • Variable: ENQT
  • Timeout: DTIME
  • Line Location: QTR1+1
Function Call: WRITE
  • Prompt: $C(7),!!," Answer must be 1, 2, 3, or 4!",!
  • Line Location: QTR1+4
Function Call: WRITE
  • Prompt: !!,*7,"You have requested to locate all "
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: "work orders completed for "
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: "all shops "
  • Line Location: MSG1+0
Function Call: WRITE
  • Prompt: X
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !,?5,I,?10,ENSHOP(I)
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MSG1+3
Function Call: WRITE
  • Prompt: !,"2162 accident reports, whose occurrence date was"
  • Line Location: MSG2+0
Function Call: WRITE
  • Prompt: "equipment records with a DISPOSITION DATE"
  • Line Location: MSG3+0
Function Call: WRITE
  • Prompt: !,"prior to ",$$FMTE^XLFDT(ENTO),", "
  • Line Location: MSG3+1
Function Call: WRITE
  • Prompt: $S(ENEQ("A"):"including",1:"excluding")," Accountable NX equipment and ",$S(ENEQ("J"):"including",1:"excluding")
  • Line Location: MSG3+2
Function Call: WRITE
  • Prompt: !,"JCAHO Inventory equipment."
  • Line Location: MSG3+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>50
  • Line Location: MSGA+0
Function Call: WRITE
  • Prompt: "in Fiscal Year ",ENFY
  • Line Location: MSGA+0
Function Call: WRITE
  • Prompt: ", ",ENQT,$S(ENQT=1:"st",ENQT=2:"nd",ENQT=3:"rd",ENQT=4:"th",1:"error")," Quarter"
  • Condition for execution: $D(ENQT)
  • Line Location: MSGA+0
Function Call: WRITE
  • Prompt: "."
  • Line Location: MSGA+0
Routine Call
  • DIC
  • Line Location:
    • 1+15
Routine Call
  • DIC
  • Line Location:
    • P1
Routine Call
  • DIR
  • Line Location:
    • 1+5
    • 1+11
    • 3+5
    • 3+14
    • 3+22

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DIC(6922 - [#6922] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(6910 - [#6910] STA+1

Label References

Name Line Occurrences
@( G+1, MSG
FY I1+2, I1+5
FY1 FY1+3
G1 G1G1+1
I 1+1, 2+1, I+2
I1 I+2
MSG G+1
MSGA MSG1MSG1+3, MSG2
OUT G+1, G1+2, G1+3
P1 STA+1
QTR I1+6
QTR1 QTR1+3
STA G+1, STA+1

Naked Globals

Name Field # of Occurrence
^(0 STA+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % G1*, G1+1, G1+2, STA+1*
D P1*, OUT!
DIC 1+14*, P1*, OUT!
DIC("A" 1+14*, P1*!
DIC(0 1+14*, P1*
DIR 1+5!, 1+11!, 3+5!, 3+14!, 3+22!
DIR("?" 1+3*, 1+4*, 3+8*, 3+9*, 3+10*, 3+11*, 3+12*, 3+13*, 3+17*, 3+18*
3+19*, 3+20*, 3+21*
DIR("A" 1+2*, 1+8*, 1+9*, 1+10*, 3+4*, 3+7*, 3+16*
DIR("B" 1+2*, 1+10*, 3+3*, 3+7*, 3+16*
DIR(0 1+2*, 1+7*, 3+2*, 3+7*, 3+16*
>> DIRUT 1+5, 1+11, 3+5, 3+14, 3+22
DT 3+1, FY+3, QTR+3
DTIME I+1, FY1+1, QTR1+1
ENA OUT!
ENEQ OUT!
ENEQ("A" 3+15*, 3+24, MSG3+2
ENEQ("J" 3+23*, 3+25, MSG3+2
>> ENERR G+1, G1+2*, 1+1, 1+5*, 1+11*, 1+14*, 1+16*, 3+5*, 3+14*, 3+22*
4+1*, 5+1*, STA+1*, P1*, I+4*, I1+2, I1+5, I1+6, FY1+1*, QTR1+1*
ENFR 3+26*, I1!, I1+3*, I1+7*, I1+8*, I1+9*, I1+10*, OUT!
ENFY I1!, I1+3, I1+7, I1+8, I1+9, I1+10, FY1+1*, FY1+2*, FY1+3, MSGA
, OUT!
ENFYT FY+2~, FY+3*, FY1FY1+2, OUT!
ENMSG MSG*, OUT!
ENPARAM 1+6*, 1+12*, 1+13*, 2+1*, 3+24*, 3+25*, OUT!
ENQT I1!, I1+7, I1+8, I1+9, I1+10, QTR1+1*, QTR1+2*, QTR1+3, MSGA, OUT!
ENQTT QTR+2~, QTR+3*, QTR1QTR1+2, OUT!
ENR I+1*, I+2, I1+1, I1+4, OUT!
>> ENRT G+1, MSG
ENSH OUT!
ENSHOP OUT!
ENSHOP( 1+15*, MSG1+2
ENSHOP("ALL" 1+6*, MSG1
ENSHOP("EXC" 1+12*, 1+13*, 1+14
ENSHOP("INC" 1+12*, 1+13*, 1+14, MSG1+1
ENSHOP(0 1+16
ENSTA STA+1*, P1*, OUT!
ENSTAN STA+1*, P1*, OUT!
ENTO 3+6*, I1!, I1+3*, I1+7*, I1+8*, I1+9*, I1+10*, MSG3+1, OUT!
I MSG1+2*, OUT!
U 1+11, 1+15, QTR+3
>> X 3+1*, 3+2, 3+3, MSG1+1*
Y 1+6, 1+11, 1+12, 1+15, 3+6, 3+15, 3+23, P1, OUT!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All