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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLRLLPRR

Package: IHS Changes To Lab

Routine: BLRLLPRR


Information

BLRLLPRR ; IHS/MSC/MKK - Lab Label Printer Reset Routine ; [ February 29, 2012 8:00 AM ]

Source Information

Source file <BLRLLPRR.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 4 ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ($$CJ,$$TRIM,$$UP)^XLFSTR  
IHS Changes To Lab 2 (ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRFM,PRESSKEY)^BLRGMENU  HEADONE2^BLRLUAC2  
IHS VA Utilities 1 ^XBFMK  

Entry Points

Name Comments DBIA/ICR reference
PAIRS ; EP - List all the routines that are tied to Lab Label Printing.
SETMENU ; EP -- Lab Programmer Menu
PEP ; EP
EEP
GETPRINI(NEWRTN) ; EP - GET new Print Routine - INItialization of variables
PRNTRTNS(LABELRTN,CNT) ; EP -- Set LABELRTN array with Lab Label Print Routines on the system
GETPRTN(NEWRTN) ; EP -- Get Print Routine's Name
PAIRLINE ; EP - Print a line of data
GETNEWR ; EP
USEORTNS(WOTOPTS) ; EP
GETNEWO ; EP
SETOPTIR(WOTOPTS,OPTSIEN,INITRTN) ; EP -- Resets ROUTINE in selected option
GETOPTS(WOTOPTS,CNT) ; EP -- Set WOTOPTS array with BLR startup Options
GETORINI(INITRTN) ; EP - GET Initialization Routine
USERTNS(NEWRTN) ; EP
REALLY(WOT) ; EP - Prompt for certainty -- Ask 3 Times.
GETOOINI(WOTOPTS,OPTSIEN) ; EP - GET Option & Option's IEN
GOPTIEN(OPT,IEN) ; EP - Get Option's IEN from File 19
SETUPDIR(PROMPT,ARRAY,TABONE,TABTWO,HEADER1,HOWMANY) ; EP - SETUP DIR array and variables
PAIRINIT ; EP - Initialize variables
EP ; EP
INITRTNS(LABELRTN,CNT) ; EP -- Set LABELRTN array with Lab Label Initialization Routines on the system
DOERRS(ERRORS) ; EP
AREUSURE(MSG,WARNING,WOT) ; EP
STRRTNS(LABELRTN,RTNS,CNT) ; EP -- Store routine & description

External References

Name Field # of Occurrence
^%ZIS PAIRINIT+8
^%ZISC PAIRS+13
ADDTMENU^BLRGMENU SETMENU+3, SETMENU+4, SETMENU+5
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU USERTNS+7, AREUSURE+3, SETOPTIR+15, GETORINI+9, USEORTNS+8, GETPRTN+5, PAIRINIT+7
HEADERPG^BLRGMENU PAIRLINE+1
MENUDRFM^BLRGMENU PEP+6
PRESSKEY^BLRGMENU GETNEWR+6, GETNEWR+19, AREUSURE+30, GETNEWO+6, GETNEWO+13, SETOPTIR+13, SETOPTIR+18, DOERRS+4, PAIRS+15, PAIRINIT+11
HEADONE2^BLRLUAC2 PAIRINIT+14
^DIC GOPTIEN+3
^DIE SETOPTIR+7
$$GET1^DIQ SETOPTIR+10
^DIR USERTNS+8, AREUSURE+22, GETORINI+10, USEORTNS+9, GETPRTN+9, GETPRTN+16
^XBFMK SETUPDIR+6, AREUSURE+13, SETOPTIR+3, SETOPTIR+9, GOPTIEN+1, GETPRTN+6, GETPRTN+12
$$CJ^XLFSTR AREUSURE+7, GETNEWO+9, GETOOINI+3, GETORINI+2, PAIRINIT+5
$$TRIM^XLFSTR STRRTNS+1, STRRTNS+2, STRRTNS+3, PAIRLINE+3
$$UP^XLFSTR AREUSURE+24

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?4,"Routine not selected.",!
  • Line Location: GETNEWR+5
Function Call: WRITE
  • Prompt: !!,?4,"LRLABEL4 routine has been successfully over-written by ",NEWRTN,".",!
  • Line Location: GETNEWR+18
Function Call: WRITE
  • Prompt: WARNING
  • Line Location: AREUSURE+9
Function Call: WRITE
  • Prompt: !
  • Line Location: AREUSURE+10
Function Call: WRITE
  • Prompt: !!,?TAB,"YES was NOT entered. Overwriting of "_WOT_" Aborted.",!
  • Line Location: AREUSURE+29
Function Call: WRITE
  • Prompt: !,?4,"Option not selected.",!
  • Line Location: GETNEWO+5
Function Call: WRITE
  • Prompt: !,?4,"Routine not selected.",!
  • Line Location: GETNEWO+12
Function Call: WRITE
  • Prompt: !,?4,"Errors Occurred.",!
  • Line Location: SETOPTIR+12
Function Call: WRITE
  • Prompt: !,?4,"For Option ",WOTOPTS,!!
  • Line Location: SETOPTIR+16
Function Call: WRITE
  • Prompt: ?9,"ROUTINE:",NEWRTN
  • Line Location: SETOPTIR+17
Function Call: WRITE
  • Prompt: !!,"Errors follow:",!!
  • Line Location: DOERRS+1
Function Call: WRITE
  • Prompt: $$FMTERR^%R(.ERRORS)
  • Line Location: DOERRS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DOERRS+3
Function Call: WRITE
  • Prompt: !,?4,"Invalid/No Entry.",!!
  • Line Location: GETPRTN+11
Function Call: WRITE
  • Prompt: !,?4,"Routine Ends.",!
  • Line Location: GETPRTN+19
Function Call: WRITE
  • Prompt: !,?4,"Routine ",$G(X)," Does Not Exist in this UCI.",!
  • Line Location: GETPRTN+22
Function Call: WRITE
  • Prompt: !,?19,"COUNT:",CNT
  • Line Location: PAIRS+12
Function Call: WRITE
  • Prompt: !,?4,"Device Not Available. Routine Ends.",!!
  • Line Location: PAIRINIT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAIRINIT+14
Function Call: WRITE
  • Prompt: $E(RTNS,1,13)
  • Line Location: PAIRLINE+4
Function Call: WRITE
  • Prompt: ?14,$E(STR,1,65)
  • Line Location: PAIRLINE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PAIRLINE+6
Routine Call
  • DIE
  • Line Location:
    • SETOPTIR+7
Routine Call
  • DIC
  • Line Location:
    • GOPTIEN+3
Routine Call
  • DIR
  • Line Location:
    • USERTNS+8
    • AREUSURE+22
    • GETORINI+10
    • USEORTNS+9
    • GETPRTN+9
    • GETPRTN+16
Routine Call
  • %ZIS
  • Line Location:
    • PAIRINIT+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] GETOPTS+3, GETOPTS+4
^ROUTINE( PRNTRTNS+5, STRRTNS+1, INITRTNS+5, GETPRTN+21, PAIRS+9, PAIRLINE+3

Label References

Name Line Occurrences
$$AREUSURE REALLY+3, REALLY+6, REALLY+9
$$GETOOINI GETNEWO+4
$$GETORINI GETNEWO+11
$$GETPRINI GETNEWR+4
$$REALLY GETNEWR+8, GETNEWO+15
$$USEORTNS GETOOINI+5
$$USERTNS GETPRINI+4
DOERRS GETNEWR+12, GETNEWR+16
GETOPTS USEORTNS+4
GOPTIEN GETOOINI+6
INITRTNS GETORINI+5
PAIRINIT PAIRS+5
PAIRLINE PAIRS+10
PRNTRTNS USERTNS+3
SETMENU PEP+3
SETOPTIR GETNEWO+17
SETUPDIR USERTNS+5, GETORINI+7, USEORTNS+6
STRRTNS PRNTRTNS+8, INITRTNS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANSWER REALLY+1~, REALLY+3*, REALLY+4, REALLY+6*, REALLY+7, REALLY+10
ARRAY SETUPDIR~
ARRAY( SETUPDIR+9, SETUPDIR+10, SETUPDIR+14
BLRMMENU PEP+1~
BLRVERN PEP+1~, SETMENU+1*, PAIRS+2~, PAIRINIT+1*
CNT SETUPDIR+8*, SETUPDIR+15, SETUPDIR+16*, GETNEWO+1~, GETORINI+3*, GETORINI+5, GETORINI+7, GETOPTS~, GETOPTS+7*, GETOPTS+8
, PRNTRTNS~, PRNTRTNS+7*, PRNTRTNS+8, STRRTNS~, STRRTNS+4, INITRTNS~, INITRTNS+7*, INITRTNS+8, PAIRS+2~, PAIRS+12
, PAIRINIT+19*, PAIRLINE+8*
CODE GETNEWR+1~, GETNEWR+11, GETNEWR+15, GETNEWO+1~, PAIRS+1~
>> DA SETOPTIR+4*
DASH USERTNS+1~, SETUPDIR+1~, SETUPDIR+3*, SETUPDIR+26, SETUPDIR+27, USEORTNS+1~, USEORTNS+3*
>> DIC GOPTIEN+2*
>> DIE SETOPTIR+5*
>> DIR("A" SETUPDIR+7*, AREUSURE+15*, AREUSURE+16!, AREUSURE+17*, AREUSURE+18*, AREUSURE+19*, GETPRTN+8*, GETPRTN+14*
>> DIR("B" AREUSURE+21*, GETPRTN+15*
>> DIR("L" SETUPDIR+15*, SETUPDIR+19*, SETUPDIR+20*, SETUPDIR+24*, SETUPDIR+28*, SETUPDIR+29*
>> DIR(0 SETUPDIR+30*, AREUSURE+20*, GETPRTN+7*, GETPRTN+13*
>> DR SETOPTIR+6*
ERRORS DOERRS~, DOERRS+2
ERRS GETNEWR+1~, GETNEWR+11, GETNEWR+12, GETNEWR+15, GETNEWR+16, GETNEWO+1~, SETOPTIR+1~, SETOPTIR+11, PAIRS+1~
>> GETIT GETNEWR+11*, GETNEWR+12, GETNEWR+15*, GETNEWR+16
HD1 GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+14, PAIRLINE+1
HEADER GETNEWR+2~, GETNEWO+2~, PAIRS+2~
HEADER(1 GETPRINI+1*, GETOOINI+1*, PAIRINIT+3*
HEADER(2 GETPRINI+2*, GETOOINI+2*, PAIRINIT+4*
HEADER(3 GETNEWO+8!, GETNEWO+9*, GETOOINI+3*, PAIRINIT+5*
HEADER(4 GETORINI+1!, GETORINI+2*, PAIRINIT+21*
HEADER(5 PAIRINIT+22*, PAIRINIT+23*
HEADER1 SETUPDIR~, SETUPDIR+22
HOWLONG SETUPDIR+1~, SETUPDIR+4*, SETUPDIR+14, SETUPDIR+27
HOWMANY USERTNS+1~, USERTNS+3, USERTNS+5, SETUPDIR~, SETUPDIR+7, USEORTNS+1~, USEORTNS+4, USEORTNS+6
IEN GOPTIEN~, GOPTIEN+4*
INITRTN GETNEWO+1~, GETNEWO+11, GETNEWO+17, SETOPTIR~, SETOPTIR+6, GETORINI~, GETORINI+12*
IO PAIRINIT+12
IOM SETUPDIR+3, SETUPDIR+4, AREUSURE+7, GETNEWO+9, GETOOINI+3, GETORINI+2, USEORTNS+3, PAIRINIT+5
IOSL PAIRINIT+16
IOST PAIRINIT+14
LABELRTN USERTNS+1~, USERTNS+3, USERTNS+5, GETNEWO+1~, GETORINI+5, GETORINI+7, USEORTNS+1~, PRNTRTNS~, PRNTRTNS+8, STRRTNS~
, INITRTNS~, INITRTNS+8
LABELRTN( USERTNS+10, GETORINI+12, STRRTNS+4*
LINES PEP+1~, GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+17*, PAIRLINE+1, PAIRLINE+7*
MAXLINES GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+16*, PAIRINIT+17, PAIRLINE+1
MIDPOINT AREUSURE+1~
MSG AREUSURE~, AREUSURE+14, AREUSURE+17
NAME GETPRTN+1~, GETPRTN+3*, GETPRTN+4, GETPRTN+10, GETPRTN+18*, GETPRTN+24*, GETPRTN+26, GETPRTN+28
NEWRTN GETNEWR+1~, GETNEWR+4, GETNEWR+11, GETNEWR+18, GETPRINI~, GETPRINI+4, USERTNS~, USERTNS+10*, GETNEWO+1~, SETOPTIR+1~
, SETOPTIR+10*, SETOPTIR+17, GETPRTN~, GETPRTN+28*, PAIRS+1~
OPT GOPTIEN~, GOPTIEN+2, GETOPTS+1~, GETOPTS+2*, GETOPTS+3*, GETOPTS+4
OPTSIEN GETNEWO+1~, GETNEWO+4, GETNEWO+17, SETOPTIR~, SETOPTIR+4, SETOPTIR+10, GETOOINI~, GETOOINI+6
ORD USERTNS+1~, SETUPDIR+1~, SETUPDIR+8*, SETUPDIR+9*, SETUPDIR+10, SETUPDIR+12, SETUPDIR+14, SETUPDIR+17, SETUPDIR+18, USEORTNS+1~
PG GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+19*, PAIRLINE+1
>> POP PAIRINIT+9
PRINTRTN GETNEWR+1~, GETNEWO+1~, PAIRS+1~
PROMPT SETUPDIR~, SETUPDIR+19, AREUSURE+12~, AREUSURE+14*, AREUSURE+15, AREUSURE+16, AREUSURE+27*, AREUSURE+28
QFLG GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+19*, PAIRLINE+1
RTNS USERTNS+1~, USEORTNS+1~, PRNTRTNS+1~, PRNTRTNS+4*, PRNTRTNS+5*, PRNTRTNS+6, PRNTRTNS+8, STRRTNS~, STRRTNS+1, STRRTNS+4
, INITRTNS+1~, INITRTNS+4*, INITRTNS+5*, INITRTNS+6, INITRTNS+8, PAIRS+3~, PAIRS+8*, PAIRS+9*, PAIRLINE+3, PAIRLINE+4
SEED PRNTRTNS+1~, PRNTRTNS+3*, PRNTRTNS+4, PRNTRTNS+5, PRNTRTNS+6, INITRTNS+1~, INITRTNS+3*, INITRTNS+4, INITRTNS+5, INITRTNS+6
, PAIRS+3~, PAIRS+7*, PAIRS+8, PAIRS+9
SELSTR SETUPDIR+1~, SETUPDIR+17*, SETUPDIR+18*, SETUPDIR+30
STR USERTNS+1~, SETUPDIR+11!, SETUPDIR+12*, SETUPDIR+13*, SETUPDIR+14*, SETUPDIR+15, SETUPDIR+21!, SETUPDIR+22*, SETUPDIR+23*, SETUPDIR+24
, SETUPDIR+25!, SETUPDIR+26*, SETUPDIR+27*, SETUPDIR+28, USEORTNS+1~, PRNTRTNS+1~, STRRTNS+1*, STRRTNS+2*, STRRTNS+3*, STRRTNS+4
, INITRTNS+1~, PAIRS+3~, PAIRLINE+3*, PAIRLINE+5
TAB AREUSURE+12~, AREUSURE+26*, AREUSURE+28*, AREUSURE+29
TABONE SETUPDIR~, SETUPDIR+13, SETUPDIR+22, SETUPDIR+26
TABTWO SETUPDIR~, SETUPDIR+4, SETUPDIR+14, SETUPDIR+23, SETUPDIR+26, SETUPDIR+27
WARNING AREUSURE~, AREUSURE+5, AREUSURE+6*, AREUSURE+7*, AREUSURE+8*, AREUSURE+9
WARNLEN AREUSURE+1~
WHAT SETUPDIR+1~, SETUPDIR+10*, SETUPDIR+13, SETUPDIR+14
WOT REALLY~, REALLY+3, REALLY+6, REALLY+9, AREUSURE~, AREUSURE+14, AREUSURE+19, AREUSURE+27, AREUSURE+29
WOTOPTS GETNEWO+1~, GETNEWO+4, GETNEWO+9, GETNEWO+17, SETOPTIR~, SETOPTIR+16, GETOOINI~, GETOOINI+5, GETOOINI+6, USEORTNS~
, USEORTNS+11*, GETOPTS~
WOTOPTS( GETOPTS+8*
WOTOPTSA USEORTNS+1~, USEORTNS+4, USEORTNS+6
WOTOPTSA( USEORTNS+11
>> X USERTNS+10*, USERTNS+11, AREUSURE+24, GETORINI+12*, GETORINI+13, USEORTNS+11*, USEORTNS+12, GOPTIEN+2*, GETPRTN+10, GETPRTN+21
, GETPRTN+22, GETPRTN+24
>> XPDABORT AREUSURE+25*
>> Y USERTNS+10, GETORINI+12, USEORTNS+11, GOPTIEN+4, GETPRTN+17
ZERO GETOPTS+1~, GETOPTS+4*, GETOPTS+5, GETOPTS+6, GETOPTS+8

Marked Items

Name Field # of Occurrence
$T( SETMENU+1, PAIRINIT+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All