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
Print Page as PDF
Routine: LRTSTJAN

Package: Lab Service

Routine: LRTSTJAN


Information

LRTSTJAN ;SLC/RWF/DCN - JAM TESTS ONTO (OR OFF) ACCESSIONS PART2 ;02/28/12 19:53

Source Information

Source file <LRTSTJAN.m>

Entry Points

Name Comments DBIA/ICR reference
DELOG ;This tag is no longer available - Routine LRTSTOUT replaces this call.
EN ;
EN1 ;
END
ULK ;Unlock ^LRO(68,
NEWSTART ;Set new starting accession #
N1
US ;ck if units selected
OE ;
LRACC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR(" The ability to DELETE an entire ORDER/ACCESSION ",IOM)
  • Line Location: DELOG+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("has been REPLACED. The test(s) will now be marked",IOM)
  • Line Location: DELOG+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("as Not Performed and a reason for 'NP' will be stored",IOM)
  • Line Location: DELOG+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("with each test. Accession numbers can't be reused",IOM)
  • Line Location: DELOG+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("after it has been assigned to a specimen.",IOM)
  • Line Location: DELOG+5
Function Call: WRITE
  • Prompt: !?5,"You are not authorized to change test status.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: @IOF,!!,"All accessioned test(s) changed",!!
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !,"Must be whole number between 1 and 999999, accession remains unchanged."
  • Line Location: N1+4
Info |  Source |  Entry Points |  Interaction Calls