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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRACMOVE

Package: Lab Service

Routine: LRACMOVE


Information

LRACMOVE ;DALOI/JMC - MOVE MAJOR/MINOR HEADERS IN LAB REPORTS FILE (64.5);July 3, 2008

Source Information

Source file <LRACMOVE.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 ^DIC  FILE^DICN  (,IX1)^DIK  ^DIR  
Lab Service 1 (MAJ,QUE)^LRACDIAG  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAC MOVE  

Entry Points

Name Comments DBIA/ICR reference
EN ; Move major and/or minor header to a new location
MAJOR() ; Select a major header
MINOR() ; Select minor header within a major header
MOVETO ; Move the header to the destination location.
ADDIEN(LRTYPE,LRIEN) ; Create new header
MOVE ; Move the entry to the new location, re-index the new entry and delete the old entry
REINDEX ; Reindex headers after they have been moved.
END ; Release lock

External References

Name Field # of Occurrence
^DIC MAJOR+4, MINOR+4
FILE^DICN ADDIEN+15
^DIK MOVE+26
IX1^DIK MOVE+18
^DIR EN+11, MOVETO+13
MAJ^LRACDIAG REINDEX+10
QUE^LRACDIAG EN+37

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"You do not have access to this option"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !," This entry is being edited by someone else."
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,"Run Diagnostic Report for LAB REPORTS File",!
  • Line Location: EN+36
Function Call: WRITE
  • Prompt: !!,"Copying ",$S(LRTYPE=1:"major",1:"minor")," header: ",$S(LRTYPE=1:$P(LRMH,"^",2),1:$P(LRSH,"^",2))
  • Line Location: MOVE+4
Function Call: WRITE
  • Prompt: !," to ",$S(LRTYPE=1:"major",1:"minor")," header: ",$S(LRTYPE=1:$P(LRIEN,"^",2),1:$P(LRIEN(1),"^",2)),!
  • Line Location: MOVE+5
Function Call: WRITE
  • Prompt: " in the major header: ",$P(LRIEN,"^",2),!
  • Line Location: MOVE+6
Function Call: WRITE
  • Prompt: !,"Re-indexing new ",$S(LRTYPE=1:"major",1:"minor")," header: ",$S(LRTYPE=1:$P(LRIEN,"^",2),1:$P(LRIEN(1),"^",2)),!
  • Line Location: MOVE+17
Function Call: WRITE
  • Prompt: !,"Deleting ",$S(LRTYPE=1:"major",1:"minor")," header: ",$S(LRTYPE=1:$P(LRMH,"^",2),1:$P(LRSH,"^",2)),!
  • Line Location: MOVE+21
Function Call: WRITE
  • Prompt: !!,"Re-indexing the LAB REPORTS file for:"
  • Line Location: REINDEX+5
Function Call: WRITE
  • Prompt: !,"Mumps ""A"" index of the LAB TEST subfield",!?4,"(contains reference ranges, units, etc. from file 60)"
  • Line Location: REINDEX+6
Function Call: WRITE
  • Prompt: !,"Mumps ""AC"" index of the LAB TEST LOCATION subfield",!?4,"(atomic test x-ref.)"
  • Line Location: REINDEX+7
Function Call: WRITE
  • Prompt: !,"Mumps ""AR"" index of the LAB TEST subfield",!?4,"(site/specimen x-ref.)"
  • Line Location: REINDEX+8
Routine Call
  • DIC
  • Line Location:
    • MAJOR+4
    • MINOR+4
Routine Call
  • DIR
  • Line Location:
    • EN+11
    • MOVETO+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.5 - [#64.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(64.5 - [#64.5] EN+6, ADDIEN+8, ADDIEN+11, MOVE+9*, MOVE+13*, REINDEX+3!, END+1
^XUSEC("LRLIASON" EN+4

Label References

Name Line Occurrences
$$ADDIEN MOVETO+5, MOVETO+17, MOVETO+19
$$MAJOR EN+15, EN+18, MOVETO+16
$$MINOR EN+20
END EN+12, EN+22, EN+23, EN+26, EN+27, EN+39
MOVE EN+30
MOVETO EN+25
REINDEX EN+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA MOVETO+2~, ADDIEN+2~, MOVE+2~, MOVE+10*, MOVE+14*, MOVE+22!, MOVE+23*
DA(1 ADDIEN+6*, ADDIEN+12*, MOVE+10*, MOVE+14*, MOVE+24*, MOVE+25*
DA(2 ADDIEN+12*, MOVE+14*, MOVE+25*
DIC EN+2~, MAJOR+2~, MAJOR+3*, MINOR+2~, MINOR+3*, MOVETO+2~, ADDIEN+2~, ADDIEN+7*, ADDIEN+13*
DIC("DR" ADDIEN+7*, ADDIEN+8*, ADDIEN+13*
DIC(0 MAJOR+3*, MINOR+3*, ADDIEN+4*
DIK MOVE+2~, MOVE+10*, MOVE+14*, MOVE+22!, MOVE+24*, MOVE+25*
>> DILOCKTM EN+6
DINUM MOVETO+2~, ADDIEN+2~
DIR EN+2~, MOVETO+2~
DIR("?" EN+10*
DIR("A" EN+10*, MOVETO+12*
DIR("B" EN+10*, MOVETO+12*
DIR(0 EN+9*, MOVETO+11*
DIROUT EN+2~, MOVETO+2~
DIRUT EN+2~, EN+12, MOVETO+2~, MOVETO+14
DO MOVETO+2~, ADDIEN+2~
DUOUT EN+2~, MOVETO+2~
DUZ EN+4
I REINDEX+1~, REINDEX+3*
LR REINDEX+1~
LR(1 REINDEX+2*
LR(2 REINDEX+2*
LR(3 REINDEX+2*
LRCKW EN+2~, EN+37*
LRDA ADDIEN+2~, ADDIEN+16*, ADDIEN+17*, ADDIEN+19
LRIEN EN+2~, EN+26, MOVETO+5*, MOVETO+6, MOVETO+10*, MOVETO+16*, MOVETO+17*, MOVETO+18, MOVETO+19, ADDIEN~
, ADDIEN+12, ADDIEN+13, MOVE+5, MOVE+6, MOVE+9, MOVE+10, MOVE+13, MOVE+14, MOVE+17
LRIEN(1 EN+27, MOVETO+19*, MOVE+5, MOVE+13, MOVE+14, MOVE+17
LRMH EN+2~, EN+15*, EN+18*, EN+19, EN+22, MINOR+3, ADDIEN+8, ADDIEN+11, MOVE+4, MOVE+9
MOVE+13, MOVE+21, MOVE+23, MOVE+25
LRMOVE MOVETO+2~, MOVETO+15*, MOVETO+16, MOVETO+17
LRSH EN+2~, EN+20*, EN+23, ADDIEN+11, MOVE+4, MOVE+13, MOVE+21, MOVE+23
LRTYPE EN+2~, EN+14*, EN+15, EN+17, EN+23, EN+27, MOVETO+4, MOVETO+5, MOVETO+9, MOVETO+19
, ADDIEN~, ADDIEN+5, ADDIEN+10, MOVE+4, MOVE+5, MOVE+6, MOVE+8, MOVE+12, MOVE+17, MOVE+21
MOVE+23, MOVE+25
LRX ADDIEN+2~, ADDIEN+11*, ADDIEN+13
X EN+2~, MOVETO+2~, ADDIEN+2~, ADDIEN+4*
Y EN+2~, EN+14, MAJOR+6, MINOR+6, MOVETO+15, ADDIEN+2~, ADDIEN+16, ADDIEN+17
Y(0 ADDIEN+16
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All