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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRCHIV

Package: Lab Service

Routine: LRCHIV


Information

LRCHIV ; IHS/DIR/FJE - SET UP O("S") VARIABLES FOR ARCHIVE. 2/5/91 12:30 ;

Source Information

Source file <LRCHIV.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 5 ^%DT  C^%DTC  ^DIC  YN^DICN  ^DIE  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Lab Service 3 DFN^LRCHIVE  EN^LRCHIVK  (DD,DEM,STAMP)^LRX  
IHS Changes To Lab 1 $$ISPIMS^BLRUTIL  

Entry Points

Name Comments DBIA/ICR reference
QUIT ;D KILL D ^%ZISC,KVAR^BLRDPT K F1,C1,C2,C3 U IO(0) Q
SEARCH ;
PAT
DQ1
DQ2
EN01 ;
FLAG
EN03 ;
EN02 ;
PURGE ;PURGE DATA FROM ^LR THAT IS IN ^LAR
PRT ;
LST
TAPE
T
CLEAN ;REMOVE ^LAR FOR READ TAPE IN
KILL
DT
DEV
RESTART

External References

Name Field # of Occurrence
^%DT DT
C^%DTC DT+1, FLAG+1
^%ZIS DEV
^%ZISC QUIT+2, KILL+2
^%ZTLOAD T+2, PURGE+5, PRT+2
$$ISPIMS^BLRUTIL QUIT+2
^DIC TAPE
YN^DICN PAT, RESTART+2, CLEAN+2
^DIE DT+2
DFN^LRCHIVE DQ1+3
EN^LRCHIVK DQ2+1
DD^LRX DQ1
DEM^LRX LST+2
STAMP^LRX DQ1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Please finish the Clear and Purge steps first."
  • Line Location: SEARCH+2
Function Call: WRITE
  • Prompt: !,"Do you want a list of patients that will have data archived"
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,"Answering YES to this question will produce a list of patients that will have data archived."
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: @IOF,!,"LAB DATA ARCHIVED for data before ",Y
  • Line Location: DQ1+0
Function Call: WRITE
  • Prompt: ". on"
  • Line Location: DQ1+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LST+0
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !!,PNM," LRDFN # "_LRDFN_" Has Been Deleted from ^LR( ",!,$C(7),"SSN = Unknown",!
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !!,PNM," LRDFN # "_LRDFN_" Has Been Deleted from ^LR( ",!,$C(7),!
  • Line Location: LST+4
Function Call: WRITE
  • Prompt: !,"Searching in progress, please wait for it to finish."
  • Line Location: RESTART+0
Function Call: WRITE
  • Prompt: !,"Continue where the last search stopped."
  • Condition for execution: %=0
  • Line Location: RESTART+2
Function Call: WRITE
  • Prompt: !,"You must create a NEW name for this ARCHIVE."
  • Line Location: TAPE+0
Function Call: WRITE
  • Prompt: !,"OK, lets forget it."
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"I will now CLEAR out the global"
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: !!,"Now read the tape back in to make sure we have a good tape."
  • Line Location: CLEAN+6
Function Call: WRITE
  • Prompt: !,"Then do the PURGE pass."
  • Line Location: CLEAN+7
Function Call: WRITE
  • Prompt: !,"You have not done the clear and reload of the global yet.",$C(7)
  • Line Location: PURGE+2
Function Call: WRITE
  • Prompt: !,"PURGE in progress, or completed. Please let it finish."
  • Line Location: PURGE+3
Function Call: WRITE
  • Prompt: !!,"Not in the right state.",!!
  • Line Location: DQ2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: KILL+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: KILL+0
Routine Call
  • DIE
  • Line Location:
    • DT+2
Routine Call
  • DIC
  • Line Location:
    • TAPE
Routine Call
  • %ZIS
  • Line Location:
    • DEV

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(69.9 - [#69.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("PRIORITY" DQ1
^DD(63.04 DQ1+1
^DD(63.999904 DQ1+1*
^LAB(69.9 - [#69.9] SEARCH+3*, T*, DQ1+3*, RESTART+3, CLEAN+5, DQ2, DQ2+1*, DQ2+3!, FLAG, FLAG+1
^LAR( DQ1+3, RESTART, RESTART+1, CLEAN+3!
^LAR("HRCN" DQ2+3!
^LAR("NAME" LST, DQ2+3!
^LAR("SSN" DQ2+3!
^LAR("Z" - [#63.9999] CLEAN+4*, DQ2+3!*
^LR - [#63] LST+2, LST+4

Label References

Name Line Occurrences
@( QUIT+2
DEV SEARCH+4, RESTART+3, PURGE+4, PRT+1
FLAG SEARCH+1, CLEAN+2, PURGE+1
KILL QUIT+2, PRT+1, PRT+2, PRT+3
LST PRT+3
PAT PAT, RESTART+3
QUIT SEARCH+2, SEARCH+3, SEARCH+4, T+2, RESTART, RESTART+2, RESTART+3, CLEAN+2, PURGE+4, PURGE+5
, DQ2, DQ2+3
RESTART SEARCH+1, RESTART+2
TAPE SEARCH+3, TAPE

Naked Globals

Name Field # of Occurrence
^( DQ1+1
^("LRDFN" RESTART+3
^("TAPE" FLAG
^(0 LST+2, CLEAN+5*, FLAG
^(3 DQ1+1*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PAT*, PAT+1, RESTART+2*, CLEAN+2*
>> %DT DT*
>> %DT("A" DT*
>> %DT("B" DT*
%ZIS DEV*!, PRT+1*
%ZIS("A" DEV*, PRT+1*
C1 DQ1*, QUIT+2!
C2 DQ1*, QUIT+2!
C3 DQ1*, QUIT+2!
>> DA SEARCH+3, TAPE*, DT*, DT+2
>> DFN LST+2*
DIC TAPE*, DT+2!
DIC(0 TAPE*
>> DIE DT+2*
DLAYGO TAPE*!
>> DR DT+2*
F1 SEARCH+1, SEARCH+2, SEARCH+3, QUIT+2!, CLEAN+2, PURGE+2, PURGE+3, FLAG*, FLAG+1
HRCN LST+2, KILL+2!
I T+1*, CLEAN+3*, KILL+2!
IO DQ1
IO("Q" T+1, T+2!, PURGE+5!, PRT+2
IO(0 QUIT+2
IOF DQ1, LST, KILL
IOST KILL
J KILL+2!
L1 DQ1+2!
L2 DQ1+2!
>> LR(1 DQ1, DT+1*, DT+2, FLAG+1*
>> LR(2 DT+1*, FLAG+1*
>> LR(3 DT+1*, FLAG+1*
LRDAT KILL+2!
>> LRDFN SEARCH+4*, LST*, LST+2, LST+4, RESTART+3*
LRDPF LST+2*, KILL+2!
LRIDT KILL+2!
LRPAT PAT+1*, LST, KILL+2!, PRT+2*
LRSS KILL+2!
LRSUB DQ1+1*, KILL+2!
P1 SEARCH+4, T, DQ1+3, DT+2*, CLEAN+5, DQ2, DQ2+1, FLAG*, FLAG+1, KILL+2!
PNM LST*, LST+2~, LST+4, KILL+2!
>> POP SEARCH+4, RESTART+3, PURGE+4, PRT+1
SSN KILL+2!
U T, DQ1+1, DQ1+3, TAPE, CLEAN+5, DQ2, DQ2+1, FLAG*, FLAG+1
X T*, DQ1*, DQ1+2!, DT+1, CLEAN+3*, FLAG+1
X0 DQ1+1*, KILL+2!
X1 DT+1*, FLAG+1*, KILL+2!
X2 DT+1*, FLAG+1*, KILL+2!
X3 DQ1+1*, KILL+2!
Y DQ1*, DQ1+2!, TAPE, DT, DT+1
ZTDESC KILL+2!, PRT+2*
ZTIO KILL+2!
>> ZTQUE KILL+2*
ZTRTN T+1*, PURGE+5*, KILL+2!, PRT+2*
ZTSAVE KILL+2!
ZTSAVE( T+1*
ZTSAVE("F1" PURGE+5*
ZTSAVE("LR(" PURGE+5*
ZTSAVE("LRPAT" PRT+2*
ZTSAVE("P1" PURGE+5*
ZTSK KILL+2!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All