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

Package: Lab Service

Routine: LRACM3


Information

LRACM3 ; IHS/DIR/AAB - REPRINT/INITIALIZE PATIENT CUM REPORT 6/12/89 16:21 ; [ 07/22/2002 12:30 PM ]

Source Information

Source file <LRACM3.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Lab Service 8 (MICRO,PAT)^LRAC1  LRCALE^LRAC2  ENT^LRAC3  (END,LOAD,MSG)^LRACM  (A,ASK)^LRACM1  ^LRDPA  LOC^LRWU  ($$Y2K,PT)^LRX  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
A ;
PAT
TIRE
EN02 ;
LRIDT
LRSB
LOOP
DQ

External References

Name Field # of Occurrence
^%DT TIRE+3
^%ZIS LOOP+5
^%ZISC LOOP+6, DQ+3
^%ZTLOAD LOOP+6
MICRO^LRAC1 DQ+2
PAT^LRAC1 DQ+1
LRCALE^LRAC2 DQ+2
ENT^LRAC3 DQ+2
END^LRACM PAT+1, DQ+3
LOAD^LRACM DQ
MSG^LRACM PAT
A^LRACM1 PAT
ASK^LRACM1 PAT+1
^LRDPA LOOP
LOC^LRWU LOOP+1
$$Y2K^LRX TIRE+2
PT^LRX DQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"NO DATA IN CUMULATIVE FILE FOR THIS PATIENT!!!"
  • Line Location: LOOP+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DQ+3
Function Call: WRITE
  • Prompt: !!?10,$C(7),"** THIS PRINT-OUT MUST BE CHARTED!!! **",!
  • Line Location: TIRE+0
Function Call: WRITE
  • Prompt: ":"
  • Line Location: LRIDT+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: LRSB+0
Routine Call
  • %ZIS
  • Line Location:
    • LOOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAC( LOOP, A+1!
^LAC("LGOT" A+1!
^LR - [#63] A+1!, LRIDT, LRIDT+1, LRSB
^LRO(68 - [#68] TIRE+1, A+1!, LRIDT+1, LRSB

Label References

Name Line Occurrences
A DQ+1
LOOP PAT+1
LRSB LRIDT
TIRE LOOP+4

Naked Globals

Name Field # of Occurrence
^( LRIDT*, LRIDT+1*, LRSB*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT TIRE+3*!
%DT("A" TIRE+3*
>> %ZIS LOOP+5*
DIC LOOP!
DTIME LOOP+3
>> I TIRE+1*
IO LOOP+7
IO("Q" LOOP+5!, LOOP+6!
IOF DQ+3
>> J TIRE*, TIRE+1*, TIRE+2*
LRAC DQ+3!
>> LRDFN LOOP, TIRE+1, A+1, LRIDT, LRIDT+1, LRSB
LREN DQ+3!
>> LREND LOOP+2
>> LRIDT DQ*, LRIDT*, LRIDT+1*, LRSB
>> LRNM LOOP*
>> LRNOT PAT
LRPAT LOOP*, DQ+3!
LRRE PAT+1*, DQ+3!, A+1*
>> LRSB LRIDT+1*, LRSB*
>> LRTI LOOP+3*, LOOP+4*, DQ+1, DQ+2
>> LRXDT TIRE+3*, LRIDT, LRIDT+1
>> LRXLR LOOP, A+1
>> PNM LOOP
>> POP LOOP+5
U LRIDT
>> Y LOOP+4, TIRE+3
ZTDESC LOOP+6!
ZTIO LOOP+6!
>> ZTREQ DQ+3*
ZTRTN LOOP+6*!
ZTSAVE LOOP+6!
ZTSAVE("D*" LOOP+6*
ZTSAVE("LR*" LOOP+6*
ZTSAVE("S*" LOOP+6*
ZTSAVE("U" LOOP+6*
ZTSK LOOP+6!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All