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

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

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
Info |  Source |  Entry Points |  Interaction Calls