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

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 %XY^%RCR  YN^DICN  EN^DIQ  
Lab Service 2 ^LRDPA  ^LRNPXA  

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

External References

Name Field # of Occurrence
%XY^%RCR PT+10, ALL+5
YN^DICN ASK, NPC+6, CONV+1
EN^DIQ FIND+1
^LRDPA PT, FIND
^LRNPXA CONV+3

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAR("SSN" PT+2, PT+3
^LAR("Z" - [#63.9999] ASK+1, NPC+2, NPC+3, PT+4, PT+6, PT+7!, PT+8, PT+9!, PT+10*, ALL
, ALL+1, ALL+2!, ALL+3, ALL+4!
^LR - [#63] PT+5, PT+7, PT+9, PT+10*, ALL+2, ALL+4, ALL+5*, FIND, FIND+1

Label References

Name Line Occurrences
ALL NPC+6
ASK TEXT
CONV NPC+4
EXIT ALL+6
FIND FIND, FIND+2
PT PT+2, PT+5, PT+10
STOP ASK, ASK+1, NPC+6, PT, PT+1, CONV+2, CONV+3
TEXT ASK, NPC+6

Naked Globals

Name Field # of Occurrence
^( NPC+3, PT+2, PT+3
^(0 PT+6*, PT+8*, ALL+1*, ALL+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ASK*, NPC+6*, STOP!, CONV+1*, CONV+2
%X PT+10*, STOP!, ALL+5*
%Y PT+10*, STOP!, ALL+5*
CNT NPC+2*, NPC+4!, STOP!
>> DA FIND*, FIND+1*
DIC PT*, STOP!, FIND!*, FIND+1*
>> DR FIND+1*
>> K FIND+1*
LRCHKSUM PT+4*, PT+5, STOP!
LRCHND PT!, PT+6*, PT+10, STOP!, ALL+1*
LRDFN NPC+2*, NPC+3, NPC+4!, PT+3*, PT+4, PT+5, PT+6, PT+7, PT+8, PT+9
, PT+10, STOP!, ALL*, ALL+1, ALL+2, ALL+3, ALL+4, ALL+5, FIND, FIND+1
LRIDT NPC+3*, NPC+4!, STOP!
LRMIND PT!, PT+8*, PT+10, STOP!, ALL+3*
LRNOP NPC+2, NPC+3*, NPC+4, STOP!
SSN PT+1, PT+2, PT+3, STOP!
SSN(2 PT+2, PT+3
U ASK*, PT+4, PT+6, PT+8, ALL+1, ALL+3
>> Y PT
>> Z PT+10*, ALL+5*
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