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

Call Graph

Health Summary

(ANTIBX,COMMENT,PARACOMM,REMARKS,TBSUSC,WRTGRM,WRTTEST)^GMTSLRM1 ^GMTSLRME $$WRAP^GMTSORC CKP^GMTSUP

VA FileMan

$$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: 1

Package	Total	Caller Graph
Health Summary	1	GMTSLRMB

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

Name

Comments

DBIA/ICR reference

MAIN

; Microbiology

INTRP

; Interprets ^TMP("LRM",$J

RDNODE

; Reads current node of ^TMP("LRM",$J

WRTNODE

; Writes current node of ^TMP("LRM",$J

DRAW(CODE)

; Peak/Trough/Random Abx level

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

Name

Field # of Occurrence

MAIN+2

WRTNODE+46

WRTNODE+41

WRTNODE+56

WRTNODE+29

WRTNODE+42

WRTNODE+19

RDNODE+13

MAIN+6

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

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

FileNo

Call Tags

^DPT - [#2]

GET1^DIQ

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

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

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

Name

Line Occurrences

$$DRAW

WRTNODE+45

INTRP

MAIN+6

RDNODE

INTRP+2

WRTNODE

RDNODE+14

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

Name

Field # of Occurrence

MAIN+3, RDNODE+3, WRTNODE+31

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

Name

Field # of Occurrence

CODE

DRAW~, DRAW+1

COM

RDNODE+1~, RDNODE+6*, RDNODE+7, RDNODE+10*, RDNODE+11, RDNODE+12

MAIN+1~

>> DFN

MAIN+2

GMABX

RDNODE+1~*, WRTNODE+44

GMK