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
Print Page as PDF
Routine: LRARCHIV

Package: Lab Service

Routine: LRARCHIV


Information

LRARCHIV ;SLC/RWF/DAL/HOAK FIRST ROUTINE FOR PATIENT ARCHIVE ; 12/12/96 10:16 ;

Source Information

Source file <LRARCHIV.m>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls