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 ;09/07/16 08:06

Source Information

Source file <LRMIEDZ2.m>

Call Graph

Call Graph

Call Graph Total: 23

Package Total Call Graph
Lab Service 16 ASKXQA^LR7ORB3  ^LRCAPV1  SETBINDX^LRMIBUG  UNDO^LRMIEDZ  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 $$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.
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+23
GETS^DIQ PROV+3
^DIR ACCPRMPT+20, PAT1+35, AUDRTN+11
ASKXQA^LR7ORB3 ASKXQA+8
^LRCAPV1 PAT+15
SETBINDX^LRMIBUG AUDPT+2
UNDO^LRMIEDZ AUDRTN+17
TIME^LRMIEDZ3 AUDRTN+22, EC3+4
EC^LRMIEDZ4 AUDRTN+5
LRANX^LRMIU4 ACCPRMPT+36
STF^LRMIUT EC3+4
VT^LRMIUT1 AUDPT+16
UPDATE^LRPXRM AUDPT+14, AUDPT+32
$$REFDOC^LRRP1 PROV+12
EDIT^LRRPLU AUDPT+13, AUDPT+29
$$CALCAGE^LRRPU PATINFO+10
LEDI^LRVR0 PAT+13
$$CHECKUID^LRWU4 ACCPRMPT+28
PT^LRX PATINFO+2
$$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+6
Function Call: WRITE
  • Prompt: !,"EDIT CODE IN FILE 60 NOT DEFINED.",!
  • Line Location: AUDRTN+15
Function Call: WRITE
  • Prompt: !,DR," template doesn't exist for Microbiology."
  • Line Location: AUDPT+20
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+23
Routine Call
  • DIR
  • Line Location:
    • ACCPRMPT+20
    • PAT1+35
    • AUDRTN+11

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+20, AUDPT+21
^DIE("B" AUDPT+20
^DISV( ACCPRMPT+24*, ACCPRMPT+25
^LR - [#63] PAT+12, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+3, AUDRTN+24, AUDPT+2, AUDPT+16, EC3+1
, 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

Label References

Name Line Occurrences
$$ACCPRMPT PAT+4
ASKXQA PAT1+36, AUDPT+17, AUDPT+37
BB PAT1+21
CHECK UPDATE+1
EC3 AUDPT+15, AUDPT+34
ORDER CHECK+6
PAT1 PAT+11
PATINFO PAT1+24
PROV PAT1+26
QUES PAT+6
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+24, 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+19*
>> DA(1 AUDRTN+19*
>> DFN PATINFO+1*
>> DIE AUDRTN+19*
>> DILOCKTM PAT1+15, PAT1+19
DIQUIET PAT1+16~, PAT1+17*
DIR ACCPRMPT+12~, PAT1+28~, AUDRTN+9~
DIR("?" ACCPRMPT+19*
DIR("A" ACCPRMPT+18*, PAT1+30*, PAT1+31*, PAT1+34*, AUDRTN+10*
DIR("B" PAT1+32*, PAT1+33*, AUDRTN+10*
DIR(0 ACCPRMPT+18*, PAT1+34*, AUDRTN+10*
DIROUT PAT1+28~, AUDRTN+9~
DIRUT ACCPRMPT+12~, ACCPRMPT+21, PAT1+28~, AUDRTN+9~
>> DOB PATINFO+10
DR AUDRTN+18!, AUDRTN+22!, AUDPT+15!, AUDPT+20*!, AUDPT+22*, AUDPT+39!
DR( AUDPT+21*
DR(1 AUDPT+22
DTOUT ACCPRMPT+12~, PAT1+28~, AUDRTN+9~
DUOUT ACCPRMPT+12~, PAT1+28~, AUDRTN+9~
DUZ ACCPRMPT+24, ACCPRMPT+25
>> I AUDPT+2*
>> J AUDPT+21*, CHECK+3*, CHECK+4, CHECK+6*, ORDER+1, ORDER+2
>> K AUDPT+21*, 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
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+6*
, AUDRTN+12*, AUDRTN+14, AUDRTN+15*
>> LRBG0 PAT1+22*, AUDPT+7
>> LRCAPOK PAT+10*, PAT+15, PAT1+21*, PAT1+36*, AUDRTN+6*, AUDRTN+12*, AUDRTN+15*
>> 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+3, AUDRTN+19, AUDRTN+24, AUDPT+2
, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+29, AUDPT+32, EC3+1, 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 AUDPT+12, AUDPT+26
>> LREND AUDRTN+22*, AUDPT+15, EC3+4
>> LRFIFO AUDRTN+22*
>> LRI PAT1+7*, AUDRTN+8*, AUDRTN+13*, AUDRTN+15, AUDRTN+17, AUDRTN+21, AUDRTN+22, AUDPT+10, AUDPT+11, AUDPT+20
>> LRIDT PAT+12, PAT1+7*, PAT1+19, PAT1+21, PAT1+22, PAT1+29, AUDRTN+3, AUDRTN+19, AUDRTN+24, AUDPT+2
, AUDPT+13, AUDPT+14, AUDPT+16, AUDPT+29, AUDPT+32, EC3+1, CHECK+1, PROV+12, ASKXQA+8
>> LRLEDI AUDPT+4
>> LRNPTP AUDRTN+7
>> 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
>> LRSAME AUDRTN+22*, EC3+3*
>> LRSB AUDRTN+21*, AUDPT+10, AUDPT+16
>> LRSPEC PAT1+7*
>> LRSS AUDPT+13, AUDPT+29, PROV+12
LRSSC AUDRTN+24*, 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+17*
LRTS( AUDRTN+17
>> LRTX( AUDRTN+15, AUDRTN+21, AUDRTN+22, AUDPT+10, AUDPT+11, AUDPT+20
LRUID PAT+1~, PAT1+6*, ASKXQA+8
>> LRUNDO AUDRTN+3*, AUDRTN+17, AUDPT+16, 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
LRY ACCPRMPT+12~, ACCPRMPT+28*, ACCPRMPT+29, ACCPRMPT+30, ACCPRMPT+31
>> N AUDRTN+6, AUDRTN+8, AUDRTN+10
>> PNM PATINFO+3
>> SEX PATINFO+9
>> SSN PATINFO+3
U PAT+15, ACCPRMPT+30, ACCPRMPT+31, PAT1+7, PAT1+11, PAT1+29, AUDRTN+3, AUDRTN+24, AUDPT+16, EC3+1
, CHECK+1, CHECK+5, ORDER+1, PATINFO+1, PATINFO+8, PROV+2
X ACCPRMPT+12~, ACCPRMPT+35*, AUDPT+20*, AUDPT+21, CHECK+2*
Y ACCPRMPT+12~, ACCPRMPT+21, ACCPRMPT+22, PAT1+36, AUDRTN+12, AUDRTN+13, 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