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 |  Local Variables  | All
Print Page as PDF
Routine: ENY2K2

Package: Engineering

Routine: ENY2K2


Information

ENY2K2 ;(WASH ISC)/DH-Generate Y2K Worklists ;5.4.98

Source Information

Source file <ENY2K2.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Engineering 6 SPL0^ENEQPMS3  LSTH1^ENEQPMS4  DEV^ENLIB  GEN^ENSPSRT  SSHOP^ENWO  ENTRY^ENY2K3  
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: 1

Package Total Caller Graph
Engineering 1 ENY2K_LIST  

Entry Points

Name Comments DBIA/ICR reference
Y2L ; produce Y2K worklist
LSTSRT
LSTSRT1
LSTTEK
LSTTEK1
LSTOOS
LST01
OUT
MSG

External References

Name Field # of Occurrence
^%DT Y2L+3
HOME^%ZIS LST01+7
^%ZTLOAD LST01+7
^DIC LSTTEK1+2
YN^DICN LSTTEK1
^DIR LSTSRT1+10, LSTSRT1+17, LSTTEK+4, LSTOOS+4, LST01+3
SPL0^ENEQPMS3 LSTSRT1+2
LSTH1^ENEQPMS4 LSTSRT+4
DEV^ENLIB LST01+5
GEN^ENSPSRT LSTSRT1+19
SSHOP^ENWO LST01+4
ENTRY^ENY2K3 LST01+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?32,"GENERATE Y2K WORK LIST",!,?31,"VERSION ",^ENG("VERSION"),!!
  • Line Location: Y2L+1
Function Call: WRITE
  • Prompt: !!,"Print Y2K Work Orders for Equipment Records whose ESTIMATED Y2K COMPLIANCE"
  • Line Location: Y2L+2
Function Call: WRITE
  • Prompt: !!,"NOTE: Equipment that is CONDITIONALLY COMPLIANT for Y2K and has no ESTIMATED",!," Y2K COMPLIANCE DATE will always appear on Y2K worklists."
  • Line Location: Y2L+4
Function Call: WRITE
  • Prompt: !!,"Y2K work lists are collections of Y2K work orders for equipment whose Y2K",!,"CATEGORY is CONDITIONALLY COMPLIANT. They are always sorted by ASSIGNED SHOP"
  • Line Location: LSTSRT+1
Function Call: WRITE
  • Prompt: !,"with page breaks between each shop. If you request it, they will be sorted",!,"by ASSIGNED TECH (with page breaks) within each shop."
  • Line Location: LSTSRT+2
Function Call: WRITE
  • Prompt: !!,"Beyond that, how would you like your worklist to be sorted?"
  • Line Location: LSTSRT+3
Function Call: READ
  • Timeout: DTIME
  • Line Location: LSTSRT+4
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 Y2K TECHNICIAN."
  • Line Location: LSTTEK1+0
Function Call: WRITE
  • Prompt: !,"For all shops"
  • Line Location: LST01+0
Routine Call
  • DIC
  • Line Location:
    • LSTTEK1+2
Routine Call
  • DIR
  • Line Location:
    • LSTSRT1+10
    • LSTSRT1+17
    • LSTTEK+4
    • LSTOOS+4
    • LST01+3
Routine Call
  • %ZIS
  • Line Location:
    • LST01+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" Y2L+3
^ENG("VERSION" Y2L+1

Label References

Name Line Occurrences
LSTOOS LSTTEK+5, LSTTEK1+1
LSTSRT LSTSRT+4
LSTTEK1 LSTTEK1
OUT Y2L+3, LSTSRT1+1, LSTSRT1+2, LSTSRT1+4, LSTTEK+4, LSTTEK1, LSTTEK1+2, LSTOOS+4, LST01+3, LST01+4
, LST01+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LSTTEK1*, LSTTEK1+1
%DT Y2L+3*, OUT!
%DT("A" Y2L+3*
DIC LSTTEK1+2*, OUT!
DIC(0 LSTTEK1+2*
DIR LSTSRT1+10!, LSTSRT1+17!, LSTTEK+4!, LSTOOS+4!, LST01+3!
DIR("?" LSTSRT1+7*, LSTSRT1+8*, LSTSRT1+9*, LSTSRT1+14*, LSTSRT1+15*, LSTSRT1+16*, LSTTEK+1*, LSTTEK+2*, LSTTEK+3*, LSTOOS+2*
, LSTOOS+3*, LST01+2*
DIR("A" LSTSRT1+13*, LSTTEK*, LSTOOS*
DIR("B" LSTSRT1+6*, LSTSRT1+13*, LSTTEK*, LSTOOS+1*, LST01+2*
DIR(0 LSTSRT1+6*, LSTSRT1+13*, LSTTEK*, LSTOOS+1*, LST01+2*
>> DIRUT LSTSRT1+4, LSTSRT1+10, LSTSRT1+17, LSTTEK+4, LSTOOS+4, LST01+3
DNX OUT!
DT Y2L+3
DTIME LSTSRT+4, MSG
ENA OUT!
ENDA OUT!
ENEQDT OUT!
ENERR OUT!
ENHZS OUT!
ENMNTH OUT!
>> ENPMYR Y2L+3*
ENSHKEY LST01+1*, LST01+4*, OUT!
ENSHOP OUT!
ENSRT LSTSRT!, LSTSRT+5*, LSTSRT1, LSTSRT1+2, LSTSRT1+3, LSTSRT1+4, OUT!
ENSRT("A" LSTSRT1*, LSTSRT1+1, LSTSRT1+5, LSTSRT1+7
ENSRT("ALL" LSTSRT+5*, LSTSRT1+2*
ENSRT("BY" LSTSRT1+18*
ENSRT("LOC" LSTSRT+5*, LSTSRT1+3*, LSTSRT1+11*, LSTSRT1+12, LSTSRT1+18*, LSTSRT1+19
ENSRT("OOS" LSTOOS+5*
ENTECH LSTTEK+5*, LSTTEK1+1*, LSTTEK1+2*, OUT!
ENTECH("ALL" LSTTEK+5*, LSTTEK1+1*, LSTTEK1+2*
ENY2DT Y2L+3*, OUT!
ENY2DT("E" Y2L+3*
IO("Q" LST01+5, LST01+6!
IOF Y2L+1
ION LST01+7
K OUT!
>> POP LST01+5
U LSTSRT1+2
>> X LSTSRT+4*, LSTSRT+5, LSTSRT1+2, MSG*
>> Y Y2L+3*, LSTSRT1+11, LSTSRT1+18, LSTTEK+5, LSTTEK1+2, LSTOOS+5, LST01+4
>> ZTDESC LST01+7*
>> ZTIO LST01+7*
>> ZTRTN LST01+7*
>> ZTSAVE("EN*" LST01+7*
ZTSK LST01+7!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All