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

Package: Lab Service

Routine: LRTSTJAN


Information

LRTSTJAN ;VA/SLC/RWF,DCN-JAM TESTS ONTO (OR OFF) ACCESSIONS PART2 ;8/11/97

Source Information

Source file <LRTSTJAN.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 6 NEW^LR7OB1  $$VER^LR7OU1  DC^LRCENDE1  ^LRPARAM  (CHG,END,FIX,FX2,SET)^LRTSTOUT  ^LRWU4  
Kernel 2 $$NOW^XLFDT  $$CJ^XLFSTR  
IHS Changes To Lab 1 ^BLREVTQ  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRDELOG  LRNEWSTART  

Entry Points

Name Comments DBIA/ICR reference
NEWSTART ;Set new starting accession #
EN
END
ULK ;Unlock ^LRO(68,
OE ;
US ;ck if units selected
EN1 ;
LRACC
N1
DELOG ;This tag is no longer available - Routine LRTSTOUT replaces this call.

External References

Name Field # of Occurrence
^BLREVTQ EN1+20
^DIR EN1+4
NEW^LR7OB1 OE+3
$$VER^LR7OU1 OE+1
DC^LRCENDE1 OE+1
^LRPARAM EN
CHG^LRTSTOUT EN1+10
END^LRTSTOUT END+4
FIX^LRTSTOUT EN1+3
FX2^LRTSTOUT EN1+11
SET^LRTSTOUT EN1+15
^LRWU4 NEWSTART+3, LRACC
$$NOW^XLFDT EN1+14
$$CJ^XLFSTR DELOG+4, DELOG+5, DELOG+6, DELOG+7, DELOG+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR(" The ability to DELETE an entire ORDER/ACCESSION ",80)
  • Line Location: DELOG+4
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("has been REPLACED. The test(s) will now be marked",80)
  • Line Location: DELOG+5
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("as Not Performed and a reason for 'NP' will be stored",80)
  • Line Location: DELOG+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("with each test. Accession numbers can't be reused",80)
  • Line Location: DELOG+7
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("after it has been assigned to a specimen.",80)
  • Line Location: DELOG+8
Function Call: WRITE
  • Prompt: !?5,"You are not authorized to change test status.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: @IOF,!!,"All accessioned test(s) changed",!!
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !,"Must be whole number between 1 and 999999, accession remains unchanged."
  • Line Location: N1+4
Routine Call
  • DIR
  • Line Location:
    • EN1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] EN1+15
^LR - [#63] EN1+8*, EN1+17, US+1
^LRO(68 - [#68] EN1+14, EN1+16, ULK+1, N1, N1+5*

Label References

Name Line Occurrences
EN1 EN1+3, EN1+5, EN1+10, EN1+11, EN1+22
END EN, EN+1, EN1+3, EN1+11, EN1+22
N1 N1+4
NEWSTART N1, N1+2, N1+6

Naked Globals

Name Field # of Occurrence
^( EN1+14, US+1
^(0 EN1+14, EN1+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A US+1*
AGE END+2!
>> B US+1*
>> BLRLOG EN1+20
>> BLROPT DELOG+2*, EN1+20
>> C US+1*
DA END+2!
DA(1 LRACC*
DA(2 LRACC*
DFN END+2!
DIC END+2!
DIR EN1+4!
DIR("A" EN1+4*
DIR("B" EN1+4*
DIR(0 EN1+4*
>> DIRUT EN1+5
DOB END+2!
DR END+2!
DTIME N1+1
HRCN END+3!
I END+2!, OE+3~
I( OE+3*
IOF DELOG+4, EN1+11, EN1+18
LRAA EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~, N1, N1+5, LRACC
LRACC END!, NEWSTART+1~
LRACD END!
LRACN EN1+20, END!
LRACN0 END!
LRAD EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~, NEWSTART+3, N1, N1+5, LRACC
LRAN EN1+14, EN1+16, END!, ULK+1, NEWSTART+1~
>> LRCM OE+2
LRCOM END!
LRDFN EN1+8, EN1+17, END!, US+1
LRDOC END!
LRDPF END!
LREND EN, EN1+2*, EN1+3, EN1+11, END!, NEWSTART+1~, NEWSTART+2*, LRACC*
LRF END+1!
LRGCOM END!, OE+2
LRI END+1!
LRIDIV END!, NEWSTART+1~
>> LRIDT EN1+8, EN1+17, US+1
LRIFN EN1+1~, EN1+6*, EN1+8*
LRJ END+1!
>> LRLABKY EN+1
LRLL END!
LRMSTATI END+1!, OE+3
LRNATURE EN1+2!, END!, OE+2*, OE+3
LRNEW NEWSTART+1~, N1+1*, N1+2, N1+3!*, N1+4, N1+5
>> LRNOP EN1+2*, EN1+3
>> LRNOW EN1+14*
LROD0 END!
LROD1 END!
LROD3 END!
LRODT END!, OE+3
LROOS END!
LROS END!
LROSD END!
LROT END!
LRPRAC END!
LRRB END!
LRROD END!
LRSAMP END!
LRSCNXB EN+2!
LRSN END!, OE+3
>> LRSS EN1+8, EN1+17
LRTCOM END!
LRTEST END!
>> LRTNM EN1+15*
LRTOTL EN1+1~, EN1+6*, EN1+7, EN1+10
LRTREA END!
>> LRTS OE+1, OE+3
LRTSTN END!
LRTSTS EN1+13~, EN1+14*, EN1+15, END!
LRTT END!
LRWDT1 END!
LRWL1 END!
LRWRD END!
LRX END!, NEWSTART+1~
>> ORIFN OE+1*
PNM END+2!
SEX END+2!
SSN END+2!
U EN1+8, EN1+14, EN1+15, N1+5
VA END+2!
VA200 END+2!
VADM END+2!
VAERR END+2!
VAIN END+2!
X END+2!
X1 END+2!
X2 END+2!
X3 END+2!
X4 END+2!
>> Y EN1+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All