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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRCAP

Package: Lab Service

Routine: LRCAP


Information

LRCAP ;SLC/CJS- STUFF AMIS/CAP DATA INTO LAM GLOBAL ;9/1/89 15:29 ;

Source Information

Source file <LRCAP.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  
Lab Service 1 A^LRCAP2  

Entry Points

Name Comments DBIA/ICR reference
II
TESTS
NEWCAP
CLEAN
JJ

External References

Name Field # of Occurrence
^DIC II+4
YN^DICN LRCAP+7, NEWCAP+10
A^LRCAP2 II+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Change or exclude any tests from workload reporting"
  • Line Location: LRCAP+7
Function Call: WRITE
  • Prompt: *7,!!,"This accession has already been processed into the AMIS/CAP file.",!,"You will need to use the MANUAL EDIT CAP option to make any changes."
  • Line Location: LRCAP+8
Function Call: WRITE
  • Prompt: @IOF,!,"Listed below are the tests on this accession.",!,"Select the test for which you want to change the AMIS/CAP code."
  • Line Location: NEWCAP+0
Function Call: WRITE
  • Prompt: !!?5,"TEST NAME",!?5,"---------"
  • Line Location: NEWCAP+1
Function Call: WRITE
  • Prompt: @IOF,!,"You have selected the following AMIS/CAP codes for this accession: "
  • Line Location: NEWCAP+7
Function Call: WRITE
  • Prompt: !!?5,"TEST NAME",?30,"AMIS/CAP CODE",!?5,"---------",?30,"-------------"
  • Line Location: NEWCAP+8
Function Call: WRITE
  • Prompt: !?5,II1
  • Line Location: NEWCAP+9
Function Call: WRITE
  • Prompt: !!,"ALL OK"
  • Line Location: NEWCAP+10
Function Call: WRITE
  • Prompt: !?5,$P(^(0),U)
  • Line Location: II+0
Function Call: WRITE
  • Prompt: !!,*7,?5,"There are not any AMIS/CAP for this Order Number",!
  • Line Location: II+1
Function Call: WRITE
  • Prompt: !!,"There are no AMIS/CAP codes setup for this test in file 60.",!,*7
  • Line Location: II+6
Function Call: READ
  • Prompt: "Press return to continue..."
  • Formatting: !
  • Timeout: DTIME
  • Variable: X
  • Line Location: JJ+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: J>1
  • Line Location: JJ+0
Function Call: WRITE
  • Prompt: ?30,$P(^LAM($P(^(JJ,0),U,1),0),U,1)," ",$P(^(0),U,2)
  • Line Location: JJ+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: JJ+0
Routine Call
  • DIC
  • Line Location:
    • II+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LRCAP+3, NEWCAP+9, II, II+2, II+3, II+6
^LAM - [#64] JJ, CLEAN+1
^LR - [#63] LRCAP+2, LRCAP+5
^LRO(68 - [#68] LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ, CLEAN

Label References

Name Line Occurrences
II TESTS, II+6
JJ NEWCAP+9
NEWCAP LRCAP+9, NEWCAP+10
TESTS NEWCAP+5

Naked Globals

Name Field # of Occurrence
^( NEWCAP+9, II, JJ, CLEAN!, CLEAN+1!
^(0 NEWCAP+9, II, JJ

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LRCAP+7*, LRCAP+8, LRCAP+9, LRCAP+10!, NEWCAP+10*
DA TESTS+1!
DA(2 II+2*
DA(3 II+2*
DA(4 II+2*
DIC NEWCAP+5!, TESTS!, TESTS+1!, II+2*
DIC("A" II+4*
DIC("B" II+6!
DIC("S" II+4*
DIC(0 II+2*
DIE TESTS+1!
DR TESTS+1!
DTIME JJ
>> I NEWCAP+2*, NEWCAP+3*, NEWCAP+4*, CLEAN*, CLEAN+1*
II LRCAP+3*, NEWCAP+2*, NEWCAP+9*, TESTS+1!, II*, JJ
II1 NEWCAP+9*, TESTS+1!
IOF NEWCAP, NEWCAP+7, JJ
J NEWCAP+9*, TESTS+1!, JJ*, CLEAN*, CLEAN+1*
JJ TESTS+1!, JJ*
>> K CLEAN*
LRA LRCAP+6!, LRCAP+10!, TESTS+1!
>> LRAA LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRAD LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRAN LRCAP+3, LRCAP+8, NEWCAP+9, II, II+2, JJ
>> LRCAPUD NEWCAP*
>> LRDFN LRCAP+2, LRCAP+5
LRF LRCAP+10!, NEWCAP*, NEWCAP+1*, NEWCAP+4, NEWCAP+5, NEWCAP+6, II+1*, II+4*
LRI LRCAP+10!, TESTS+1!
>> LRIDT LRCAP+2, LRCAP+5
LRIX TESTS+1!
LRJ TESTS+1!
LRLN LRCAP+10!
>> LRM( NEWCAP+3
LRMX NEWCAP+2, NEWCAP+3, NEWCAP+6!, NEWCAP+11!
LRMX( NEWCAP+2*, NEWCAP+3*, NEWCAP+4*
>> LRNAME( NEWCAP+2
LRO TESTS+1!, II+7*
>> LRPARAM LRCAP+2, LRCAP+3
LRR NEWCAP+1!, TESTS+1!
LRSITE LRCAP+10!
>> LRSS LRCAP+2, LRCAP+5
LRSUF LRCAP+10!
LRSY TESTS+1!, II+5*, II+6
LRT LRCAP+10!
>> LRTEST( NEWCAP+4
LRX1 TESTS+1!
LRXXX LRCAP+5*, LRCAP+11!
LRY LRCAP+10!
>> LRZZ NEWCAP+5*, II+6*
U LRCAP+2, LRCAP+3, NEWCAP+4, NEWCAP+9, II, JJ
X LRCAP+5, LRCAP+10!, LRCAP+11*, II+2*, II+3*, JJ*
>> X1 II+2*, II+3
>> Y LRCAP+5*, II+4, II+5
>> Z LRCAP+2*, LRCAP+3*, LRCAP+4, NEWCAP+6, II*, II+1
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All