Routine: PSBOMV

Package	Total	Call Graph
Barcode Medication Administration	2	$$WRAP^PSBO ($$PTFTR,$$SRCHLIST,PT,WARD)^PSBOHDR
VA FileMan	2	$$EXTERNAL^DILFD $$GET1^DIQ
Kernel	1	$$FMTE^XLFDT
Nursing Service	1	WARD^NURSUT5

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
RANGE	;Locate data between date range.
CHECK
BUILD
BYWDPT	;Print by Ward and Sort by Patient.
BYWDRB	;Print by Ward and Sort by Room and Bed.
BYDFN	;Print by Patient.
WRDHDR()	;
PTHDR()	;
VCOM	;Print Ward and Comments from Med Log on Variance Report.
EVENTS	;Record total number of events.
EVEPRNT	;Display Total and Percentage of Events.
SORTING	;Sort by Patient or Room and Bed Information

External References

Name	Field # of Occurrence
$$EXTERNAL^DILFD	EVEPRNT+5
$$GET1^DIQ	BYWDPT+11, BYWDPT+14, BYWDPT+15, BYWDPT+16, BYWDPT+18, BYWDRB+11, BYWDRB+14, BYWDRB+15, BYWDRB+16, BYWDRB+18 , BYDFN+10, BYDFN+11, BYDFN+12, BYDFN+14, VCOM+12
WARD^NURSUT5	EN+8
$$WRAP^PSBO	VCOM+12
$$PTFTR^PSBOHDR	BYDFN+17, VCOM+7, VCOM+14
$$SRCHLIST^PSBOHDR	WRDHDR+3
PT^PSBOHDR	PTHDR+2
WARD^PSBOHDR	WRDHDR+5
$$FMTE^XLFDT	WRDHDR+2, PTHDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Rm-Bed",?20,"Patient Name",?48,"Event Date/Time",?75,"Event",?95,"Var",?102,"Medication",!,$TR($J("",IOM)," ","-") Line Location: WRDHDR+6
Function Call: WRITE	Prompt: !,"Event Date/Time",?23,"Event",?43,"Var",?50,"Medication",!,$TR($J("",IOM)," ","-") Line Location: PTHDR+3
Function Call: WRITE	Prompt: !,?23,"Ward: ",?34 Line Location: VCOM+3
Function Call: WRITE	Prompt: "<No Ward>" Line Location: VCOM+4
Function Call: WRITE	Prompt: "<No Comments>" Line Location: VCOM+6
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR(),!,$$PTHDR() Line Location: VCOM+7
Function Call: WRITE	Prompt: !,$$WRDHDR() Line Location: VCOM+8
Function Call: WRITE	Prompt: $$PTFTR^PSBOHDR(),!,$$PTHDR() Line Location: VCOM+14
Function Call: WRITE	Prompt: !,$$WRDHDR() Line Location: VCOM+15
Function Call: WRITE	Prompt: !,"Total Number of Events for the reporting period is: "_$P(^TMP("PSBO",$J,"EVENTSTOT",0),U)_".",! Line Location: EVEPRNT+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSB(53.78 - [#53.78]	EXTERNAL^DILFD, GET1^DIQ
53.793	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BUILD+1, BUILD+2, SORTING+2
^NURSF(211.4 - [#211.4]	CHECK+16
^PSB(53.78 - [#53.78]	RANGE+2, RANGE+3, RANGE+4, VCOM+2, EVENTS+1, SORTING+3
^PSB(53.79 - [#53.79]	VCOM+4, VCOM+5, VCOM+6, VCOM+9, VCOM+11, VCOM+12
^TMP("PSBO"	EN+3!, BUILD, BUILD+1, BUILD+2, BYWDPT+5, BYWDPT+6, BYWDPT+8, BYWDPT+9, BYWDPT+13, BYWDRB+5 , BYWDRB+6, BYWDRB+8, BYWDRB+9, BYWDRB+13, BYDFN+4, BYDFN+5, BYDFN+7, BYDFN+8, EVENTS+2, EVENTS+3* , EVEPRNT+2, EVEPRNT+3, EVEPRNT+4, EVEPRNT+5, EVEPRNT+6, SORTING+2, SORTING+3

Label References

Name	Line Occurrences
$$PTHDR	BYDFN+2, BYDFN+6, VCOM+7, VCOM+14
$$WRDHDR	BYWDPT+3, BYWDPT+7, BYWDRB+3, BYWDRB+7, VCOM+8, VCOM+15
EVENTS	BYWDPT+10, BYWDRB+10, BYDFN+9
EVEPRNT	BYWDPT+21, BYWDRB+21, BYDFN+16
SORTING	BUILD+3
VCOM	BYWDPT+19, BYWDRB+19, BYDFN+15

Naked Globals

Name	Field # of Occurrence
^(0	RANGE+4, VCOM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EN+1~, EN+6, EVENTS+3
DFN	EN+1~, RANGE+4, BUILD, BUILD+1, BUILD+2, BYWDPT+6, BYWDPT+8, BYWDPT+9, BYWDPT+13, BYWDRB+6* , BYWDRB+8, BYWDRB+9, BYWDRB+13, BYDFN+5*, BYDFN+7, BYDFN+8, SORTING+2, SORTING+3
IOM	WRDHDR+6, PTHDR+3
IOSL	BYWDPT+7, BYWDRB+7, BYDFN+6, VCOM+6, VCOM+13
PSBCOM	VCOM+1~, VCOM+9*, VCOM+11, VCOM+12
>> PSBDFN	PTHDR+2
PSBDT	EN+1~, BYWDPT+8, BYWDPT+9, BYWDRB+8, BYWDRB+9, BYDFN+7*, BYDFN+8
PSBEV	EN+1~, EVENTS+1*, EVENTS+2
PSBHDR	EN+1~, WRDHDR+5, PTHDR+2
PSBHDR(1	WRDHDR+2, PTHDR+1
PSBHDR(2	WRDHDR+4*
PSBHDR(3	WRDHDR+4*
PSBHDR(4	WRDHDR+4*
PSBINDX	EN+1~, BYWDPT+4, BYWDPT+5, BYWDPT+6, BYWDRB+4, BYWDRB+5, BYWDRB+6, BYWDRB+8, BYWDRB+9, BYDFN+3* , BYDFN+4, BYDFN+5, SORTING+2, SORTING+3*
PSBLOG	EN+1~, RANGE+4*, CHECK+2
PSBML	VCOM+1~, VCOM+2*, VCOM+4, VCOM+5, VCOM+6, VCOM+9, VCOM+11, VCOM+12
PSBPRCX	EN+1~, EVEPRNT+6*, EVEPRNT+7
PSBPRINT	EN+1~, EN+6*, EN+7, EN+8, CHECK+16, BUILD+1, BUILD+3, BYWDPT+1, BYWDRB+1, BYDFN+1 , VCOM+7, VCOM+8, VCOM+14, VCOM+15
PSBPT	EN+1~, EN+7*, BUILD+1
PSBRB	EN+1~, BYWDPT+11, BYWDPT+12, BYWDRB+11, BYWDRB+12
>> PSBRPT(	EN+4, EN+5, EN+6, EN+7, EN+8, VCOM+3
PSBSORT	EN+1~, EN+8*, BUILD, BYWDPT+1, BYWDRB+1, SORTING+2, SORTING+3
PSBSRCHL	WRDHDR+1~, WRDHDR+3*, WRDHDR+5
PSBSTOP	EN+1~, EN+5*, RANGE+2, WRDHDR+2, PTHDR+1
PSBSTRT	EN+1~, EN+4*, RANGE+2, WRDHDR+2, PTHDR+1
PSBTIME	EN+1~, RANGE+4*
PSBTMDF	RANGE+1~
PSBWLF	EN+1~, RANGE+4*, CHECK+1, CHECK+16
PSBWRD	EN+1~, EN+8*, CHECK+16, WRDHDR+5
PSBWRDA	EN+1~, EN+8
PSBX	EN+1~, RANGE+2*, RANGE+3, BUILD, SORTING+3
PSBXX	EN+1~, EVEPRNT+4*, EVEPRNT+5, EVEPRNT+6
PSBY	EN+1~, RANGE+3, RANGE+4, BUILD, BYWDPT+9, BYWDPT+11, BYWDPT+14, BYWDPT+15, BYWDPT+16, BYWDPT+18 , BYWDRB+9, BYWDRB+11, BYWDRB+14, BYWDRB+15, BYWDRB+16, BYWDRB+18, BYDFN+8, BYDFN+10, BYDFN+11, BYDFN+12 , BYDFN+14, VCOM+2, EVENTS+1, SORTING+3
U	EN+4, EN+5, EN+6, EN+7, EN+8, RANGE+4, BUILD+1, BYWDPT+13, BYWDRB+13, VCOM+3 , VCOM+4, VCOM+5, VCOM+11, VCOM+12, EVENTS+1, EVENTS+2, EVEPRNT+3, EVEPRNT+5, EVEPRNT+6, SORTING+2 , SORTING+3
Y	VCOM+1~, VCOM+11*, VCOM+12

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOMV

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: