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

Package: Engineering

Routine: ENEQPMR3


Information

ENEQPMR3 ;(WCIOFO)/DH-Rapid Close Out ;11/9/1998

Source Information

Source file <ENEQPMR3.m>

Entry Points

Name Comments DBIA/ICR reference
RCO6
RCO61
RCO7
RCO701
RCO702
RCO71
RCO8
RCO9
OUT
WRIT
HLD
POST
DEL
RCO7H
ABORT ;Forget it
SUBTEC(TEC) ; return substitute tech
; input
; TEC = input tech (internal value)
; PMTECH( = substitution list array
; returns ien of tech to be substituted for the input tech or 0 if none
CHGTEC(WOIEN,ATIEN,TEC) ; change tech in assigned tech multiple
; input
; WOIEN - work order ien
; ATIEN - assigned tech multiple ien
; TEC - new tech (internal value)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You have not identified any PM work orders as exceptions to Rapid Close Out.",!,"At this point, the entire PM worklist will be closed out"
  • Line Location: RCO6+1
Function Call: WRITE
  • Prompt: @IOF,"The following work orders will be unaffected by Rapid Close Out:"
  • Line Location: RCO61+0
Function Call: WRITE
  • Prompt: !,"All other work orders on the ",$S(ENPM="M":"MONTHLY",ENPM["W":"WEEKLY",1:"")," PM list for the ",ENSHOP,!,"Shop for ",$P("JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER","^",ENPMMN)
  • Line Location: RCO61+1
Function Call: WRITE
  • Prompt: ", "_ENPMYR_$E(ENPMDT,1,2)_$S(ENPM["W":" Week("_ENPMWK_")",1:"")_" are subject to Rapid Close Out."
  • Line Location: RCO61+2
Function Call: WRITE
  • Prompt: !!,"Would you like to specify starting and stopping points for",!,"Rapid Close Out"
  • Line Location: RCO7+1
Function Call: WRITE
  • Prompt: !!,"Please enter the starting work order (or the sequential portion thereof)",!,"(ex: '"_J_"' or just '"_+$P(J,"-",3)_"'): "
  • Line Location: RCO701+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO701+1
Function Call: WRITE
  • Prompt: !,?5,X_" is not an existing work order. Please try again."
  • Line Location: RCO701+3
Function Call: WRITE
  • Prompt: " ("_ENFR_")"
  • Line Location: RCO701+4
Function Call: WRITE
  • Prompt: !!,"Now enter the last work order to be closed (or sequential portion thereof)"
  • Line Location: RCO702+0
Function Call: WRITE
  • Prompt: !,"(ex: '"_J_"' or just '"_+$P(J,"-",3)_"'): "
  • Line Location: RCO702+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RCO702+3
Function Call: WRITE
  • Prompt: !,?5,X_" is not an existing work order. Please try again."
  • Line Location: RCO702+5
Function Call: WRITE
  • Prompt: !,?5,X_" does not follow "_ENFR_"."
  • Line Location: RCO702+6
Function Call: WRITE
  • Prompt: " ("_ENTO_")"
  • Line Location: RCO702+8
Function Call: WRITE
  • Prompt: !!,"Rapid close out now in progress "
  • Line Location: RCO71+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: RCO71+5
Function Call: WRITE
  • Prompt: !,?10,I
  • Line Location: WRIT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HLD+1
Function Call: WRITE
  • Prompt: !!,"If you want to close out only a portion of a PM worklist, you may specify the",!,"first and last work orders that you want Rapid Close Out to operate on."
  • Line Location: RCO7H+0
Function Call: WRITE
  • Prompt: !,"NOTE: Rapid Close Out will close the first and the last and everything",!," in between."
  • Line Location: RCO7H+1

FileMan Files Accessed Via FileMan Db Call

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