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

Package: Lab Service

Routine: LRWRKLST


Information

LRWRKLST ;DALOI/STAFF - LONG ACCESSION LIST ;Mar 22, 2021@17:48

Source Information

Source file <LRWRKLST.m>

Entry Points

Name Comments DBIA/ICR reference
W ; from LRVER, LRVR
; Added to protect "%*" variables from %ZTLOAD corruption
ENT ;
TD ; Check tests on accession to determine if meets criteria to display.
; If incomplete only (LRUNC=1) and complete date then skip
; If not specific test selected (LRTSE=file #60 ien) then skip
; Otherwise set LRTST array with file #60 ien.
MICRO ;further evaluation for Microbiology test
TESTS ;
CHKAC() ;Are all tests complete?
TS2 ;
REF ; if referred test, display status and manifest
PHD ;
LST ;
HED ;
AC ;
LREND ;
EN ;
SINGLE ;
LR60DN(LRDN,LR60,LRTST) ; Retreive CH subscript dataname for a test

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Task ",$S($G(ZTSK):ZTSK,1:"NOT")," Queued"
  • Line Location: W+35
Function Call: WRITE
  • Prompt: !,$P(^(1),U,6)
  • Line Location: TESTS+16
Function Call: WRITE
  • Prompt: !,"ALL COMPLETED",!!
  • Line Location: TESTS+23
Function Call: WRITE
  • Prompt: !,"ALL COMPLETED",!!
  • Line Location: TESTS+25
Function Call: WRITE
  • Prompt: !," TEST: ",$P($G(^LAB(60,+LRXXX,0),"deleted test"),"^")
  • Line Location: TS2+6
Function Call: WRITE
  • Prompt: ?40,$S($D(LRURG(LRURG)):LRURG(LRURG),1:"")
  • Line Location: TS2+9
Function Call: WRITE
  • Prompt: ?55," LIST: ",$P($G(^LRO(68.2,+$P(LRXXX,U,3),0)),U,1)," ",$P($P(LRXXX,U,3),";",2,3)
  • Line Location: TS2+10
Function Call: WRITE
  • Prompt: !?3,": "_^(I,0)
  • Line Location: TS2+17
Function Call: WRITE
  • Prompt: !," COMPLETED: ",$$FMTE^XLFDT($P(LRXXX,U,5),"MZ")
  • Line Location: TS2+22
Function Call: WRITE
  • Prompt: !,?4,"REFERRAL STATUS..: "_$P(LREVNT,"^")_" ("_$P(LREVNT,"^",2)_")"
  • Line Location: REF+12
Function Call: WRITE
  • Prompt: !,?4,"SHIPPING MANIFEST: "_$P(LREVNT,"^",3)
  • Line Location: REF+13
Function Call: WRITE
  • Prompt: " using shipping config "_$P(LRSCFG(0),"^")
  • Line Location: REF+16
Function Call: WRITE
  • Prompt: !,?4,"SHIPPED TO.......: "_$P($$NS^XUAF4($P(LRSCFG(0),"^",3)),"^")
  • Line Location: REF+17
Function Call: WRITE
  • Prompt: !,?4,LRON(0)_$S(LRTYPE=3:" placer",1:" filler")_" order # "_LRON
  • Line Location: REF+37
Function Call: WRITE
  • Prompt: @IOF,!,"LONG FORM",?30,"NOT FOR WARD USE",!
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: "Accession Area: ",LRNAME,?40,LRDT,!!
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !,"Doesn't exist."
  • Line Location: SINGLE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SINGLE+16

FileMan Files Accessed Via FileMan Db Call

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