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

Package: Lab Service

Routine: LRMIEDZ2


Information

LRMIEDZ2 ;DALIO/JMC - MICROBIOLOGY EDIT ROUTINE; May 24, 2021@14:40

Source Information

Source file <LRMIEDZ2.m>

Entry Points

Name Comments DBIA/ICR reference
PAT ;
ACCPRMPT(LRAA,LRAD) ;Prompt for accession number or UID
QUES ;
PAT1 ; Called from above and LRFAST
AUDRTN ;
; Also called from LRVR0 when verifying Lab UI instrument results and user wants to do full edit.
AUDPT ;
; Check for "B" x-ref on #.01 field.
UNDO ;LR*5.2*536 version of UNDO
BB ;
EC3 ;
UPDATE ;
CHECK ;
ORDER ;
PATINFO ; Display patient information
PROV ; Display provider and contact numbers.
ASKXQA ; Determine if user should be ask to send CPRS Alert

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: ACCPRMPT+16
Function Call: WRITE
  • Prompt: " (",$P($G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2)),"^"),")"
  • Line Location: ACCPRMPT+32
Function Call: WRITE
  • Prompt: $C(7),!,"Enter the accession number or the unique identifier (UID)."
  • Line Location: QUES+2
Function Call: WRITE
  • Prompt: !,"If entering the accession number, enter just the number portion."
  • Line Location: QUES+3
Function Call: WRITE
  • Prompt: !,?5," e.g., if the accession is MICRO 13 30173, enter 30173."
  • Line Location: QUES+4
Function Call: WRITE
  • Prompt: !,?5," Only accessions from subscript MI are selectable."
  • Line Location: QUES+5
Function Call: WRITE
  • Prompt: !,"If entering the UID, enter the entire 10-15 characters."
  • Line Location: QUES+6
Function Call: WRITE
  • Prompt: !
  • Line Location: QUES+7
Function Call: WRITE
  • Prompt: !,"The accession number/UID entered must have the same accession"
  • Line Location: QUES+8
Function Call: WRITE
  • Prompt: !,"area and date as the first accession entered."
  • Line Location: QUES+9
Function Call: WRITE
  • Prompt: !,"No tests associated with this accession"
  • Line Location: PAT1+10
Function Call: WRITE
  • Prompt: !,"Verify with accession #: ",$G(^LRO(68,LRAA,1,LRAD,1,LRAN,.2))
  • Line Location: PAT1+12
Function Call: WRITE
  • Prompt: !!?10,"Someone else is editing this accession ",!,$C(7)
  • Line Location: PAT1+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT1+36
Function Call: WRITE
  • Prompt: !,"No Tests on Accession"
  • Line Location: AUDRTN+9
Function Call: WRITE
  • Prompt: !,"EDIT CODE IN FILE 60 NOT DEFINED.",!
  • Line Location: AUDRTN+18
Function Call: WRITE
  • Prompt: !,"WARNING: Results have previously been verified."
  • Line Location: AUDRTN+37
Function Call: WRITE
  • Prompt: !," If you proceed, a new RPT DATE APPROVED MUST be re-entered,"
  • Line Location: AUDRTN+38
Function Call: WRITE
  • Prompt: !," so results are viewable in CPRS.",!
  • Line Location: AUDRTN+39
Function Call: WRITE
  • Prompt: !,"Exiting early will cause results not to be viewable in CPRS.",!
  • Line Location: AUDRTN+40
Function Call: WRITE
  • Prompt: !,DR," template doesn't exist for Microbiology."
  • Line Location: AUDPT+23
Function Call: WRITE
  • Prompt: !,">>>>ERROR - NO ENTRY IN FILE #63 - PLEASE NOTIFY SYSTEM MANAGER<<^ <<<",!
  • Line Location: BB+1
Function Call: WRITE
  • Prompt: !!,?5,PNM," SSN: ",SSN
  • Line Location: PATINFO+3
Function Call: WRITE
  • Prompt: !,"Pat Info: ",$P($G(^LR(LRDFN,.091)),U)
  • Line Location: PATINFO+8
Function Call: WRITE
  • Prompt: ?34," Sex: ",$S(SEX="M":"MALE",SEX="F":"FEMALE",1:SEX)
  • Line Location: PATINFO+9
Function Call: WRITE
  • Prompt: ?48," Age: ",$$CALCAGE^LRRPU(DOB,LRCDT)," as of ",$$FMTE^XLFDT(LRCDT,"1D")
  • Line Location: PATINFO+10
Function Call: WRITE
  • Prompt: !,"Provider: "
  • Line Location: PROV+5
Function Call: WRITE
  • Prompt: LRPRAC(LRPRAC,200,LRPRAC_",",.01,"E"),?40," Voice pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.137,"E")
  • Line Location: PROV+8
Function Call: WRITE
  • Prompt: !," Phone: ",LRPRAC(LRPRAC,200,LRPRAC_",",.132,"E"),?38," Digital pager: ",LRPRAC(LRPRAC,200,LRPRAC_",",.138,"E")
  • Line Location: PROV+9
Function Call: WRITE
  • Prompt: LRX
  • Line Location: PROV+13
Function Call: WRITE
  • Prompt: LRPRAC
  • Line Location: PROV+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^LR - [#63] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call