Routine: GMTSLRM

Package	Total	Call Graph
Health Summary	4	(ANTIBX,COMMENT,PARACOMM,REMARKS,TBSUSC,WRTGRM,WRTTEST)^GMTSLRM1 ^GMTSLRME $$WRAP^GMTSORC CKP^GMTSUP
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Health Summary	1	GMTSLRMB

Entry Points

Name	Comments	DBIA/ICR reference
RDNODE	; Reads current node of ^TMP("LRM",$J
DRAW(CODE)	; Peak/Trough/Random Abx level
MAIN	; Microbiology
INTRP	; Interprets ^TMP("LRM",$J
WRTNODE	; Writes current node of ^TMP("LRM",$J

External References

Name	Field # of Occurrence
$$GET1^DIQ	MAIN+2
ANTIBX^GMTSLRM1	WRTNODE+46
COMMENT^GMTSLRM1	WRTNODE+41
PARACOMM^GMTSLRM1	WRTNODE+56
REMARKS^GMTSLRM1	WRTNODE+29
TBSUSC^GMTSLRM1	WRTNODE+42
WRTGRM^GMTSLRM1	WRTNODE+19
WRTTEST^GMTSLRM1	RDNODE+13
^GMTSLRME	MAIN+6
$$WRAP^GMTSORC	RDNODE+10, WRTNODE+16, WRTNODE+26, WRTNODE+32, WRTNODE+38, WRTNODE+53
CKP^GMTSUP	MAIN+5, MAIN+6, RDNODE+2, RDNODE+4, RDNODE+5, RDNODE+8, RDNODE+12, WRTNODE+5, WRTNODE+7, WRTNODE+9 , WRTNODE+11, WRTNODE+12, WRTNODE+14, WRTNODE+18, WRTNODE+21, WRTNODE+24, WRTNODE+28, WRTNODE+33, WRTNODE+36, WRTNODE+39 , WRTNODE+40, WRTNODE+44, WRTNODE+45, WRTNODE+50, WRTNODE+55

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?10,"Collected:",?21,$P(^TMP("LRM",$J,GMZ),U),?43,"Acc:",?48,$P(^TMP("LRM",$J,GMZ),U,2),! Line Location: RDNODE+2
Function Call: WRITE	Prompt: ?2,"Collection Sample:",?21,$P(^TMP("LRM",$J,GMZ),U,6),! Line Location: RDNODE+4
Function Call: WRITE	Prompt: ?6,"Site/Specimen:",?21,$TR($P(^TMP("LRM",$J,GMZ),U,3),"\|"," "),! Line Location: RDNODE+5
Function Call: WRITE	Prompt: "Comment on Specimen:" Line Location: RDNODE+9
Function Call: WRITE	Prompt: ?21,$P(COM,"\|"),! Line Location: RDNODE+11
Function Call: WRITE	Prompt: ?22,$P(COM,"\|",2),! Line Location: RDNODE+12
Function Call: WRITE	Prompt: ?2,"Sterility Control:",?21,$P(^TMP("LRM",$J,"BSTER",GMK),U),! Line Location: WRTNODE+6
Function Call: WRITE	Prompt: ?13,"Number:",?21,GMK,?34,"Sterility Results: ",$P(^TMP("LRM",$J,GMZ,GMK),U),! Line Location: WRTNODE+8
Function Call: WRITE	Prompt: ?4,$S(GMZ="BACT":" Bact ",GMZ="TB":"Mycobact ",GMZ="MYCO":"Mycology ",GMZ="PARA":"Parasite ",GMZ="VIRO":"Virology ",1:" ")_"Report:",?21,$P(GMN,U),! Line Location: WRTNODE+9
Function Call: WRITE	Prompt: ?7,"Urine Screen: ",$P(GMN,U,3),! Line Location: WRTNODE+11
Function Call: WRITE	Prompt: ?6,"Sputum Screen: ",$P(GMN,U,2),! Line Location: WRTNODE+12
Function Call: WRITE	Prompt: ?4,"Acid Fast Stain: ",$E($P(GMN,U,2),1,20) Line Location: WRTNODE+14
Function Call: WRITE	Prompt: ?44,$P(QTY,"\|"),! Line Location: WRTNODE+17
Function Call: WRITE	Prompt: ?44,$P(QTY,"\|",2),! Line Location: WRTNODE+18
Function Call: WRITE	Prompt: ?9,"Smear/Prep:" Line Location: WRTNODE+22
Function Call: WRITE	Prompt: ?21,$P(RSMEAR,"\|"),! Line Location: WRTNODE+27
Function Call: WRITE	Prompt: ?22,$P(RSMEAR,"\|",2),! Line Location: WRTNODE+28
Function Call: WRITE	Prompt: ?11,"Organism:" Line Location: WRTNODE+34
Function Call: WRITE	Prompt: ?21,$P(ORG,"\|",1),! Line Location: WRTNODE+35
Function Call: WRITE	Prompt: ?23,$P(ORG,"\|",2),! Line Location: WRTNODE+36
Function Call: WRITE	Prompt: ?11,"Quantity:" Line Location: WRTNODE+37
Function Call: WRITE	Prompt: ?21,$P(QTY,"\|"),! Line Location: WRTNODE+39
Function Call: WRITE	Prompt: ?23,$P(QTY,"\|",2),! Line Location: WRTNODE+40
Function Call: WRITE	Prompt: ?8,"Ser Abx Lev:" Line Location: WRTNODE+44
Function Call: WRITE	Prompt: ?21,$E($P(^TMP("LRM",$J,GMZ,GMK),U),1,20),?45,$$DRAW($P(^TMP("LRM",$J,GMZ,GMK),U,2)),?55,$P(^TMP("LRM",$J,GMZ,GMK),U,3)," ug/ml",! Line Location: WRTNODE+45
Function Call: WRITE	Prompt: ?23,$P(^TMP("LRM",$J,GMZ,GMK,GML),U) Line Location: WRTNODE+51
Function Call: WRITE	Prompt: ?45,$P(QTY,"\|"),! Line Location: WRTNODE+54
Function Call: WRITE	Prompt: ?45,$P(QTY,"\|",2),! Line Location: WRTNODE+55

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	MAIN+2, MAIN+3, MAIN+5
^TMP("LRM"	MAIN+6, MAIN+7!, INTRP+2, RDNODE+2, RDNODE+3, RDNODE+4, RDNODE+5, RDNODE+6, RDNODE+14, WRTNODE+4 , WRTNODE+6, WRTNODE+8, WRTNODE+9, WRTNODE+24, WRTNODE+25, WRTNODE+31, WRTNODE+45, WRTNODE+46, WRTNODE+47, WRTNODE+49 , WRTNODE+51, WRTNODE+52

Label References

Name	Line Occurrences
$$DRAW	WRTNODE+45
INTRP	MAIN+6
RDNODE	INTRP+2
WRTNODE	RDNODE+14

Naked Globals

Name	Field # of Occurrence
^(	MAIN+3, RDNODE+3, WRTNODE+31

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CODE	DRAW~, DRAW+1
COM	RDNODE+1~, RDNODE+6, RDNODE+7, RDNODE+10, RDNODE+11, RDNODE+12
D1	MAIN+1~
D2	MAIN+1~
D3	MAIN+1~
>> DFN	MAIN+2
GMABX	RDNODE+1~*, WRTNODE+44
GMK	INTRP+1~, RDNODE+14, WRTNODE+3, WRTNODE+4, WRTNODE+6, WRTNODE+8, WRTNODE+9, WRTNODE+20, WRTNODE+24, WRTNODE+25 , WRTNODE+29, WRTNODE+31, WRTNODE+44, WRTNODE+45, WRTNODE+46, WRTNODE+47, WRTNODE+49, WRTNODE+51, WRTNODE+52
GML	WRTNODE+1~, WRTNODE+48, WRTNODE+49, WRTNODE+51, WRTNODE+52
GMN	WRTNODE+1~, WRTNODE+9*, WRTNODE+11, WRTNODE+12, WRTNODE+14, WRTNODE+15
>> GMTS1	MAIN+3, MAIN+4
>> GMTS2	MAIN+3, MAIN+5
>> GMTSNDM	MAIN+4
>> GMTSQIT	MAIN+5, MAIN+6, INTRP+2, RDNODE+2, RDNODE+4, RDNODE+5, RDNODE+8, RDNODE+12, RDNODE+14, WRTNODE+5 , WRTNODE+7, WRTNODE+9, WRTNODE+10, WRTNODE+11, WRTNODE+12, WRTNODE+13, WRTNODE+14, WRTNODE+18, WRTNODE+21, WRTNODE+24 , WRTNODE+28, WRTNODE+30, WRTNODE+33, WRTNODE+36, WRTNODE+39, WRTNODE+40, WRTNODE+41, WRTNODE+44, WRTNODE+45, WRTNODE+49 , WRTNODE+50, WRTNODE+55
GMZ	INTRP+1~, INTRP+2, RDNODE+1, RDNODE+2, RDNODE+3, RDNODE+4, RDNODE+5, RDNODE+6, RDNODE+14, WRTNODE+2 , WRTNODE+8, WRTNODE+9, WRTNODE+10, WRTNODE+13, WRTNODE+19, WRTNODE+24, WRTNODE+25, WRTNODE+30, WRTNODE+31, WRTNODE+42 , WRTNODE+43, WRTNODE+45, WRTNODE+46, WRTNODE+47, WRTNODE+49, WRTNODE+51, WRTNODE+52
IX	MAIN+1~, MAIN+4, MAIN+5
IX0	MAIN+1~, MAIN+5*, MAIN+6
LRDFN	MAIN+1~, MAIN+2*, MAIN+3, MAIN+5
MAX	MAIN+1~, MAIN+4*, MAIN+5
ORG	WRTNODE+1~, WRTNODE+31, WRTNODE+32, WRTNODE+35, WRTNODE+36
QTY	WRTNODE+1~, WRTNODE+15, WRTNODE+16, WRTNODE+17, WRTNODE+18, WRTNODE+31, WRTNODE+37, WRTNODE+38, WRTNODE+39, WRTNODE+40 , WRTNODE+52, WRTNODE+53, WRTNODE+54, WRTNODE+55
RSMEAR	WRTNODE+1~, WRTNODE+25, WRTNODE+26, WRTNODE+27, WRTNODE+28
SMEAR	WRTNODE+1~, WRTNODE+23, WRTNODE+24, WRTNODE+25
U	RDNODE+2, RDNODE+3, RDNODE+4, RDNODE+5, RDNODE+6, WRTNODE+4, WRTNODE+6, WRTNODE+8, WRTNODE+9, WRTNODE+11 , WRTNODE+12, WRTNODE+14, WRTNODE+15, WRTNODE+31, WRTNODE+45, WRTNODE+51, WRTNODE+52

Customize PDF page

Package: Health Summary

Routine: GMTSLRM

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: