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

Package: Engineering

Routine: ENEQPMS4


Information

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

Source Information

Source file <ENEQPMS4.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 ^%DT  ^DIC  YN^DICN  ^DIK  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  
Engineering 1 RCOH1^ENEQPMR2  

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

Package Total Caller Graph
Engineering 3 ENEQPMS1  ENPM10  ENY2K2  

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

External References

Name Field # of Occurrence
^%DT DEL2+2
HOME^%ZIS DEL22+8
^%ZTLOAD DEL22+8
^DIC DEL1+1, DEL11+3, DEL2+1
YN^DICN DEL1+2, DEL11+4, DEL22+5
^DIK DEL1+2, DEL11+4, DELDQ+1
RCOH1^ENEQPMR2 DEL20

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
Routine Call
  • DIC
  • Line Location:
    • DEL1+1
    • DEL11+3
    • DEL2+1
Routine Call
  • %ZIS
  • Line Location:
    • DEL22+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEL2+2
^DIC(6922 - [#6922] DEL2+1
^ENG("PMLIST" DEL22+7, DELDQ, OUT
^ENG(6920 - [#6920] DEL1+1, DEL1+2, DEL10, DEL11+4, DEL22+4, DELDQ+1

Label References

Name Line Occurrences
DEL DEL+3, DELH1+2
DEL1 DEL+2, DEL1+2
DEL10 DEL11+4, DEL11+5
DEL11 DEL11+2, DEL11+3
DEL2 DEL+2
DEL20 DEL20
DEL21 DEL21, DEL21+1
DEL22 DEL20
DELH0 DEL11+2, DEL11+3
DELH1 DEL+2
DELH2 DEL21, DEL21+1
MSG DEL22+6
OUT DEL1+1, DEL10, DEL11, DEL2+2, DEL20, DEL21, DEL22+6, DEL22+7, DEL22+8

Naked Globals

Name Field # of Occurrence
^(0 DEL2+1, DELDQ+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % DEL1+2*, DEL11+4*, DEL22+5*, DEL22+6
>> %DT DEL2+2*
>> %DT("A" DEL2+2*
>> %DT("B" DEL2+2*
DA DEL1+1*, DEL1+2, DEL11+3*, DEL11+4, DELDQ+1*, OUT+1!
DIC DEL1+1*, DEL2+1*, OUT+1!
DIC("A" DEL1+1*
DIC("S" DEL1+1*!, DEL11+3*!
DIC(0 DEL1+1*, DEL11+3*, DEL2+1*
DIK DEL1+2*, DEL11+4*, DELDQ+1*, OUT+1!
DT DEL2+2
DTIME DEL+2, DEL11, DEL20, DEL21, MSG
ENINN OUT+1!
ENLOCK DEL22+7*!, DELDQ, OUT!
ENPM DEL20*, DEL21+2*, DEL22+1, DEL22+2, DEL22+4, OUT+1!
ENPMDT DEL2+2*, DEL22+4, OUT+1!
ENPMMN DEL2+2*, DEL22+1, OUT+1!
ENPMWK DEL21+2*, DEL22+2, OUT+1!
ENPMWO DEL1+1*, DEL1+2, DEL10, DEL11, DEL11+3*, DEL11+4, DEL22+4*, DELDQ+1*, OUT+1!
ENPMWO("P" DEL22+4*, DEL22+7, DELDQ+1
ENPMWO(1 DEL10*, DEL11, DEL11+1
ENPMYR DEL2+2*, DEL22+2, OUT+1!
ENSHABR DEL2+1*, DEL22+4, OUT+1!
ENSHKEY DEL2+1*, OUT+1!
ENSHOP DEL2+1*, DEL22+1, OUT+1!
ENWON OUT+1!
I DEL22+4*, DEL22+5, DELDQ+1*, OUT+1!
IOF DEL22
U DEL1+1, DEL2+1, DEL22+1
>> X DEL+2*, DEL11*, DEL11+1*, DEL11+2, DEL11+3, DEL20*, DEL21*, DEL21+1, DEL21+2, MSG*
>> Y DEL1+1, DEL11+3, DEL2+1, DEL2+2*
>> ZTDESC DEL22+8*
>> ZTIO DEL22+8*
>> ZTQUEUED OUT+2
>> ZTREQ OUT+2*
>> ZTRTN DEL22+8*
>> ZTSAVE("EN*" DEL22+8*
ZTSK DEL22+8!
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