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

Source Information

Source file <LRVR3.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
Lab Service 8 BAWRK^LRBEBA  $$CHKINP^LRBEBA4  LOOK^LRCAPV1  LRORU3^LRVER3  VER^LRVER3A  $$CHKCDSP^LRVERA  ^LRVR4  PT^LRX  
VA Fileman 4 YN^DICN  $$GET1^DID  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 6 LRGV2  LRLLS  LRLLS3  LRVER5  LRVR2  LRVRPOC  

Entry Points

Name Comments DBIA/ICR reference
AGAIN ;
; R !,"Approve for release by entering your initials: ",LRINI:DTIME
ZAPALL(LRLL,LAIEN) ;Clean up
ZAP2 ;Clear ^LAH(
EDIT
V11 ;Still locked from V1 L ^LR(LRDFN,LRSS,LRIDT)
LKCHK
LINKOK
V1
A3
LINK ; Check and save link
TNR ; List tests not reviewed and ask if user wants to delete.
READ ;
ZAP ; from LRLLS3

External References

Name Field # of Occurrence
YN^DICN A3+12, LINK+16
$$GET1^DID TNR+19
$$GET1^DIQ TNR+18
^DIR TNR+26
BAWRK^LRBEBA A3+1
$$CHKINP^LRBEBA4 A3
LOOK^LRCAPV1 A3+4
LRORU3^LRVER3 V11+10
VER^LRVER3A A3+2
$$CHKCDSP^LRVERA V1+9
^LRVR4 EDIT+6
PT^LRX LINK+11
$$NOW^XLFDT V11+3
$$UP^XLFSTR AGAIN+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," This entry is being edited by someone else."
  • Line Location: V1+4
Function Call: WRITE
  • Prompt: !,"NO DATA TO APPROVE"
  • Line Location: EDIT+8
Function Call: WRITE
  • Prompt: !,$P(^DD(63.04,I,0),U)
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !,"Have not been reviewed and have data. Not approved."
  • Line Location: EDIT+11
Function Call: WRITE
  • Prompt: !,$C(7),"ENTERED BUT NOT APPROVED"
  • Line Location: EDIT+12
Function Call: WRITE
  • Prompt: !,"Approve for release by entering your initials: "
  • Line Location: AGAIN+6
Function Call: READ
  • Timeout: TEXT="^"
  • Variable: TEXT#1 S
  • Line Location: AGAIN+8
Function Call: WRITE
  • Prompt: $C(8),"*"
  • Line Location: AGAIN+8
Function Call: READ
  • Timeout: TEXT="^"
  • Variable: TEXT#1 S
  • Line Location: AGAIN+9
Function Call: WRITE
  • Prompt: $C(8),"*"
  • Line Location: AGAIN+9
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+13
Function Call: WRITE
  • Prompt: !,$C(7),"Please enter your correct initials"
  • Line Location: AGAIN+15
Function Call: WRITE
  • Prompt: !!?5,$C(7),"Nothing verified!"
  • Line Location: AGAIN+16
Function Call: WRITE
  • Prompt: !,"Purge data from sequence number(s): "
  • Line Location: A3+10
Function Call: WRITE
  • Prompt: " ",I
  • Line Location: A3+11
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING - NO MATCHING ACCESSION WAS FOUND.",!,"You may need to Clear instrument/worklist data,",!,"or correctly identify the sample to the system."
  • Line Location: LINK+2
Function Call: WRITE
  • Prompt: !,PNM,?30,SSN,!,$C(7)
  • Line Location: LINK+3
Function Call: WRITE
  • Prompt: !,$C(7),"WARNING - NO MATCHING ACCESSION WAS FOUND."
  • Line Location: LINK+7
Function Call: WRITE
  • Prompt: !,"You may need to Clear instrument/worklist data,"
  • Line Location: LINK+8
Function Call: WRITE
  • Prompt: !,"or correctly identify the sample to the system."
  • Line Location: LINK+9
Function Call: WRITE
  • Prompt: !,PNM,?30,HRCN,!,$C(7)
  • Line Location: LINK+12
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
Routine Call
  • DIR
  • Line Location:
    • TNR+26

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)
^DD(63.04 EDIT+10
^LAB(60 - [#60] TNR+17
^LAH( V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4!, EDIT+5*, EDIT+7*, EDIT+8
, V11+6!, A3+8, LINKOK!, LINKOK+1*, LKCHK, ZAPALL+4, ZAPALL+5!, ZAPALL+6!, ZAPALL+7!, ZAPALL+8!
, ZAPALL+10, ZAPALL+12!, ZAPALL+18, ZAPALL+20, ZAPALL+21, ZAPALL+22!, ZAPALL+24!, ZAPALL+27, ZAPALL+28, ZAPALL+29*
, ZAPALL+30, TNR+6, TNR+7, TNR+8!, TNR+11, TNR+15, TNR+16
^LAH("LA7 AMENDED RESULTS" ZAPALL+14, ZAPALL+15!
^LR - [#63] V11+8*, LINK+10, TNR+8
^LRO(68 - [#68] V11+8, A3+4, LINK+1
^TMP("LR" V1+15, V11+5

Label References

Name Line Occurrences
AGAIN AGAIN+15
LINK V1+6
LINKOK LINK+1
LKCHK V1+6, LINK+1
READ AGAIN+13, AGAIN+16
TNR A3+6
V1 LRVR3+3
ZAPALL A3+8, A3+15, ZAP+1, ZAP2+1, TNR+28

Naked Globals

Name Field # of Occurrence
^( V11+5, V11+8*
^(0 LINK+1, LINK+10, LKCHK

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A3+12*, LINK+16*
ANSWER AGAIN+5~, AGAIN+7*, AGAIN+9*, AGAIN+10
CNT EDIT+13~*, AGAIN+15*
>> DFN LINK+10*
DIR TNR+2~
DIR("?" TNR+23*, TNR+24*, TNR+25*
DIR("A" TNR+22*
DIR("B" TNR+22*
DIR(0 TNR+22*
DIROUT TNR+2~
DIRUT TNR+2~, TNR+26
DTIME READ+1
DUOUT TNR+2~
DUZ(2 A3+6
>> HRCN LINK+6, LINK+12, LINK+13*
I EDIT+10*, A3+11*, ZAP+1, ZAP2+1, ZAPALL+1~, ZAPALL+13*, ZAPALL+14*, ZAPALL+15, TNR+2~, TNR+5*
, TNR+6*, TNR+7, TNR+8, TNR+14*, TNR+15*, TNR+16, TNR+17, TNR+19
LAIEN A3+13~, A3+14*, A3+15*, ZAPALL~, ZAPALL+2, ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8
, ZAPALL+10, ZAPALL+12, ZAPALL+15, ZAPALL+18, ZAPALL+20, ZAPALL+21, ZAPALL+22, ZAPALL+24
LR60 TNR+2~, TNR+17*, TNR+18
>> LRAA A3+4, LINKOK+1, LKCHK
>> LRAD LINKOK+1, LKCHK
>> LRAN LINKOK+1, LKCHK
>> LRBETST A3+1
>> LRBEY A3+1
>> LRCMTDSP V1+9*
LRCORECT V11+1~*
>> LRDFN V1+2, V11+8, A3, LINK+1, TNR+8
>> LRDPF A3, LINK+6, LINK+10*, LINK+13*
>> LRDUZ(2 A3+6
>> LREDIT EDIT+2*
>> LRGVP EDIT+9, LINK+16
>> LRIDT V1+2, V11+8, TNR+8
>> LRINI AGAIN+10*, AGAIN+13, AGAIN+14*, AGAIN+15, AGAIN+16
>> LRLABKY EDIT+12
>> LRLK LINK+1, LINKOK, LKCHK*
LRLKOK LRVR3+5!, V1+6!, LINK+1, LINKOK+1*, LKCHK*
LRLL V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8
, V11+6, A3+8, A3+15, ZAP+1, LINKOK, LINKOK+1, LKCHK, ZAP2+1, ZAPALL~, ZAPALL+2
, ZAPALL+4, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+10, ZAPALL+12, ZAPALL+15, ZAPALL+18, ZAPALL+20
, ZAPALL+21, ZAPALL+22, ZAPALL+24, ZAPALL+27, ZAPALL+28, ZAPALL+29, ZAPALL+30, TNR+6, TNR+7, TNR+8
, TNR+11, TNR+15, TNR+16, TNR+28
LRLOCKER LRVR3+4!, V1+1, V1+2*, V1+3
LRNOVER LRVR3+5!, V1+15
LRNOVER( V1+15*, EDIT+10
LRNOVER(0 EDIT+11
LRNOW V11+3~*, V11+8
LRNUF EDIT+4!
>> LRODT A3, A3+1
>> LRORU3 V11+10
>> LRPARAM A3+4
>> LRPRGSQ A3+9
>> LRPRGSQ( A3+11, A3+15
LRSA LRVR3+5!, V1+7!
LRSB LRVR3+5!, V1+7!
LRSB( V1+14*, EDIT+7, V11+5, V11+8*
LRSB(0 V11+10
LRSBCOM LRVR3+5!, V1+7!, A3+3!
LRSBCOM( V1+22*
>> LRSN A3+1
>> LRSQ V1+12, V1+14, V1+20, V1+22, EDIT, EDIT+3, EDIT+4, EDIT+5, EDIT+7, EDIT+8
, V11+6, A3+8, LINKOK, LINKOK+1, LKCHK, TNR+6, TNR+7, TNR+8, TNR+11, TNR+15
, TNR+16, TNR+28
>> LRSS V1+2, V11+8, A3, A3+6, TNR+8
>> LRTN V1*
>> LRUSI AGAIN+14, AGAIN+15, AGAIN+16
>> LRVF V11+8
>> LRVTS( V1+15, V11+5
LRX V1+10~, V1+11*, V1+12*, V1+13, V1+14, V1+15, V1+17*, V1+20*, V1+21, V1+22
, EDIT+3*, EDIT+5*, EDIT+7*, V11+2~, V11+4*, V11+5*, V11+6, V11+8
NODE ZAPALL+1~, ZAPALL+4*, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8
NODE("U" ZAPALL+10*, ZAPALL+11, ZAPALL+12, ZAPALL+14, ZAPALL+15
>> PNM LINK+6, LINK+12, LINK+13*
S1 LINK+6*, LINK+13, LINK+16!
S2 LINK+6*, LINK+13, LINK+16!
S3 LINK+6*, LINK+13, LINK+16!
SEG ZAPALL+1~, ZAPALL+17*, ZAPALL+18*, ZAPALL+20, ZAPALL+21
>> SEGID ZAPALL+19*, ZAPALL+20*, ZAPALL+21, ZAPALL+22
STEP AGAIN+5~, AGAIN+9*
SUB ZAPALL+1~, ZAPALL+21*, ZAPALL+22
TEXT AGAIN+5~, AGAIN+9*
U EDIT+10, EDIT+12, V11+8, V11+10, A3+4, LINK+1, LINK+10, LINKOK, LINKOK+1, LKCHK
, ZAPALL+5, ZAPALL+6, ZAPALL+7, ZAPALL+8, ZAPALL+10, ZAPALL+21
X EDIT+1~, LINK+1*, LINK+10, TNR+2~, TNR+7*, TNR+8, TNR+16*, TNR+20, READ+1~*
X( EDIT+3*, EDIT+5!
Y TNR+2~, TNR+28
>> ZTQUEUED A3+6, A3+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