Routine: PSBOMV

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

Entry Points

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

External References

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

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+3
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: !,"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+5
^PSB(53.78 - [#53.78]	RANGE+1, RANGE+2, RANGE+3, VCOM+2, EVENTS+1, SORTING+3
^PSB(53.79 - [#53.79]	CHECK+3, VCOM+4, VCOM+5, VCOM+6, VCOM+7, VCOM+9, VCOM+10
^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
$$WRDHDR	BYWDPT+3, BYWDPT+7, BYWDRB+3, BYWDRB+7
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+3, 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+3, 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+3, PTHDR+3
IOSL	BYWDPT+7, BYWDRB+7, BYDFN+6
PSBCOM	VCOM+1~, VCOM+7*, VCOM+9, VCOM+10
>> 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+2, PTHDR+2
PSBHDR(1	WRDHDR+1, PTHDR+1
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+3*, CHECK+2, CHECK+3
PSBML	VCOM+1~, VCOM+2*, VCOM+4, VCOM+5, VCOM+6, VCOM+7, VCOM+9, VCOM+10
PSBPRCX	EN+1~, EVEPRNT+6*, EVEPRNT+7
PSBPRINT	EN+1~, EN+6*, EN+7, EN+8, CHECK+5, BUILD+1, BUILD+3, BYWDPT+1, BYWDRB+1, BYDFN+1
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
PSBSTOP	EN+1~, EN+5*, RANGE+1
PSBSTRT	EN+1~, EN+4*, RANGE+1
PSBTIME	EN+1~, RANGE+3*, CHECK+3
PSBWLF	EN+1~, RANGE+3*, CHECK+1, CHECK+5
PSBWRD	EN+1~, EN+8*, CHECK+5, WRDHDR+2
PSBWRDA	EN+1~, EN+8
PSBX	EN+1~, RANGE+1*, RANGE+2, BUILD, SORTING+3
PSBXX	EN+1~, EVEPRNT+4*, EVEPRNT+5, EVEPRNT+6
PSBY	EN+1~, RANGE+2, RANGE+3, BUILD, BYWDPT+9, BYWDPT+11, BYWDPT+14, BYWDPT+15, BYWDPT+16, BYWDPT+17 , BYWDPT+18, BYWDRB+9, BYWDRB+11, BYWDRB+14, BYWDRB+15, BYWDRB+16, BYWDRB+17, BYWDRB+18, BYDFN+8, BYDFN+10 , BYDFN+11, BYDFN+12, BYDFN+13, BYDFN+14, VCOM+2, EVENTS+1, SORTING+3
U	EN+4, EN+5, EN+6, EN+7, EN+8, RANGE+3, CHECK+3, BUILD+1, BYWDPT+13, BYWDRB+13 , VCOM+3, VCOM+4, VCOM+5, VCOM+9, VCOM+10, EVENTS+1, EVENTS+2, EVEPRNT+3, EVEPRNT+5, EVEPRNT+6 , SORTING+2, SORTING+3
Y	VCOM+1~, VCOM+9*, VCOM+10

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBOMV

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: