Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENEQLT2

Package: Engineering

Routine: ENEQLT2


Information

ENEQLT2 ;(WIRMFO)/DH-LOCKOUT FLAG REPORTS ;4.9.97

Source Information

Source file <ENEQLT2.m>

Entry Points

Name Comments DBIA/ICR reference
PRTEC ; Print equipment categories with 'LOCKOUT REQUIRED?' field
; set to 'YES'.
DQEC
PRTEC1 ; Physical printing of EQUIPMENT CATEGORIES
HDREC ; Header for EQUIPMENT CATEGORY List
PRTER ; Print Equipment Records with 'LOCKOUT REQUIRED?' flag set to 'YES'
; Sortable by EQUIPMENT CATEGORY
DQER
HDRER ; Header for Equipment Records
PRTEX ; Print Equipment Records for which 'LOCKOUT REQUIRED?' Flag is CLEAR
; while their EQUIPMENT CATEGORY 'LOCKOUT REQUIRED?' Flag is SET
DQEX
HDREX ; Header for 'LOCKOUT REQUIRED?' Exception List
PRTDAT ; Get and print equipment data
TABS ; Store tabs in local array T
HOLD
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"No EQUIPMENT CATEGORIES have 'LOCKOUT REQUIRED?' Flag SET"
  • Line Location: PRTEC1+1
Function Call: WRITE
  • Prompt: !,?5,$$GET1^DIQ(6911,CAT,.01)_" ("_^TMP($J,CAT)_" Equipment Records)"
  • Line Location: PRTEC1+3
Function Call: WRITE
  • Prompt: "EQUIPMENT CATEGORIES with 'LOCKOUT REQUIRED?' Flag set to 'YES'"
  • Line Location: HDREC+2
Function Call: WRITE
  • Prompt: ?(IOM-7),"Page "_PAGE,!,DATE
  • Line Location: HDREC+3
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDREC+4
Function Call: WRITE
  • Prompt: !,?5,"No Equipment Records have 'LOCKOUT REQUIRED?' Flag set to 'YES'."
  • Line Location: DQER+3
Function Call: WRITE
  • Prompt: "EQUIPMENT with 'LOCKOUT REQUIRED?' Flag 'SET' "_DATE,?(IOM-8),"Page "_PAGE
  • Line Location: HDRER+2
Function Call: WRITE
  • Prompt: !,"ENTRY #",?T(1),"Equipment Category",?T(2),"Manufacturer Equipment Name",?T(3),"Location"
  • Line Location: HDRER+3
Function Call: WRITE
  • Prompt: !,?T(11),"Manufacturer",?T(12),"Model",?T(13),"Serial Number"
  • Line Location: HDRER+4
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDRER+5
Function Call: WRITE
  • Prompt: !!,?10,"There are no EQUIPMENT CATEGORIES with",!,?10,"'LOCKOUT REQUIRED?' Flag SET."
  • Line Location: DQEX+3
Function Call: WRITE
  • Prompt: !!,?10,"There are no exceptions to report."
  • Line Location: DQEX+5
Function Call: WRITE
  • Prompt: "'LOCKOUT REQUIRED?' Flag Exception List "_DATE,?(IOM-8),"Page ",PAGE
  • Line Location: HDREX+2
Function Call: WRITE
  • Prompt: !,"(Flag is CLEAR for these ENTRIES, but their EQUIPMENT CATEGORY Flag is SET)"
  • Line Location: HDREX+3
Function Call: WRITE
  • Prompt: !,"ENTRY #",?T(1),"Equipment Category",?T(2),"Manufacturer Equipment Name",?T(3),"Location"
  • Line Location: HDREX+4
Function Call: WRITE
  • Prompt: !,?T(11),"Manufacturer",?T(12),"Model",?T(13),"Serial Nummber"
  • Line Location: HDREX+5
Function Call: WRITE
  • Prompt: !,X,!
  • Line Location: HDREX+6
Function Call: WRITE
  • Prompt: !,DA,?T(1),X(1),?T(2),X(2),?T(3),X(3)
  • Line Location: PRTDAT+10
Function Call: WRITE
  • Prompt: !,?T(11),X(4),?T(12),X(5),?T(13),X(6)
  • Line Location: PRTDAT+11
Function Call: WRITE
  • Prompt: !!,"Press <RETURN> to continue, '^' to escape..."
  • Line Location: HOLD+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6911 - [#6911] GET1^DIQ
^ENG(6914 - [#6914] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call