Routine: PSDPAT1

Package	Total	Call Graph
VA FileMan	2	NOW^%DTC ^DIR
Controlled Substances	1	(,SET,SET1,SET2)^PSDPAT2
Kernel	1	^%ZISC
Registration	1	KVAR^VADPT

Package	Total	Caller Graph
Controlled Substances	1	PSDPAT

Name	Comments	DBIA/ICR reference
START	;entry for compile and print
PRINT	;prints data
DONE
END	;
PRTTRT	; PRINT TRANSFER TO INFORMATION
PRTRET	; PRINT RETURN INFORMATION
HDR	;header
CHK	;sets total qty used and balance
CHK2	;CHECK THE TTYPE
TOT	;prints total qty used and balance

Name	Field # of Occurrence
NOW^%DTC	PRINT+2
^%ZISC	END+4
^DIR	DONE+1, HDR+1
^PSDPAT2	PRINT+1
SET^PSDPAT2	START+49, START+59
SET1^PSDPAT2	START+61
SET2^PSDPAT2	START+60
KVAR^VADPT	END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?15,"** NO DISPENSING ACTIVITY **",!! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?5,"=> ",PSDRG,! Line Location: PRINT+9
Function Call: WRITE	Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),! Line Location: PRINT+11
Function Call: WRITE	Prompt: PSDT,?22,PSDPAT,?45,"WASTED",?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),! Line Location: PRINT+14
Function Call: WRITE	Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),!,?25,$P(PSD0,U,6),! Line Location: PRINT+17
Function Call: WRITE	Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),! Line Location: PRINT+18
Function Call: WRITE	Prompt: "-" Condition for execution: PSDTYP=17 Line Location: PRINT+22
Function Call: WRITE	Prompt: $J(PSDSOQT,6) Line Location: PRINT+22
Function Call: WRITE	Prompt: ?55,$J(PSDQTY,6),! Line Location: PRINT+24
Function Call: WRITE	Prompt: PSDT,?22,PSDPAT,?55,$J(PSDQTY,6),?75,$J(PSDPQT,6),?98,$P(PSD0,U,2),!,?98,$P(PSD0,U,3),! Line Location: PRINT+29
Function Call: WRITE	Prompt: ?98,$P(PSD0,U,3),! Line Location: PRINT+31
Function Call: WRITE	Prompt: ?98,$P(PSD0,U,3),! Line Location: PRINT+39
Function Call: WRITE	Prompt: !,PSDRET,?22,PSDPAT,?45,"RETURN -",?55,$J(PSDRQT,6),?75,$J(PSDNBAL,6),?98,$P(PSD0,U,2),!,?25,PSDRRE,?98,! Line Location: PRINT+43
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: PSDTFDT,?22,PSDPAT,?45,"TRFER -",?55,$J(PSDTRQT,6),?75,$J(PSDNBAL,6),?98,$P(PSD0,U,18),!,?32,"TRANSFER TO "_$P(PSD0,U,19),"",?98,$P(PSD0,U,21),! Line Location: PRTTRT+1
Function Call: WRITE	Prompt: PSDRET,?22,PSDPAT,?45,"RETURN" Line Location: PRTRET+3
Function Call: WRITE	Prompt: ?75,$J(PSDNBAL,6) Condition for execution: '$G(PSDPRT) " -" W ?55,$J(PSDRQT,6) W:'$G(PSDPRT) Line Location: PRTRET+3
Function Call: WRITE	Prompt: ?98,$P(PSD0,U,2),!,?25,PSDRRE,?98,$P(PSD0,U,3),! Line Location: PRTRET+4
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?20,"Activity Report for ",NAOUN,?55,PSDRPDT,?115,"Page: ",PG,!,?20,"Date: ",$P(PSDATE,U)," to ",$P(PSDATE,U,2),!! Line Location: HDR+2
Function Call: WRITE	Prompt: ?5,"=> DRUG",!,"DATE/TIME",?22,"PATIENT",?55,"QUANTITY",?75,"BALANCE",?98,"NURSE 1",!,?98,"NURSE2",!,LN,!! Line Location: HDR+3
Function Call: WRITE	Prompt: !,?5,"=> ",$S(PSDRG]"":PSDRG,1:PSDRGN),! Line Location: TOT+1
Function Call: WRITE	Prompt: ! Line Location: TOT+3
Routine Call	DIR Line Location: DONE+1 HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+2, PRINT+10, PRINT+36, PRINT+42, PRINT+49, PRTRET+1
^PSD(58.8 - [#58.8]	START+2, START+25, START+26, START+46
^PSD(58.81 - [#58.81]	START+4, START+5, START+6, START+7, START+10, START+11, START+16, START+17, START+18, START+21 , START+29, START+32, START+33, START+34, START+40, START+46, START+58, START+59, START+60, CHK2+2
^PSDRUG - [#50]	START+41, START+54, START+62
^TMP("PSDPAT"	START+1!, START+62, START+63*, PRINT+3, PRINT+4, PRINT+5, PRINT+7, END+3!
^TMP("PSDPAT1"	START+1!, START+9, START+14, START+20, START+24, START+30, START+31, START+36, START+37, START+38 , START+39, START+45, END+3!
^TMP("PSDPATB"	END+3!
^TMP("PSDPATL"	START+1!, START+63*, PRINT+11, END+3!, CHK+1
^VA(200 - [#200]	START+56

Name	Line Occurrences
CHK	PRINT+4
CHK2	START+8, START+19, START+29, START+43
DONE	PRINT+1, PRINT+3
HDR	PRINT+3, PRINT+4, PRINT+9, TOT+1
PRTRET	PRINT+25, PRINT+32, PRINT+52
PRTTRT	PRINT+37, PRINT+50
TOT	PRINT+4

Name	Field # of Occurrence
^(0	START+2, START+26, START+41, START+54, START+56, START+62

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+2, END+1!
%DT	END+1!
%H	END+1!
%I	END+1!
%ZIS	END+1!
ALL	START+2, END+1!
DA	END+1!, HDR+1!
DFN	END+1!
DIC	END+1!
DIR	DONE+1!, END+1!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END+1!
DIRUT	DONE+1!, END+1!
DT	START+63
DTOUT	END+1!
DUOUT	END+1!
IOF	DONE, HDR+2
IOSL	PRINT+9, TOT+1
IOST	DONE, DONE+1, HDR+1
LN	PRINT+2*, END+1!, HDR+3
LOOP	END+1!
NAOU	START+1, START+34, END+1!
NAOUN	END+1!, HDR+2
PG	PRINT+2, END+2!, HDR+1, HDR+2
POP	END+2!
PSD	START+4, START+5, START+6, START+7, START+13, START+16, START+17, START+23, START+26, START+27 , START+28, START+32, START+33, START+35, START+40, START+51, START+52, PRINT+4*, PRINT+5, PRINT+7 , PRINT+10, END+2!
PSD0	START+26, START+29, START+34, START+36, START+37, START+40, START+42, START+46, START+48, START+51 , START+53, START+54, START+57, START+61, PRINT+7*, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+14 , PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+21, PRINT+23, PRINT+24, PRINT+26, PRINT+28 , PRINT+29, PRINT+31, PRINT+32, PRINT+34, PRINT+35, PRINT+36, PRINT+37, PRINT+39, PRINT+40, PRINT+41 , PRINT+42, PRINT+43, PRINT+44, PRINT+45, PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+52 , END+1!, PRTTRT+1, PRTRET+1, PRTRET+4
PSD1	PRINT+5*, PRINT+7, END+2!
PSD3	START+58*, END+1!
PSD58	START+5*, START+6, START+7, END+2!
PSD7	END+1!
PSD9	START+57*, END+1!
PSDA	START+7, START+9, START+10, START+11, START+14, START+17, START+18, START+20, START+21, START+24 , START+25, START+26, START+33, START+34, START+36, START+37, START+39*, START+40, START+45, START+46 , START+58, START+59, START+60, END+2!, CHK2+2
PSDAQTY	START+1, PRINT+2, END+1!, TOT+3*
PSDATE	END+2!, HDR+2
PSDBAL	START+48, START+53, END+1!, CHK+1*
PSDCNT	START+1*, END+1!
PSDDQT	START+57, PRINT+6, PRINT+44*, PRINT+45, END+1!
PSDDRE	START+57, PRINT+6, PRINT+44*, PRINT+45, END+1!
PSDDRG1	START+57*, END+1!
PSDDT	START+57, PRINT+44, END+1!
PSDED	START+13, START+23, START+28, START+35, END+2!
PSDEND	START+13, START+14, START+23, START+24, START+28, START+31, START+35, START+37, START+45*, END+2!
PSDNAOU	START+1*, START+2, START+7, START+17, START+25, START+26, START+46, END+1!
PSDNBAL	START+39, PRINT+14, PRINT+17, PRINT+18, PRINT+21, PRINT+23, PRINT+29, PRINT+31, PRINT+34, PRINT+37* , PRINT+38, PRINT+42, PRINT+43, PRINT+44, PRINT+45, PRINT+47, PRINT+52, END+1!, PRTTRT+1, PRTRET+2 , PRTRET+3, CHK+1*
PSDNR1	START+53, START+56, END+1!
PSDNR2	START+53*, END+2!
PSDOUT	PRINT+2, PRINT+4, PRINT+5, PRINT+9, DONE+1, END+2!, HDR+1, TOT+1
PSDPAT	START+53, PRINT+5, PRINT+7, PRINT+11, PRINT+14, PRINT+17, PRINT+18, PRINT+22, PRINT+24, PRINT+27 , PRINT+29, PRINT+31, PRINT+35, PRINT+39, PRINT+43, PRINT+45, PRINT+48, END+2!, PRTTRT+1, PRTRET+3
PSDPN	END+2!
PSDPQT	PRINT+11, PRINT+14, PRINT+17, PRINT+18, PRINT+29, PRINT+31, PRINT+34, PRINT+35, PRINT+38, PRINT+39 , PRINT+47*, PRINT+48, END+2!
PSDPRT	PRINT+25, PRINT+32, END+2!, PRTRET+3, PRTRET+5!
PSDQTY	START+53, START+55, PRINT+6, PRINT+11, PRINT+12, PRINT+14, PRINT+15, PRINT+17, PRINT+18, PRINT+24 , PRINT+26*, PRINT+29, PRINT+31, PRINT+35, PRINT+38, PRINT+39, PRINT+48, END+3!
PSDR	START+2, START+3, START+6, START+7, START+9, START+14, START+15, START+18, START+20, START+24 , START+25, START+26, START+30, START+31, START+62, START+63, PRINT+12, END+2!
PSDRET	START+57, PRINT+42, PRINT+43, END+2!, PRTRET+1, PRTRET+2*, PRTRET+3
PSDRG	PRINT+4*, PRINT+5, PRINT+7, PRINT+9, END+2!, CHK+1, TOT+1
PSDRG(	START+2, START+3, START+15, START+25, START+34, START+37, START+55, START+62, START+63
PSDRGN	PRINT+7*, PRINT+11, END+2!, TOT+1
PSDRN	START+41, START+54, START+62, START+63, PRINT+2, END+2!
PSDRPDT	PRINT+2*, END+2!, HDR+2
PSDRQ	START+40, START+46, START+47, START+50, END+2!
PSDRQT	START+57, PRINT+6, PRINT+19, PRINT+21, PRINT+25, PRINT+32, PRINT+41, PRINT+42, PRINT+43, PRINT+52 , END+2!, PRTRET+2, PRTRET+3
PSDRRE	START+57, PRINT+6, PRINT+42, PRINT+43, END+2!, PRTRET+1, PRTRET+4
PSDRUG	START+38*, START+39, START+41, START+45, START+46, START+54, START+55, END+2!
PSDSD	START+4, START+10, START+16, START+21, START+27, START+32, END+2!
PSDSOQT	START+57, PRINT+6, PRINT+21*, PRINT+22, END+2!
PSDSTAT	PRINT+6, PRINT+12, PRINT+30, PRINT+33, PRINT+38, PRINT+46, END+2!
PSDSTOP	START+10, START+11, START+12, START+21, START+22, START+29, START+30, START+43, START+44, END+1! , CHK2+1, CHK2+3, CHK2+4
PSDT	PRINT+10*, PRINT+11, PRINT+14, PRINT+17, PRINT+18, PRINT+22, PRINT+24, PRINT+27, PRINT+29, PRINT+31 , PRINT+35, PRINT+39, PRINT+45, PRINT+48, END+1!
PSDT2N	PRINT+36, PRINT+49, END+2!
PSDTBAL	END+2!
PSDTFDT	PRINT+36, PRINT+49, END+2!, PRTTRT+1
PSDTFN	PRINT+36, PRINT+49, END+3!
PSDTMP	END+2!
PSDTPRV	END+3!
PSDTQTY	END+3!, CHK+1*
PSDTR	START+29, START+30, START+31, START+54, END+3!
PSDTRQT	PRINT+37, PRINT+50, END+3!, PRTTRT+1
PSDTTDT	PRINT+36, PRINT+49, END+3!
PSDTTNR	PRINT+37, PRINT+50, END+3!
PSDTTON	END+3!
PSDTYP	START+6, START+7, START+29, START+40, START+43, START+46, START+55, START+57, START+59, START+60 , PRINT+12*, PRINT+13, PRINT+17, PRINT+18, PRINT+20, PRINT+22, PRINT+26, PRINT+29, PRINT+30, PRINT+33 , PRINT+38, PRINT+46, PRINT+51, END+3!, CHK2+1, CHK2+3, CHK2+4
PSDUQT	END+3!, CHK+1*
PSDWQT	START+57, PRINT+6, PRINT+15, PRINT+16, PRINT+26, PRINT+27, END+3!
PSDWRE	START+57, PRINT+6, PRINT+15, PRINT+16, PRINT+26, PRINT+28, END+3!
SUM	PRINT+1, END+3!
U	START+2, START+7, START+26, START+29, START+34, START+36, START+37, START+40, START+41, START+42 , START+46, START+48, START+51, START+53, START+54, START+55, START+56, START+57, START+59, START+60 , START+61, START+62, START+63, PRINT+8, PRINT+11, PRINT+12, PRINT+13, PRINT+14, PRINT+15, PRINT+16 , PRINT+17, PRINT+18, PRINT+19, PRINT+21, PRINT+23, PRINT+24, PRINT+26, PRINT+28, PRINT+29, PRINT+31 , PRINT+32, PRINT+34, PRINT+35, PRINT+36, PRINT+37, PRINT+39, PRINT+40, PRINT+41, PRINT+42, PRINT+43 , PRINT+44, PRINT+45, PRINT+47, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRINT+52, PRTTRT+1, PRTRET+1 , PRTRET+4, HDR+2, CHK+1
VA	END+1!
VADM	END+3!
VAERR	END+3!
X	END+3!
Y	PRINT+2, PRINT+10, PRINT+36, PRINT+42, PRINT+49, END+3!, PRTRET+1, HDR+1
ZTDESC	END+3!
ZTDTH	END+3!
ZTIO	END+3!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	END+3!
ZTSAVE	END+3!
ZTSK	END+3!

Customize PDF page

Package: Controlled Substances

Routine: PSDPAT1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: