Routine: LRMISEZ2

Information

LRMISEZ2 ;AVAMC/REG/SLC/BA - MICRO INFECTION CTRL SURVEY ; 10/1/87 17:12 ;

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Lab Service	3	^LRMISEZ3 D^LRU $$Y2K^LRX
VA FileMan	1	^%DT

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
Lab Service	1	LRMISEZ1

Entry Points

Name	Comments	DBIA/ICR reference
TYPE
M
LLOC
NLOC
NAME
SIT
AC
OR
BG
FX
NOD
HDR
LD
LIN

External References

Name	Field # of Occurrence
^%DT	HDR
^LRMISEZ3	TYPE+1
D^LRU	M, HDR
$$Y2K^LRX	FX

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: TYPE+0
Function Call: WRITE	Prompt: @IOF Line Location: TYPE+1
Function Call: WRITE	Prompt: @IOF Line Location: TYPE+2
Function Call: WRITE	Prompt: @IOF Line Location: TYPE+3
Function Call: WRITE	Prompt: !!,$E($P(LRNLOC,U),1,25) Line Location: LLOC+0
Function Call: WRITE	Prompt: LIN Condition for execution: S'="PAT" ! S LRPAT=0,X=43 D:S'="PAT" Line Location: LLOC+0
Function Call: WRITE	Prompt: ?25,$E(SSN,1,3),"-",$E(SSN,4,5),"-",$E(SSN,6,9),! Line Location: FX+1
Function Call: WRITE	Prompt: !,$E(LRBUG,1,13),?13,$E($P(LRSIT,U),1,7) Line Location: FX+2
Function Call: WRITE	Prompt: !?2,$E(LRBUG,1,32),?34,$J(LRSUM,3),")",?37,$J(LRAC,5),?43 Line Location: FX+5
Function Call: WRITE	Prompt: LRLIN,! Line Location: FX+8
Function Call: WRITE	Prompt: @IOF,!,Y,?21,"INFECTION CONTROL SURVEY REPORT BY ",$S(S="LOC":"LOCATION",S="DOC":"PROVIDER",1:"PATIENT"),?70,"PAGE ",$J(LRPG,5) Line Location: HDR+0
Function Call: WRITE	Prompt: !,?2," Reports only those specimens collected > ",LRLOS,$S(LRLOS>1:" days",1:" day")," from admission date " Line Location: HDR+1
Function Call: WRITE	Prompt: !,LRAAN,?6,"From: ",LRST," To: ",LRLST,?43 Line Location: HDR+2
Function Call: WRITE	Prompt: "\|",$E($P(B(I),U,2),1) Line Location: HDR+2
Function Call: WRITE	Prompt: "\|",!,$S(S="LOC":"Location",S="DOC":"Provider",1:"Patient") Line Location: HDR+3
Function Call: WRITE	Prompt: ?25,"SSN" Condition for execution: S="PAT" Line Location: HDR+3
Function Call: WRITE	Prompt: ?43 Line Location: HDR+3
Function Call: WRITE	Prompt: ?43 Line Location: HDR+3
Function Call: WRITE	Prompt: "\|",$E($P(B(I),U,2),3) Line Location: HDR+6
Function Call: WRITE	Prompt: "\|",!,?10," ANTIBIOTIC PATTERN ",?43 Line Location: HDR+7
Function Call: WRITE	Prompt: "\|",$S($L($P(B(I),U,3)):$P(B(I),U,3),1:" ") Line Location: HDR+7
Function Call: WRITE	Prompt: "\|",! Line Location: HDR+8
Function Call: WRITE	Prompt: "-" Line Location: HDR+8
Function Call: WRITE	Prompt: !!,$E($P(LRNLOC,U),1,14),?15,LRMY,":" Line Location: LD+0
Function Call: WRITE	Prompt: ! Line Location: LD+0
Function Call: WRITE	Prompt: "-" Line Location: LIN+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61.2 - [#61.2]	BG
^TMP($J	M, LLOC, NLOC+1, NLOC+2, NAME, SIT, AC, OR, BG, FX , FX+7, NOD

Label References

Name	Line Occurrences
AC	SIT
BG	OR
FX	BG
HDR	TYPE, TYPE+2, TYPE+3, LLOC, NAME, SIT, AC, OR, BG, FX+2
LD	NAME, SIT, AC, OR, BG, FX+2
LIN	LLOC, FX+1, LD
LLOC	M
M	TYPE, TYPE+2, TYPE+3
NAME	LLOC
NLOC	LLOC
NOD	FX+7
OR	AC
SIT	NAME

Naked Globals

Name	Field # of Occurrence
^(	BG, FX+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	HDR*
>> A1	HDR+8, LIN
>> B(	HDR+2, HDR+3, HDR+6, HDR+7
>> I	M, LLOC, NAME, SIT, AC, OR, BG, FX+7, HDR+2, HDR+3 , HDR+6, HDR+7
IOF	TYPE, TYPE+1, TYPE+2, TYPE+3, HDR
IOM	HDR+8
>> LRAAN	HDR+2
>> LRAC	AC*, OR, BG, FX, FX+5, FX+7, NOD
>> LRAD	M*
>> LRAP	HDR+7
>> LRBG	BG*, FX, FX+7, NOD
>> LRBUG	BG*, FX+2, FX+5
>> LRDAT	FX*, FX+3, FX+4
>> LRLIN	FX+6, FX+8, NOD
>> LRLLOC	LLOC*, NLOC, NLOC+1, NAME, SIT, AC, OR, BG, FX, FX+7 , NOD
>> LRLOS	HDR+1
>> LRLST	HDR+2
>> LRM("D"	TYPE+2
>> LRM("L"	TYPE
>> LRM("O"	TYPE+1
>> LRM("P"	TYPE+3
>> LRMY	M*, LD
>> LRNAME	NAME*, SIT, AC, OR, BG, FX, FX+7, NOD
>> LRNLOC	LLOC, NLOC, NLOC+1, NLOC+2*, LD
>> LROR	OR*, BG, FX, FX+7, NOD
>> LRPAT	LLOC, FX+1
>> LRPG	TYPE, TYPE+2, TYPE+3, HDR
>> LRPNM	FX*, FX+3
>> LRQUANT	FX*, FX+3, FX+4
>> LRSIT	SIT*, AC, OR, BG, FX, FX+2, FX+3, FX+4, FX+7, NOD
>> LRSIT(1	HDR+4
>> LRST	HDR+2
>> LRSUM	AC, FX+5
>> LRYA	FX+7*, NOD
>> LRZ(	NOD
>> M	M*, LLOC, NAME, SIT, AC, OR, BG, FX, FX+7, NOD
>> O	FX+6
>> S	TYPE, TYPE+2, TYPE+3*, M, LLOC, NLOC, NLOC+1, NLOC+2, NAME, SIT , AC, OR, BG, FX, FX+1, FX+3, FX+4, FX+7, NOD, HDR , HDR+3, HDR+4, HDR+5
>> SSN	FX*, FX+1, FX+3
U	LLOC, NLOC+1, BG, FX, FX+2, FX+3, FX+4, HDR+2, HDR+3, HDR+6 , HDR+7, LD
>> X	LLOC, FX, FX+1, HDR, LD*, LIN
>> Y	M*, HDR

Customize PDF page

Package: Lab Service