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

Package: Lab Service

Routine: LR7OMERG


Information

LR7OMERG ;DALOI/STAFF-MERGE ACCESSION ;Jul 04, 2023@16:45

Source Information

Source file <LR7OMERG.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Lab Service 5 EXPAND^LR7OU1  (LRACC,SET)^LRTSTOUT  69^LRTSTSET  ORUT^LRWLST11  PT^LRX  
VA FileMan 3 $$FIND1^DIC  (FILE,YN)^DICN  FILE^DIE  
Automated Lab Instruments 1 EN^LA7ADL  
Kernel 1 $$NOW^XLFDT  
Registration 1 KVA^VADPT  

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

Package Total Caller Graph
Lab Service 5 LRACC MERGE  LRHYLS1  LRVER4  LRVR4  LRWRKLS1  

Entry Points

Name Comments DBIA/ICR reference
EN ;Merge 2 accessions together
EN1 ;
2 ;
OK ;
ZAP(LRODT,LRSN,LRAA,LRAD,LRAN,LRIDT,LRMERG) ;
PRAC(LRAA,LRAD,LRAN,Y) ;Find all ordering providers for a given accession
UL2 ;Unlock 2nd accession
UL1 ;Unlock 1st accession
CHK(ARAY1,ARAY2,OUT) ;Check for duplicate tests on accessions
; ARAY1(tst)=test aray from accession being merged
; ARAY2(tst)=test aray from accession being merged to
; Output [OUT] is an array of tests from ARAY1 that are not duplicated in ARAY2
WRITE(AA,AD,AN,SP,COMP,ARAY) ; Display accession with tests
; AA=Accession area, AD=Accession Date, AN=Accession #, SP=ptr to 61 specimen
; COMP=1 (returned) if all tests on accession are complete
; ARAY(TST) (returned) for all tests on accession
SET68(LRTSTS,URG,LRPRIM) ;Set file 68
SET69(LRODT,LRSN,LRTS,LRURG,LRAA,LRAODT,LRAN) ;Set file 69
END ;

External References

Name Field # of Occurrence
$$FIND1^DIC OK+8
FILE^DICN SET69+20
YN^DICN OK+1, OK+54
FILE^DIE SET69+15
EN^LA7ADL OK+50
EXPAND^LR7OU1 CHK+7
LRACC^LRTSTOUT EN1+2, 2+1
SET^LRTSTOUT ZAP+10
69^LRTSTSET SET69+23
ORUT^LRWLST11 OK+20
PT^LRX EN1+8, 2+11
KVA^VADPT END+4
$$NOW^XLFDT ZAP+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Merge from..."
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !?5,"This is not a valid Accession number ",!,$C(7)
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry ",!,$C(7)
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: ?35,PNM,?65,SSN
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!,"Merge into..."
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: !?5,"This is not a valid Accession number ",!,$C(7)
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot merge into the same accession"
  • Line Location: 2+4
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot merge a """_LRSS_""" accession into a """_$P(^(0),"^",2)_""" accession"
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: !?5,"Someone else is editing this entry ",!,$C(7)
  • Line Location: 2+7
Function Call: WRITE
  • Prompt: ?35,PNM,?65,SSN
  • Line Location: 2+11
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot merge accessions for different patients!"
  • Line Location: 2+12
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot merge accessions with different specimens"
  • Line Location: 2+16
Function Call: WRITE
  • Prompt: !!,$C(7),"Cannot merge accessions with completed results"
  • Line Location: 2+17
Function Call: WRITE
  • Prompt: !
  • Line Location: 2+19
Function Call: WRITE
  • Prompt: !,"<<"_$P(^LAB(60,I,0),"^")_" normally belongs to accession area: "_$P(^LRO(68,J,0),"^")_">>",$C(7)
  • Line Location: 2+23
Function Call: WRITE
  • Prompt: !!,"Ok to merge"
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: !!,"Enter 'Yes' to merge these accessions, 'No' to abort."
  • Line Location: OK+2
Function Call: WRITE
  • Prompt: !!,"NOTHING MERGED!",!
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: !!,"Accessions merged!"
  • Line Location: OK+46
Function Call: WRITE
  • Prompt: !!,"Accession #"_LRAN_" now looks like:"
  • Line Location: OK+47
Function Call: WRITE
  • Prompt: !,"Merge another accession"
  • Line Location: OK+53
Function Call: WRITE
  • Prompt: !,"UID: ",$P(^(.3),U)
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(61,+$G(SP),0)):$P(^(0),"^"),1:""),?35,"TESTS ON ACCESSION: "
  • Line Location: WRITE+9
Function Call: WRITE
  • Prompt: !,?40,$P(^LAB(60,I,0),U)
  • Line Location: WRITE+14
Routine Call
  • DIC
  • Line Location:
    • OK+8
Routine Call
  • DIE
  • Line Location:
    • SET69+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] 2+22, 2+23, OK+23, OK+26, OK+28, ZAP+9, WRITE+12, WRITE+14
^LAB(61 - [#61] WRITE+9
^LR - [#63] EN1+7, 2+11, OK+41*
^LRO(68 - [#68] EN1+3, EN1+4, EN1+6, 2+3, 2+5, 2+7, 2+8, 2+21, 2+23, OK+18
, OK+36, OK+37, OK+40, OK+49, ZAP+8, PRAC+2, UL2+4, UL1+4, WRITE+7, WRITE+8
, WRITE+11, WRITE+13, SET68+4, SET68+5*, SET68+6*, SET68+7*, SET69+10
^LRO(69 - [#69] OK+16, OK+17, ZAP+5, PRAC+5, PRAC+6, PRAC+7, SET69+6, SET69+9

Label References

Name Line Occurrences
2 2+3, 2+4, 2+7
CHK OK+10, OK+27
EN 2+5, 2+12, 2+16, 2+17
EN1 EN1+3, EN1+4, OK+54
END EN+1, OK+52
OK OK+2
SET68 OK+29, OK+34, OK+35
SET69 OK+29, OK+34, OK+35
UL1 2+1, OK+3, OK+44
UL2 2+12, 2+16, 2+17, OK+3, OK+44
WRITE EN1+10, 2+14, OK+47
ZAP OK+38

Naked Globals

Name Field # of Occurrence
^( EN1+6, 2+8, OK+26, OK+28, OK+36, OK+41, PRAC+6, WRITE+8
^(0 EN1+7, 2+5, 2+11, OK+37, PRAC+2, PRAC+5, PRAC+7, WRITE+9, SET68+5*, SET68+7*
^(3 EN1+6, 2+8
^(5 EN1+6, 2+8
^(9 OK+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK+1*, OK+2, OK+3, OK+54*
AA WRITE~, WRITE+7, WRITE+8, WRITE+11, WRITE+13
AD WRITE~, WRITE+7, WRITE+8, WRITE+11, WRITE+13
AGE END+5!
AN WRITE~, WRITE+7, WRITE+8, WRITE+11, WRITE+13
ARAT OK+24~, OK+27
ARAT( OK+26*
ARAY WRITE~
ARAY( WRITE+13*, WRITE+15
ARAY1 CHK~
ARAY1( CHK+6
ARAY2 CHK~
ARAY2( CHK+6, CHK+7
ARAY2(0 CHK+4
COMP EN1+1*, EN1+10, 2+14, 2+17, WRITE~, WRITE+15*, END+1!
D0 END+5!
DA SET69+1~, END+2!
DA(1 SET69+18*
DA(2 SET69+18*
DFN EN1+7*, 2+11*, END+3!
DI END+5!
DIC SET69+1~, SET69+18*
DIC(0 SET69+19*
DIE SET69+1~
>> DILOCKTM EN1+4, 2+7
DINUM SET69+1~
DO SET69+1~
DOB END+3!
DR SET69+1~
DUZ(2 2+22
I 2+20*, 2+21*, 2+22, 2+23, PRAC+1~, PRAC+6*, CHK+5~, CHK+6*, CHK+7*, CHK+8*
, WRITE+5~, WRITE+10*, WRITE+11*, WRITE+12, WRITE+13, WRITE+14, WRITE+15, END+1!
IFN END+5!
IN2 CHK+5~, CHK+7
IN2( CHK+8
J 2+22*, 2+23, OK+25*, OK+26*, OK+28*, END+1!
LR1AA EN1+11*, 2+4, 2+21, OK+18, OK+36, OK+37, OK+38, OK+40, UL1+4, END+1!
LR1AD EN1+11*, 2+4, 2+21, OK+18, OK+36, OK+37, OK+38, OK+40, UL1+4, END+1!
LR1AN EN1+11*, 2+4, 2+21, OK+18, OK+36, OK+37, OK+38, OK+40, UL1+4, END+1!
LR1ODT EN1+7*, OK+17, OK+38, END+1!
LR1SN EN1+7*, OK+17, OK+38, END+2!
LRAA EN1+3, EN1+4, EN1+6, EN1+10, EN1+11, 2+3, 2+4, 2+5, 2+7, 2+8
, 2+14, 2+23, OK+29, OK+34, OK+35, OK+47, OK+49, ZAP~, ZAP+8, PRAC~
, PRAC+2, UL2+4, SET68+4, SET68+5, SET68+6, SET68+7, SET69~, SET69+10, SET69+12, END+1!
LRACC EN1+1*, 2+1*, END+1!
LRAD EN1+3, EN1+4, EN1+6, EN1+10, EN1+11, 2+3, 2+4, 2+7, 2+8, 2+14
, OK+34, OK+35, OK+47, OK+49, ZAP~, ZAP+8, PRAC~, PRAC+2, UL2+4, SET68+4
, SET68+5, SET68+6, SET68+7, SET69+10, END+1!
LRAGE END+6!
LRAN EN1+2, EN1+3, EN1+4, EN1+6, EN1+10, EN1+11, 2+1, 2+3, 2+4, 2+7
, 2+8, 2+14, OK+29, OK+34, OK+35, OK+47, OK+49, ZAP~, ZAP+8, PRAC~
, PRAC+2, UL2+4, SET68+4, SET68+5, SET68+6, SET68+7, SET69~, SET69+10, SET69+13, END+1!
LRAODT EN1+7*, 2+11*, OK+29, SET69~, SET69+11, END+2!
LRCCOM 2+9*, END+5!
LRCOMX ZAP+3~
LRCWDT OK+37*, END+2!
LRDFN EN1+7*, 2+11*, OK+41, END+2!
LRDIE SET69+7~
LRDPF EN1+7*, 2+11*, END+2!
LREND END+2!
LRF END+2!
LRFDA SET69+7~
LRFDA(1 SET69+11*, SET69+12*, SET69+13*, SET69+14*
LRFLG SET69+1~, SET69+3*
LRIDIV END+2!
LRIDT 2+8*, OK+41, ZAP~, END+1!
LRIDT1 EN1+6*, OK+38, OK+41, END+1!
LRIENS SET69+7~, SET69+9*, SET69+11, SET69+12, SET69+13, SET69+14
LRII OK+6~, OK+11*, OK+12*, OK+13, OK+16, OK+22, OK+23, OK+26, OK+28, OK+29
, OK+35, END+5!
LRLFTOVR OK+6~, OK+10, END+5!
LRLFTOVR( OK+22
LRLLOC END+5!
LRMERG ZAP~
LRNATURE 2+9*, SET69+1~, SET69+3*, END+5!
LRNLT OK+6~, END+5!
LRNOW ZAP+3~, ZAP+6*, END+5!
LROCN OK+36*, END+2!
LRODT 2+11*, OK+16, OK+29, OK+34, OK+35, ZAP~, ZAP+5, PRAC+1~, PRAC+3*, PRAC+4
, PRAC+5, PRAC+6, SET69~, SET69+6, SET69+9, SET69+18, END+2!
LROID OK+36*, END+2!
LRORD 2+8*, END+1!
LRORDTST ZAP+3~
LRORDTYP OK+6~, OK+8*
LRORIFN OK+15~, OK+17*
LROSN OK+36*, END+2!
LROWDT OK+37*, END+2!
LRPHSET SET69+1~, SET69+3*
LRPRAC OK+15~, OK+18*, END+2!
LRPRIM SET68~, SET68+5
LRRB END+2!
LRSAMP OK+15~, OK+19*
LRSN 2+11*, OK+16, OK+29, OK+34, OK+35, ZAP~, ZAP+5, PRAC+1~, PRAC+3*, PRAC+4
, PRAC+5, PRAC+6, SET69~, SET69+6, SET69+9, SET69+18, END+2!
LRSOF OK+6~, SET69+8*
LRSPEC OK+15~, OK+19*
LRSS EN1+6*, 2+5, OK+41, END+1!
LRSUBJ OK+32~, OK+33*, OK+34*
LRT1SAD EN1+10, OK+10, END+2!
LRT1SAD( OK+12, OK+13
LRTNM ZAP+3~, ZAP+9*, END+6!
LRTOACC 2+8*, 2+9, END+3!
LRTREA END+2!
LRTS SET69~, SET69+6, SET69+9, SET69+19
LRTSAD 2+14, OK+10, OK+27, END+2!
LRTSORU OK+6~, OK+13*, OK+14, OK+21, OK+29, OK+34, OK+35, END+6!
LRTSORU( OK+14, OK+21*
LRTSTS ZAP+3~, ZAP+7*, ZAP+8*, ZAP+9, SET68~, SET68+4, SET68+5, SET68+6, SET68+7, END+6!
LRURG OK+15~, OK+19*, SET69~
LRWRD END+2!, END+3!
LRX OK+15~, OK+16*, OK+17, END+2!
LRX1 EN1+6*, 2+12, END+1!
LRXDA SET69+1~, SET69+7~, SET69+9*
LRXDA(3 SET69+10*, SET69+14
OUT CHK~
OUT( CHK+6*, CHK+8!
PNM EN1+9, 2+11, END+3!
PROV PRAC+1~, PRAC+2*, PRAC+5, PRAC+7
SAME OK+24~, OK+28*, OK+29
SEX END+3!
SP WRITE~, WRITE+9
SPEC 2+8*, 2+14, 2+16, OK+19, OK+47, END+2!
SPEC1 EN1+6*, EN1+10, 2+16, END+2!
SSN EN1+9, 2+11, END+3!
SUB OK+24~, OK+27
SUB( OK+28, OK+34
TST END+2!
U EN1+7, 2+11, 2+22, OK+13, OK+17, OK+18, OK+19, OK+36, OK+37, OK+49
, ZAP+9, WRITE+8, WRITE+14, WRITE+15, SET68+5
URG OK+6~, OK+13*, OK+19, OK+29, OK+34, OK+35, SET68~, SET68+5, END+6!
VA END+3!
VA200 END+3!
VADM END+3!
VAERR END+3!
VAIN END+3!
X EN1+6*, EN1+7, 2+8*, 2+11, 2+12, OK+13*, OK+36*, OK+49*, OK+50, PRAC+1~
, PRAC+2*, PRAC+3, PRAC+6*, PRAC+7, SET69+1~, SET69+19*, END+1!
X1 END+1!
Y PRAC~, SET69+1~, END+3!
Y( PRAC+5*, PRAC+7*
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