Routine: PSBOST

Information

PSBOST ;BIRMINGHAM/TEJ-UNABLE TO SCAN SUMMARY REPORT;Mar 2004 ; 29 Aug 2008 3:29 PM

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	3	DD^%DT NOW^%DTC $$GET1^DIQ
Barcode Medication Administration	1	LISTWD^PSBOSF
Kernel	1	$$FMADD^XLFDT

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
Barcode Medication Administration	1	PSBOSF

Entry Points

Name	Comments	DBIA/ICR reference
EN	;BCMA UNABLE TO SCAN (Summary) REPORT
FACILITY	;Entire Facility Option
NURSE	;Nurse Unit Option
WARD	;Ward Option
BLDRPT	;Assemble report body from accumilated totals
WRTRPT	;Actually "WRITE" the report to output device
HDR	;Create Report Header
FTR	;Create Report Footer
PGTOT(X)	;Keep track of lines and PAGE Number...
NURLOC(X)	;Nursing Location Name
WARDDIV(RESULTS,PSBINST)	; wards filtered by institution

External References

Name	Field # of Occurrence
DD^%DT	EN+5, EN+6
NOW^%DTC	EN+6
$$GET1^DIQ	WARDDIV+6
LISTWD^PSBOSF	WARD+2
$$FMADD^XLFDT	FACILITY+2, NURSE+2, WARD+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"BCMA UNABLE TO SCAN (Summary)" Line Location: HDR+6
Function Call: WRITE	Prompt: ?PSBPGRM,PSBPG Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"Date/Time: "_PSBDTTM,!,"Report Date Range: Start Date: "_Y1_" Stop Date: "_Y2 Line Location: HDR+7
Function Call: WRITE	Prompt: !,"Division: ",$P($G(^DIC(4,DUZ("2"),0)),U,1) Line Location: HDR+8
Function Call: WRITE	Prompt: " Nurse Location: " Line Location: HDR+9
Function Call: WRITE	Prompt: $$NURLOC(PSBNULO) Line Location: HDR+10
Function Call: WRITE	Prompt: $$NURLOC(PSBSTWD) Line Location: HDR+11
Function Call: WRITE	Prompt: !!,?5,"This is a summary report of BCMA Unable to Scan Events that have occurred within the given date range." Line Location: HDR+13
Function Call: WRITE	Prompt: !!,"Note: * Access to BCMA Unable to Scan Reports is RESTRICTED. *" Line Location: HDR+14
Function Call: WRITE	Prompt: !,$TR($J("",IOM)," ","="),!! Line Location: HDR+15
Function Call: WRITE	Prompt: !! Line Location: FTR+1
Function Call: WRITE	Prompt: !!,$TR($J("",IOM)," ","="),! Line Location: FTR+2
Function Call: WRITE	Prompt: !,PSBDTTM,!,"BCMA UNABLE TO SCAN (Summary)" Line Location: FTR+3
Function Call: WRITE	Prompt: ?PSBPGRM,PSBPG,! Line Location: FTR+4

FileNo	Call Tags
^DIC(42 - [#42]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	HDR+8
^NURSF(211.4 - [#211.4]	NURLOC+3, WARDDIV+2, WARDDIV+3, WARDDIV+4, WARDDIV+5
^PSB(53.77 - [#53.77]	FACILITY+2, FACILITY+3, FACILITY+4, FACILITY+6, NURSE+2, NURSE+3, NURSE+4, NURSE+6, WARD+3, WARD+4 , WARD+5, WARD+7
^SC - [#44]	NURLOC+5, WARDDIV+3
^XUSEC("PSB UNABLE TO SCAN"	BLDRPT+1

Label References

Name	Line Occurrences
$$NURLOC	HDR+10, HDR+11
$$PGTOT	BLDRPT+8, BLDRPT+9, BLDRPT+10, BLDRPT+11, BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+15, BLDRPT+16, BLDRPT+17 , BLDRPT+18, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+23, BLDRPT+24, BLDRPT+25
BLDRPT	FACILITY+21, NURSE+39, NURSE+40, WARD+22
FACILITY	EN+9
FTR	WRTRPT+4, WRTRPT+9, WRTRPT+12
HDR	WRTRPT+2, WRTRPT+7, WRTRPT+9
NURSE	EN+10
WARD	EN+11
WARDDIV	FACILITY+1, NURSE+1
WRTRPT	FACILITY+22, NURSE+41, WARD+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+6, EN+12!
DUZ	BLDRPT+1
DUZ("2"	HDR+8
DUZ(2	FACILITY+1, NURSE+1, HDR+5
IOF	HDR+1
IOM	HDR+4, HDR+15, FTR+2
IOSL	FTR+1, PGTOT+5
NEWPAGE	EN+8, EN+12!, BLDRPT+7, PGTOT+5*
PSB05	EN+1~, FACILITY+6, FACILITY+7, FACILITY+8, FACILITY+9, FACILITY+10, FACILITY+11, FACILITY+12, FACILITY+13, NURSE+6 , NURSE+10, NURSE+11, NURSE+12, NURSE+13, NURSE+14, NURSE+15, NURSE+16, WARD+7*, WARD+8, WARD+9 , WARD+10, WARD+11, WARD+12, WARD+13, WARD+14
PSBDTSP	EN+4*, EN+5, EN+12!, FACILITY+2, NURSE+2, WARD+3
PSBDTST	EN+3*, EN+5, EN+12!, FACILITY+2, NURSE+2, WARD+3
PSBDTTM	EN+6*, EN+12!, HDR+7, FTR+3
PSBIEN	WARDDIV+1~, WARDDIV+2*, WARDDIV+3, WARDDIV+4, WARDDIV+5, WARDDIV+6
PSBINST	WARDDIV~, WARDDIV+3
PSBLIST	EN+7*, EN+12!
PSBLNTOT	EN+8, EN+12!, BLDRPT+8, BLDRPT+9, BLDRPT+10, BLDRPT+11, BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+15 , BLDRPT+16, BLDRPT+17, BLDRPT+18, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+23, BLDRPT+24, BLDRPT+25 , PGTOT+1, PGTOT+2, PGTOT+3, PGTOT+4, PGTOT+5*
PSBMBYPS	EN+12!, FACILITY+19, NURSE+38, WARD+20*, BLDRPT+20
PSBMORE	EN+8, EN+12!, PGTOT+3, PGTOT+4, PGTOT+5
PSBNU	EN+1~
PSBNU(	NURSE+10, NURSE+11, NURSE+12, NURSE+13, NURSE+14, NURSE+15, NURSE+16, NURSE+17, NURSE+18, NURSE+19* , NURSE+20, NURSE+21, NURSE+22, NURSE+23, NURSE+24*, NURSE+25, NURSE+26, NURSE+27, NURSE+28, NURSE+29 , NURSE+30, NURSE+31, NURSE+32, NURSE+33, NURSE+34, NURSE+35, NURSE+36, NURSE+37, NURSE+38
PSBNULO	EN+1~, NURSE+8, NURSE+9, NURSE+10, NURSE+11, NURSE+12, NURSE+13, NURSE+14, NURSE+15, NURSE+16 , NURSE+17, NURSE+18, NURSE+19, NURSE+20, NURSE+21, NURSE+22, NURSE+23, NURSE+24, NURSE+25, NURSE+26 , NURSE+27, NURSE+28, NURSE+29, NURSE+30, NURSE+31, NURSE+32, NURSE+33, NURSE+34, NURSE+35, NURSE+36 , NURSE+37, NURSE+38, BLDRPT+26, WRTRPT+6, WRTRPT+9*, HDR+10
PSBNURLC	NURLOC+2~, NURLOC+3, NURLOC+4, NURLOC+5, NURLOC+6
PSBOUTP	EN+2!, EN+13!
PSBOUTP(	BLDRPT+8, BLDRPT+9, BLDRPT+10, BLDRPT+11, BLDRPT+12, BLDRPT+13, BLDRPT+14, BLDRPT+15, BLDRPT+16, BLDRPT+17 , BLDRPT+18, BLDRPT+19, BLDRPT+20, BLDRPT+21, BLDRPT+22, BLDRPT+23, BLDRPT+24, BLDRPT+25, BLDRPT+26*, WRTRPT+3 , WRTRPT+6, WRTRPT+8, WRTRPT+9, WRTRPT+10, WRTRPT+11
PSBOUTP(""	WRTRPT+1, WRTRPT+3, HDR+3
PSBOUTP(0	BLDRPT+3, BLDRPT+6
PSBPG	EN+12!, HDR+3*, HDR+4, HDR+6, FTR+4
PSBPGNUM	EN+8, EN+12!, BLDRPT+2, BLDRPT+5, BLDRPT+26, WRTRPT+5, WRTRPT+6, WRTRPT+9, HDR+3, PGTOT+3 , PGTOT+5, PGTOT+6
PSBPGRM	EN+12!, HDR+4*, HDR+6, FTR+4
PSBRPT	EN+12!
PSBRPT(	EN+3, EN+4, WARD+1
PSBRPT(0	HDR+5*
PSBRPT(3	EN+9, EN+10, EN+11, BLDRPT+26, WRTRPT+6
PSBSEL	EN+1~
PSBSTWD	EN+12!, WARD+1*, WARD+2, WARD+6, HDR+11
PSBTM	EN+8, EN+12!, FACILITY+10, FACILITY+16, NURSE+28, WARD+11, WARD+17, BLDRPT+19
PSBTMEVT	EN+8, EN+13!, FACILITY+16, FACILITY+18, NURSE+34, WARD+17, WARD+19, BLDRPT+19, BLDRPT+20, BLDRPT+21 , BLDRPT+22, BLDRPT+23, BLDRPT+25
PSBTMKEY	EN+8, EN+13!, FACILITY+8, FACILITY+14, FACILITY+19, NURSE+26, WARD+9, WARD+15, WARD+20, BLDRPT+21
PSBTMMME	EN+8, EN+13!, FACILITY+9, FACILITY+14, FACILITY+19, NURSE+27, WARD+10, WARD+15, WARD+20, BLDRPT+23
PSBTMSF	EN+8, EN+13!, FACILITY+14, FACILITY+16, NURSE+33, WARD+15, WARD+17
PSBTMUAS	EN+8, EN+13!, FACILITY+7, FACILITY+14, FACILITY+19, NURSE+25, WARD+8, WARD+15, WARD+20, BLDRPT+22
PSBTSCAN	EN+13!, FACILITY+18, NURSE+36, NURSE+40, WARD+19*, BLDRPT+4
PSBTW	EN+8, EN+13!, FACILITY+13, FACILITY+17, NURSE+31, WARD+14, WARD+18, BLDRPT+10
PSBTWEVT	EN+8, EN+13!, FACILITY+17, FACILITY+18, NURSE+35, WARD+18, WARD+19, BLDRPT+10, BLDRPT+11, BLDRPT+12 , BLDRPT+13, BLDRPT+15
PSBTWKEY	EN+8, EN+13!, FACILITY+12, FACILITY+15, FACILITY+20, NURSE+30, WARD+13, WARD+16, WARD+21, BLDRPT+12
PSBTWSF	EN+8, EN+13!, FACILITY+15, FACILITY+17, NURSE+32, WARD+16, WARD+18
PSBTWUAS	EN+8, EN+13!, FACILITY+11, FACILITY+15, FACILITY+20, NURSE+29, WARD+12, WARD+16, WARD+21, BLDRPT+13
PSBWARD	FACILITY+1, NURSE+1!
PSBWARD(	FACILITY+5, NURSE+5, NURSE+9, WARD+6
PSBWBYPS	EN+13!, FACILITY+20, NURSE+37, WARD+21*, BLDRPT+11
PSBWIEN	WARDDIV+1~, WARDDIV+5*, WARDDIV+6
PSBWRD	EN+14!, FACILITY+4, FACILITY+5, NURSE+4, NURSE+5, NURSE+8, NURSE+9, WARD+5*, WARD+6
PSBX	WARDDIV+1~, WARDDIV+4*, WARDDIV+5
PSBX1	EN+14!, FACILITY+2, FACILITY+3, NURSE+2, NURSE+3, WARD+3, WARD+4, WRTRPT+8, WRTRPT+9, WRTRPT+10 , WRTRPT+11
PSBX2	EN+14!, FACILITY+3, FACILITY+4, FACILITY+6, NURSE+3, NURSE+4, NURSE+6, WARD+4, WARD+5, WARD+7 , WRTRPT+10, WRTRPT+11
RESULTS	WARDDIV~
RESULTS(	WARDDIV+6*
U	EN+3, EN+4, FACILITY+4, FACILITY+6, NURSE+4, NURSE+6, WARD+1, WARD+5, WARD+7, HDR+5 , HDR+8, WARDDIV+3
X	PGTOT~, PGTOT+1, PGTOT+2, NURLOC~, NURLOC+1, NURLOC+3
Y	EN+5, EN+6, EN+14!
Y1	EN+5*, EN+14!, HDR+7
Y2	EN+5*, EN+14!, HDR+7

Customize PDF page

Package: Barcode Medication Administration