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

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.

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] GET1^DIQ
63.04 GET1^DID
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call