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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ENEQPMS1

Package: Engineering

Routine: ENEQPMS1


Information

ENEQPMS1 ;(WASH ISC)/DH-Generate PMI Worklists ;1/24/2001

Source Information

Source file <ENEQPMS1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Engineering 6 (MNTRY,NTRY)^ENEQPMS2  SPL0^ENEQPMS3  LSTH1^ENEQPMS4  DEV^ENLIB  GEN^ENSPSRT  SSHOP^ENWO  
VA FileMan 4 ^%DT  ^DIC  YN^DICN  ^DIR  
Kernel 2 HOME^%ZIS  ^%ZTLOAD  

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

Package Total Caller Graph
Engineering 2 ENPM7  ENPM8  

Entry Points

Name Comments DBIA/ICR reference
WK ;Produce weekly PM worklist
WK1
MNTH ;Produce monthly PM worklist
LSTSRT
LSTSRT1
LSTTEK
LSTTEK1
LSTOOS
LST0
LST01
LST1
OUT
MSG
LSTH0

External References

Name Field # of Occurrence
^%DT WK+3, MNTH+3
HOME^%ZIS LST01+1, LST1
^%ZTLOAD LST01+1, LST1
^DIC LSTTEK1+2
YN^DICN LSTTEK1, LST01
^DIR LSTSRT1+10, LSTSRT1+17, LSTTEK+4, LSTOOS+4, LST0+7
MNTRY^ENEQPMS2 LST1+1
NTRY^ENEQPMS2 LST01+2
SPL0^ENEQPMS3 LSTSRT1+2
LSTH1^ENEQPMS4 LSTSRT+1
DEV^ENLIB LST01+1, LST1
GEN^ENSPSRT LSTSRT1+19
SSHOP^ENWO LST01+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?25,"GENERATE WEEKLY PM LIST(S)",!,?31,"VERSION ",^ENG("VERSION"),!!
  • Line Location: WK+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: WK1+0
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: WK1+1
Function Call: WRITE
  • Prompt: @IOF,?25,"GENERATE MONTHLY PM LIST(S)",!,?31,"VERSION ",^ENG("VERSION"),!!
  • Line Location: MNTH+1
Function Call: READ
  • Timeout: DTIME
  • Line Location: LSTSRT+1
Function Call: WRITE
  • Prompt: !!,"Within "_ENSRT("A")_", shall worklist be sorted by LOCATION?"
  • Line Location: LSTSRT1+5
Function Call: WRITE
  • Prompt: !,"For all TECH's: "
  • Line Location: LSTTEK1+0
Function Call: WRITE
  • Prompt: !,"You may select all TECH's or one specific TECH. Enter 'Y'es for a worklist",!,"which includes all equipment, regardless of RESPONSIBLE TECHNICIAN."
  • Line Location: LSTTEK1+0
Function Call: READ
  • Formatting: !
  • Prompt: "For what levels of CRITICALITY: ALL// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: LST0+0
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: LST0+2
Function Call: WRITE
  • Prompt: "??",*7
  • Line Location: LST0+3
Function Call: WRITE
  • Prompt: !,"For all shops"
  • Line Location: LST01+0
Function Call: WRITE
  • Prompt: !,"You may generate worklists for ALL shops or for ONE PARTICULAR shop."
  • Line Location: LST01+0
Function Call: READ
  • Formatting: !
  • Prompt: "Press <RETURN> to continue..."
  • Variable: X
  • Timeout: DTIME
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"This feature enables you to print a 'partial' PMI list, containing only those",!,"devices whose 'CRITICALITY' falls within a certain range."
  • Line Location: LSTH0+0
Function Call: WRITE
  • Prompt: !!,"For example, if your site ranks devices from 1 to 10 (10 being most critical)",!,"and circumstances are such that you only have resources for a limited number"
  • Line Location: LSTH0+1
Function Call: WRITE
  • Prompt: !,"of PMI's in a given month, you may wish to enter something like '6-10'. This",!,"will mean that PMI's which would normally be scheduled for devices in the"
  • Line Location: LSTH0+2
Function Call: WRITE
  • Prompt: !,"criticality range 1-5 will be suppressed, as will entries with 'CRITICALITY'",!,"greater than 10, but since your site only uses 1 thru 10 there shouldn't be",!,"any."
  • Line Location: LSTH0+3
Function Call: WRITE
  • Prompt: !!,"The system will not attempt to re-schedule these PMI's for the next month,"
  • Line Location: LSTH0+4
Function Call: WRITE
  • Prompt: !,"because that would tend to defeat any efforts to balance the PM work load."
  • Line Location: LSTH0+5
Function Call: WRITE
  • Prompt: !!,"In short, this feature is not intended for routine use but rather as a sys-",!,"tematic approach to dealing with an exceptional situation."
  • Line Location: LSTH0+6
Function Call: WRITE
  • Prompt: !!,"Entries must be in the form 'M-N' where M and N are integers in the range of",!,"1 to 99 and M is less than or equal to N."
  • Line Location: LSTH0+7
Routine Call
  • DIC
  • Line Location:
    • LSTTEK1+2
Routine Call
  • DIR
  • Line Location:
    • LSTSRT1+10
    • LSTSRT1+17
    • LSTTEK+4
    • LSTOOS+4
    • LST0+7
Routine Call
  • %ZIS
  • Line Location:
    • LST01+1
    • LST1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WK+2, MNTH+2
^ENG("VERSION" WK+1, MNTH+1
^ENG(6910.2 - [#6910.2] LSTSRT

Label References

Name Line Occurrences
LST0 LST0+1, LST0+2, LST0+3
LST01 LST0, LST01
LST1 LST01
LSTH0 LST0+1, LST0+2, LST0+3
LSTOOS LSTTEK+5, LSTTEK1+1
LSTSRT WK1, LSTSRT+1
LSTSRT1 LSTSRT
LSTTEK1 LSTTEK1
OUT WK+3, WK1, MNTH+3, LSTSRT1+1, LSTSRT1+2, LSTSRT1+4, LSTTEK+4, LSTTEK1, LSTTEK1+2, LSTOOS+4
, LST0, LST0+7, LST01+1, LST01+3, LST1
WK1 WK1+1

Naked Globals

Name Field # of Occurrence
^(0 LSTSRT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LSTTEK1*, LSTTEK1+1, LST01*
%DT WK+3*, MNTH+3*, OUT!
%DT("A" WK+3*, MNTH+3*
%DT("B" WK+3*, MNTH+3*
%O OUT!
%OPT OUT!
DIC LSTTEK1+2*, OUT!
DIC(0 LSTTEK1+2*
DIR LSTSRT1+10!, LSTSRT1+17!, LSTTEK+4!, LSTOOS+4!, LST0+7!
DIR("?" LSTSRT1+7*, LSTSRT1+8*, LSTSRT1+9*, LSTSRT1+14*, LSTSRT1+15*, LSTSRT1+16*, LSTTEK+1*, LSTTEK+2*, LSTTEK+3*, LSTOOS+2*
, LSTOOS+3*, LST0+6*
DIR("A" LSTSRT1+13*, LSTTEK*, LSTOOS*, LST0+4*, LST0+5*
DIR("B" LSTSRT1+6*, LSTSRT1+13*, LSTTEK*, LSTOOS+1*, LST0+5*
DIR(0 LSTSRT1+6*, LSTSRT1+13*, LSTTEK*, LSTOOS+1*, LST0+5*
>> DIRUT LSTSRT1+4, LSTSRT1+10, LSTSRT1+17, LSTTEK+4, LSTOOS+4, LST0+7
DNX OUT!
DT WK+2, MNTH+2
DTIME WK1, LSTSRT+1, LST0, MSG
ENA OUT!
ENCRIT LST0!, OUT!
ENCRIT("ALL" LST0*
ENCRIT("FR" LST0+3*
ENCRIT("NULL" LST0+8*
ENCRIT("TO" LST0+3*
ENDA OUT!
ENDATE WK+2*, MNTH+2*, OUT!
ENERR OUT!
ENHZS OUT!
ENMN OUT!
ENMNTH OUT!
ENPM WK1*, MNTH+1*, LST0, OUT!
ENPMDT WK+3*, MNTH+3*, OUT!
ENPMMN WK+3*, MNTH+3*, OUT!
ENPMWK WK1*, OUT!
>> ENPMYR MNTH+3*
ENSHKEY LST01+1, OUT!
ENSHOP OUT!
ENSRT LSTSRT!*, LSTSRT+2*, LSTSRT1, LSTSRT1+2, LSTSRT1+3, LSTSRT1+4, OUT!
ENSRT("A" LSTSRT1*, LSTSRT1+1, LSTSRT1+5, LSTSRT1+7
ENSRT("ALL" LSTSRT*, LSTSRT+2*, LSTSRT1+2*
ENSRT("BY" LSTSRT1+18*
ENSRT("LOC" LSTSRT*, LSTSRT+2*, LSTSRT1+3*, LSTSRT1+11*, LSTSRT1+12, LSTSRT1+18*, LSTSRT1+19
ENSRT("OOS" LSTOOS+5*
ENSTMN OUT!
ENSTYR OUT!
ENTECH LSTTEK+5*, LSTTEK1+1*, LSTTEK1+2*, OUT!
ENTECH("ALL" LSTTEK+5*, LSTTEK1+1*, LSTTEK1+2*
>> I LSTSRT*
IO("Q" LST01+1!, LST1!
IOF WK+1, MNTH+1
ION LST01+1, LST1
K OUT!
>> POP LST01+1, LST1
S OUT!
U LSTSRT, LSTSRT1+2
>> X WK1*, LSTSRT+1*, LSTSRT+2, LSTSRT1+2, LST0*, LST0+1, LST0+2, LST0+3, MSG*
>> Y WK+2*, WK+3, MNTH+2*, MNTH+3, LSTSRT1+11, LSTSRT1+18, LSTTEK+5, LSTTEK1+2, LSTOOS+5, LST0+8
>> ZTDESC LST01+1*, LST1*
>> ZTIO LST01+1*, LST1*
>> ZTRTN LST01+1*, LST1*
>> ZTSAVE("EN*" LST01+1*, LST1*
ZTSK LST01+1!, LST1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All