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

Package: Lab Service

Routine: LRMIEDZ2


Information

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

Source Information

Source file <LRMIEDZ2.m>

Call Graph

Call Graph

Call Graph Total: 22

Package Total Call Graph
Lab Service 15 ASKXQA^LR7ORB3  ^LRCAPV1  SETBINDX^LRMIBUG  TIME^LRMIEDZ3  EC^LRMIEDZ4  LRANX^LRMIU4  STF^LRMIUT  VT^LRMIUT1  
UPDATE^LRPXRM  $$REFDOC^LRRP1  EDIT^LRRPLU  $$CALCAGE^LRRPU  LEDI^LRVR0  $$CHECKUID^LRWU4  PT^LRX  
VA FileMan 5 ^%DT  DT^DICRW  ^DIE  GETS^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Lab Service 5 LRFAST  LRMIEDZ  LRSLOW  LRVER  LRVR0  
Automated Lab Instruments 1 LAMIAUT4  

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

External References

Name Field # of Occurrence
^%DT CHECK+2
DT^DICRW PAT1+17
^DIE AUDPT+26
GETS^DIQ PROV+3
^DIR ACCPRMPT+20, PAT1+35, AUDRTN+14, AUDRTN+44
ASKXQA^LR7ORB3 ASKXQA+8
^LRCAPV1 PAT+15
SETBINDX^LRMIBUG AUDPT+2
TIME^LRMIEDZ3 AUDRTN+51, EC3+13
EC^LRMIEDZ4 AUDRTN+8
LRANX^LRMIU4 ACCPRMPT+36
STF^LRMIUT EC3+14
VT^LRMIUT1 AUDPT+19
UPDATE^LRPXRM AUDPT+17, AUDPT+38, UNDO+21
$$REFDOC^LRRP1 PROV+12
EDIT^LRRPLU AUDPT+16, AUDPT+35
$$CALCAGE^LRRPU PATINFO+10
LEDI^LRVR0 PAT+13
$$CHECKUID^LRWU4 ACCPRMPT+28
PT^LRX PATINFO+2
$$FMADD^XLFDT UNDO+13
$$FMTE^XLFDT PATINFO+10
$$GET^XPAR PAT1+26, ASKXQA+7

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
Routine Call
  • DIE
  • Line Location:
    • AUDPT+26
Routine Call
  • DIR
  • Line Location:
    • ACCPRMPT+20
    • PAT1+35
    • AUDRTN+14
    • AUDRTN+44

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GETS^DIQ
^LR - [#63] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIE - [#.402] AUDPT+23, AUDPT+24
^DIE("B" AUDPT+23
^DISV( ACCPRMPT+24*, ACCPRMPT+25
^LR - [#63] PAT+12, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+29, AUDRTN+53, AUDPT+2, AUDPT+13
, AUDPT+19, AUDPT+28, UNDO+2*, UNDO+3*, UNDO+20*, EC3+1, EC3+12, CHECK+1, PATINFO+1, PATINFO+4
, PATINFO+8
^LRO(68 - [#68] ACCPRMPT+27, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12, CHECK+1, CHECK+3
, CHECK+5, PROV+2
^LRO(69 - [#69] CHECK+6, ORDER+1*, ORDER+2
^XTMP("LRMICRO EDIT" AUDPT+14!, AUDPT+29!, UNDO+10*, UNDO+13*

Label References

Name Line Occurrences
$$ACCPRMPT PAT+4
ASKXQA PAT1+36, AUDPT+20, AUDPT+43
BB PAT1+21
CHECK UPDATE+1
EC3 AUDPT+18, AUDPT+40
ORDER CHECK+6
PAT1 PAT+11
PATINFO PAT1+24
PROV PAT1+26
QUES PAT+6
UNDO AUDRTN+50
UPDATE EC3+2

Naked Globals

Name Field # of Occurrence
^( PAT1+7, CHECK+3, CHECK+5, CHECK+6, ORDER+2, PATINFO+4
^("LRACC" ACCPRMPT+25
^(0 PAT1+7, AUDRTN+53, EC3+1, CHECK+3*, ORDER+2*, PATINFO+1
^(3 PAT1+7
^(5 PAT1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA AUDRTN+22*
>> DA(1 AUDRTN+22*
>> DFN PATINFO+1*
>> DIE AUDRTN+22*
>> DILOCKTM PAT1+15, PAT1+19
DIQUIET PAT1+16~, PAT1+17*
DIR ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+36~
DIR("?" ACCPRMPT+19*
DIR("A" ACCPRMPT+18*, PAT1+30*, PAT1+31*, PAT1+34*, AUDRTN+13*, AUDRTN+41*
DIR("B" PAT1+32*, PAT1+33*, AUDRTN+13*, AUDRTN+43*
DIR(0 ACCPRMPT+18*, PAT1+34*, AUDRTN+13*, AUDRTN+42*
DIROUT PAT1+28~, AUDRTN+12~
DIRUT ACCPRMPT+12~, ACCPRMPT+21, PAT1+28~, AUDRTN+12~
>> DOB PATINFO+10
DR AUDRTN+21!, AUDRTN+51!, AUDPT+18!, AUDPT+23*!, AUDPT+25*, AUDPT+45!
DR( AUDPT+24*
DR(1 AUDPT+25
DT UNDO+13
DTOUT ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+36~, AUDRTN+45
DUOUT ACCPRMPT+12~, PAT1+28~, AUDRTN+12~, AUDRTN+45
DUTOUT AUDRTN+36~
DUZ ACCPRMPT+24, ACCPRMPT+25, UNDO+10
>> I AUDPT+2*
>> J AUDPT+24*, CHECK+3*, CHECK+4, CHECK+6*, ORDER+1, ORDER+2
>> K AUDPT+24*, ORDER+2*
LRAA PAT+4, ACCPRMPT~, ACCPRMPT+30, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12
, PROV+2
LRAD PAT+4, ACCPRMPT~, ACCPRMPT+30, ACCPRMPT+32, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12
, PROV+2
LRAMX AUDRTN+3~, AUDRTN+4*, AUDRTN+6*, UNDO+20
LRAN PAT+3*, PAT+4*, PAT+5, PAT+7*, PAT+16*, ACCPRMPT+12~, ACCPRMPT+14*, ACCPRMPT+27, ACCPRMPT+31*, ACCPRMPT+32
, ACCPRMPT+37*, ACCPRMPT+39, PAT1+5, PAT1+6, PAT1+7, PAT1+9, PAT1+11, PAT1+12, PROV+2
LRANOK PAT+9*, ACCPRMPT+12~, ACCPRMPT+34*, ACCPRMPT+37, PAT1+3~*, PAT1+10*, PAT1+20*, PAT1+21*, PAT1+36*, AUDRTN+9*
, AUDRTN+15*, AUDRTN+17, AUDRTN+18*, AUDRTN+46*
>> LRBG0 PAT1+22*, AUDPT+7
>> LRCAPOK PAT+10*, PAT+15, PAT1+21*, PAT1+36*, AUDRTN+9*, AUDRTN+15*, AUDRTN+18*, AUDRTN+46*
>> LRCDT PAT1+7*, PATINFO+10
LRDEFAULT ASKXQA+2~, ASKXQA+7*, ASKXQA+8
>> LRDFN PAT+12, PAT1+5*, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+22, AUDRTN+29, AUDRTN+53
, AUDPT+2, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+17, AUDPT+19, AUDPT+28, AUDPT+29, AUDPT+35, AUDPT+38
, UNDO+2, UNDO+3, UNDO+10, UNDO+20, UNDO+21, EC3+1, EC3+12, CHECK+1, PATINFO+1, PATINFO+4
, PATINFO+8, PROV+12, ASKXQA+8
>> LRDPF PATINFO+1*, PATINFO+4, PATINFO+6, PROV+12, ASKXQA+5
>> LREAL PAT1+7*
>> LREDITTYPE AUDRTN+35, AUDPT+15, AUDPT+32
>> LREND AUDRTN+51*, AUDPT+18, EC3+14
>> LRFIFO AUDRTN+51*
>> LRI PAT1+7*, AUDRTN+11*, AUDRTN+16*, AUDRTN+18, AUDRTN+20, AUDRTN+24, AUDRTN+51, AUDPT+10, AUDPT+11, AUDPT+23
, EC3+9, EC3+10
>> LRIDT PAT+12, PAT1+7*, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+6, AUDRTN+22, AUDRTN+29, AUDRTN+53
, AUDPT+2, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+17, AUDPT+19, AUDPT+28, AUDPT+29, AUDPT+35, AUDPT+38
, UNDO+2, UNDO+3, UNDO+10, UNDO+20, UNDO+21, EC3+1, EC3+12, CHECK+1, PROV+12, ASKXQA+8
>> LRINTYPE EC3+9
>> LRLEDI AUDPT+4
>> LRNPTP AUDRTN+10
>> LRPARAM PAT+15
LRPRAC PROV+1~, PROV+2*, PROV+3, PROV+7, PROV+8, PROV+9, PROV+12, PROV+14
LRPRAC( PROV+7, PROV+8, PROV+9
LRQUITX AUDRTN+32~, AUDRTN+33*, AUDRTN+47*, AUDRTN+48
>> LRSAME AUDRTN+51*, EC3+3*
>> LRSB AUDRTN+24*, AUDRTN+29, AUDPT+10, AUDPT+13, AUDPT+14, AUDPT+19, AUDPT+28, AUDPT+29, UNDO+2, UNDO+10
>> LRSPEC PAT1+7*
>> LRSS AUDPT+16, AUDPT+35, PROV+12
LRSSC AUDRTN+53*, EC3+2, EC3+3!, CHECK+3, ORDER+2
LRSSCA UPDATE+2!, CHECK+1*, CHECK+2
LRSSCAA UPDATE+2!, CHECK+1*, CHECK+3, CHECK+5
LRSSCAN UPDATE+2!, CHECK+2*, CHECK+3, CHECK+5
LRSSCAY UPDATE+2!, CHECK+2*, CHECK+3, CHECK+5
LRSSCN EC3+1*, EC3+2, EC3+3!, CHECK+3, ORDER+1, ORDER+2
LRSSCOD UPDATE+2!, CHECK+5*, CHECK+6, ORDER+1, ORDER+2
LRSSCOM UPDATE+2!
LRSSCOM1 UPDATE+2!
LRSSCON UPDATE+2!, CHECK+5*, CHECK+6
LRTS PAT+14!, AUDRTN+20*
LRTS( AUDRTN+20
>> LRTX( AUDRTN+18, AUDRTN+24, AUDRTN+51, AUDPT+10, AUDPT+11, AUDPT+23, EC3+9, EC3+10
LRUID PAT+1~, PAT1+6*, ASKXQA+8
LRUNDO AUDRTN+3~, AUDRTN+4*, AUDRTN+6*, AUDRTN+29*, AUDRTN+35, AUDRTN+50, AUDPT+19, PATINFO+1*
>> LRWRD PATINFO+4
LRX ACCPRMPT+12~, ACCPRMPT+22*, ACCPRMPT+24, ACCPRMPT+25*, ACCPRMPT+27, ACCPRMPT+28, ACCPRMPT+35, PROV+1~, PROV+11*, PROV+12*
, PROV+13
LRXQUIT EC3+7~, EC3+8*, EC3+12*, EC3+13
LRXSB EC3+7~, EC3+10*, EC3+11, EC3+12
LRY ACCPRMPT+12~, ACCPRMPT+28*, ACCPRMPT+29, ACCPRMPT+30, ACCPRMPT+31
>> N AUDRTN+9, AUDRTN+11, AUDRTN+13
>> PNM PATINFO+3
>> SEX PATINFO+9
>> SSN PATINFO+3
U PAT+15, ACCPRMPT+30, ACCPRMPT+31, PAT1+7, PAT1+11, PAT1+29, AUDRTN+6, AUDRTN+29, AUDRTN+53, AUDPT+19
, UNDO+2, UNDO+3, UNDO+20, EC3+1, CHECK+1, CHECK+5, ORDER+1, PATINFO+1, PATINFO+8, PROV+2
X ACCPRMPT+12~, ACCPRMPT+35*, AUDPT+23*, AUDPT+24, CHECK+2*
Y ACCPRMPT+12~, ACCPRMPT+21, ACCPRMPT+22, PAT1+36, AUDRTN+15, AUDRTN+16, AUDRTN+36~, AUDRTN+45, CHECK+2
Y(0 PAT1+22*, AUDPT+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