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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRMILL

Package: Lab Service

Routine: LRMILL


Information

LRMILL ;SLC/DLG - BUILD LOAD LIST FOR MICROSCAN ;4/4/89 21:38 ;

Source Information

Source file <LRMILL.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 GROUP^LRWU2  ^LRWU4  (DT,PT)^LRX  
VA FileMan 2 ^DIC  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
INSERT ;Add a sample to next cup
IN2
IN5
IN7
NOPE
FINISH
END
LRINST ;Get loadlist data
SETONE ;Set tests into cup and update accession
MV2
WHATEST ;
SHOW ;Show the patient

External References

Name Field # of Occurrence
^DIC LRINST+2
^DIE SETONE+3
GROUP^LRWU2 WHATEST+4
^LRWU4 INSERT+2
DT^LRX LRINST+1
PT^LRX SHOW+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select only from the ",$P(^LRO(68,LRDAA,0),U)," accession area"
  • Line Location: INSERT+1
Function Call: WRITE
  • Prompt: !,"Sorry but this accession is in the wrong group"
  • Line Location: INSERT+2
Function Call: WRITE
  • Prompt: !!," >> ADDED <<"
  • Line Location: IN5+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Next Accession NUMBER: "
  • Variable: LRAN
  • Timeout: DTIME
  • Line Location: IN7+0
Function Call: WRITE
  • Prompt: !,"Enter just the number part of the accession"
  • Line Location: IN7+1
Function Call: WRITE
  • Prompt: !,$C(7),"This accesion doesn't exist"
  • Line Location: IN7+2
Function Call: WRITE
  • Prompt: !," OPERATION NOT COMPLETE"
  • Line Location: NOPE+0
Function Call: WRITE
  • Prompt: !,"Load list is busy now, Please try later."
  • Line Location: LRINST+3
Function Call: WRITE
  • Prompt: !,"NO TESTS FREE TO ADD"
  • Line Location: WHATEST+3
Function Call: WRITE
  • Prompt: !,PNM,?40,SSN
  • Line Location: SHOW+2
Routine Call
  • DIC
  • Line Location:
    • LRINST+2
Routine Call
  • DIE
  • Line Location:
    • SETONE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LRO(68.2 - [#68.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(62.07 - [#62.07] LRINST+6
^LR - [#63] SHOW+1
^LRO(68 - [#68] INSERT+1, IN7, MV2*, WHATEST+1, WHATEST+2, SHOW+1
^LRO(68.2 - [#68.2] IN5, FINISH*, LRINST+2, LRINST+3, LRINST+4*, LRINST+5, LRINST+7, LRINST+8*, SETONE+1*, MV2*
^TMP("LR" LRINST+1!

Label References

Name Line Occurrences
END INSERT+1
FINISH INSERT+2, IN2, IN7
IN2 INSERT+2, IN7
IN7 IN2, IN7+1, IN7+2
LRINST INSERT+1
MV2 SETONE+2
SETONE IN5+1
SHOW IN2
WHATEST IN2

Naked Globals

Name Field # of Occurrence
^( LRINST+6, LRINST+8*, WHATEST+2
^(0 IN5*, LRINST+7, WHATEST+1, WHATEST+2, SHOW+1
^(2 FINISH*, LRINST+5
^(3 LRINST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END!
A END!
AGE END+1!
D END+1!
>> DA SETONE+3*
>> DA(1 SETONE+3*
>> DA(2 SETONE+3*
DFN END+1!, SHOW+2*
DIC END!, LRINST+1!, LRINST+2*
DIC(0 LRINST+2*
>> DIE SETONE+3*
DOB END+1!
>> DR SETONE+3*
DT LRINST+1, LRINST+8
DTIME IN7
DUZ LRINST+8
G END+1!
>> G1 WHATEST+4*
G2 WHATEST+2!*, WHATEST+3!
G2( SETONE+2, WHATEST+2*
>> G4 WHATEST+4*
I END!, SETONE+2*, WHATEST+2*
K END+1!
LRAA INSERT+2, IN7, END!, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRACC INSERT+2*!
LRAD IN7, END!, LRINST+1*, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRAN INSERT+2, IN7*, IN7+1, END+1!, SETONE+1, MV2, WHATEST+1, WHATEST+2, SHOW+1
LRCUP FINISH, END!, LRINST+5*, SETONE+1, SETONE+3, MV2
LRDAA INSERT+1, INSERT+2, END!, LRINST+7*, LRINST+8
LRDFN END!, SHOW+1*
LRDPF END!, SHOW+2*
LREXEC END+1!
LRFULL END!, LRINST+5*
LRHOLD LRINST+1!
LRINST INSERT+1, IN5, FINISH, END!, LRINST+2*, LRINST+3*, LRINST+4, LRINST+5, LRINST+7, LRINST+8
, SETONE+1, SETONE+3, MV2
LRINSTIT END!, LRINST+5*, LRINST+6*
LRIX END!, SETONE+2*, MV2
LRLLOC END+1!
LRMAXCUP END!, LRINST+5*
LRPROF END!
>> LRSPEC SETONE+1, WHATEST+1*
LRTRANS IN5, END!, LRINST+5*, LRINST+6*
LRTRAY IN5, FINISH, END!, LRINST+5*, LRINST+7*, LRINST+8, SETONE+1, SETONE+3, MV2
LRTSTS END!, LRINST+1!
LRTX END!, SETONE+2*, MV2
LRTYPE END!, LRINST+5*, LRINST+7
LRWPROF END!, LRINST+7*, SETONE+1
LRWRD END!
PNM END+1!, SHOW+2
SEX END+1!
SSN END+1!, SHOW+2
T END+1!
U INSERT+1, IN2, FINISH, LRINST+1*, LRINST+3, LRINST+4, LRINST+5, LRINST+7, LRINST+8, SETONE+1
, MV2, WHATEST+2, SHOW+2
X IN2, END!, WHATEST+2!, SHOW+1*, SHOW+2
X( SETONE+2
X9 END+1!
Y END!, LRINST+2
Y(0 LRINST+5
Y(2 LRINST+5*
Z END!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All