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/CJS/JAH - DATA VERIFICATION ; 03-Oct-2016 10:28 ; MKK

Source Information

Source file <LRVER3.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Lab Service 11 BAWRK^LRBEBA  $$CHKINP^LRBEBA4  LOOK^LRCAPV1  ^LRDIDLE0  $$NLT^LRVER1  V7^LRVER2  VER^LRVER3A  (,WT)^LRVER4  
$$CHKCDSP^LRVERA  COM^LRVR4  RANGE^LRWU2  
Kernel 3 (T0,T1)^%ZOSV  $$NOW^XLFDT  ($$CJ,$$UP)^XLFSTR  
Automated Lab Instruments 2 $$DEFCODE^LA7VHLU5  SET^LA7VMSG  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Lab Service 7 LRGV  LRSTUF2  LRVER2  LRVER4  LRVER5  LRVR3  LRVR4  
IHS Laboratory Point of Care 1 BLRPOC2  

Entry Points

Name Comments DBIA/ICR reference
AGAIN ;
; R !,"Approve for release by entering your initials: ",LRINI:DTIME
LRORU3 ;
CHG ; Check for changes, save results and create audit trail
READ ;
GETINITS(PROMPT) ; EP - Get Initials. Mask User input.
V11
L10 ;
EP ; EP - LR*5.2*1031
V1
SET ;
EXIT
RONLT ; (R)esolve (O)rder NLT code from file #68 original ordered test or
; use default when not specified for file #60 test.
V9
NOW
DIDLE ;
; Check if no previous result or pending result - no audit trail needed
NOVER

External References

Name Field # of Occurrence
T0^%ZOSV V11
T1^%ZOSV V11+9
$$GET1^DIQ SET+18
$$DEFCODE^LA7VHLU5 RONLT+15
SET^LA7VMSG SET+21
BAWRK^LRBEBA V11+2
$$CHKINP^LRBEBA4 V11+1
LOOK^LRCAPV1 V11+4
^LRDIDLE0 NOW+2
$$NLT^LRVER1 RONLT+10
V7^LRVER2 L10+3
VER^LRVER3A V11+3
^LRVER4 L10+12
WT^LRVER4 V1+13, V1+25
$$CHKCDSP^LRVERA L10+4
COM^LRVR4 V1+16
RANGE^LRWU2 V1+4, V9+3
$$NOW^XLFDT L10+22, CHG+2, NOW
$$CJ^XLFSTR NOVER+2, NOVER+3, NOVER+4, NOVER+5, NOVER+6
$$UP^XLFSTR AGAIN+13, CHG+16, CHG+17, CHG+28

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," This entry is being edited by someone else."
  • Line Location: V1+3
Function Call: WRITE
  • Prompt: !,?3,$P(^LAB(60,I,0),"^"),?25," ",$P(LRX,"^",6)
  • Line Location: V1+12
Function Call: WRITE
  • Prompt: !,I," ",LRNAME(I)
  • Line Location: V1+19
Function Call: WRITE
  • Prompt: !?15
  • Line Location: V1+28
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: V1+28
Function Call: WRITE
  • Prompt: "Test ordered "_$P($G(^LAB(62.05,+LRALERT,0)),U)
  • Line Location: V1+29
Function Call: WRITE
  • Prompt: @LRVIDOF
  • Condition for execution: IOST["C-"
  • Line Location: V1+30
Function Call: WRITE
  • Prompt: !,$C(7)
  • Line Location: V1+30
Function Call: READ
  • Prompt: "TEST #(s) (or ""ALL""): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: V9+1
Function Call: WRITE
  • Prompt: !,"Enter for example 1,2,5-9."
  • Line Location: V9+2
Function Call: WRITE
  • Prompt: !,"Test Not Reviewed: ",$P(^DD(63.04,I,0),U)
  • Line Location: NOVER+1
Function Call: WRITE
  • Prompt: " = "_$P(LRSB(I),U)_" "_$P(LRSB(I),U,2)
  • Condition for execution: $D(LRSB(I))#2
  • Line Location: NOVER+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("The above test(s) have results already entered,",80)
  • Line Location: NOVER+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("but you did not select them for review.",80)
  • Line Location: NOVER+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Accession NOT approved. ",80),$C(7)
  • Line Location: NOVER+4
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("You must review all results before ANY can be released.",80),!!
  • Line Location: NOVER+5
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: NOVER+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Suggest you select 'ALL' tests for verification/review. ",80)
  • Line Location: NOVER+6
Function Call: WRITE
  • Prompt: @LRVIDOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: NOVER+6
Function Call: WRITE
  • Prompt: $$CJ^XLFSTR("Suggest you select 'ALL' tests for verification/review. ",80)
  • Line Location: NOVER+6
Function Call: WRITE
  • Prompt: !,"Has not been reviewed and has data. Not approved.",!
  • Line Location: NOVER+7
Function Call: WRITE
  • Prompt: !,$C(7),"ENTERED BUT NOT APPROVED",!
  • Line Location: NOVER+8
Function Call: WRITE
  • Prompt: !?5,"Nothing verified ",$C(7),!
  • Line Location: NOVER+9
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+7
Function Call: WRITE
  • Prompt: !!?5,$C(7),"*** Nothing verified! ***"
  • Line Location: AGAIN+10
Function Call: WRITE
  • Prompt: *7,!
  • Line Location: AGAIN+10
Function Call: WRITE
  • Prompt: !,$C(7),"Please enter your correct initials"
  • Line Location: AGAIN+14
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+15
Function Call: WRITE
  • Prompt: !!,"Press ENTER or RETURN to continue: "
  • Line Location: READ+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: "Approve update of data by entering your initials: "
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: @LRVIDO
  • Condition for execution: IOST["C-"
  • Line Location: CHG+22
Function Call: WRITE
  • Prompt: !,$C(7),"No updating occurred ",!
  • Line Location: CHG+30
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHG+36
Function Call: WRITE
  • Prompt: !
  • Line Location: NOW+1
Function Call: READ
  • Timeout: TEXT="^"
  • Variable: TEXT#1 S
  • Line Location: GETINITS+5
Function Call: WRITE
  • Prompt: $C(8),"*"
  • Line Location: GETINITS+5
Function Call: READ
  • Timeout: TEXT="^"
  • Variable: TEXT#1 S
  • Line Location: GETINITS+6
Function Call: WRITE
  • Prompt: $C(8),"*"
  • Line Location: GETINITS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAM - [#64] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.04 NOVER+1
^LAB(60 - [#60] V1+12, SET+10
^LAB(62.05 - [#62.05] V1+29
^LAM("C" SET+18
^LR - [#63] L10+6, L10+25*, L10+30, CHG+33, CHG+34*, DIDLE+5, NOW+4
^LRO(68 - [#68] V1+9, V1+10, V1+20, V1+21, V11+4, V11+7, RONLT+8
^TMP("LR" V11+7, SET+8

Label References

Name Line Occurrences
$$GETINITS AGAIN+4, CHG+25
AGAIN AGAIN+14
CHG L10+28
DIDLE CHG+35
EXIT V1+16, V9+3, L10+15, L10+17, L10+28, L10+31, NOVER, NOVER+7, NOVER+8, NOVER+9
, AGAIN+10, AGAIN+15
L10 V1+4, V1+32
LRORU3 V11+8
READ AGAIN+10, AGAIN+15
V1 EP+1, L10+31
V11 L10+30, L10+31
V9 V9+2

Naked Globals

Name Field # of Occurrence
^( L10+8, L10+9, V11+7*
^(0 L10+30*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANSWER GETINITS+1~, GETINITS+4*, GETINITS+6*, GETINITS+7
CNT NOVER+10~*, AGAIN+14*
DTIME V9+1, READ+1
>> I V1+8*, V1+9*, V1+10, V1+12, V1+18*, V1+19, V1+20, V1+21, NOVER+1*
IOST V1+28, V1+30, NOVER+6, CHG+22
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+9, V1+10, V1+20, V1+21, V11+4, RONLT+8
>> LRAD V1+9, V1+10, V1+20, V1+21, RONLT+8
>> LRAL V1+22*, V1+24
>> LRALERT V1+5*, V1+24*, V1+27, V1+29
>> LRALL V1+5*, V1+19*, V9*, V9+1
>> LRAN V1+9, V1+10, V1+20, V1+21, RONLT+8
>> LRBEY V11+2
LRCHG L10+21, L10+28!, CHG+3*, CHG+4, CHG+7, CHG+8, CHG+10, CHG+12, CHG+13, CHG+14
, CHG+16, CHG+17, CHG+18, CHG+19
>> LRCMTDSP L10+4*
LRCORECT L10+1~*, NOW+5*
>> LRDFN V1+1, L10+6, L10+25, L10+30, V11+1, V11+7, CHG+33, CHG+34, DIDLE+5, NOW+4
, SET+21
LRDN SET+1~, SET+5*, SET+6*, SET+7, SET+8, SET+12, SET+13
>> LRDPF V11+1
>> LREDIT L10+11*
>> LREND L10+28*, CHG+20*, CHG+21*, CHG+28, CHG+29*, CHG+30
LRF L10+30!, DIDLE+4*
>> LRGVP V1+4, L10+15, L10+31
>> LRIDT V1+1, L10+6, L10+25, L10+30, V11+7, CHG+33, CHG+34, DIDLE+5, NOW+4, SET+21
>> LRINI AGAIN+4*, AGAIN+10, AGAIN+13*, AGAIN+14, AGAIN+15, CHG+25*, CHG+28*, CHG+29
>> LRLABKY NOVER+8
>> LRLCT V1+5*, V1+13*, V1+25*
LRLOCKER EP+2!, V1, V1+1*, V1+2
>> LRNAME( V1+18, V1+19, V1+20, V1+21
>> LRNOVER L10+10
>> LRNOVER( L10+10*, NOVER+1
>> LRNOVER(0 NOVER, NOVER+7
LRNOW L10+22~*, L10+24, CHG+2*, CHG+10, CHG+19
>> LRNOW7 NOW*
>> LRNTN V1+4, V1+16, V1+18, V1+32, L10+31
>> LRNX L10+2*
>> LRODT V11+1, V11+2, SET+21
>> LROK NOW+3
>> LRORD(0 L10+17
LRORU3 L10+5!, V11+8, SET+21
LROTA SET+1~
LROTA( SET+12*, SET+13*, SET+17, SET+20
>> LROUTINE V1+5
>> LRPARAM V1+27, V11+4
LRSA L10+5!, L10+30, L10+31, NOW+3!
LRSA( CHG+4, CHG+7, CHG+8*, CHG+12*, CHG+13*, CHG+14, CHG+16, CHG+18*, CHG+19, CHG+33!
, CHG+35, DIDLE+2, SET+13
LRSB L10+5!, L10+6*, L10+7, L10+8, L10+9, L10+10, L10+23*, L10+24, L10+25, CHG+32*
, CHG+33, CHG+34, CHG+35, DIDLE+2, RONLT+4, RONLT+15, RONLT+17
LRSB( L10+9*, L10+23, L10+24*, L10+25, NOVER+1, CHG+3, CHG+10*, CHG+12, CHG+13, CHG+14
, CHG+17, CHG+19*, CHG+32, CHG+34, RONLT+4, RONLT+17*, SET+6, SET+7, SET+8
LRSB(0 NOVER+9, V11+8
>> LRSN V11+2
>> LRSPEC RONLT+15
>> LRSS V1+1, L10+6, L10+25, L10+30, V11+1, CHG+33, CHG+34, DIDLE+5, NOW+4, RONLT+15
, SET+21
LRT SET+1~, SET+8*, SET+10, SET+12
>> LRTEST V11+2
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
LRUP L10+28!, CHG+1*, CHG+4*, CHG+9*, CHG+12*, CHG+13*, CHG+18*, CHG+20
>> LRUSI AGAIN+13, AGAIN+14, AGAIN+15, CHG+28, CHG+29
>> LRVF L10+21, L10+31, V11+7, V11+10*
>> LRVIDO V1+28, NOVER+6, CHG+22
>> LRVIDOF V1+30, NOVER+6, CHG+22
LRX V1+10*, V1+11, V1+12, V1+21*, V1+22, V1+23, V11+5~, V11+6*, V11+7*, CHG+15~
, CHG+16*, CHG+18, RONLT+3~, RONLT+8*, RONLT+9, RONLT+12
LRY CHG+15~, CHG+17*, CHG+18, RONLT+3~, RONLT+4*, RONLT+11*, RONLT+15*, RONLT+17
PROMPT GETINITS~, GETINITS+3
STEP GETINITS+1~, GETINITS+6*
>> T1 V1+32*
TEXT GETINITS+1~, GETINITS+6*
U V1+22, V1+23, V1+27, V1+29, V9+1, V9+3, L10+9, L10+24, L10+30, NOVER+1
, NOVER+8, V11+4, V11+8, CHG+10, CHG+19, RONLT+4, RONLT+17, SET+8, SET+10, SET+21
X V1+4*, V9+1*, V9+2, V9+3, L10+30*, READ+1~*, RONLT+3~, RONLT+10*, RONLT+11, SET+1~
>> X9 V1+32*, V9+3, L10+2
>> XRT0 V11+9
>> XRTL V11
>> XRTN V11+9*
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