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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^DIC(6922 - [#6922] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call