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

Package: Lab Service

Routine: LRAR04


Information

LRAR04 ; IHS/DIR/AAB - REMOVE OLD DATA FROM PT. FILE 12/12/96 10:16 ; [ 07/22/2002 1:05 PM ]

Source Information

Source file <LRAR04.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Lab Service 3 ^LRAR02  (DQ1,LST,QUIT)^LRARCHIV  (DEM,STAMP)^LRX  
VA Fileman 2 NOW^%DTC  %XY^%RCR  

Entry Points

Name Comments DBIA/ICR reference
CONTROL ;
UPDT ;
PT ;
MOVE ;
; This is where we make the copies to be archived <----------
LAB ;
TEND ;
LAB1 ;
DFN ;
LR ;
CHECKX
QUERY ;
DISPLAY ;
RCC ;

External References

Name Field # of Occurrence
NOW^%DTC QUERY+2, QUERY+5, QUERY+31
%XY^%RCR MOVE+11
^LRAR02 CHECKX+9
DQ1^LRARCHIV LR+1
LST^LRARCHIV LR+19
QUIT^LRARCHIV LR+20
DEM^LRX PT+2
STAMP^LRX TEND+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"My preliminary screening process reveals ",$G(LRQCNT)," LRDFN(s)."
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: LAB+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: TEND+1
Function Call: WRITE
  • Prompt: !!,"The SEARCH process is complete."
  • Line Location: TEND+2
Function Call: WRITE
  • Prompt: !!,$P(LRI/LRJT0*100,".")," Percent of ^LR was searched"
  • Line Location: TEND+3
Function Call: WRITE
  • Prompt: !,"Total patient count: ",LRC2,". Specimen count: ",LRC3,!
  • Line Location: TEND+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAR("NAME" MOVE+17*
^LAR("SSN" MOVE+18*
^LAR("Z" - [#63.9999] MOVE+6*, MOVE+7*, MOVE+15*, MOVE+16*
^LR - [#63] MOVE+5, MOVE+15, QUERY+26, LAB+3, LAB+4, LAB1+4, LAB1+6, LAB1+9, CHECKX+7, UPDT+2
, UPDT+4*, UPDT+5*, RCC+5*
^LR(0 DFN+5, LAB+1
^TMP("LR9" QUERY+2*, QUERY+4!, QUERY+5*, QUERY+20*, QUERY+26*, QUERY+31*, LR+13, LR+14, LR+17
^TMP("LRBAD" LAB1+5*
^TMP("LRNOD" LAB1+10*
^TMP("LRT2" LR+4!, CHECKX+8
^TMP("LRUNV" LAB1+8*

Label References

Name Line Occurrences
CHECKX LAB1+12
DFN QUERY+1
LAB LR+18
LAB1 LAB+8
MOVE CHECKX+12
PT LR+15, LAB1+3
QUERY LR+2
TEND LR+13
UPDT LAB1+1

Naked Globals

Name Field # of Occurrence
^( LR+14
^(0 LAB+4, LAB1+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % QUERY+2, QUERY+5, QUERY+31
>> %X MOVE+8*
>> %Y MOVE+9*
>> DFN LR+14*
>> I UPDT+2*, RCC+4*
>> I1 RCC+5
IOF TEND+1
>> LR(1 DFN+6, QUERY+17
>> LR5 QUERY+29*, QUERY+30
>> LR8 QUERY+24*, QUERY+26, QUERY+27
>> LR9 QUERY+22*, QUERY+25, QUERY+26
>> LRC1 MOVE+14*
>> LRC2 MOVE+14*, TEND+5
>> LRC3 MOVE+19*, TEND+5
>> LRCNT MOVE+5*, MOVE+6, MOVE+7, UPDT+1*, UPDT+2*, UPDT+4, UPDT+5
>> LRDAT LAB1+6*, LAB1+7, LAB1+12, CHECKX, CHECKX+1, RCC+2, RCC+3*, RCC+4*, RCC+5
LRDFN MOVE+5, MOVE+6, MOVE+7, MOVE+15, MOVE+16, MOVE+17, MOVE+18, CONTROL+1*, QUERY+3*, QUERY+19*
, QUERY+22*, QUERY+23, QUERY+24, QUERY+27*, QUERY+29, QUERY+30*, LR+5*, LR+13*, LR+14, LR+17
, LAB+3, LAB+4, LAB1+4, LAB1+5, LAB1+6, LAB1+8, LAB1+9, LAB1+10, CHECKX+7, TEND+5!
, UPDT+2, UPDT+4, UPDT+5, RCC+5
>> LRDPF PT+2, LR+14*, LR+15, LR+16
>> LRDT7 DFN+6*, LAB+4*
>> LREDT QUERY+16, QUERY+18*, QUERY+20, QUERY+25, QUERY+26, LAB+3
>> LRFG CHECKX+1*
>> LRI DFN+4*, LAB+5*, TEND+3
>> LRIDT LR+17*, LAB+2*, LAB+3*, LAB+4, LAB1+1, LAB1+2, LAB1+4, LAB1+5, LAB1+6, LAB1+8
, LAB1+9, LAB1+10, CHECKX+7, RCC+5
>> LRJT0 DFN+5*, TEND+3
>> LRJTX LAB+1*
>> LRMH CHECKX*
>> LRQCNT QUERY+6*, QUERY+28*, DISPLAY+1
>> LRSDTX QUERY+17*, QUERY+20, QUERY+25
>> LRSS MOVE+5, MOVE+6, MOVE+7, LR+18*, LAB+3, LAB+4, LAB1+4, LAB1+5, LAB1+6, LAB1+7
, LAB1+8, LAB1+9, LAB1+10, UPDT+2, UPDT+4, UPDT+5, RCC+5
>> LRV7 QUERY+16*, QUERY+18
>> LRWHICH LR+3*
>> PNM MOVE+17, PT+1*, PT+3*, LAB1+3, LAB1+5, LAB1+8, LAB1+10
>> RC1 LR+15*
>> SSN MOVE+18, PT+1*, PT+3*
>> TEST CHECKX+6*, CHECKX+7*, CHECKX+8
U MOVE+5, DFN+5, QUERY+20, QUERY+26, LR+14, LR+17, LAB+1, LAB1+7, LAB1+12, CHECKX
, CHECKX+1, UPDT+5
>> X UPDT+1*, UPDT+2*, RCC+2*, RCC+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All