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

Package: IHS Changes To Lab

Routine: BLRROLLD


Information

BLRROLLD ; IHS/OIT/MKK - Delete anything in ROLLOVER RUNNING field in File 69.9 ; 22-Oct-2013 09:22 ; MKK

Source Information

Source file <BLRROLLD.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 3 FILE^DIE  $$GET1^DIQ  ^DIR  
IHS Changes To Lab 2 (EEP,HEADERDT,PRESSKEY)^BLRGMENU  EP^BLRROLLD  
IHS VA Utilities 1 ^XBFMK  
Kernel 1 ($$CJ,$$LJ)^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Changes To Lab 1 BLRROLLD  

Entry Points

Name Comments DBIA/ICR reference
TESTIT ; EP - Test of routine
; Force YES into the field
YESDOIT(MESSAGE) ; EP - YES/NO Call
PEP ; EP
EEP ; EP - Ersatz Entry
ARRYDUMP(ARRY) ; EP
EP ; EP

External References

Name Field # of Occurrence
EEP^BLRGMENU EEP+1
HEADERDT^BLRGMENU EP+7
PRESSKEY^BLRGMENU EP+24, EP+30, EP+49, EP+57, YESDOIT+9
EP^BLRROLLD TESTIT+4
FILE^DIE EP+44
$$GET1^DIQ EP+26
^DIR YESDOIT+5
^XBFMK YESDOIT+1
$$CJ^XLFSTR EP+6
$$LJ^XLFSTR EP+16, EP+21, EP+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?14,$TR($J("",MAXLINE)," ","*"),!
  • Line Location: EP+18
Function Call: WRITE
  • Prompt: ?14,LINE1,!
  • Line Location: EP+19
Function Call: WRITE
  • Prompt: ?14,LINE2,!
  • Line Location: EP+20
Function Call: WRITE
  • Prompt: ?14,$$LJ^XLFSTR("*** ",MAXLINE-4)," ***",!
  • Line Location: EP+21
Function Call: WRITE
  • Prompt: ?14,$$LJ^XLFSTR("*** Routine Ends.",MAXLINE-4)," ***",!
  • Line Location: EP+22
Function Call: WRITE
  • Prompt: ?14,$TR($J("",MAXLINE)," ","*"),!
  • Line Location: EP+23
Function Call: WRITE
  • Prompt: ?4,"LABORATORY SITE (#69.9) file's ROLLOVER RUNNING (#521) field is Null.",!!
  • Line Location: EP+28
Function Call: WRITE
  • Prompt: ?4,"No need to delete anything. Routine Ends."
  • Line Location: EP+29
Function Call: WRITE
  • Prompt: ?4,"LABORATORY SITE (#69.9) file's ROLLOVER RUNNING (#521) field = ",ROLLRUNF,!
  • Line Location: EP+32
Function Call: WRITE
  • Prompt: !,?4,"This routine will delete the ",ROLLRUNF," from the field.",!
  • Line Location: EP+34
Function Call: WRITE
  • Prompt: !,?4,"Errors trying to clear the ROLLOVER RUNNING field.",!
  • Line Location: EP+47
Function Call: WRITE
  • Prompt: !,?14,"Deleting"
  • Line Location: EP+51
Function Call: WRITE
  • Prompt: "."
  • Line Location: EP+52
Function Call: WRITE
  • Prompt: !,?14,"Done."
  • Line Location: EP+53
Function Call: WRITE
  • Prompt: !!,?4,"LABORATORY SITE (#69.9) file's ROLLOVER RUNNING (#521) field cleared."
  • Line Location: EP+55
Function Call: WRITE
  • Prompt: !!,?14,"NO/Null/Invalid Entry. Routine ends."
  • Line Location: YESDOIT+8
Function Call: WRITE
  • Prompt: !
  • Line Location: YESDOIT+11
Function Call: WRITE
  • Prompt: !,?9,ARRY,!
  • Line Location: ARRYDUMP+4
Function Call: WRITE
  • Prompt: ?14,STR1,"=",@STR1,!
  • Line Location: ARRYDUMP+5
Function Call: WRITE
  • Prompt: ?14,STR1,"=",@STR1,!
  • Line Location: ARRYDUMP+7
Routine Call
  • DIE
  • Line Location:
    • EP+44
Routine Call
  • DIR
  • Line Location:
    • YESDOIT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(69.9 - [#69.9] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(69.9 - [#69.9] TESTIT+2*
^VA(200 - [#200] EP+10, EP+16
^XUSEC("LRSUPER" EP+9

Label References

Name Line Occurrences
$$YESDOIT EP+36, EP+38, EP+40
ARRYDUMP EP+48

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRY ARRYDUMP~, ARRYDUMP+3, ARRYDUMP+4
>> BLRVERN EP+3*
>> DILOCKTM EP+1
>> DIR("A" YESDOIT+3*
>> DIR("B" YESDOIT+4*
>> DIR(0 YESDOIT+2*
>> DISYS EP+1
DT EP+1
DTIME EP+1
DUZ EP+1, EP+9, EP+10, EP+16
ERRS EP+43!, EP+46
>> FDA( EP+42*
>> HEADER(1 EP+4*
>> HEADER(2 EP+5*
>> HEADER(3 EP+6*
IO EP+1
>> IOBS EP+1
IOF EP+1
IOM EP+1, EP+6
ION EP+1
>> IOS EP+1
IOSL EP+1
IOST EP+1
>> IOT EP+1
>> IOXY EP+1
>> LINE1 EP+10*, EP+13, EP+16*, EP+19
>> LINE2 EP+11*, EP+14, EP+15, EP+20
>> MAXLINE EP+13*, EP+14, EP+15*, EP+16, EP+18, EP+21, EP+22, EP+23
MESSAGE YESDOIT~, YESDOIT+3
>> NUM EP+52*
>> ROLLRUNF EP+26*, EP+27, EP+32, EP+34
STR1 ARRYDUMP+1~, ARRYDUMP+3*, ARRYDUMP+5, ARRYDUMP+6*, ARRYDUMP+7
U EP+1
>> XPARSYS EP+1
>> XQXFLG EP+1
>> Y YESDOIT+7

Marked Items

Name Field # of Occurrence
$T( EP+3
Info |  Source |  Call Graph |  Caller 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