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

Package: Engineering

Routine: ENLBL9


Information

ENLBL9 ;(WASH ISC)/DH-Companion Listing for Equipment Labels ;11.27.96

Source Information

Source file <ENLBL9.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 ^%DT  YN^DICN  ^DIR  
Kernel 2 (,HOME)^%ZIS  ^%ZISC  
Engineering 1 LOC1^ENLBL16  

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

Package Total Caller Graph
Engineering 6 ENLBL10  ENLBL12  ENLBL15  ENLBL3  ENLBL5  ENLBL6  

Entry Points

Name Comments DBIA/ICR reference
EN
EN1
CPRNT ;I $D(^ENG(6914,DA,3)),$P(^(3),U,10)]"" Q ;Suppress if already printed
CHDR
HLP
OPEN ;
ERR

External References

Name Field # of Occurrence
^%DT EN1+4
^%ZIS EN1+1, OPEN+1
HOME^%ZIS EN1+2, EN1+5
^%ZISC EN1+3
YN^DICN EN1
^DIR EN+4
LOC1^ENLBL16 CPRNT+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Would you like a companion listing for this set of labels"
  • Line Location: EN1+0
Function Call: WRITE
  • Prompt: !,*7,"Device selected must have a MARGIN WIDTH of at least 80 char.",!!
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !,*7,"MSM sites may not send Companion List to HOME device.",!!
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,DA,?15,$E(ENMEN,1,60),!,?5,"Man: ",$E(ENMAN,1,30),?40,"Cat: ",$E(ENCAT,1,35)
  • Line Location: CPRNT+8
Function Call: WRITE
  • Prompt: !,?5,"Model: ",$E(ENMOD,1,28),?40,"S/N: ",$E(ENSN,1,35),!,?5,"Servc: ",$E(ENSER,1,28),?40,"Status: ",$P(ENUSE,":",2),!,?5,"Location: ",$E(ENLOC,1,25),?40,"PM#: ",ENPMN
  • Line Location: CPRNT+9
Function Call: WRITE
  • Prompt: @ENEQIOF
  • Condition for execution: ENEQPG
  • Line Location: CHDR+0
Function Call: WRITE
  • Prompt: "COMPANION LISTING (Bar Code Labels)",?ENHDMRGN,"Page ",ENEQPG
  • Line Location: CHDR+0
Function Call: WRITE
  • Prompt: !,ENEQBY
  • Line Location: CHDR+1
Function Call: WRITE
  • Prompt: " (",$S(ENEQUSER]"":$E(ENEQUSER,1,20),1:"User unknown"),")"
  • Condition for execution: $L(ENEQBY)<41
  • Line Location: CHDR+1
Function Call: WRITE
  • Prompt: ?ENHDMRGN,ENEQDATE,!,"Equip ID",?15,"* Description *"
  • Line Location: CHDR+1
Function Call: WRITE
  • Prompt: !,X
  • Line Location: CHDR+2
Function Call: WRITE
  • Prompt: !!,"A 'companion listing' is simply a printout on regular paper (must be at",!,"least 80 columns wide) that is intended for use in the initial application"
  • Line Location: HLP+0
Function Call: WRITE
  • Prompt: !,"of the actual bar code labels to individual equipment items. The companion",!,"listing will contain more descriptive information than can be printed"
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !,"on the labels themselves, and will be sorted in the same order as the",!,"labels."
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !,*7,"Device selection unsuccessful.",!
  • Line Location: ERR+0
Routine Call
  • DIR
  • Line Location:
    • EN+4
Routine Call
  • %ZIS
  • Line Location:
    • EN1+1
    • OPEN+1
Routine Call
  • %ZIS
  • Line Location:
    • EN1+2
    • EN1+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" EN1+3
^DD("DD" EN1+4
^DD(6914 CPRNT+6
^DIC(49 - [#49] CPRNT+6
^DIC(6910 - [#6910] CPRNT+11
^ENG("MFG" - [#6912] CPRNT+5
^ENG("SP" - [#6928] CPRNT+7
^ENG(6911 - [#6911] CPRNT+5
^ENG(6914 - [#6914] CPRNT+3
^VA(200 - [#200] EN1+6

Label References

Name Line Occurrences
CHDR CPRNT+2
EN EN1, EN1+1, EN1+2, EN1+3
ERR EN1+1
HLP EN1

Naked Globals

Name Field # of Occurrence
^(0 EN1+6, CPRNT+7
^(1 CPRNT+3
^(3 CPRNT+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN1*
>> %DT EN1+4*
%ZIS EN1+1*!
%ZIS("A" EN1+1*
%ZIS("B" EN1+1*
>> DA CPRNT+3, CPRNT+8
DIR EN+4!
DIR("?" EN+1*, EN+2*, EN+3*
DIR("A" EN*
DIR("B" EN*
DIR(0 EN*
>> DIRUT EN+4
DUZ EN1+6
EN CPRNT+3!, CPRNT+10!
EN(1 CPRNT+3*, CPRNT+4
EN(3 CPRNT+3*, CPRNT+6
>> ENCAT CPRNT+3*, CPRNT+4*, CPRNT+5*, CPRNT+8
>> ENEQBY CHDR+1
>> ENEQDATE EN1+4*, CHDR+1
ENEQIO EN1!, EN1+4*, CPRNT+2, OPEN+2*
ENEQIO("S" EN1+4*
>> ENEQIOF EN1+4*, CHDR
>> ENEQION EN1+4*, OPEN+1
>> ENEQIOSL EN1+4*, CPRNT+2
>> ENEQIOST EN1+4*
>> ENEQIOST(0 EN1+4*
>> ENEQPG EN1+4*, CHDR*
>> ENEQREP EN+5*
>> ENEQUSER EN1+6*, EN1+7*, CHDR+1
>> ENEQY EN1+4*, CPRNT+2, CPRNT+10*, CHDR+3*
>> ENHDMRGN EN1+4*, CHDR, CHDR+1
>> ENLOC CPRNT+3*, CPRNT+6*, CPRNT+7*, CPRNT+9
>> ENMAN CPRNT+3*, CPRNT+4*, CPRNT+5*, CPRNT+8
>> ENMEN CPRNT+3*, CPRNT+8
>> ENMOD CPRNT+3*, CPRNT+4*, CPRNT+9
>> ENPMN CPRNT+3*, CPRNT+6*, CPRNT+9
>> ENSER CPRNT+3*, CPRNT+6*, CPRNT+9
>> ENSN CPRNT+3*, CPRNT+4*, CPRNT+9
>> ENUSE CPRNT+3*, CPRNT+6*, CPRNT+9
IO EN1+3, EN1+4, OPEN+2
IO("S" EN1+4
IO(0 EN1+3
IOF EN1+4
IOM EN1+2
ION EN1+4
IOP OPEN+1*!
IOSL EN1+4
IOST EN1+4
IOST(0 EN1+4
>> POP EN1+1
U EN1+6, CPRNT+3, CPRNT+4, CPRNT+5, CPRNT+6, CPRNT+7
>> X EN1+4*, CHDR+2*
>> Y EN+5, EN1+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All