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

Package: Lab Service

Routine: LRCHIVD


Information

LRCHIVD ;SLC/MRH/DALISC/FHS - DEARCHIVE FROM ^LAR TO ^LR ;2/5/91 12:31 ;

Source Information

Source file <LRCHIVD.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
ASK
NPC ;Check to ensure the routine ^LRNPXA has been ran - 'it sets the 'NPC' node
PT
EXIT ;
STOP
TEXT
ALL
CONV ;
EN ;
FIND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This option will restore Laboratory data that has been archived ",!,"This data will again be removed from the ^LR global the next time the",!,"ARCHIVE program runs.",!!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,$C(7),"The LAR global is not on the system. Load it",!,"from where you have it stored and start again."
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!?5,"Checking ^LAR( for New Person Conversion ",!
  • Line Location: NPC+1
Function Call: WRITE
  • Prompt: "."
  • Line Location: NPC+2
Function Call: WRITE
  • Prompt: !!,"You must FIRST run the option",!," 'Convert archived data to use New Person file",!,$C(7)
  • Line Location: NPC+4
Function Call: WRITE
  • Prompt: !!?5,"File appears to have been Converted to New Person.",!!
  • Line Location: NPC+5
Function Call: WRITE
  • Prompt: !,"Do you wish to restore data for ALL patients "
  • Line Location: NPC+6
Function Call: WRITE
  • Prompt: !,$C(7),"No identifier defined for this patient"
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !,$C(7),"NO ARCHIVED DATA EXISTS FOR THIS PATIENT! "
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !,$C(7),"The file entries do not match, I can go no further!"
  • Line Location: PT+5
Function Call: WRITE
  • Prompt: !,$C(7),"DONE FOR THIS PATIENT",!
  • Line Location: PT+10
Function Call: WRITE
  • Prompt: !,$C(7),"ALL DONE !",$C(7)
  • Line Location: EXIT+1
Function Call: WRITE
  • Prompt: !!,"Just answer ""YES"" or ""NO""."
  • Line Location: TEXT+0
Function Call: WRITE
  • Prompt: !,"This may take some time!",!
  • Line Location: ALL+0
Function Call: WRITE
  • Prompt: !,"Would you like to run the conversion option now "
  • Line Location: CONV+1
Function Call: WRITE
  • Prompt: !,"No data archived."
  • Line Location: FIND+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