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

Package: Lab Service

Routine: LRTSTJAM


Information

LRTSTJAM ;DALOI/STAFF - JAM TESTS ONTO (OR OFF) ACCESSIONS ;10/25/11 12:29

Source Information

Source file <LRTSTJAM.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 9 $$CHKINP^LRBEBA4  NEW^LROR6  EN^LRPARAM  ($$ORDTYP,COMPTST,EXPLD)^LRTSTJM1  LRACC^LRTSTOUT  EN^LRTSTSET  $$NLT^LRVER1  ^LRWLST2  
PT^LRX  
VA FileMan 2 ^DIC  YN^DICN  
Automated Lab Instruments 1 EN^LA7ADL  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRADD TO ACC  LRHYDEL  LRTSTOUT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ADD ; I $G(LRAA),$G(LRAD),$G(LRAN) L -^LRO(68,LRAA,1,LRAD,1,LRAN)
ADD1 ;
; If test added then check for automatic downloading
LRTSP ;
ADDTST ;
ADDURG ;
SETTST ;
; LRORDTYP=1(add)/2(reflex)^file #64.061 ien for code^if reflex parent test^if reflex parent NLT^
IDENT ;D LRACC^LRTSTOUT Q:LREND
FXID ;
END ;
CHK ; from LRTSTJAN
CHK1 ;
UNLOCK ;

External References

Name Field # of Occurrence
^DIC LRTSP+4, ADDTST+3, ADDURG+2
YN^DICN ADDTST+6, ADDTST+17, ADDURG+4
EN^LA7ADL ADD1+2
$$CHKINP^LRBEBA4 SETTST+9
NEW^LROR6 ADD1+16
EN^LRPARAM ADD+2
$$ORDTYP^LRTSTJM1 SETTST+2
COMPTST^LRTSTJM1 ADDTST+25
EXPLD^LRTSTJM1 ADDTST+12, ADDTST+24
LRACC^LRTSTOUT ADD1+4, FXID+1
EN^LRTSTSET SETTST+10
$$NLT^LRVER1 SETTST+8
^LRWLST2 FXID+2
PT^LRX ADD1+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"This is not a valid Accession number ",!,$C(7)
  • Line Location: ADD1+8
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry ",!,$C(7)
  • Line Location: ADD1+11
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: ADD1+13
Function Call: WRITE
  • Prompt: !!,"...process aborted",$C(7)
  • Line Location: ADD1+16
Function Call: WRITE
  • Prompt: !,"TESTS ALREADY ON THE ACCESSION: "
  • Line Location: ADD1+18
Function Call: WRITE
  • Prompt: !,?5,$P(^LAB(60,I,0),U,1)
  • Line Location: ADD1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: LRTSP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LRTSP+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LRTSP+6
Function Call: WRITE
  • Prompt: !," ...OK"
  • Line Location: ADDTST+6
Function Call: WRITE
  • Prompt: !,"The accession already has this test."
  • Line Location: ADDTST+11
Function Call: WRITE
  • Prompt: !,"The accession already has this test."
  • Line Location: ADDTST+12
Function Call: WRITE
  • Prompt: !,"That test normally belongs to accession area ",$P(^LRO(68,J,0),U),",",!,"are you sure"
  • Line Location: ADDTST+16
Function Call: WRITE
  • Prompt: !,"URGENCY must be defined. Test not added."
  • Line Location: ADDURG+3
Function Call: WRITE
  • Prompt: !," ...OK"
  • Line Location: ADDURG+4
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: FXID+4
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: FXID+4
Function Call: WRITE
  • Prompt: !,$C(7),"CAN'T DO IT. The data has been approved for that log number."
  • Line Location: CHK+1
Routine Call
  • DIC
  • Line Location:
    • LRTSP+4
    • ADDTST+3
    • ADDURG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] ADD1+20, ADDTST+13, ADDTST+14, ADDTST+19, ADDTST+20, ADDTST+27
^LR - [#63] ADD1+13
^LRO(68 - [#68] ADD1+2, ADD1+8, ADD1+10, ADD1+13, ADD1+20, LRTSP+2, ADDTST+11, ADDTST+16, SETTST+6, FXID+2
, END+1, CHK1+1, CHK1+3, UNLOCK+1
^LRO(69 - [#69] CHK1+2
^XUSEC("LRSUPER" ADDTST+2

Label References

Name Line Occurrences
% %
ADD1 ADD+11, ADD+14
ADDTST ADD+15
ADDURG ADDURG+5
CHK1 CHK+1
END ADD+3, ADD+17
FXID FXID+2
SETTST ADDTST+28
UNLOCK ADD+14

Naked Globals

Name Field # of Occurrence
^( CHK1+3
^(0 ADD1+13, CHK1+3
^(3 CHK1+1, CHK1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ADDTST+6*, ADDTST+8, ADDTST+9, ADDTST+17*, ADDTST+18, ADDURG+4*, ADDURG+5, ADDURG+6, %*, END+2!
%DT END+3!
%H END+3!
%X END+3!
%Y END+3!
A END+2!
AGE END+2!
D END+4!
D0 END+4!
D1 END+4!
DA LRTSP+1!*, LRTSP+4!, END+3!
DA(1 LRTSP+1*, FXID+2
DD END+2!
DFN ADD1+13*, END+2!
DIC LRTSP+1!, LRTSP+3*, LRTSP+4!, ADDTST+1*, ADDURG+1*, END+2!
DIC("A" LRTSP+1*, ADDTST+1*, ADDTST+4!
DIC("B" ADDURG+1*, ADDURG+2!, SETTST+11!
DIC("S" LRTSP+2*, ADDTST+2*, ADDTST+4!
DIC(0 LRTSP+3*, ADDTST+1*
DIE END+2!
>> DILOCKTM ADD1+10
DN END+4!
DO END+2!
DOB END+2!
DR END+2!
DTIME %
DUZ ADDTST+2
DUZ(2 ADDTST+13, ADDTST+14
I ADD1+19*, ADD1+20*, ADDTST+11*, ADDTST+13, ADDTST+14, ADDTST+27, END+2!
J ADDTST+14*, ADDTST+15, ADDTST+16, END+3!
K END+2!
LRAA ADD1+2, ADD1+8, ADD1+10, ADD1+13, ADD1+20, LRTSP+2, ADDTST+11, ADDTST+15, SETTST+6, FXID+2
, END+1, END+2!, UNLOCK+1
LRACC ADD+1~, ADD1+4*, ADD1+5!, FXID+1*!
LRACD END+2!
LRAD ADD1+2, ADD1+8, ADD1+10, ADD1+13, ADD1+20, LRTSP+2, ADDTST+11, SETTST+6, END+1, END+2!
, UNLOCK+1
LRADD1 ADD+1~, ADD+13, ADD+14!, ADD+15!, ADD1+8*, ADD1+11*, ADD1+16*, LRTSP+5*, ADDTST+5*, ADDTST+9*
, ADDTST+13, ADDTST+18*, ADDURG+6*, SETTST+3*
LRADDTST ADD+1~, ADD+13, ADD+14!, ADD+15!, ADDTST+8*, ADDTST+11*, ADDTST+12*, ADDTST+19, ADDTST+26*, ADDURG+3*
, SETTST+13*
LRADL ADD+1~, ADD+5*, ADD1+2*
LRAN ADD1+2, ADD1+6, ADD1+8, ADD1+10, ADD1+13, ADD1+20, LRTSP+2, ADDTST+11, SETTST+6, FXID+1
, END+1, END+2!, CHK1+1, CHK1+3, UNLOCK+1
LRAODT ADD1+13*, END+4!
LRBED END+3!
LRBERF SETTST+9*, END+5!
LRBETN END+5!
LRCCOM END+2!
LRCS END+3!
LRCSS END+3!
LRDATE END+4!
LRDFN ADD1+13*, SETTST+9, END+2!
LRDPF ADD1+13*, ADD1+16, SETTST+9, END+2!
LRDTM END+3!
LRDTO END+3!
LREND END+2!, CHK+1, CHK1+1*, CHK1+2*, CHK1+3*
LREXTFLG ADD+1~, ADD+13, ADD1+6*
LRFLG ADDTST+27*, ADDURG+7*, END+4!
LRGVP END+3!
LRIDENT END+3!
LRIDT END+2!
LRIOZERO END+3!
LRLLOC END+3!
LRLWC END+3!
LRNATURE ADD+1~, ADD1+5!, ADD1+16!
LRNOP END+3!
LRODT ADD1+13*, LRTSP+1, LRTSP+3, SETTST+9, END+2!, CHK1+2
LRONE END+3!
LRORD END+3!
LRORDTIM END+3!
LRORDTST SETTST+5~, SETTST+6*, SETTST+7*, SETTST+8
LRORDTYP ADD+1~, SETTST+2*, SETTST+3, SETTST+4, SETTST+8*, SETTST+9
LROWLE END+3!
LRPARAM ADD+2!, ADD+3
LRPR END+3!
LRRB END+4!
LRSAMP END+4!
LRSN ADD1+13*, LRTSP+1, LRTSP+3, END+2!, CHK1+2
LRSS SETTST+9, END+2!
LRTNM END+2!
LRTP END+3!
LRTREA END+4!
LRTS ADDTST+11*, ADDTST+12, ADDTST+19, ADDTST+20, ADDTST+22, END+2!
LRTSAD ADD+1~, ADD1+5!, END+4!
LRTSAD(1 ADD1+20*, ADDTST+12
LRTSAD(2 ADDTST+21!, ADDTST+22*, SETTST+12
LRTSN END+3!
LRTSP LRTSP+6*, SETTST+6, SETTST+7, END+4!
>> LRTST CHK1+3*
LRTSUB ADDTST+12*, ADDTST+23*, ADDTST+26, END+4!
>> LRTSURG ADDTST+20*
LRUR END+3!
LRURG ADDTST+27*, ADDTST+28, ADDURG+7*, END+5!
LRUSNM END+2!, END+3!
LRWDT1 FXID+2*, END+3!, CHK1+1, CHK1+3
>> LRWL1 CHK1+1, CHK1+3
LRWRD END+2!
LRX END+5!
LRXD END+3!
PNM ADD1+13, END+2!
POP END+3!
SEX END+2!
SSN ADD1+13, END+2!
T END+3!
U ADD1+8, ADD1+13, ADD1+20, LRTSP+2, LRTSP+6, ADDTST+14, ADDTST+16, ADDTST+20, ADDTST+27, SETTST+6
, CHK1+1, CHK1+2, CHK1+3
VA END+5!
X ADD1+13*, END+2!
Y LRTSP+5, LRTSP+6, ADDTST+5, ADDTST+11, ADDTST+27*, ADDURG+3, ADDURG+7, END+2!
Z END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All