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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LR7OMERG

Package: Lab Service

Routine: LR7OMERG


Information

LR7OMERG ;VA/SLC/DCM,BNM,FHS-MERGE ACCESSION ;8/11/97

Source Information

Source file <LR7OMERG.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Lab Service 5 LRACC MERGE  LRHYLS1  LRVER4  LRVR4  LRWRKLS1  
IHS Changes To Lab 1 BLRSHPM1  

Entry Points

Name Comments DBIA/ICR reference
CHK(ARAY1,ARAY2,OUT) ;Check for duplicate tests on accessions
ZAP(LRODT,LRSN,LRAA,LRAD,LRAN,LRIDT,LRMERG) ;
EN ;Merge 2 accessions together
OK
SET69(LRODT,LRSN,LRTS,LRURG,LRAA,LRAODT,LRAN) ;Set file 69
UL2 ;Unlock 2nd accession
PRAC(LRAA,LRAD,LRAN,Y) ;Find all ordering providers for a given accession
UL1 ;Unlock 1st accession
WRITE(AA,AD,AN,SP,COMP,ARAY) ;Display accession with tests
EN1
2
SET68(LRTSTS,URG,LRPRIM) ;Set file 68
END ;

External References

Name Field # of Occurrence
^DIC SET69+5
YN^DICN OK, OK+27
EN^LA7ADL OK+25
EXPAND^LR7OU1 CHK+7
LRACC^LRTSTOUT EN1, 2
SET^LRTSTOUT ZAP+5
69^LRTSTSET SET69+6
ORUT^LRWLST11 OK+6
PT^LRX EN1+4, 2+7
KVA^VADPT END+4
$$NOW^XLFDT ZAP+2

Interaction Calls

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] 2+12, 2+13, OK+9, OK+11, OK+13, ZAP+4, WRITE+6, SET69+4
^LAB(61 - [#61] WRITE+5
^LR - [#63] EN1+4, 2+7, OK+21*
^LRO(68 - [#68] EN1+1, EN1+2, EN1+3, 2+1, 2+3, 2+4, 2+5, 2+12, 2+13, OK+17
, OK+18, OK+20, OK+25, ZAP+3, PRAC+2, UL2+1, UL1+1, WRITE+4, WRITE+6, SET68+1
, SET68+2*, SET68+3*, SET68+4*
^LRO(69 - [#69] ZAP+1, PRAC+8, PRAC+9, PRAC+10

Label References

Name Line Occurrences
2 2+1, 2+2, 2+4
CHK OK+4, OK+12
EN 2+3, 2+8, 2+10, 2+11
EN1 EN1+1, EN1+2, OK+27
END EN+1, OK+26
OK OK+1
SET68 OK+14, OK+15, OK+16
SET69 OK+14, OK+15, OK+16
UL1 2, OK+2, OK+22
UL2 2+8, 2+10, 2+11, OK+2, OK+22
WRITE EN1+5, 2+9, OK+24
ZAP OK+19

Naked Globals

Name Field # of Occurrence
^( EN1+3, 2+5, OK+11, OK+13, OK+17, OK+21, PRAC+9, WRITE+4, WRITE+6
^(0 EN1+4, 2+3, 2+7, OK+18, PRAC+2, PRAC+8, PRAC+10, WRITE+5, SET68+2*, SET68+4*
^(3 EN1+3, 2+5
^(5 EN1+3, 2+5
^(9 OK+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OK*, OK+1, OK+2, OK+27*
AA WRITE~, WRITE+4, WRITE+6
AD WRITE~, WRITE+4, WRITE+6
AGE END+5!
AN WRITE~, WRITE+4, WRITE+6
ARAT OK+10~, OK+12
ARAT( OK+11*
ARAY WRITE~
ARAY( WRITE+6*
ARAY1 CHK~
ARAY1( CHK+6
ARAY2 CHK~
ARAY2( CHK+6, CHK+7
ARAY2(0 CHK+4
COMP EN1*, EN1+5, 2+9, 2+11, WRITE~, WRITE+6*, END+1!
D0 END+5!
DA SET69+1~, END+2!
DA(1 SET69+3*
DA(2 SET69+3*
DFN EN1+4*, 2+7*, END+3!
DI END+5!
DIC SET69+1~, SET69+3*
DIC(0 SET69+4*
DIE SET69+1~
DLAYGO SET69+1~, SET69+4*
DOB END+3!
DR SET69+1~
DUZ(2 2+12
I 2+12*, 2+13, PRAC+1~, PRAC+9*, CHK+5~, CHK+6*, CHK+7*, CHK+8*, WRITE+6*, END+1!
IFN END+5!
IN2 CHK+5~, CHK+7
IN2( CHK+8
J 2+12*, 2+13, OK+11*, OK+13*, OK+15*, END+1!
LR1AA EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1AD EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1AN EN1+6*, 2+2, 2+12, OK+17, OK+18, OK+19, OK+20, UL1+1, END+1!
LR1ODT EN1+4*, OK+19, END+1!
LR1SN EN1+4*, OK+19, END+2!
LRAA EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2+1, 2+2, 2+3, 2+4, 2+5
, 2+9, 2+12, OK+14, OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~
, PRAC+2, UL2+1, SET68+1, SET68+2, SET68+3, SET68+4, SET69~, END+1!
LRACC EN1*, 2*, END+1!
LRAD EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2+1, 2+2, 2+4, 2+5, 2+9
, OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~, PRAC+2, UL2+1, SET68+1
, SET68+2, SET68+3, SET68+4, END+1!
LRAGE END+6!
LRAN EN1, EN1+1, EN1+2, EN1+3, EN1+5, EN1+6, 2, 2+1, 2+2, 2+4
, 2+5, 2+9, OK+14, OK+15, OK+16, OK+24, OK+25, ZAP~, ZAP+3, PRAC~
, PRAC+2, UL2+1, SET68+1, SET68+2, SET68+3, SET68+4, SET69~, END+1!
LRAODT EN1+4*, 2+7*, OK+14, SET69~, END+2!
LRCCOM 2+6*, END+5!
LRCWDT OK+18*, END+2!
LRDFN EN1+4*, 2+7*, OK+21, END+2!
LRDPF EN1+4*, 2+7*, END+2!
LREND END+2!
LRF END+2!
LRFLG SET69+1~, SET69+2*
LRIDIV END+2!
LRIDT 2+5*, OK+21, ZAP~, END+1!
LRIDT1 EN1+3*, OK+19, OK+21, END+1!
LRII OK+3~, OK+5*, OK+8, OK+9, OK+11, OK+13, OK+14, OK+16, END+5!
LRLFTOVR OK+3~, OK+4, END+5!
LRLFTOVR( OK+8
LRLLOC END+5!
LRMERG ZAP~
LRNATURE 2+6*, SET69+1~, SET69+2*, END+5!
LRNLT OK+3~, END+5!
LRNOW ZAP+2*, END+5!
LROCN OK+17*, END+2!
LRODT 2+7*, OK+14, OK+15, OK+16, ZAP~, ZAP+1, PRAC+1~, PRAC+3*, PRAC+6, PRAC+8
, PRAC+9, SET69~, SET69+3, END+2!
LROID OK+17*, END+2!
LRORD 2+5*, END+1!
LROSN OK+17*, END+2!
LROWDT OK+18*, END+2!
LRPHSET SET69+1~, SET69+2*
LRPRAC END+2!
LRPRIM SET68~, SET68+2
LRRB END+2!
LRSN 2+7*, OK+14, OK+15, OK+16, ZAP~, ZAP+1, PRAC+1~, PRAC+3*, PRAC+6, PRAC+8
, PRAC+9, SET69~, SET69+3, END+2!
LRSS EN1+3*, 2+3, OK+21, END+1!
LRT1SAD EN1+5, OK+4, END+2!
LRT1SAD( OK+5
LRTNM ZAP+4*, END+6!
LRTOACC 2+5*, 2+6, END+3!
LRTREA END+2!
LRTS SET69~, SET69+4
LRTSAD 2+9, OK+4, OK+12, END+2!
LRTSORU OK+3~, OK+5*, OK+6, OK+7, OK+14, OK+15, OK+16, END+6!
LRTSORU( OK+6, OK+7*
LRTSTS ZAP+3*, ZAP+4, SET68~, SET68+1, SET68+2, SET68+3, SET68+4, END+6!
LRURG SET69~
LRWRD END+2!, END+3!
LRX END+2!
LRX1 EN1+3*, 2+8, END+1!
LRXDA SET69+1~
OUT CHK~
OUT( CHK+6*, CHK+8!
PNM EN1+4, 2+7, END+3!
PROV PRAC+1~, PRAC+2*, PRAC+6, PRAC+8, PRAC+10
SAME OK+10~, OK+13*, OK+14
SEX END+3!
SP WRITE~, WRITE+5
SPEC 2+5*, 2+9, 2+10, OK+24, END+2!
SPEC1 EN1+3*, EN1+5, 2+10, END+2!
SSN EN1+4, 2+7, END+3!
SUB OK+10~, OK+12
SUB( OK+13, OK+15
TST END+2!
U EN1+4, 2+7, 2+12, OK+5, OK+17, OK+18, OK+25, ZAP+4, WRITE+4, WRITE+6
, SET68+2, SET69+4, SET69+5
URG OK+3~, OK+5*, OK+14, OK+15, OK+16, SET68~, SET68+2, END+6!
VA END+3!
VA200 END+3!
VADM END+3!
VAERR END+3!
VAIN END+3!
X EN1+3*, EN1+4, 2+5*, 2+7, 2+8, OK+5*, OK+17*, OK+25*, PRAC+1~, PRAC+2*
, PRAC+3, PRAC+9*, PRAC+10, SET69+1~, SET69+4*, END+1!
X1 END+1!
Y PRAC~, SET69+1~, SET69+5, END+3!
Y( PRAC+8*, PRAC+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All