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 ;07/27/09 17:14

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+7
FILE^DICN SET69+20
YN^DICN OK+1, OK+50
FILE^DIE SET69+15
EN^LA7ADL OK+46
EXPAND^LR7OU1 CHK+7
LRACC^LRTSTOUT EN1+2, 2+1
SET^LRTSTOUT ZAP+9
69^LRTSTSET SET69+23
ORUT^LRWLST11 OK+19
PT^LRX EN1+8, 2+11
KVA^VADPT END+4
$$NOW^XLFDT ZAP+5

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+42
Function Call: WRITE
  • Prompt: !!,"Accession #"_LRAN_" now looks like:"
  • Line Location: OK+43
Function Call: WRITE
  • Prompt: !,"Merge another accession"
  • Line Location: OK+49
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+7
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+22, OK+25, OK+27, ZAP+8, WRITE+12, WRITE+14
^LAB(61 - [#61] WRITE+9
^LR - [#63] EN1+7, 2+11, OK+37*
^LRO(68 - [#68] EN1+3, EN1+4, EN1+6, 2+3, 2+5, 2+7, 2+8, 2+21, 2+23, OK+17
, OK+32, OK+33, OK+36, OK+45, ZAP+7, 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+15, OK+16, ZAP+4, PRAC+5, PRAC+6, PRAC+7, SET69+6, SET69+9

Label References

Name Line Occurrences
2 2+3, 2+4, 2+7
CHK OK+9, OK+26
EN 2+5, 2+12, 2+16, 2+17
EN1 EN1+3, EN1+4, OK+50
END EN+1, OK+48
OK OK+2
SET68 OK+28, OK+30, OK+31
SET69 OK+28, OK+30, OK+31
UL1 2+1, OK+3, OK+40
UL2 2+12, 2+16, 2+17, OK+3, OK+40
WRITE EN1+10, 2+14, OK+43
ZAP OK+34

Naked Globals

Name Field # of Occurrence
^( EN1+6, 2+8, OK+25, OK+27, OK+32, OK+37, PRAC+6, WRITE+8
^(0 EN1+7, 2+5, 2+11, OK+33, PRAC+2, PRAC+5, PRAC+7, WRITE+9, SET68+5*, SET68+7*
^(3 EN1+6, 2+8
^(5 EN1+6, 2+8
^(9 OK+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK+1*, OK+2, OK+3, OK+50*
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+23~, OK+26
ARAT( OK+25*
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+24*, OK+25*, OK+27*, OK+29*, OK+30*, END+1!
LR1AA EN1+11*, 2+4, 2+21, OK+17, OK+32, OK+33, OK+34, OK+36, UL1+4, END+1!
LR1AD EN1+11*, 2+4, 2+21, OK+17, OK+32, OK+33, OK+34, OK+36, UL1+4, END+1!
LR1AN EN1+11*, 2+4, 2+21, OK+17, OK+32, OK+33, OK+34, OK+36, UL1+4, END+1!
LR1ODT EN1+7*, OK+16, OK+34, END+1!
LR1SN EN1+7*, OK+16, OK+34, 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+28, OK+30, OK+31, OK+43, OK+45, ZAP~, ZAP+7, 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+30, OK+31, OK+43, OK+45, ZAP~, ZAP+7, 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+28, OK+30, OK+31, OK+43, OK+45, ZAP~, ZAP+7, 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+28, SET69~, SET69+11, END+2!
LRCCOM 2+9*, END+5!
LRCWDT OK+33*, END+2!
LRDFN EN1+7*, 2+11*, OK+37, 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+37, ZAP~, END+1!
LRIDT1 EN1+6*, OK+34, OK+37, END+1!
LRIENS SET69+7~, SET69+9*, SET69+11, SET69+12, SET69+13, SET69+14
LRII OK+5~, OK+10*, OK+11*, OK+12, OK+15, OK+21, OK+22, OK+25, OK+27, OK+28
, OK+31, END+5!
LRLFTOVR OK+5~, OK+9, END+5!
LRLFTOVR( OK+21
LRLLOC END+5!
LRMERG ZAP~
LRNATURE 2+9*, SET69+1~, SET69+3*, END+5!
LRNLT OK+5~, END+5!
LRNOW ZAP+2~, ZAP+5*, END+5!
LROCN OK+32*, END+2!
LRODT 2+11*, OK+15, OK+28, OK+30, OK+31, ZAP~, ZAP+4, PRAC+1~, PRAC+3*, PRAC+4
, PRAC+5, PRAC+6, SET69~, SET69+6, SET69+9, SET69+18, END+2!
LROID OK+32*, END+2!
LRORD 2+8*, END+1!
LRORDTYP OK+5~, OK+7*
LRORIFN OK+14~, OK+16*
LROSN OK+32*, END+2!
LROWDT OK+33*, END+2!
LRPHSET SET69+1~, SET69+3*
LRPRAC OK+14~, OK+17*, END+2!
LRPRIM SET68~, SET68+5
LRRB END+2!
LRSAMP OK+14~, OK+18*
LRSN 2+11*, OK+15, OK+28, OK+30, OK+31, ZAP~, ZAP+4, PRAC+1~, PRAC+3*, PRAC+4
, PRAC+5, PRAC+6, SET69~, SET69+6, SET69+9, SET69+18, END+2!
>> LRSOF SET69+8*
LRSPEC OK+14~, OK+18*
LRSS EN1+6*, 2+5, OK+37, END+1!
LRT1SAD EN1+10, OK+9, END+2!
LRT1SAD( OK+11, OK+12
LRTNM ZAP+2~, ZAP+8*, END+6!
LRTOACC 2+8*, 2+9, END+3!
LRTREA END+2!
LRTS SET69~, SET69+6, SET69+9, SET69+19
LRTSAD 2+14, OK+9, OK+26, END+2!
LRTSORU OK+5~, OK+12*, OK+13, OK+20, OK+28, OK+30, OK+31, END+6!
LRTSORU( OK+13, OK+20*
LRTSTS ZAP+2~, ZAP+6*, ZAP+7*, ZAP+8, SET68~, SET68+4, SET68+5, SET68+6, SET68+7, END+6!
LRURG OK+14~, OK+18*, SET69~
LRWRD END+2!, END+3!
LRX OK+14~, OK+15*, OK+16, 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+23~, OK+27*, OK+28
SEX END+3!
SP WRITE~, WRITE+9
SPEC 2+8*, 2+14, 2+16, OK+18, OK+43, END+2!
SPEC1 EN1+6*, EN1+10, 2+16, END+2!
SSN EN1+9, 2+11, END+3!
SUB OK+23~, OK+26
SUB( OK+27, OK+30
TST END+2!
U EN1+7, 2+11, 2+22, OK+12, OK+16, OK+17, OK+18, OK+32, OK+33, OK+45
, ZAP+8, WRITE+8, WRITE+14, WRITE+15, SET68+5
URG OK+5~, OK+12*, OK+18, OK+28, OK+30, OK+31, 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+12*, OK+32*, OK+45*, OK+46, 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