Routine: ENY2K2

Information

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

Source file <ENY2K2.m>

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