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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.5 - [#64.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call