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

Package: Lab Service

Routine: LRTSTOUT


Information

LRTSTOUT ;DALOI/STAFF - JAM TESTS OFF ACCESSIONS ;July 29, 2019@10:00

Source Information

Source file <LRTSTOUT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
FIX ;
FX1 ;
CHG ;
SHOWTST ;
DEMO
SET ;
OR(LRORDTST,LRTSTS,ORIFN) ;evaluate overall status of order
ROL ;
LRACC ;
LREND ;
UNLOCK ;
EXIT ;
END ;
FX2 ;
FX3 ;
UPD63(LRDFN,LRSS,LRIDT,LRTNM,LRCCOM) ; Update file #63 with comment reflecting dispostion.
CLNPENDG ; Remove pending and other info from Lab test when set to not performed
ORUT ; Update ORUT node in file #63 with this disposition
LEDICHK ; Add test to LROTA array if it is a LEDI accesison - added with ccr_6164n
LEDISET(LROTA) ; added with ccr_6164n
LEDI(LRAA,LRAD,LRAN,LRDFN,LRSS,LRIDT,LRODT,LRORDTST,LA7VDB) ; Put accession in queue to send message back to collecting site.
CHK63(LR60,LRDFN,LRSS,LRIDT) ; Check if tests being NP already have resuls in file #63.
; Call with LR60 = ien of entry in file #60
; LRDFN = ien of entry in file #63
; LRSS = file #63 subscript
; LRIDT = file #63 inverse date/time of specimen

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?5,"You are not authorized to change test status.",!,$C(7)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FIX+3
Function Call: WRITE
  • Prompt: !?5,"Accession has no Test ",!
  • Line Location: FIX+5
Function Call: WRITE
  • Prompt: !,"Someone else is working on this accession",!
  • Line Location: FIX+7
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN
  • Line Location: FIX+13
Function Call: WRITE
  • Prompt: !,"Someone else is working on this data."
  • Line Location: FIX+16
Function Call: WRITE
  • Prompt: !?5," Can't find Lab Data for this accession",!
  • Line Location: FIX+18
Function Call: WRITE
  • Prompt: !
  • Line Location: CHG+2
Function Call: WRITE
  • Prompt: !?5,"No Test Selected",!
  • Line Location: CHG+8
Function Call: WRITE
  • Prompt: !,"NO CHANGE"
  • Line Location: CHG+9
Function Call: WRITE
  • Prompt: !?5,"There is no Order for this Accession",!
  • Line Location: CHG+11
Function Call: WRITE
  • Prompt: @IOF,!!?5,"Change Accession : ",LRACN,?40,"UID: ",LRUID
  • Line Location: CHG+12
Function Call: WRITE
  • Prompt: !?10,LRCTST(I)
  • Line Location: CHG+18
Function Call: WRITE
  • Prompt: ?40," Results entered for this test, cannot NP until removed."
  • Line Location: CHG+21
Function Call: WRITE
  • Prompt: ?40," Results entered for this test, cannot NP this test."
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: ?40," Results verified for this test, cannot NP this test."
  • Line Location: CHG+23
Function Call: WRITE
  • Prompt: !,?5,$P(^(0),U)
  • Line Location: SHOWTST+7
Function Call: WRITE
  • Prompt: ?35," "_$S($L($P(LRIC,U,3)):$P(LRIC,U,3),1:"Completed")_" "_$$FMTE^XLFDT($P(LRIC,U,2),"1FMZ")_" by "_$P(LRIC,U)
  • Line Location: SHOWTST+8
Function Call: WRITE
  • Prompt: !,PNM,?50,SSN
  • Line Location: DEMO+0
Function Call: WRITE
  • Prompt: !,"TESTS ON ACCESSION: ",LRACN,?40,"UID: ",LRUID
  • Line Location: DEMO+1
Function Call: WRITE
  • Prompt: !?5,"No Subscript for this Accession Area ",!!
  • Line Location: LRACC+5
Function Call: WRITE
  • Prompt: !!,$C(7),"Nothing Changed",!
  • Line Location: FX2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FX2+14
Function Call: WRITE
  • Prompt: !
  • Line Location: FX3+6
Function Call: WRITE
  • Prompt: !,"("_LRCCOM_")"
  • Line Location: FX3+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] GET1^DIQ
^LAB(64.061 - [#64.061] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call