Routine: LRMIPSZ4

Information

LRMIPSZ4 ;DALOI/RBN - MICRO PATIENT REPORT - AFB, FUNGUS ;Jul 15, 2021@13:13

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Lab Service	4	PRE^LRMIPSU NP^LRMIPSZ1 MES^LRMIPSZ2 D^LRU
Kernel	1	$$LJ^XLFSTR
VA FileMan	1	$$GET1^DIQ

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Lab Service	2	LRMIPSZ1 LROR4

Entry Points

Name	Comments	DBIA/ICR reference
TB	; ; from LRMIPSZ1 ; also called from RPT^LROR4
AFS	; Acid Fast Stain results
LIST	; List organisms
SEN	; Display AFB sensitivities.
FUNG	; ; from LRMIPSZ1 ; also called from RPT^LROR4
QA	;
SHOW	;
LIST1	;
NP	; ; Convenience method

External References

Name	Field # of Occurrence
$$GET1^DIQ	AFS+10
PRE^LRMIPSU	TB+26, FUNG+27
NP^LRMIPSZ1	NP+2
MES^LRMIPSZ2	TB+15, FUNG+15
D^LRU	TB+22, FUNG+22
$$LJ^XLFSTR	SEN+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* MYCOBACTERIOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => "_Y_" TECH CODE: "_DZ Line Location: TB+24
Function Call: WRITE	Prompt: !,"Mycobacteriology Remark(s):" Line Location: TB+34
Function Call: WRITE	Prompt: !,?3,^(B,0) Line Location: TB+37
Function Call: WRITE	Prompt: ! Condition for execution: LRHC Line Location: AFS+13
Function Call: WRITE	Prompt: !,LRX Line Location: AFS+13
Function Call: WRITE	Prompt: !,?3,"Quantity: ",LRAMT Line Location: AFS+14
Function Call: WRITE	Prompt: !,"Mycobacterium: ",LRTBC Line Location: LIST+5
Function Call: WRITE	Prompt: !,?3,"Quantity: ",LRQU Line Location: LIST+7
Function Call: WRITE	Prompt: !," Comment: " Line Location: LIST+10
Function Call: WRITE	Prompt: ?13,^(B,0),! Line Location: LIST+13
Function Call: WRITE	Prompt: !,?3,$$LJ^XLFSTR(LRTBA,30,"."),?34,LRTBS Line Location: SEN+14
Function Call: WRITE	Prompt: !,"* MYCOLOGY ",$S(LRTUS="F":"FINAL",LRTUS="P":"PRELIMINARY",1:"")," REPORT => ",Y," TECH CODE: ",DZ Line Location: FUNG+25
Function Call: WRITE	Prompt: !,"MYCOLOGY SMEAR/PREP:" Line Location: QA+5
Function Call: WRITE	Prompt: !?5,^(LRMYC,0) Line Location: QA+7
Function Call: WRITE	Prompt: !,"Fungus/Yeast: " Line Location: QA+12
Function Call: WRITE	Prompt: !,"Mycology Remark(s):" Line Location: QA+19
Function Call: WRITE	Prompt: !,?3,^(LRMYC,0) Line Location: QA+22
Function Call: WRITE	Prompt: !,LRTBC Line Location: LIST1+3
Function Call: WRITE	Prompt: !,?3,"Quantity: ",LRQU Line Location: LIST1+5
Function Call: WRITE	Prompt: !,?3,"Comment:" Line Location: LIST1+8
Function Call: WRITE	Prompt: ?13,^(B,0),! Line Location: LIST1+10

FileNo	Call Tags
63.05	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(63.39	SEN+12, SEN+13
^LAB(61.2 - [#61.2]	AFS+23, SHOW+7
^LAB(62.06 - [#62.06]	SEN+7, SEN+8, SEN+9
^LR - [#63]	TB+7, FUNG+7
^TMP("LR"	AFS+16!
^TMP("LRMI"	TB+5, TB+7, TB+8!, TB+10, TB+18!, TB+20, TB+29, TB+32, TB+37, TB+39! , AFS+20, AFS+21, AFS+22, LIST+8, LIST+9, LIST+13, SEN+3, SEN+4, FUNG+5, FUNG+7 , FUNG+8!, FUNG+10, FUNG+18!, FUNG+20, FUNG+30!, QA+2, QA+7, QA+9, QA+16, QA+22 , SHOW+3, LIST1+7, LIST1+10
^XTMP("LRMICRO EDIT"	TB+11, FUNG+11

Label References

Name	Line Occurrences
AFS	TB+30
LIST	AFS+24
LIST1	SHOW+8
NP	TB+35, TB+37, LIST+4, LIST+6, LIST+7, LIST+11, LIST+13, FUNG+24, FUNG+26, QA+4 , QA+7, QA+11, QA+13, QA+18, QA+20, QA+22, LIST1+4, LIST1+6, LIST1+10
QA	FUNG+28
SHOW	QA+14

Naked Globals

Name	Field # of Occurrence
^(	TB+37, LIST+13, QA+7, QA+22, SHOW+5, LIST1+10
^(0	SHOW+6
^(8	FUNG+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	TB+3~, TB+36, TB+37, LIST+2~, LIST+12, LIST+13, LIST1+2~, LIST1+9, LIST1+10
>> DZ	TB+21, TB+24, FUNG+21, FUNG+25
LR7SB	TB+14~, FUNG+14~
>> LRABORT	TB+35, TB+37, LIST+4, LIST+6, LIST+7, LIST+9, LIST+11, LIST+13, FUNG+24, FUNG+26 , QA+4, QA+7, QA+11, QA+13, QA+18, QA+20, QA+22, LIST1+4, LIST1+6, LIST1+10
>> LRAFS	TB+21*, TB+30, AFS+4, AFS+6, AFS+7, AFS+8, AFS+12
>> LRAMT	TB+21*, AFS+14
LRBLDTMP	TB+3~, TB+4, TB+6, TB+18, TB+39, FUNG+3~, FUNG+4, FUNG+6, FUNG+18, FUNG+30
>> LRBUG(	AFS+21, SHOW+5
>> LRDFN	TB+5, TB+7, TB+8, TB+10, TB+11, TB+18, TB+20, TB+29, TB+32, TB+37 , TB+39, AFS+10, AFS+20, AFS+21, AFS+22, LIST+8, LIST+9, LIST+13, SEN+3, SEN+4 , FUNG+5, FUNG+7, FUNG+8, FUNG+10, FUNG+11, FUNG+18, FUNG+20, FUNG+30, QA+2, QA+7 , QA+9, QA+16, QA+22, SHOW+3, LIST1+7, LIST1+10
>> LRHC	TB+23, TB+33, AFS+13, LIST+3, FUNG+23, QA+3, QA+10, QA+17
>> LRIDT	TB+5, TB+7, TB+8, TB+10, TB+11, TB+18, TB+20, TB+29, TB+32, TB+37 , TB+39, AFS+10, AFS+20, AFS+21, AFS+22, LIST+8, LIST+9, LIST+13, SEN+3, SEN+4 , FUNG+5, FUNG+7, FUNG+8, FUNG+10, FUNG+11, FUNG+18, FUNG+20, FUNG+30, QA+2, QA+7 , QA+9, QA+16, QA+22, SHOW+3, LIST1+7, LIST1+10
>> LRLABKY	TB+10, FUNG+10
>> LRMYC	QA+6, QA+7, QA+21, QA+22
>> LRPRE	TB+25, FUNG+27
>> LRQU	AFS+22, LIST+7, SHOW+6, LIST1+5
LRQUIT	TB+3~, TB+4, TB+10, TB+17, FUNG+3~, FUNG+4, FUNG+10, FUNG+17
>> LRSB	TB+10, FUNG+10
LRTA	TB+3~, TB+28, TB+29, TB+30, AFS+18, AFS+20, AFS+21, AFS+22, LIST+8, LIST+9 , LIST+13, SEN+3, SEN+4, SHOW+2, SHOW+3, SHOW+4, SHOW+5, LIST1+7, LIST1+10
LRTB	LIST+2~, SEN+2, SEN+3, SEN+4, SEN+7, SEN+8, SEN+12
LRTBA	LIST+2~, SEN+6, SEN+10, SEN+11, SEN+12, SEN+13, SEN+14
>> LRTBC	AFS+21, AFS+23, LIST+5, SHOW+5, SHOW+7, LIST1+3
LRTBS	LIST+2~, SEN+4*, SEN+5, SEN+14
LRTSTS	AFS+16!, AFS+19, LIST+8
>> LRTUS	TB+21, TB+24, FUNG+20, FUNG+25
>> LRWRDVEW	TB+10, FUNG+10
LRX	TB+3~, TB+20, TB+21, AFS+2~, AFS+5, AFS+7, AFS+8, AFS+11, AFS+12, AFS+13 , LIST+2~, SEN+8*, SEN+9
LRX(0	SEN+8, SEN+9, SEN+10
U	TB+10, TB+21, AFS+21, AFS+22, AFS+23, SEN+13, FUNG+10, FUNG+20, FUNG+21, SHOW+5 , SHOW+6, SHOW+7
X	AFS+2~, AFS+10*, AFS+11
>> Y	TB+21, TB+24, FUNG+21, FUNG+25

Customize PDF page

Package: Lab Service