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

Package: Lab Service

Routine: LRMLREI


Information

LRMLREI ;BPFO/DTG - EDITED ITEMS REPORT PGM FOR NTRT PROCESS ;02/10/2016

Source Information

Source file <LRMLREI.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point
ST ;
DEVICE
DO
DONE ; exit
LRS(A) ; get edit type/field
BK ;entry if queued
PRT ; print report
PL ;S LRTST=$O(^LAB(60,LRTST)) I 'LRTST G PDONE
; Step down the B X-ref - exclude synomyms
PLE
PDONE ; print done
HEADER ;Description: Prints the report header.
PAUSE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?(IOM-$L(HD)\2),HD,!!!
  • Line Location: ST+2
Function Call: WRITE
  • Prompt: !,*7,"Starting Date Not Selected"
  • Line Location: ST+7
Function Call: WRITE
  • Prompt: !,*7,"Ending Date Not Selected"
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: !,*7,"No Device Selected"
  • Line Location: DEVICE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,"TEST: ",LRTSTN
  • Line Location: PLE+10
Function Call: WRITE
  • Prompt: !,?10,"Specimen: ",X
  • Line Location: PLE+13
Function Call: WRITE
  • Prompt: !,?1,C,?18,B,?32,E,?48,FO,?65,FN
  • Line Location: PLE+25
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !,?22,HD
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: ?70,"Page ",PAGE,!,?27,"Date Printed: "_$$FMTE^XLFDT(DT),!
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !,?1,"Date",?18,"Edit Field",?32,"User",?48,"Old Value",?65,"New Value"
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,ULINE
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"TEST: ",LRTSTN
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
60.01 GET1^DIQ
60.28 GETS^DIQ
^LRMLTF - [#66.3] GET1^DIQ
^LAB(66.4 - [#66.4] GET1^DIQ
^XTV(8989.3 - [#8989.3] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call