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

Package: Lab Service

Routine: LR140P


Information

LR140P ; IHS/DIR/AAB - TEST REVIEWER 060697 0800 ;

Source Information

Source file <LR140P.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 IO^LRWU  LRGLIN^LRX  
Kernel 1 ($$CJ,$$RJ)^XLFSTR  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LR REVIEW DATA NAMES  

Entry Points

Name Comments DBIA/ICR reference
CONTROL ;
HEAD ;
LOOK ;
ADVICE ;
PRINT ;
INIT ;
DONE ;
DEVICE ;
QUE ;
CHKPG ;
DQ1 ;

External References

Name Field # of Occurrence
^DIR CHKPG+2
IO^LRWU QUE+5
LRGLIN^LRX ADVICE+3, ADVICE+12
$$CJ^XLFSTR HEAD+3
$$RJ^XLFSTR HEAD+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"I'M EXAMINING YOUR DATA NAMES"
  • Line Location: CONTROL+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CONTROL+3
Function Call: WRITE
  • Prompt: !!,"Now, lets print a list of the BIG'ns.",!!
  • Line Location: CONTROL+4
Function Call: WRITE
  • Prompt: "::"
  • Line Location: LOOK+7
Function Call: WRITE
  • Prompt: ?8,"Review the test set-up of the OFFENDING test(s) and consider"
  • Line Location: ADVICE+4
Function Call: WRITE
  • Prompt: !,?8,"one or more of the following recommendations:"
  • Line Location: ADVICE+5
Function Call: WRITE
  • Prompt: !,?5,"1. Reduce the length of the test name."
  • Line Location: ADVICE+6
Function Call: WRITE
  • Prompt: !,?5,"2. Reduce the length of the test result through the"
  • Line Location: ADVICE+7
Function Call: WRITE
  • Prompt: !,?5," [Modify an existing data name] option."
  • Line Location: ADVICE+8
Function Call: WRITE
  • Prompt: !,?5,"3. If the result is lengthy free text consider replacing the"
  • Line Location: ADVICE+9
Function Call: WRITE
  • Prompt: !,?5," old CH subscript test with a new test in a different"
  • Line Location: ADVICE+10
Function Call: WRITE
  • Prompt: !,?5," subscript area,...to SP for example.",!
  • Line Location: ADVICE+11
Function Call: WRITE
  • Prompt: !,LRIEN,"=",LRNODE,!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("Page "_LRPAGE,IOM),!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("List of Data Names greater than 50 characters.",IOM),!
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPG+3
Routine Call
  • DIR
  • Line Location:
    • CHKPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("LRBIGD" INIT+1!, LOOK+5*, PRINT+7

Label References

Name Line Occurrences
ADVICE HEAD+4
CHKPG PRINT+8
DEVICE CONTROL+5
HEAD PRINT+4, CHKPG+6
LOOK CONTROL+2

Naked Globals

Name Field # of Occurrence
^( PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS DEVICE+2*
DIR INIT+2!, CHKPG+2!
DIR(0 CHKPG+2*
>> DTOUT CHKPG+4
>> DUOUT CHKPG+4
IO PRINT+3, PRINT+6
IOF CONTROL+3, HEAD+1, CHKPG+3
IOM HEAD+2, HEAD+3
IOSL CHKPG+2, CHKPG+6
IOST LOOK+7, CHKPG+2, CHKPG+6
LRCNT DONE+2!, LOOK+2*, LOOK+6*
LRIEN DONE+2!, PRINT+5*, PRINT+7*, PRINT+9
LRNODE DONE+2!, PRINT+7*, PRINT+9
>> LRPAGE PRINT+1*, HEAD+2, CHKPG+6*
LRQ DONE+2!, LOOK+3*, LOOK+4*, LOOK+5
OK DONE+2!, DEVICE+1*, PRINT+2*, CHKPG+1, CHKPG+4*, CHKPG+5
>> ZTDESC QUE+3*
>> ZTRTN QUE+2*
>> ZTSAVE("LR*" QUE+1*
>> ZTSAVE("^TMP(""LRBIGD""" QUE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All