Routine: PSBIHS4

Package	Total	Call Graph
VA Fileman	6	(,DD)^%DT (C,NOW)^%DTC ^DIC WAIT^DICD YN^DICN $$GET1^DIQ
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Registration	1	(DEM,PID)^VADPT

Package	Total	Caller Graph
Barcode Medication Administration	1	PSBIHS MED GIVEN NDC REPORT

Entry Points

Name	Comments	DBIA/ICR reference
END
TAS
STOP	;FINAL CLEAN UP
SUMNDC	; DAILY SUMMARY
ST2	;START AND END DATES
NEW
DETPRT	; PRINT ORDER DETAILS

External References

Name	Field # of Occurrence
^%DT	ST2+2, END+2
DD^%DT	ST2+4, NEW+7, DETPRT+4, SUMNDC+6, SUMNDC+12
C^%DTC	END+4
NOW^%DTC	NEW+7
^%ZIS	TAS+2
HOME^%ZIS	TAS+16
^%ZISC	TAS+9
^%ZTLOAD	TAS+16
^DIC	PSBIHS4+4
WAIT^DICD	TAS+8
YN^DICN	END+6, END+7
$$GET1^DIQ	DETPRT+19
DEM^VADPT	NEW+4
PID^VADPT	NEW+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You entered "_Y_" Start Date must be After 'August 1, 2003" Line Location: ST2+4
Function Call: WRITE	Prompt: !,"End Date must be after the start !" Line Location: END+5
Function Call: WRITE	Prompt: !,"Include Order Details" Line Location: END+6
Function Call: WRITE	Prompt: !,"NDC Daily Summary" Line Location: END+7
Function Call: WRITE	Prompt: !,"Eixting now nothing selected to print" Line Location: END+8
Function Call: WRITE	Prompt: ! Line Location: TAS+2
Function Call: WRITE	Prompt: ! Line Location: NEW+40
Function Call: WRITE	Prompt: "-" Line Location: NEW+40
Function Call: WRITE	Prompt: !,"Action Date/Time",?30,"Medication Given",! Line Location: DETPRT+1
Function Call: WRITE	Prompt: "-" Line Location: DETPRT+1
Function Call: WRITE	Prompt: !,"Action Date/Time",?30,"Medication Given",! Line Location: DETPRT+6
Function Call: WRITE	Prompt: "-" Line Location: DETPRT+6
Function Call: WRITE	Prompt: !,Y Line Location: SUMNDC+6
Function Call: WRITE	Prompt: !,Y,!,$S(PSBTYP="NDC1":"Unit Dose:",PSBTYP="NDCA":"Additives:",PSBTYP="NDCS":"Solutions:",1:"") Line Location: SUMNDC+12
Function Call: WRITE	Prompt: !,PSBDNAME,?55,PSBNDC,?80,$G(^TMP($J,"BCMA1",PSBDT,PSBTYP,PSBDNAME,PSBDIEN,PSBNDC)) Line Location: SUMNDC+13
Function Call: WRITE	Prompt: "-" Line Location: SUMNDC+18
Function Call: WRITE	Prompt: !,?55,"Report Totals: ",?80,PSBCNT Line Location: SUMNDC+20
Routine Call	%ZIS Line Location: TAS+16
Routine Call	DIC Line Location: PSBIHS4+4
Routine Call	%ZIS Line Location: TAS+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PSB(53.79 - [#53.79]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	DETPRT+7
^PS(52.6 - [#52.6]	NEW+30, DETPRT+13, DETPRT+14
^PS(52.7 - [#52.7]	NEW+36, DETPRT+17, DETPRT+18
^PSB(53.79 - [#53.79]	NEW+12, NEW+13, NEW+14, NEW+15, NEW+18, NEW+20, NEW+21, NEW+27, NEW+28, NEW+30 , NEW+34, NEW+35, NEW+36, DETPRT+7
^PSDRUG - [#50]	NEW+23, NEW+24, NEW+25, NEW+30, NEW+31, NEW+32, NEW+36, NEW+37, NEW+38, DETPRT+5 , DETPRT+10, DETPRT+13, DETPRT+17
^PSDRUG("ASP"	DETPRT+5
^TMP($J	NEW+11!, NEW+19, NEW+21, NEW+24, NEW+25, NEW+28, NEW+31, NEW+32, NEW+35, NEW+37* , NEW+38*, NEW+39, NEW+42, DETPRT+2, DETPRT+3, DETPRT+5, DETPRT+8, DETPRT+9, DETPRT+10, DETPRT+11 , DETPRT+12, DETPRT+14, DETPRT+15, DETPRT+16, DETPRT+18, SUMNDC+5, SUMNDC+7, SUMNDC+9, SUMNDC+10, SUMNDC+11 , SUMNDC+13, SUMNDC+16, SUMNDC+17, STOP+1!

Label References

Name	Line Occurrences
DETPRT	NEW+44
END	END+5
NEW	TAS+8
ST2	ST2+4
STOP	ST2+2, END+2, END+6, END+7, END+8, NEW+45
SUMNDC	NEW+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	END+6, END+7, NEW+7
%DT	ST2+2, ST2+3!, ST2+5!, END+2, END+3!
%DT("A"	ST2+1, END+1
%ZIS	TAS+1*, TAS+2!
DFN	NEW+1~, NEW+3*
DIC	PSBIHS4+4*, PSBIHS4+7!
DIC(0	PSBIHS4+4*, PSBIHS4+7!
DUZ("AG"	NEW+5
HEAD	NEW+8*, NEW+40, DETPRT+1, DETPRT+6, SUMNDC+4, SUMNDC+12, STOP+1!
HEAD1	NEW+9*, NEW+40, DETPRT+1, DETPRT+6, SUMNDC+4, SUMNDC+12, STOP+1!
HEAD2	SUMNDC+2~, SUMNDC+3*, SUMNDC+4, SUMNDC+12
IO	TAS+8, TAS+9
IO("Q"	TAS+7, TAS+11, TAS+18!
IO(0	TAS+9
IOM	NEW+40, DETPRT+1, DETPRT+6, SUMNDC+18
ION	TAS+15
IOSL	DETPRT+6, SUMNDC+12
J	NEW+20, NEW+21, NEW+27, NEW+28, NEW+30, NEW+34, NEW+35, NEW+36, NEW+40, DETPRT+1* , DETPRT+6, SUMNDC+18, STOP+1!
JJ	STOP+1!
PG	NEW+1~
POP	TAS+3, STOP+1!
PSBBDATE	ST2+3*, ST2+4, END+5, TAS+5!, NEW+12, STOP+1!
PSBCNT	SUMNDC+1!, SUMNDC+17, SUMNDC+20, STOP+1!
PSBCNT(	SUMNDC+15, SUMNDC+16, SUMNDC+19
PSBDATE	NEW+1~, NEW+12, NEW+13, NEW+24, NEW+25, NEW+31, NEW+32, NEW+37, NEW+38, DETPRT+2 , DETPRT+3, DETPRT+4, DETPRT+5, DETPRT+8, DETPRT+9, DETPRT+10, DETPRT+11, DETPRT+12, DETPRT+14, DETPRT+15 , DETPRT+16, DETPRT+18
PSBDATEE	NEW+1~, DETPRT+4*
PSBDFN	PSBIHS4+6*, NEW+3, NEW+12, NEW+13, STOP+1!
PSBDIEN	NEW+1~, NEW+30, NEW+31, NEW+32, NEW+36, NEW+37, NEW+38, DETPRT+5, DETPRT+13, DETPRT+17* , SUMNDC+2~, SUMNDC+10*, SUMNDC+11, SUMNDC+13, SUMNDC+16, SUMNDC+17
PSBDNAME	SUMNDC+2~, SUMNDC+9*, SUMNDC+10, SUMNDC+11, SUMNDC+13, SUMNDC+16, SUMNDC+17
PSBDNDC	NEW+23, NEW+24, NEW+25, NEW+30, NEW+31, NEW+32, NEW+36*, NEW+37, NEW+38, STOP+1!
PSBDOB	NEW+1~, NEW+5*
PSBDRUG	NEW+1~
PSBDSIEN	NEW+1~, NEW+21, NEW+23, NEW+24, NEW+25, DETPRT+8, DETPRT+9, DETPRT+10
PSBDT	SUMNDC+5*, SUMNDC+6, SUMNDC+7, SUMNDC+9, SUMNDC+10, SUMNDC+11, SUMNDC+12, SUMNDC+13, SUMNDC+15, SUMNDC+16 , SUMNDC+17, SUMNDC+19, STOP+1!
PSBDU	NEW+1~, DETPRT+9*, DETPRT+10
PSBDV	TAS+5!
PSBEDATE	END+1, END+3, END+4*, END+5, TAS+5!, NEW+12, STOP+1!
PSBIEN	NEW+1~, NEW+13, NEW+14, NEW+15, NEW+18, NEW+19, NEW+20, NEW+21, NEW+27, NEW+28 , NEW+30, NEW+34, NEW+35, NEW+36, DETPRT+3, DETPRT+5, DETPRT+7, DETPRT+8, DETPRT+9, DETPRT+10 , DETPRT+11, DETPRT+12, DETPRT+14, DETPRT+15, DETPRT+16, DETPRT+18, DETPRT+19, SUMNDC+2~
PSBLASTACT	NEW+1~, NEW+15*, NEW+19, NEW+21, NEW+28, NEW+35
PSBLDT	SUMNDC+2~, SUMNDC+6, SUMNDC+13*
PSBNAME	NEW+1~, NEW+5*
PSBNDC	NEW+1~, DETPRT+5, DETPRT+13, DETPRT+14, DETPRT+17, DETPRT+18, SUMNDC+2~, SUMNDC+11, SUMNDC+13, SUMNDC+16 , SUMNDC+17
PSBNOW	NEW+7*, STOP+1!
PSBOIEN	NEW+1~, NEW+30, NEW+36, DETPRT+5, DETPRT+7, DETPRT+12, DETPRT+13, DETPRT+14, DETPRT+16*, DETPRT+17 , DETPRT+18
PSBOITEM	NEW+1~, NEW+18*, NEW+19
PSBORDET	END+6*, END+8, NEW+44, STOP+1!
PSBPID	NEW+1~, NEW+5*
PSBRTNDC	END+7*, END+8, NEW+43, STOP+1!
PSBSTATUS	NEW+1~, NEW+14*, NEW+17
PSBTYP	SUMNDC+2~, SUMNDC+7*, SUMNDC+8, SUMNDC+9, SUMNDC+10, SUMNDC+11, SUMNDC+12, SUMNDC+13, SUMNDC+16, SUMNDC+17
U	NEW+5, NEW+14, NEW+15, NEW+18, NEW+20, NEW+21, NEW+23, NEW+24, NEW+25, NEW+28 , NEW+30, NEW+31, NEW+32, NEW+35, NEW+36, NEW+37, NEW+38, DETPRT+5, DETPRT+9, DETPRT+10 , DETPRT+13, DETPRT+14, DETPRT+17, DETPRT+18
VA	NEW+6!
VA("PID"	NEW+5
VADM	NEW+6!
VADM(1	NEW+5
VADM(3	NEW+5
VISN	TAS+5!
X	PSBIHS4+7!, ST2+2, END!, END+2, END+4
X1	END+4*!
X2	END+4*!
Y	PSBIHS4+4, PSBIHS4+5, PSBIHS4+6, PSBIHS4+7!, ST2+3!, ST2+4, ST2+5!, END+3!, NEW+7, DETPRT+4* , DETPRT+7, SUMNDC+6, SUMNDC+12
ZTDESC	TAS+13*, TAS+18!
ZTIO	TAS+15*, TAS+18!
ZTRTN	TAS+12*, TAS+18!
ZTSAVE	TAS+18!
ZTSAVE("PSBBDATE"	TAS+14*
ZTSAVE("PSBDFN"	TAS+14*
ZTSAVE("PSBEDATE"	TAS+14*
ZTSAVE("PSBORDET"	TAS+14*
ZTSAVE("PSBRTNDC"	TAS+14*
ZTSK	TAS+17, TAS+18!

Customize PDF page

Package: Barcode Medication Administration

Routine: PSBIHS4

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: