Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LRCHIV

Package: Lab Service

Routine: LRCHIV


Information

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

Source Information

Source file <LRCHIV.m>

Entry Points

Name Comments DBIA/ICR reference
EN01 ;
SEARCH ;
PAT
T
DQ1
LST
QUIT
RESTART
TAPE
DT
EN02 ;
CLEAN ;REMOVE ^LAR FOR READ TAPE IN
EN03 ;
PURGE ;PURGE DATA FROM ^LR THAT IS IN ^LAR
DQ2
FLAG
DEV
KILL
PRT ;

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," LRDFN # "_LRDFN_" Has Been Deleted from ^LR( ",!,$C(7),"SSN = Unknown",!
  • Line Location: LST+2
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(69.9 - [#69.9] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call