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

Package: Lab Service

Routine: LRACM1


Information

LRACM1 ; IHS/DIR/AAB - MENU FOR CUMULATIVE REPORTS CONT. 2/20/91 08:36 ; [ 07/22/2002 12:29 PM ]

Source Information

Source file <LRACM1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Lab Service 3 ENT^LRAC1  (END,MSG)^LRACM  ($$Y2K,DT)^LRX  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LRACM  LRACM3  

Entry Points

Name Comments DBIA/ICR reference
END1
A ;from LRACM, LRACM3
LRLOCA
END
NUM1
N
DIC1
NUM
EN ;
ASK ;from LRACM, LRACM3
N1
DIC
LOOP

External References

Name Field # of Occurrence
^%DT ASK+1
^%ZIS NUM1+4
^%ZISC NUM1+4
^%ZTLOAD NUM1+4
ENT^LRAC1 END1+1
END^LRACM END, END1+2
MSG^LRACM END
$$Y2K^LRX DIC, DIC1+3, ASK+1, ASK+3
DT^LRX ASK+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"NO DATA IN THE CROSS-REFERENCE FOR THIS LOCATION!"
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: I_"."_" ",$P(^TMP($J,"LRIF",I),U,1)
  • Line Location: N+0
Function Call: READ
  • Prompt: "Start with patient #: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: NUM+0
Function Call: WRITE
  • Prompt: $C(7),!!,"NO DATA IN THE CROSS-REFERENCE FOR THIS LOCATION!"
  • Line Location: LRLOCA+1
Function Call: WRITE
  • Prompt: I_"."_" ",$P(^TMP($J,"LRIF",I),U,1)
  • Line Location: N1+0
Function Call: READ
  • Prompt: "End with patient #: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: NUM1+0
Function Call: WRITE
  • Prompt: I_"."_" ",L
  • Line Location: DIC+0
Function Call: WRITE
  • Prompt: " is empty."
  • Line Location: DIC+1
Function Call: READ
  • Prompt: "LOCATION #: "
  • Timeout: DTIME
  • Variable: X
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,$C(7),"LOCATION NOT DEFINED!"
  • Line Location: DIC+3
Function Call: WRITE
  • Prompt: !!,"Last run: ",Y
  • Line Location: DIC1+3
Function Call: WRITE
  • Prompt: !,"DO NOT try to reprint reports that have not finished!",!
  • Line Location: A+3
Function Call: WRITE
  • Prompt: !!,"Last run: ",Y
  • Line Location: ASK+3
Routine Call
  • %ZIS
  • Line Location:
    • NUM1+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.5 - [#64.5] DIC1+3, A+2, ASK+1, ASK+3
^LRO(69 - [#69] LOOP+1, LOOP+3, NUM+1, LRLOCA+1, LRLOCA+3, DIC
^TMP($J LOOP+2!, LOOP+3*, N, NUM, LRLOCA+3*, N1, NUM1

Label References

Name Line Occurrences
A END
ASK LOOP
DIC LOOP+1, LRLOCA, DIC+2, DIC+3
LOOP END
N NUM
N1 LRLOCA+2, NUM1
NUM NUM
NUM1 NUM1

Naked Globals

Name Field # of Occurrence
^( LOOP+3, LRLOCA+3, A+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT ASK+1*
>> %ZIS NUM1+4*
DIC DIC1!
DIC("A" LOOP+1*, LRLOCA*, DIC+2
DT DIC1+2, ASK+1, ASK+2
DTIME NUM, NUM1, DIC+2
>> I N*, NUM+1*, N1*, DIC*, DIC+2
IO NUM1+5
IO("Q" NUM1+4!
>> K NUM+1*
>> L DIC*, DIC+1
>> L( LOOP+2, LRLOCA, DIC*, DIC+3, DIC+4
LRAC END1+2!
>> LRBOT ASK+1*
>> LRCDT ASK+1*
>> LRDFN LOOP+3*, LRLOCA+3*, NUM1+3*
>> LRDT LOOP+1, LOOP+3, NUM+1, LRLOCA+1, LRLOCA+3, DIC, ASK+1*
LREN NUM+1*, LRLOCA+2!, END1+2!
>> LRIF LOOP+2*, LOOP+3*, N, NUM, LRLOCA+2*, LRLOCA+3*, N1, NUM1
LRIG A+2*, A+4!
>> LRLLOC LOOP+1, LOOP+3, NUM, LRLOCA, LRLOCA+1, LRLOCA+2, LRLOCA+3, NUM1, NUM1+1, NUM1+2*
, NUM1+3*, DIC*, DIC+4*
LRLOCA LRLOCA*, LRLOCA+2, NUM1+1, NUM1+2*, NUM1+3, END1+2!
LRLOCB NUM1+3*, END1+2!
>> LRNM NUM*, NUM1+1*, NUM1+2*
LRNMA NUM1*, NUM1+1*, NUM1+2*, END1+2!
>> LRNOT END, A+1*, A+2*, A+3
>> LRPERM ASK+1*
>> LRPPT LOOP+2*, LOOP+3*, LRLOCA+2*, LRLOCA+3*
LRRE LOOP*, END1+2!, DIC1+2*, ASK+2*
>> LRSUB NUM1+3*
LRTRUE END1*, END1+2!
>> LRXLR ASK+1*
>> LRYDT DIC1+2*, ASK+2*
>> POP NUM1+4
U LOOP+3, N, NUM, LRLOCA+3, N1, NUM1, DIC1+3, A+2, ASK+1, ASK+3
>> X LOOP+2, NUM*, LRLOCA, NUM1*, NUM1+1*, NUM1+2*, DIC+2*, DIC+3, DIC+4, ASK+1*
X1 LOOP!, LOOP+2*, LRLOCA!, NUM1+2
X2 NUM*, NUM1+1, END1!, A+4!
>> Y DIC*, DIC1+3*, ASK+1*, ASK+3*
ZTDESC NUM1+4!
ZTIO NUM1+4!
>> ZTQUEUED END1
>> ZTREQ END1*
ZTRTN NUM1+4*!
ZTSAVE NUM1+4!
ZTSAVE("DT" NUM1+4*
ZTSAVE("DUZ" NUM1+4*
ZTSAVE("LR*" NUM1+4*
ZTSAVE("U" NUM1+4*
ZTSK NUM1+4!, DIC1+2!, ASK+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All