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

Package: Engineering

Routine: ENEQPMS4


Information

ENEQPMS4 ;(WASH ISC)/DH-Delete PMI Work Orders ;1/11/2001

Source Information

Source file <ENEQPMS4.m>

Entry Points

Name Comments DBIA/ICR reference
LSTH1
DEL ; delete PM worklist
DEL1 ; delete individual work orders
DEL10
DEL11
DEL2 ; delete an entire work list
DEL20
DEL21
DEL22
DELDQ
OUT
MSG
DELH0
DELH1
DELH2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"All worklists are sorted by shop, and within shop they may be sorted again by",!,"RESPONSIBLE TECHNICIAN. You must now choose how this list should be sorted"
  • Line Location: LSTH1+0
Function Call: WRITE
  • Prompt: !,"further. You have the following choices:"
  • Line Location: LSTH1+1
Function Call: WRITE
  • Prompt: !,?10,"'E' for Equipment Entry #"
  • Line Location: LSTH1+2
Function Call: WRITE
  • Prompt: !,?10,"'P' for PM #"
  • Line Location: LSTH1+3
Function Call: WRITE
  • Prompt: !,?10,"'I' for Local Identifier"
  • Line Location: LSTH1+4
Function Call: WRITE
  • Prompt: !,?10,"'L' for Location"
  • Line Location: LSTH1+5
Function Call: WRITE
  • Prompt: !,?10,"'C' for Equipment Category"
  • Line Location: LSTH1+6
Function Call: WRITE
  • Prompt: !,?10,"'S' for Owning Service",!
  • Line Location: LSTH1+7
Function Call: WRITE
  • Prompt: !!,"Which do you wish to delete?",!,?7,"1. Individual work order(s), or",!,?7,"2. An entire PM work list."
  • Line Location: DEL+1
Function Call: READ
  • Formatting: !
  • Prompt: "Select 1 or 2: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: DEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL11+0
Function Call: WRITE
  • Prompt: !!,"Next work order: ",ENPMWO(1),"// "
  • Line Location: DEL11+0
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: DEL11+3
Function Call: READ
  • Formatting: !
  • Prompt: "MONTHLY or WEEKLY PM list: MONTHLY// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL20+0
Function Call: READ
  • Formatting: !
  • Prompt: "Which week? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL21+0
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: DEL22+0
Function Call: WRITE
  • Prompt: "This option will delete the entire "_$S(ENPM="M":"MONTHLY",ENPM["W":"WEEKLY",1:"")_" PM List of the "_ENSHOP,!,"Shop for "_$P("JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER",U,ENPMMN)
  • Line Location: DEL22+1
Function Call: WRITE
  • Prompt: ", "_ENPMYR_$S(ENPM["W":" (Week "_ENPMWK_")",1:"")_"."
  • Line Location: DEL22+2
Function Call: WRITE
  • Prompt: !!,"Just a moment, please..."
  • Line Location: DEL22+3
Function Call: WRITE
  • Prompt: !!,"There are ",I," PM work orders on this list. Deletion of these work orders will",!,"not affect equipment histories. Are you sure you want to proceed"
  • Line Location: DEL22+5
Function Call: WRITE
  • Prompt: !,"Nothing deleted.",*7
  • Line Location: DEL22+6
Function Call: WRITE
  • Prompt: !!,"Sorry, another user is processing worklist. Please try again later.",*7
  • Line Location: DEL22+7
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue..."
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"Entry must be an existing PM work order, beginning with 'PM-', or the",!,"sequential (numeric) portion thereof. Enter '^' to exit."
  • Line Location: DELH0+0
Function Call: WRITE
  • Prompt: !,"Enter '1' to delete individual PM work orders or '2' to delete a specific",!,"worklist (MONTHLY or WEEKLY) for an entire shop."
  • Line Location: DELH1+0
Function Call: WRITE
  • Prompt: !,"Deletion of PM work orders which have been closed out does NOT remove them",!,"from the equipment history."
  • Line Location: DELH1+1
Function Call: WRITE
  • Prompt: !,"Please enter an integer from 1 to 5."
  • Line Location: DELH2+0

FileMan Files Accessed Via FileMan Db Call

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