Routine: PSDPAT2

Package	Total	Call Graph
VA FileMan	2	NOW^%DTC ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Controlled Substances	1	PSDPAT1

Name	Comments	DBIA/ICR reference
PRINT	;prints data for dispensing
DONE
HDR	;lists header information
SET	;sets data
SET1	;sets ^TMP("PSDPAT"
SET2	;SETS ^TMP("PSDPAT"
CHKNOD7	; COLLECTS TRANSFER DATA
NODE7	; SETS TRANSFERS BETWEEN NAOU'S
CHKRET	; SETS RETURNED ITEM INFORMATION
CHKDEST	; SETS DESTROYED ITEM INFORMATION
PSDPAT	;sets ^TMP("PSDPAT"
PSDPATL	;sets ^TMP("PSDPATL"

Name	Field # of Occurrence
NOW^%DTC	PSDPAT2+2
^DIR	HDR+1
DEM^VADPT	SET+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"** NO DISPENSING SUMMARY **" Line Location: PSDPAT2+4
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?22,"ACTIVITY",?70,"PG "_PG,!,?29," SUMMARY ",!,?27,"Date: ",$P(PSDATE,"^")," to ",$P(PSDATE,"^",2),!!,"NAOU: ",NAOUN,!! Line Location: HDR+2
Function Call: WRITE	Prompt: "DRUG",?55,"QUANTITY USED",?70,"BALANCE",!,LN,! Line Location: HDR+3
Routine Call	DIR Line Location: HDR+1

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDPAT2+2
^PSD(58.8 - [#58.8]	CHKNOD7+3, NODE7+4
^PSD(58.81 - [#58.81]	SET+2, SET+3, SET+5, SET+8, SET1+1, SET1+2, SET2+2, SET2+3, SET2+5, CHKNOD7+1 , CHKNOD7+2, NODE7+4, NODE7+7, NODE7+8, CHKRET+1, CHKRET+2, CHKRET+3, CHKDEST+2, CHKDEST+3
^PSDRUG - [#50]	SET+16, SET2+2
^TMP("PSDPAT"	SET2+4, PSDPAT+2*
^TMP("PSDPAT1"	SET1+22, SET2+14, NODE7+13, NODE7+22
^TMP("PSDPATL"	PSDPAT2+4, PRINT+2, PRINT+3, PSDPATL+2, PSDPATL+3, PSDPATL+4*
^VA(200 - [#200]	SET+14, SET+15, CHKNOD7+5, CHKNOD7+6, NODE7+7, CHKRET+2, CHKRET+3, CHKDEST+2, CHKDEST+3

Name	Line Occurrences
CHKDEST	SET1+3, NODE7+2
CHKNOD7	SET1+4, SET2+7, NODE7+16
CHKRET	SET1+2, NODE7+1
HDR	PSDPAT2+4, PRINT+1, PRINT+2
NODE7	SET2+5
PSDPAT	SET1+12, SET1+20, SET2+13, NODE7+12, NODE7+14, NODE7+21, CHKRET+12, CHKDEST+9
PSDPATL	SET1+12, SET1+15, SET1+20, SET1+21, SET1+24, SET2+13, NODE7+12, NODE7+14, NODE7+21, NODE7+23 , CHKRET+12, CHKRET+16, CHKDEST+10, CHKDEST+11

Name	Field # of Occurrence
^(	PRINT+3, PSDPATL+3*
^(0	SET+2, SET+14, SET+15, SET+16, SET2+2, CHKNOD7+5, CHKNOD7+6, NODE7+7, CHKRET+2, CHKRET+3 , CHKDEST+2, CHKDEST+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSDPAT2+2
DA	HDR+1!
>> DFN	SET+9*
DIR	HDR+1!
DIR(0	HDR+1*
IOF	DONE, HDR+2
IOSL	PRINT+2
IOST	DONE, HDR+1
>> LN	PSDPAT2+3*, HDR+3
>> LOOP	PRINT+2*, PRINT+3
>> NAOUN	HDR+2
>> PG	PSDPAT2+3, HDR+1, HDR+2
PSD	SET+2, SET1+2, SET1+6, SET1+8, SET1+14, SET1+18, SET1+20~, SET2+3, SET2+9, NODE7+1 , NODE7+2, NODE7+5, NODE7+11, NODE7+17, CHKRET+1~, CHKRET+7, CHKRET+9, CHKRET+15, CHKDEST+1~*, CHKDEST+5 , CHKDEST+7, PSDPAT+2
PSD0	SET+2, SET+4, SET+11, SET+12, SET+13, SET1+10, SET1+25!, SET2+2, SET2+3, SET2+12 , SET2+15!, CHKNOD7+4, CHKNOD7+5, NODE7+9, CHKRET+10, CHKDEST+8
PSD3	SET+8*, SET1+2, SET1+3, SET1+12, SET1+25!, SET2+15!, NODE7+1, NODE7+2, CHKRET+4, CHKDEST+1 , CHKDEST+4
PSD7	SET1+25!, SET2+5, SET2+15!, CHKNOD7+1, CHKNOD7+3, CHKNOD7+4, CHKNOD7+6, NODE7+4, NODE7+7, NODE7+8 , NODE7+15
>> PSD9	SET+3*, SET+9, SET+12, SET+15
>> PSDA	SET+2, SET+3, SET+5, SET+8, SET+11, SET1+1, SET1+2, SET1+22, SET2+2, SET2+3 , SET2+5, SET2+6, SET2+14, NODE7+13, NODE7+15, NODE7+22, CHKRET+1, CHKRET+2, CHKRET+3, CHKDEST+2 , CHKDEST+3
PSDATA	SET1+9!, SET1+11, SET1+15, SET1+18, SET1+21, SET1+24, SET1+25!, SET2+11!, SET2+12, SET2+15! , NODE7+9!, NODE7+10, NODE7+19!, NODE7+20, NODE7+23, CHKRET+5!, CHKRET+10, CHKRET+16, CHKRET+17!, CHKDEST+4! , CHKDEST+8, CHKDEST+10, CHKDEST+11*, CHKDEST+12!, PSDPAT+1, PSDPAT+2, PSDPATL+1
>> PSDATE	HDR+2
>> PSDBAL	SET1+11, SET1+18
>> PSDCNT	SET1+12, SET1+20, SET2+12, NODE7+10, NODE7+21, CHKRET+11, CHKDEST+9*, PSDPAT+2
>> PSDDQT	SET+8, CHKRET+1, CHKRET+4, CHKDEST+4, CHKDEST+8, CHKDEST+10, CHKDEST+11
>> PSDDRE	SET+8, CHKRET+1, CHKRET+4, CHKDEST+4, CHKDEST+8
>> PSDDRG1	SET+4*, SET1+11, NODE7+10, CHKRET+10, CHKDEST+8
>> PSDDT	SET+8, SET1+11, CHKRET+4
>> PSDED	SET1+6, SET1+16, SET1+18, SET1+23, SET2+9, NODE7+5, NODE7+17, CHKRET+7, CHKRET+9, CHKDEST+5
PSDEND	SET1+6~, SET1+7, SET1+13, SET1+17, SET1+21, SET1+22, SET1+23~, SET1+24, SET2+9, SET2+10 , SET2+14, NODE7+5, NODE7+6, NODE7+13, NODE7+14, NODE7+17, NODE7+18, NODE7+22, NODE7+23, CHKRET+7~ , CHKRET+8, CHKRET+14, CHKDEST+5~*, CHKDEST+6, CHKDEST+11
PSDNR1	SET+12, SET+13, SET+14, SET1+11, SET1+18, SET1+25!, SET2+15!, NODE7+9, CHKRET+1~, CHKRET+2* , CHKRET+10, CHKDEST+1~, CHKDEST+2*, CHKDEST+8
PSDNR1(1	SET+13*, SET1+11, NODE7+9
PSDNR2	SET+15, SET1+11, SET1+25!, SET2+15!, NODE7+9, CHKRET+1~, CHKRET+3, CHKRET+10, CHKDEST+1~, CHKDEST+3* , CHKDEST+8
>> PSDOUT	PSDPAT2+3, PRINT+1, PRINT+2, HDR+1
PSDPAT	SET+10, SET+11, SET2+1~, SET2+3, SET2+12, PSDPAT+2
PSDQTY	SET+2, SET+6, SET1+5, SET1+11, SET1+19, SET1+23, SET1+25!, SET2+15!, NODE7+4, NODE7+9 , NODE7+21, CHKRET+1~, CHKRET+6, CHKDEST+1~, CHKDEST+10, CHKDEST+11, PSDPATL+3
PSDREA	SET+1~, SET+2, SET+6, SET1+10~*, SET1+11
>> PSDRET	SET+8, SET1+11, CHKRET+4, CHKRET+10, CHKRET+13*
>> PSDRG(	SET+7*, PSDPATL+3, PSDPATL+4
>> PSDRN	SET+16, SET2+2, SET2+4, PSDPAT+2, PSDPATL+2, PSDPATL+3, PSDPATL+4
>> PSDRQT	SET+8, SET1+5, SET1+11, NODE7+9, CHKRET+4, CHKRET+6, CHKRET+10, CHKRET+13, CHKRET+17*, PSDPATL+3
>> PSDRRE	SET+8, SET1+11, NODE7+9, CHKRET+4, CHKRET+10, CHKRET+13, CHKRET+17
>> PSDRUG	SET+7, SET+16, SET1+22, SET2+2, SET2+14, NODE7+13, NODE7+22, PSDPATL+3, PSDPATL+4
>> PSDSD	SET1+2, SET1+8, SET1+14, SET1+18, SET2+9, NODE7+1, NODE7+2, NODE7+5, NODE7+11, NODE7+17 , CHKRET+15, CHKDEST+7
>> PSDSOQT	SET+3, SET+7, SET1+11, NODE7+10, CHKRET+1, PSDPATL+3
>> PSDSTAT	SET1+18, SET2+12, CHKNOD7+2, NODE7+3, NODE7+20
>> PSDT2N	SET1+18, SET2+12, CHKNOD7+3, NODE7+4, NODE7+10, NODE7+20
>> PSDTFDT	SET1+16, SET1+18, SET1+20, SET1+23, SET2+12, CHKNOD7+3, NODE7+3, NODE7+20
>> PSDTFN	SET2+12, CHKNOD7+4, CHKNOD7+5, NODE7+3, NODE7+7, NODE7+10, NODE7+20
>> PSDTFN(1	CHKNOD7+5*
>> PSDTPRV	SET1+18, SET2+12, CHKNOD7+3, NODE7+3, NODE7+20
PSDTR	SET+11, SET1+25!, SET2+6, SET2+15!, CHKNOD7+1, CHKNOD7+2, NODE7+15*
PSDTRDT	SET2+1~, SET2+3*, SET2+4
PSDTRQT	SET1+16, SET1+18, SET1+19, SET1+23, SET1+25!, SET2+8, SET2+12, SET2+15!, CHKNOD7+3, NODE7+3 , NODE7+4, NODE7+8, NODE7+10, NODE7+20, NODE7+21
>> PSDTTDT	SET1+18, SET2+12, CHKNOD7+3, NODE7+3, NODE7+20
>> PSDTTNR	SET1+18, SET2+12, CHKNOD7+6, NODE7+3, NODE7+20
>> PSDTTON	CHKNOD7+3, NODE7+4
>> PSDTYP	SET+5, SET+6, SET+7, SET+10, SET+11, SET1+1*, SET1+4, SET1+5, SET1+11, SET1+18 , SET2+5, NODE7+9, NODE7+20, PSDPATL+3
>> PSDWQT	SET+3, SET+7, SET1+11, NODE7+9, CHKRET+1, PSDPATL+3
>> RPDT	PSDPAT2+2*
>> SUM	DONE
U	SET+2, SET+3, SET+4, SET+7, SET+8, SET+9, SET+11, SET+12, SET+13, SET+14 , SET+15, SET+16, SET1+2, SET1+3, SET1+10, SET1+11, SET1+12, SET1+18, SET2+2, SET2+3 , SET2+12, CHKNOD7+2, CHKNOD7+3, CHKNOD7+4, CHKNOD7+5, CHKNOD7+6, NODE7+1, NODE7+2, NODE7+4, NODE7+7 , NODE7+8, NODE7+9, NODE7+10, NODE7+15, NODE7+20, CHKRET+1, CHKRET+2, CHKRET+3, CHKRET+4, CHKRET+10 , CHKDEST+1, CHKDEST+2, CHKDEST+3, CHKDEST+4, CHKDEST+8, PSDPATL+3, PSDPATL+4
>> VADM(1	SET+10
>> VAERR	SET+10
>> Y	PSDPAT2+2*, HDR+1

Customize PDF page

Package: Controlled Substances

Routine: PSDPAT2

Information

Source Information

Call Graph

Call Graph Total: 3

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: