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 ; IHS/DIR/FJE - DEARCHIVE FROM ^LAR TO ^LR 2/5/91 12:31 ;

Source Information

Source file <LRCHIVD.m>

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
ALL
EN ;
CONV ;
PT
TEXT
STOP ;K %X,%Y,%,SSN,LRCHND,LRMIND,LRDFN,LRIDT,LRNOP,CNT,LRCHKSUM,DIC Q
NPC ;Check to ensure the routine ^LRNPXA has been ran - 'it sets the 'NPC' node
START ;
EXIT ;
ASK
FIND

External References

Name Field # of Occurrence
%XY^%RCR PT+13, 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 identifier defined for this patient"
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !,$C(7),"NO ARCHIVED DATA EXISTS FOR THIS PATIENT! "
  • Line Location: PT+3
Function Call: WRITE
  • Prompt: !,$C(7),"NO ARCHIVED DATA EXISTS FOR THIS PATIENT! "
  • Line Location: PT+4
Function Call: WRITE
  • Prompt: !,$C(7),"The file entries do not match, I can go no further!"
  • Line Location: PT+8
Function Call: WRITE
  • Prompt: !,$C(7),"DONE FOR THIS PATIENT",!
  • Line Location: PT+13
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("HRCN" PT+4, PT+6
^LAR("Z" - [#63.9999] ASK+1, NPC+2, NPC+3, PT+7, PT+9, PT+10!, PT+11, PT+12!, PT+13*, ALL
, ALL+1, ALL+2!, ALL+3, ALL+4!
^LR - [#63] PT+8, PT+10, PT+12, PT+13*, 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+4, PT+8, PT+13
STOP ASK, ASK+1, NPC+6, PT, PT+2, CONV+2, CONV+3
TEXT ASK, NPC+6

Naked Globals

Name Field # of Occurrence
^( NPC+3, PT+4, PT+6
^(0 PT+9*, PT+11*, ALL+1*, ALL+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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