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

Package: Lab Service

Routine: LRVER3


Information

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

Source Information

Source file <LRVER3.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Lab Service 13 ASKXQA^LR7ORB3  BAWRK^LRBEBA  $$CHKINP^LRBEBA4  LOOK^LRCAPV1  ^LRDIDLE0  $$NLT^LRVER1  V7^LRVER2  VER^LRVER3A  
(,WT)^LRVER4  ($$CHKCDSP,SETRL)^LRVERA  $$LRTM60^LRVR  COM^LRVR4  RANGE^LRWU2  
Kernel 3 (T0,T1)^%ZOSV  $$NOW^XLFDT  ($$CJ,$$UP)^XLFSTR  
VA FileMan 3 $$GET1^DID  LOCK^DILF  $$GET1^DIQ  
Automated Lab Instruments 2 $$DEFCODE^LA7VHLU5  SET^LA7VMSG  
Toolkit 1 $$GET^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: 6

Package Total Caller Graph
Lab Service 6 LRSTUF2  LRVER2  LRVER4  LRVER5  LRVR3  LRVR4  

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

External References

Name Field # of Occurrence
T0^%ZOSV V11+1
T1^%ZOSV V11+10
$$GET1^DID NOVER+6
LOCK^DILF V1+4
$$GET1^DIQ SET+18
$$DEFCODE^LA7VHLU5 RONLT+15
SET^LA7VMSG SET+21
ASKXQA^LR7ORB3 ASKXQA+8
BAWRK^LRBEBA V11+3
$$CHKINP^LRBEBA4 V11+2
LOOK^LRCAPV1 V11+5
^LRDIDLE0 NOW+4
$$NLT^LRVER1 RONLT+10
V7^LRVER2 L10+6
VER^LRVER3A V11+4
^LRVER4 L10+14
WT^LRVER4 V1+16, V1+28
$$CHKCDSP^LRVERA L10+8
SETRL^LRVERA L10+22
$$LRTM60^LRVR L10+5
COM^LRVR4 V1+19
RANGE^LRWU2 V1+7, V9+3
$$NOW^XLFDT L10+25, CHG+2, NOW+2
$$CJ^XLFSTR NOVER+10, NOVER+11, NOVER+12, NOVER+13, NOVER+15
$$UP^XLFSTR AGAIN+3, CHG+15, CHG+16, CHG+27
$$GET^XPAR ASKXQA+7

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] V1+15, SET+10
^LAB(62.05 - [#62.05] V1+32
^LAM("C" SET+18
^LR - [#63] L10+10, L10+28*, L10+34, CHG+32, CHG+33*, DIDLE+5, NOW+6
^LRO(68 - [#68] V1+12, V1+13, V1+23, V1+24, V11+5, V11+8, RONLT+8
^TMP("LR" V11+8, SET+8

Label References

Name Line Occurrences
AGAIN AGAIN+4
ASKXQA L10+30, L10+36, L10+40, L10+42, AGAIN+7
CHG L10+30
DIDLE CHG+34
EXIT V1+19, V9+3, L10+17, L10+19, L10+30, L10+39, L10+42, NOVER+1, NOVER+17, NOVER+18
NOVER+19, AGAIN+2, AGAIN+5
L10 V1+7, V1+35
LRORU3 V11+9
READ AGAIN+2, AGAIN+5
V1 LRVER3+3, L10+41
V11 L10+36, L10+40, AGAIN+6
V9 V9+2

Naked Globals

Name Field # of Occurrence
^( L10+11, V11+8*
^(0 L10+35*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT NOVER+20~*, AGAIN+4*
DILOCKTM DIDLE+5
DTIME V9+1, AGAIN+1, READ+1, CHG+25
DUZ CHG+8, CHG+19
>> DUZ(2 L10+22, CHG+10, CHG+21
>> I V1+11*, V1+12*, V1+13, V1+15, V1+21*, V1+22, V1+23, V1+24
IOM NOVER+10, NOVER+11, NOVER+12, NOVER+13, NOVER+15
IOST V1+31, V1+33, NOVER+14, NOVER+16, CHG+24
LR60 RONLT+3~, RONLT+4*, RONLT+7, RONLT+8*, RONLT+9, RONLT+10, RONLT+12*
LR64 SET+1~, SET+18*
LR7V SET+1~, SET+19!, SET+20*, SET+21
>> LRAA V1+12, V1+13, V1+23, V1+24, V11+5, RONLT+8
>> LRAD V1+12, V1+13, V1+23, V1+24, RONLT+8
>> LRAL V1+25*, V1+27
>> LRALERT V1+8*, V1+27*, V1+30, V1+32
>> LRALL V1+8*, V1+22*, V9*, V9+1
>> LRAN V1+12, V1+13, V1+23, V1+24, RONLT+8
>> LRBEY V11+3
>> LRCDT L10+5
LRCHG L10+24, L10+30!, CHG+3*, CHG+4, CHG+5, CHG+6, CHG+8, CHG+9, CHG+10, CHG+11
CHG+12, CHG+13, CHG+15, CHG+16, CHG+17, CHG+18, CHG+19, CHG+20, CHG+21
>> LRCMTDSP L10+8*
LRCORECT L10+1~*, NOW+7*
LRDEFAULT ASKXQA+2~, ASKXQA+7*, ASKXQA+8
>> LRDFN V1+3, L10+10, L10+22, L10+28, L10+34, V11+2, V11+8, CHG+32, CHG+33, DIDLE+5
NOW+6, SET+21, ASKXQA+8
LRDN SET+1~, SET+5*, SET+6*, SET+7, SET+8, SET+12, SET+13
>> LRDPF V11+2, ASKXQA+5
>> LRDUZ CHG+8, CHG+19
>> LRDUZ(2 CHG+10, CHG+21
>> LREDIT L10+13*
>> LREND L10+30*, CHG+22*, CHG+23*, CHG+26*, CHG+27, CHG+28*, CHG+29
LRERR NOVER+5~
LRERR("DIERR" NOVER+7
LRF L10+32, L10+33!, DIDLE+4*
>> LRGVP V1+7, L10+17, L10+39
LRI NOVER+2~, NOVER+3*, NOVER+4*, NOVER+6, NOVER+7, NOVER+9
>> LRIDT V1+3, L10+10, L10+22, L10+28, L10+34, V11+8, CHG+32, CHG+33, DIDLE+5, NOW+6
SET+21, ASKXQA+8
>> LRINI AGAIN+1*, AGAIN+2, AGAIN+3*, AGAIN+4, AGAIN+5, CHG+25*, CHG+27*, CHG+28
>> LRLABKY NOVER+18
>> LRLCT V1+8*, V1+16*, V1+28*
LRLOCKER LRVER3+4!, V1+2, V1+3*, V1+4
>> LRNAME( V1+21, V1+22, V1+23, V1+24
>> LRNOVER L10+12
>> LRNOVER( L10+12*, NOVER+4
>> LRNOVER(0 NOVER+1, NOVER+17
LRNOW L10+25~*, L10+27, CHG+1~, CHG+2*, CHG+9, CHG+20, NOW+2
LRNOW7 NOW+1~, NOW+2*
>> LRNTN V1+7, V1+19, V1+21, V1+35, L10+41
>> LRNX L10+2*
>> LRODT V11+2, V11+3, SET+21
>> LROK NOW+5
>> LRORD(0 L10+19
LRORU3 L10+9!, V11+9, SET+21
LROTA SET+1~
LROTA( SET+12*, SET+13*, SET+17, SET+20
>> LROUTINE V1+8
>> LRPARAM V1+30, V11+5
LRSA L10+9!, L10+32, L10+40, NOW+5!
LRSA( CHG+4, CHG+5, CHG+6*, CHG+11*, CHG+12*, CHG+13, CHG+15, CHG+17*, CHG+18, CHG+32!
CHG+34, DIDLE+2, SET+13
LRSB L10+9!, L10+10*, L10+11, L10+12, L10+26*, L10+27, L10+28, CHG+31*, CHG+32, CHG+33
CHG+34, DIDLE+2, RONLT+4, RONLT+15, RONLT+17
LRSB( L10+11*, L10+26, L10+27*, L10+28, NOVER+9, CHG+3, CHG+8*, CHG+9*, CHG+10*, CHG+11
CHG+12, CHG+13, CHG+16, CHG+19*, CHG+20*, CHG+21*, CHG+31, CHG+33, RONLT+4, RONLT+17*
SET+6, SET+7, SET+8
LRSB(0 NOVER+19, V11+9
>> LRSN V11+3
>> LRSPEC RONLT+15
>> LRSS V1+3, L10+10, L10+22, L10+28, L10+34, V11+2, CHG+32, CHG+33, DIDLE+5, NOW+6
RONLT+15, SET+21
LRT SET+1~, SET+8*, SET+10, SET+12
>> LRTEST V11+3
>> LRTM60 L10+5*
LRTPN SET+1~, SET+18*, SET+21
LRTPNN SET+1~, SET+8*, SET+9, SET+12, SET+13, SET+16*, SET+17*, SET+18, SET+20, SET+21
>> LRTS RONLT+4
LRTYPE SET+1~, SET+10*, SET+11
>> LRUID ASKXQA+8
LRUP L10+30!, CHG+2*, CHG+4*, CHG+7*, CHG+11*, CHG+12*, CHG+17*, CHG+22
>> LRUSI AGAIN+3, AGAIN+4, AGAIN+5, CHG+27, CHG+28
>> LRVF L10+24, L10+40, L10+41, L10+42, V11+8, V11+11*
>> LRVIDO V1+31, NOVER+14, CHG+24
>> LRVIDOF V1+33, NOVER+16, CHG+24
LRX V1+13*, V1+14, V1+15, V1+24*, V1+25, V1+26, NOVER+2~, NOVER+5~, NOVER+6*, NOVER+8
V11+6~, V11+7*, V11+8*, CHG+14~, CHG+15*, CHG+17, RONLT+3~, RONLT+8*, RONLT+9, RONLT+12
LRY CHG+14~, CHG+16*, CHG+17, RONLT+3~, RONLT+4*, RONLT+11*, RONLT+15*, RONLT+17
>> T1 V1+35*
U V1+25, V1+26, V1+30, V1+32, V9+1, V9+3, L10+11, L10+27, L10+34, L10+35
NOVER+9, NOVER+18, V11+5, V11+9, CHG+8, CHG+9, CHG+10, CHG+19, CHG+20, CHG+21
RONLT+4, RONLT+17, SET+8, SET+10, SET+21
X V1+7*, V9+1*, V9+2, V9+3, L10+34*, L10+35, READ+1~*, RONLT+3~, RONLT+10*, RONLT+11
SET+1~
>> X9 V1+35*, V9+3, L10+2
>> XRT0 V11+10
>> XRTL V11+1
>> XRTN V11+10*
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