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

Package: Engineering

Routine: ENEQPMR3


Information

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

Source Information

Source file <ENEQPMR3.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIK  
Kernel 3 HOME^%ZIS  ^%ZISC  ^%ZTLOAD  
Engineering 2 COUNT^ENBCPM8  (PMHRS,PMINV)^ENEQPMR4  

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 ENEQPMR2  

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)

External References

Name Field # of Occurrence
HOME^%ZIS RCO8
^%ZISC RCO8
^%ZTLOAD RCO8
^DIC RCO701+4, RCO702+8
YN^DICN RCO7+1, RCO71+1
^DIE POST+11, CHGTEC+10
^DIK DEL
COUNT^ENBCPM8 OUT+4
PMHRS^ENEQPMR4 POST+12
PMINV^ENEQPMR4 POST+11

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
Routine Call
  • %ZIS
  • Line Location:
    • RCO8
Routine Call
  • DIC
  • Line Location:
    • RCO701+4
    • RCO702+8
Routine Call
  • DIE
  • Line Location:
    • POST+11
    • CHGTEC+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6920 - [#6920] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ENG("PMLIST" OUT
^ENG("TMP" RCO6, RCO61, RCO71+4, RCO71+7!, RCO9+1, RCO9+4!, ABORT+1!
^ENG(6920 - [#6920] RCO7+2, RCO701+3, RCO701+5, RCO702+1, RCO702+5, RCO702+6, RCO71+4, RCO71+5, RCO9+1, RCO9+2
, POST, POST+6, POST+7, POST+12, DEL

Label References

Name Line Occurrences
$$SUBTEC POST+8
ABORT RCO7+1
CHGTEC POST+9
DEL RCO71+6, RCO9+3
HLD WRIT
OUT RCO7+2, RCO71+1, RCO71+8, RCO8, ABORT+2
POST RCO71+5, RCO9+2
RCO61 RCO6
RCO7 RCO6+2, RCO7+1, RCO701+1, RCO701+4, RCO702+3, RCO702+8
RCO701 RCO701+3
RCO702 RCO702+5, RCO702+6
RCO71 RCO7+1
RCO7H RCO7+1
RCO8 RCO71+1
WRIT RCO61

Naked Globals

Name Field # of Occurrence
^(2 POST+12
^(5 POST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RCO7+1*, RCO71+1*
ATIEN CHGTEC~, CHGTEC+6
CTECH POST+4~, POST+7*, POST+8
DA RCO71+5*, RCO9+2*, OUT+2!, POST, POST+6, POST+7, POST+9, POST+12, DEL, CHGTEC+5~
, CHGTEC+6*
DA(1 CHGTEC+7*, CHGTEC+8
DIC RCO701+4*, OUT+2!
DIC("A" RCO71!
DIC("S" RCO701+4*!, RCO702+7*, RCO702+8!, RCO71!
DIC(0 RCO701+4*
DIE RCO71*, OUT+2!, CHGTEC+5~, CHGTEC+8*
DIK OUT+2!, DEL*!
DR RCO71*, OUT+2!, CHGTEC+5~, CHGTEC+9*
DTIME RCO701+1, RCO702+3, HLD
EN OUT+1!
EN1 OUT+2!
ENDATE OUT+1!
ENDEL RCO6+2, RCO71+6, RCO9+3, OUT+1!
ENFR RCO7*, RCO701+4*, RCO701+5*, RCO702+6, RCO71+3, RCO9, OUT+3!
ENFR(0 RCO701+5*
ENK RCO71+4*, RCO9+1*, OUT+1!
ENPM RCO61+1, RCO61+2, OUT+1!
ENPMDT RCO61+2, OUT+5!
ENPMMN RCO61+1, OUT+1!
ENPMWK RCO61+2, OUT+1!
ENPMWO RCO71+3*, RCO71+4*, RCO71+5, RCO9*, RCO9+1*, RCO9+2, OUT+1!
ENPMWO("P" RCO6, RCO61, RCO7+2, RCO701+2, RCO701+5, RCO702+1, RCO702+4, RCO71+3, RCO71+4, RCO71+7
, RCO9, RCO9+1, RCO9+4, OUT, ABORT+1
ENPMYR RCO61+2, OUT+1!
ENSHABR OUT+1!
ENSHKEY OUT+5!
ENSHOP RCO61+1, OUT+2!
ENTO RCO7*, RCO702+8*, RCO71+4, RCO9+1, OUT+3!
ENTO("L" RCO7*, RCO702+8*, RCO71+4, RCO9+1
ENY RCO61*, OUT+2!, WRIT*, HLD+1*
I RCO61*, WRIT, POST+4~, POST+6*, POST+7, POST+9, SUBTEC+5~, SUBTEC+8*, SUBTEC+9
IOF RCO61, HLD+1
IOSL WRIT
IOST HLD
>> J RCO7+2*, RCO701, RCO702+1*, RCO702+2
>> K RCO61*
PMTECH OUT+6!
PMTECH( SUBTEC+8, SUBTEC+9
PMTECH(0 POST+3
>> PMTOT OUT+4
RET SUBTEC+5~, SUBTEC+7*, SUBTEC+8, SUBTEC+9*, SUBTEC+10
STECH POST+4~, POST+8*, POST+9
TEC SUBTEC~, SUBTEC+8, SUBTEC+9, CHGTEC~, CHGTEC+9
U RCO701+4, RCO702+6, RCO702+8, POST, POST+7, POST+12
WOIEN CHGTEC~, CHGTEC+7
>> X RCO701+1*, RCO701+2*, RCO701+3, RCO702+3*, RCO702+4*, RCO702+5, RCO702+6, HLD*
>> X1 RCO702+5*, RCO702+6
>> Y RCO701+4, RCO702+8
>> ZTDESC RCO8*
>> ZTDTH RCO8*
>> ZTIO RCO8*
>> ZTQUEUED OUT+3, OUT+6
>> ZTREQ OUT+3*
>> ZTRTN RCO8*
>> ZTSAVE("DIE" RCO8*
>> ZTSAVE("DR" RCO8*
>> ZTSAVE("EN*" RCO8*
>> ZTSAVE("PMTECH(" RCO8*
ZTSK RCO8!
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