Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRVR3

Package: Lab Service

Routine: LRVR3


Information

LRVR3 ;DALOI/STAFF - LAB ROUTINE DATA VERIFICATION ;04/05/16 12:22

Source Information

Source file <LRVR3.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Lab Service 10 BAWRK^LRBEBA  $$CHKINP^LRBEBA4  LOOK^LRCAPV1  SETREF^LRUEPR  (ASKXQA,LRORU3)^LRVER3  VER^LRVER3A  ($$CHKCDSP,SETRL)^LRVERA  $$LRTM60^LRVR  
^LRVR4  PT^LRX  
VA FileMan 4 YN^DICN  $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 3 $$S^%ZTLOAD  ($$DT,$$FMADD,$$HADD,$$HTE,$$NOW)^XLFDT  $$UP^XLFSTR  
Automated Lab Instruments 1 UPDT^LAGEN  
Toolkit 1 GETLST^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Lab Service 10 LRGV2  LRLLS  LRLLS3  LRNIGHT  LRVER5  LRVR0  LRVR1  LRVR2  
LRVRAR  LRVRPOC  
Automated Lab Instruments 2 LA7VIN1A  LAMIAUT4  

Entry Points

Name Comments DBIA/ICR reference
V1 ;
EDIT ;
AGAIN ;
V11 ; Still locked from V1 L ^LR(LRDFN,LRSS,LRIDT)
; Set filler id as external package reference for each data name
A3 ; Called from LRVRPOC, LRVRAR
ZAP ; from LRLLS3
LINK ; Check and save link
LINKOK ;
LKCHK
ZAP2 ;Clear ^LAH(
ZAPALL(LRLL,LAIEN) ;Clean up
TNR ; List tests not reviewed and ask if user wants to delete.
READ ;
UICHK() ; Confirm that user wants to process UI type results as reference lab results.
LRNIGHT ; Entry point from LRNIGHT to clean up LAH global for selected entries.
CHECKARI ; Check amended result index for orphans.

External References

Name Field # of Occurrence
$$S^%ZTLOAD LRNIGHT+20, LRNIGHT+25
YN^DICN A3+23, LINK+12
$$GET1^DID EDIT+16, TNR+19
$$GET1^DIQ TNR+18
^DIR TNR+26, UICHK+15
UPDT^LAGEN LRNIGHT+26
BAWRK^LRBEBA A3+6
$$CHKINP^LRBEBA4 A3+5
LOOK^LRCAPV1 A3+14
SETREF^LRUEPR V11+16
ASKXQA^LRVER3 AGAIN+8
LRORU3^LRVER3 A3+11
VER^LRVER3A A3+8
$$CHKCDSP^LRVERA V1+18
SETRL^LRVERA A3+3
$$LRTM60^LRVR V1+16
^LRVR4 EDIT+7
PT^LRX LINK+9
$$DT^XLFDT LRNIGHT+5
$$FMADD^XLFDT LRNIGHT+18
$$HADD^XLFDT LRNIGHT+9
$$HTE^XLFDT LRNIGHT+10
$$NOW^XLFDT V11+3
$$UP^XLFSTR AGAIN+3
GETLST^XPAR LRNIGHT+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," This entry is being edited by someone else."
  • Line Location: V1+10
Function Call: WRITE
  • Prompt: !,"NO DATA TO APPROVE"
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !,"For DATANAME "_LRI_" - "_LRERR("DIERR",1,"TEXT",1)
  • Line Location: EDIT+17
Function Call: WRITE
  • Prompt: !,LRX
  • Line Location: EDIT+18
Function Call: WRITE
  • Prompt: " = "_$P(LRSB(LRI),U)_" "_$P(LRSB(LRI),U,2)
  • Line Location: EDIT+19
Function Call: WRITE
  • Prompt: !,"Have not been reviewed and have data. Not approved."
  • Line Location: EDIT+20
Function Call: WRITE
  • Prompt: !,$C(7),"ENTERED BUT NOT APPROVED"
  • Line Location: EDIT+22
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+2
Function Call: WRITE
  • Prompt: !,$C(7),"Please enter your correct initials"
  • Line Location: AGAIN+4
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+5
Function Call: WRITE
  • Prompt: !,"Purge data from sequence number(s): "
  • Line Location: A3+21
Function Call: WRITE
  • Prompt: " ",I
  • Line Location: A3+22
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING - NO MATCHING ACCESSION WAS FOUND."
  • Line Location: LINK+5
Function Call: WRITE
  • Prompt: !,"You may need to Clear instrument/worklist data,"
  • Line Location: LINK+6
Function Call: WRITE
  • Prompt: !,"or correctly identify the sample to the system."
  • Line Location: LINK+7
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN,!,$C(7)
  • Line Location: LINK+9
Function Call: WRITE
  • Prompt: !,"Test(s) Not Reviewed:",!
  • Line Location: TNR+13
Function Call: WRITE
  • Prompt: $$GET1^DIQ(60,LR60_",",.01)
  • Line Location: TNR+18
Function Call: WRITE
  • Prompt: $$GET1^DID(63.04,I,"","LABEL")
  • Line Location: TNR+19
Function Call: WRITE
  • Prompt: " = "_$P(X,"^")_" "_$P(X,"^",2)_" "_$P($P(X,"^",5),"!",7),!
  • Line Location: TNR+20
Function Call: WRITE
  • Prompt: !!,"Press ENTER or RETURN to continue: "
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!,"Lab Rollover has not completed as of "_$$HTE^XLFDT($H,"1M")_" ... Aborting."
  • Line Location: LRNIGHT+10
Function Call: WRITE
  • Prompt: !!,"Checking LAH global Amended Result Index for Orphans",!
  • Line Location: CHECKARI+6
Function Call: WRITE
  • Prompt: !,"Deleting index: ",LRROOT," = ",@LRROOT
  • Line Location: CHECKARI+11
Function Call: WRITE
  • Prompt: !,$S(LRCNT:LRCNT,1:"No")," indexes found needing deletion."
  • Line Location: CHECKARI+14
Routine Call
  • DIR
  • Line Location:
    • TNR+26
    • UICHK+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
63.04 GET1^DID

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] TNR+17
^LAB(69.9 - [#69.9] LRNIGHT+8
^LAH( V1+3, V1+21, V1+22, V1+26, V1+29, EDIT+1, EDIT+4, EDIT+5!, EDIT+6*, EDIT+8*
, EDIT+9, V11+5!, A3+19, LINKOK+1!, LINKOK+2*, LKCHK, ZAPALL+4, ZAPALL+5!, ZAPALL+6!, ZAPALL+7!
, ZAPALL+8!, ZAPALL+9!, ZAPALL+11, ZAPALL+13!, ZAPALL+14!, ZAPALL+20, ZAPALL+22, ZAPALL+23, ZAPALL+24!, ZAPALL+26!
, ZAPALL+29, ZAPALL+30, ZAPALL+31*, ZAPALL+32, TNR+6, TNR+7, TNR+8!, TNR+11, TNR+15, TNR+16
, LRNIGHT+19, LRNIGHT+21, LRNIGHT+23, LRNIGHT+26, LRNIGHT+27, LRNIGHT+31, CHECKARI+10
^LAH("LA7 AMENDED RESULTS" ZAPALL+16, ZAPALL+17!
^LR - [#63] V11+8*, LINK+9, TNR+8
^LRO(68 - [#68] V11+9, A3+14, LINK+2
^TMP("LR" V1+23, V11+4

Label References

Name Line Occurrences
$$UICHK V1+3
AGAIN AGAIN+4
CHECKARI LRNIGHT+33
LINK V1+12
LINKOK LINK+2
LKCHK V1+12, LINK+1
READ AGAIN+2, AGAIN+5
TNR A3+17
V1 LRVR3+3
V11 AGAIN+7
ZAPALL A3+19, A3+26, ZAP+1, ZAP2+1, TNR+28, LRNIGHT+30

Naked Globals

Name Field # of Occurrence
^( V1+26, V11+4, V11+9*
^(0 LINK+2, LINK+9, LKCHK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A3+23*, LINK+12*
CNT EDIT+24~*, AGAIN+4*
>> DFN LINK+9*
>> DILOCKTM V1+9, ZAPALL+30, LRNIGHT+21
DIR TNR+2~, UICHK+2~
DIR("?" TNR+23*, TNR+24*, TNR+25*
DIR("A" TNR+22*, UICHK+6*, UICHK+7*, UICHK+8*, UICHK+9*, UICHK+10*, UICHK+11*, UICHK+12*, UICHK+13*, UICHK+14*
DIR("B" TNR+22*, UICHK+5*
DIR(0 TNR+22*, UICHK+5*
DIROUT TNR+2~
DIRUT TNR+2~, TNR+26, UICHK+2~
DT LRNIGHT+5*, LRNIGHT+17, LRNIGHT+18
DTIME AGAIN+1, READ+1
DTOUT UICHK+2~
DUOUT TNR+2~, UICHK+2~
DUZ(2 V1+3, A3+3, A3+17
I A3+22*, ZAP+1, ZAP2+1, ZAPALL+1~, ZAPALL+15*, ZAPALL+16*, ZAPALL+17, TNR+2~, TNR+5*, TNR+6*
, TNR+7, TNR+8, TNR+14*, TNR+15*, TNR+16, TNR+17, TNR+19, LRNIGHT+4~, LRNIGHT+28*, LRNIGHT+30
LAIEN A3+24~, A3+25*, A3+26*, ZAPALL~, ZAPALL+2, ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8
, ZAPALL+9, ZAPALL+11, ZAPALL+13, ZAPALL+14, ZAPALL+17, ZAPALL+20, ZAPALL+22, ZAPALL+23, ZAPALL+24, ZAPALL+26
LR60 TNR+2~, TNR+17*, TNR+18
>> LRAA A3+14, LINKOK+2, LKCHK
>> LRAD LINKOK+2, LKCHK
>> LRAN LINKOK+2, LKCHK
>> LRBETST A3+6
>> LRBEY A3+6
>> LRCDT V1+16
>> LRCMTDSP V1+18*
LRCNT LRNIGHT+4~, LRNIGHT+22*, LRNIGHT+24*, LRNIGHT+25, CHECKARI+4~, CHECKARI+7*, CHECKARI+12*, CHECKARI+14
LRCORECT V11+2~, V11+3*
LRCUTOFFDT LRNIGHT+4~, LRNIGHT+17*, LRNIGHT+18*, LRNIGHT+27, LRNIGHT+29~
LRDATA V11+11~, V11+16
LRDATA( V11+14*, V11+15*, V11+16
LRDATA(1 V11+14*
LRDAYSKEEP LRNIGHT+4~, LRNIGHT+17*, LRNIGHT+18
>> LRDFN V1+8, V11+8, V11+9, V11+14, V11+16, A3+3, A3+5, LINK+2, TNR+8
>> LRDPF A3+5, LINK+3, LINK+9*
>> LRDUZ(2 V1+3, V11+12, A3+17
>> LREDIT EDIT+3*
LRERR EDIT+15~
LRERR("DIERR" EDIT+17
LRERROR LRNIGHT+4~, LRNIGHT+12
>> LRGVP EDIT+10, LINK+11
LRI EDIT+12~, EDIT+13*, EDIT+14*, EDIT+16, EDIT+17, EDIT+19, LRNIGHT+4~, LRNIGHT+15*, LRNIGHT+16*, LRNIGHT+17
, CHECKARI+4~, CHECKARI+9*, CHECKARI+10
>> LRIDT V1+8, V11+8, V11+9, V11+14, A3+3, TNR+8
>> LRINI AGAIN+1*, AGAIN+2, AGAIN+3*, AGAIN+4, AGAIN+5
LRINST LRNIGHT+4~, LRNIGHT+28*, LRNIGHT+30
LRISQN LRNIGHT+4~, LRNIGHT+22*, LRNIGHT+23*, LRNIGHT+25, LRNIGHT+26, LRNIGHT+27, LRNIGHT+28, LRNIGHT+29~, CHECKARI+4~, CHECKARI+9*
, CHECKARI+10
>> LRLABKY EDIT+22
LRLIST LRNIGHT+4~, LRNIGHT+12, LRNIGHT+13
LRLIST( LRNIGHT+16, LRNIGHT+17
>> LRLK LINK+2, LINKOK+1, LKCHK*
LRLKOK LRVR3+5!, V1+12!, LINK+1, LINKOK+2*, LKCHK*
LRLL V1+3, V1+21, V1+22, V1+26, V1+29, EDIT+1, EDIT+4, EDIT+5, EDIT+6, EDIT+8
, EDIT+9, V11+5, A3+19, A3+26, ZAP+1, LINKOK+1, LINKOK+2, LKCHK, ZAP2+1, ZAPALL~
, ZAPALL+2, ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+9, ZAPALL+11, ZAPALL+13, ZAPALL+14
, ZAPALL+17, ZAPALL+20, ZAPALL+22, ZAPALL+23, ZAPALL+24, ZAPALL+26, ZAPALL+29, ZAPALL+30, ZAPALL+31, ZAPALL+32
, TNR+6, TNR+7, TNR+8, TNR+11, TNR+15, TNR+16, TNR+28, LRNIGHT+4~, LRNIGHT+17*, LRNIGHT+19
, LRNIGHT+20, LRNIGHT+21, LRNIGHT+23, LRNIGHT+25, LRNIGHT+26, LRNIGHT+27, LRNIGHT+28, LRNIGHT+29~, LRNIGHT+31, CHECKARI+4~
, CHECKARI+9*, CHECKARI+10
LRLOCKER LRVR3+4!, V1+7, V1+8*, V1+9
LRNOVER LRVR3+5!, V1+23
LRNOVER( V1+23*, EDIT+14
LRNOVER(0 EDIT+20
LRNOW V11+2~, V11+3*, V11+7
LRNUF EDIT+5!
>> LRODT A3+5, A3+6
LROK UICHK+2~, UICHK+4*, UICHK+16*, UICHK+18
>> LRORU3 A3+11
>> LRPARAM A3+14
>> LRPRGSQ A3+20
>> LRPRGSQ( A3+22, A3+26
LRROOT LRNIGHT+4~, CHECKARI+4~, CHECKARI+7*, CHECKARI+8*, CHECKARI+9, CHECKARI+11, CHECKARI+12
LRSA LRVR3+5!, V1+13!
LRSB LRVR3+5!, V1+13!
LRSB( V1+22*, EDIT+8, EDIT+19, V11+4, V11+6, V11+7*, V11+8, V11+13
LRSB(0 A3+11
LRSBCOM LRVR3+5!, V1+13!, A3+13!
LRSBCOM( V1+26*
LRSBEPR V1+13!, V1+29*
LRSBEPR( V11+10, V11+14
LRSITE V11+11~, V11+12*, V11+13*, V11+15
>> LRSN A3+6
>> LRSQ V1+3, V1+21, V1+22, V1+26, V1+29, EDIT+1, EDIT+4, EDIT+5, EDIT+6, EDIT+8
, EDIT+9, V11+5, A3+19, LINKOK+1, LINKOK+2, LKCHK, TNR+6, TNR+7, TNR+8, TNR+11
, TNR+15, TNR+16, TNR+28
>> LRSS V1+8, V11+8, V11+14, A3+3, A3+5, A3+17, TNR+8
>> LRTM60 V1+16*
>> LRTN V1+6*
>> LRUSI AGAIN+3, AGAIN+4, AGAIN+5
>> LRVF V11+9
>> LRVTS( V1+23, V11+4
LRX V1+19~, V1+20*, V1+21*, V1+22, V1+23, V1+25*, V1+26*, EDIT+4*, EDIT+6*, EDIT+8*
, EDIT+15~, EDIT+16*, EDIT+18, V11+2~, V11+3*, V11+4*, V11+5, V11+6, V11+7, V11+8
, V11+9, V11+10, V11+13, V11+14
NODE ZAPALL+1~, ZAPALL+4*, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+9
NODE("U" ZAPALL+11*, ZAPALL+12, ZAPALL+13, ZAPALL+14, ZAPALL+16, ZAPALL+17
>> PNM LINK+3, LINK+9*
S1 LINK+3*, LINK+9, LINK+10!
S2 LINK+3*, LINK+9, LINK+10!
S3 LINK+3*, LINK+9, LINK+10!
SEG ZAPALL+1~, ZAPALL+19*, ZAPALL+20*, ZAPALL+22, ZAPALL+23
SEGID ZAPALL+1~, ZAPALL+21*, ZAPALL+22*, ZAPALL+23, ZAPALL+24
>> SSN LINK+3, LINK+9*
SUB ZAPALL+1~, ZAPALL+23*, ZAPALL+24
U EDIT+19, EDIT+22, V11+7, A3+11, A3+14, LINK+2, LINK+9, LINKOK+1, LINKOK+2, LKCHK
, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+9, ZAPALL+11, ZAPALL+23, LRNIGHT+17
X EDIT+2~, LINK+2*, LINK+9, TNR+2~, TNR+7*, TNR+8, TNR+16*, TNR+20, READ+1~*, UICHK+2~
, LRNIGHT+4~
X( EDIT+4*, EDIT+6!
Y TNR+2~, TNR+28, UICHK+2~, UICHK+16
>> ZTQUEUED A3+17, A3+20, LRNIGHT+9, LRNIGHT+35, CHECKARI+6, CHECKARI+11, CHECKARI+14
>> ZTREQ LRNIGHT+9*, LRNIGHT+35*
>> ZTSTOP LRNIGHT+16, LRNIGHT+20*, LRNIGHT+23, LRNIGHT+25*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All