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

Package: Lab Service

Routine: LRARCHIV


Information

LRARCHIV ; IHS/DIR/AAB - FIRST ROUTINE FOR PATIENT ARCHIVE 12/12/96 10:16 ;

Source Information

Source file <LRARCHIV.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 5 (CLEAN,KILL,PURGE)^LRAR01  SET^LRAR03  (RESTART,TAPE,TIME)^LRAR06  IO^LRWU  (DD,DEM,STAMP)^LRX  
VA Fileman 3 ^%DTC  YN^DICN  ^DIR  
IHS Changes To Lab 1 $$ISPIMS^BLRUTIL  
Kernel 1 ($$CJ,$$RJ)^XLFSTR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LRAR ARCHIVE CLEAR  LRAR ARCHIVE PURGE  LRAR ARCHIVE SEARCH  LRAR01  LRAR04  LRAR06  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;
SEARCH ;
PAT ;
; Entry for testing--------------------->
STEPOUT ;
AROUND
LRSUB1
PROCESS ;
QUE ;
PURGE ;
LST ;
QUES
LISTS ;
HEAD ;
INIT ;
END ;
T ;
CLEAN ;
DEVICE ;
MEET ;
CHKPG ;
DQ1 ;

External References

Name Field # of Occurrence
^%DTC DQ1+9
$$ISPIMS^BLRUTIL QUIT+4
YN^DICN MEET+10
^DIR LISTS+5, CHKPG+2
CLEAN^LRAR01 CLEAN+1
KILL^LRAR01 QUIT+4
PURGE^LRAR01 PURGE+1
SET^LRAR03 PROCESS+7
RESTART^LRAR06 SEARCH+23
TAPE^LRAR06 SEARCH+28, MEET+3
TIME^LRAR06 DQ1+8
IO^LRWU QUE+4
DD^LRX DQ1+5
DEM^LRX LST+12
STAMP^LRX DQ1+7
$$CJ^XLFSTR AROUND+2
$$RJ^XLFSTR HEAD+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please finish the Clear and Purge steps first."
  • Line Location: SEARCH+26
Function Call: WRITE
  • Prompt: @IOF,!!,"Welcome to The Search Option for the New Archive Modual",!
  • Line Location: MEET+1
Function Call: WRITE
  • Prompt: !,"A file entry IS NOT present"
  • Line Location: MEET+4
Function Call: WRITE
  • Prompt: !,"Shall I prepare a list of patients that will have data archived"
  • Line Location: MEET+9
Function Call: WRITE
  • Prompt: !,"Answering YES to this question will produce"
  • Line Location: QUES+0
Function Call: WRITE
  • Prompt: "a list of patients that will have data archived."
  • Line Location: QUES+1
Function Call: WRITE
  • Prompt: !,"Tape name not defined. Please start again."
  • Line Location: T+1
Function Call: WRITE
  • Prompt: @IOF,!,"LAB DATA ARCHIVE for data before ",Y
  • Line Location: DQ1+6
Function Call: WRITE
  • Prompt: ". on "
  • Line Location: DQ1+7
Function Call: WRITE
  • Prompt: !!,"Number of Days To be searched: ",X
  • Line Location: DQ1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: !!,PNM," LRDFN # "_LRDFN_" Has Been Deleted from ^LR( ",!,$C(7),"SSN = Unknown",!
  • Line Location: LST+14
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: AROUND+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR($S(LRQ["LRBAD":"Entries with bad Data",LRQ["LRUNV":"Entries that were not verified",1:"Entries with no data"),IOM),!!
  • Line Location: AROUND+2
Function Call: WRITE
  • Prompt: !,@LRQ
  • Line Location: AROUND+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHKPG+3
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR("Page "_LRPAGE,IOM),!
  • Line Location: HEAD+1
Routine Call
  • DIR
  • Line Location:
    • LISTS+5
    • CHKPG+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("PRIORITY" DQ1+7
^DD(63.04 LRSUB1+1, LRSUB1+2, LRSUB1+3
^DD(63.999904 LRSUB1+2, LRSUB1+4*, LRSUB1+5*
^LAB(69.9 - [#69.9] SEARCH+28*, T+4*, T+5*, QUIT+8*
^LAR("DHZ" PROCESS+3!
^LAR("NAME" LST+6, LST+8
^LR - [#63] LST+9, LST+11, LST+13
^TMP("LRBAD" INIT+4!, QUIT+10!
^TMP("LRNOD" INIT+4!, QUIT+10!
^TMP("LRT2" PROCESS+5!
^TMP("LRUNV" INIT+4!, QUIT+10!

Label References

Name Line Occurrences
@( QUIT+4
AROUND LISTS+2, LISTS+3
CHKPG LST+12, AROUND+3
DEVICE T+8
END SEARCH+24, MEET+3
HEAD LST+5, CHKPG+6
LRSUB1 T+8
MEET SEARCH+22
PAT QUES
QUIT SEARCH+26, SEARCH+30, END+1

Naked Globals

Name Field # of Occurrence
^(3 LRSUB1+3, LRSUB1+4*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % MEET+10*, QUES, QUES+3
>> %ZIS DEVICE+1*
>> DA SEARCH+30
>> DFN LST+11*
DIR CHKPG+2!
DIR(0 LISTS+5*, CHKPG+2*
>> DTOUT CHKPG+4
>> DUOUT CHKPG+4
F1 SEARCH+22, SEARCH+23, SEARCH+26, SEARCH+28, QUIT+4!
IO DQ1+3, LST+3
IO(0 QUIT+4
IOF MEET+1, DQ1+6, LST+1, AROUND+1, CHKPG+3
IOM AROUND+2, HEAD+1
IOSL CHKPG+2, CHKPG+6
IOST LISTS+3, LISTS+5, CHKPG+2, CHKPG+6
L1 LRSUB1+6!
L2 LRSUB1+6!
>> LR(1 DQ1+4, DQ1+9
LRC1 DQ1+4*, QUIT+4!
LRC2 DQ1+4*, QUIT+4!
LRC3 DQ1+4*, QUIT+4!
>> LRDFN LST+7*, LST+8*, LST+9, LST+11, LST+13, LST+14
>> LRDPF LST+9*
>> LREDT3 DQ1+8, DQ1+9
LRI DQ1+2!
>> LRP1 T+7*, QUIT+8
>> LRPAGE LST+4*, CHKPG+6*, HEAD+1
>> LRPAT QUES+3*, LST+6
>> LRQ AROUND*, AROUND+2, AROUND+3*
>> LRSUB LRSUB1*, LRSUB1+1*, LRSUB1+2, LRSUB1+3, LRSUB1+4, LRSUB1+5
>> LRX0 LRSUB1+3*, LRSUB1+4, LRSUB1+5
>> LRX3 LRSUB1+3*, LRSUB1+4
OK SEARCH+1*, SEARCH+23*, SEARCH+24, MEET+3*, DQ1+2!, LST+2*, LST+8, LST+10, LST+12, LISTS+2*
, LISTS+4*, AROUND+3, CHKPG+1, CHKPG+4*, CHKPG+5
>> P1 SEARCH+30, MEET+3, T+1, T+4, T+5, T+7
PNM LST+6*, LST+8, LST+9~, LST+12, LST+14
>> SSN LST+12
U T+5, LRSUB1+5, QUIT+8
X T+6*, DQ1+7*, DQ1+10, LRSUB1+6!
>> X1 DQ1+9*
>> X2 DQ1+9*
Y DQ1+4*, DQ1+6, LRSUB1+6!
>> ZTDESC QUE+1*
>> ZTRTN QUE+1*
>> ZTSAVE("LR*" QUE+1*, QUE+2*
>> ZTSAVE("^TMP(""LR9""" QUE+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All