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

Package: Lab Service

Routine: LRVER3


Information

LRVER3 ;DALOI/STAFF - DATA VERIFICATION ;05/10/11 13:50

Source Information

Source file <LRVER3.m>

Entry Points

Name Comments DBIA/ICR reference
V1 ;
V9
L10 ;
NOVER ;
AGAIN ;
V11 ;
EXIT
READ ;
CHG ; Check for changes, save results and create audit trail
DIDLE ;
; Check if no previous result or pending result - no audit trail needed
NOW ;
RONLT ; (R)esolve (O)rder NLT code from file #68 original ordered test or
; use default when not specified for file #60 test.
LRORU3 ;
SET ;
ASKXQA ; Determine if user should be asked to send CPRS Alert

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," This entry is being edited by someone else."
  • Line Location: V1+5
Function Call: WRITE
  • Prompt: !,?3,$P(^LAB(60,I,0),"^"),?25," ",$P(LRX,"^",6)
  • Line Location: V1+15
Function Call: WRITE
  • Prompt: !,I," ",LRNAME(I)
  • Line Location: V1+22
Function Call: WRITE
  • Prompt: !?15
  • Line Location: V1+31
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: V1+31
Function Call: WRITE
  • Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U)
  • Line Location: V1+32
Function Call: WRITE
  • Prompt: @LRVIDOF
  • Condition for execution: IOST["C-"
  • Line Location: V1+33
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: V1+33
Function Call: READ
  • Formatting: !!
  • Prompt: "TEST #(s) (or ""ALL""): "
  • Variable: X
  • Timeout: DTIME
  • Line Location: V9+1
Function Call: WRITE
  • Prompt: !,"Enter for example 1,2,5-9."
  • Line Location: V9+2
Function Call: WRITE
  • Prompt: !,"For DATANAME "_LRI_" - "_LRERR("DIERR",1,"TEXT",1)
  • Line Location: NOVER+7
Function Call: WRITE
  • Prompt: !,LRX
  • Line Location: NOVER+8
Function Call: WRITE
  • Prompt: " = "_$P(LRSB(LRI),U)_" "_$P(LRSB(LRI),U,2)
  • Line Location: NOVER+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("The above test(s) have results already entered,",IOM)
  • Line Location: NOVER+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("but you did not select them for review.",IOM)
  • Line Location: NOVER+11
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Accession NOT approved. ",IOM),$C(7)
  • Line Location: NOVER+12
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must review all results before ANY can be released.",IOM),!!
  • Line Location: NOVER+13
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Suggest you select 'ALL' tests for verification/review. ",IOM)
  • Line Location: NOVER+15
Function Call: WRITE
  • Prompt: @LRVIDOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: NOVER+16
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: NOVER+16
Function Call: WRITE
  • Prompt: !,"Has not been reviewed and have data. Not approved.",!
  • Line Location: NOVER+17
Function Call: WRITE
  • Prompt: !,$C(7),"ENTERED BUT NOT APPROVED",!
  • Line Location: NOVER+18
Function Call: WRITE
  • Prompt: !?5,"Nothing verified ",$C(7),!
  • Line Location: NOVER+19
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: !!,"Press ENTER or RETURN to continue: "
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHG+24
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: CHG+24
Function Call: WRITE
  • Prompt: "Approve update of data by entering your initials: "
  • Line Location: CHG+24
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: CHG+24
Function Call: WRITE
  • Prompt: !,$C(7),"No updating occurred ",!
  • Line Location: CHG+29
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHG+36
Function Call: WRITE
  • Prompt: !
  • Line Location: NOW+3

FileMan Files Accessed Via FileMan Db Call

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