Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(64.061 - [#64.061] FIND1^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call