Routine: PSDSUBOX

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$UP^XLFSTR
VA FileMan	4	^%DT ^DIC $$GET1^DIQ ^DIR
Controlled Substances	2	HD1^PSDDSOR FSIG^PSDDSOR1
Order Entry Results Reporting	2	ARCHIVE^ORDEA $$UNESC^ORHLESC
Pharmacy Data Management	1	$$DETOX^PSSOPKI
Registration	1	(ADD,DEM,KVA)^VADPT

Package	Total	Caller Graph
Controlled Substances	1	PSD DEA SUBOXONE

Entry Points

Name	Comments	DBIA/ICR reference
DATE	;ask date range
PRV	;ask provider(s)
TYP
RPT	;generate report
EXIT
SETMP	;set ^TMP("PSDSUBOX",$J global
PRT	;prints report
PRT1	;print report details
HD	;header
PGCHK	;check for page break
DIVSEL(ARY)	;Division selection (one, multiple or ALL)
VADR(ORN,VADD)	;Get Provider's Address

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+4
^%ZIS	TYP+5
HOME^%ZIS	TYP+9
^%ZISC	EXIT
^%ZTLOAD	TYP+9
^DIC	PRV+4, DIVSEL+6
$$GET1^DIQ	RPT+6, RPT+8, PRT+7, PRT1+13, PRT1+21, PRT1+22
^DIR	TYP+2
ARCHIVE^ORDEA	VADR+3
$$UNESC^ORHLESC	PRT1+16, PRT1+19
HD1^PSDDSOR	PRT+3, PGCHK+2
FSIG^PSDDSOR1	PRT1+14
$$DETOX^PSSOPKI	RPT+7
ADD^VADPT	PRT1+7
DEM^VADPT	PRT1+7
KVA^VADPT	EXIT+1
$$FMTE^XLFDT	RPT+2, PRT+2, PRT1+6
$$UP^XLFSTR	PRV+5, DIVSEL+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: !!,?5,"You may select a single provider, several providers,",!,?5,"or enter ^ALL to select all providers.",!! Line Location: PRV+1
Function Call: WRITE	Prompt: ! Line Location: TYP+5
Function Call: WRITE	Prompt: !!,"NO DEVICE SELECTED OR REPORT PRINTED!!",! Line Location: TYP+5
Function Call: WRITE	Prompt: !,?25,"*NO DATA FOUND FOR SELECTION*",!! Line Location: PRT+3
Function Call: WRITE	Prompt: !,$$GET1^DIQ(200,$P(PRV,"^",2),.01),?60,$G(^TMP("PSDSUBOXC",$J,DIV,PRV)) Line Location: PRT+7
Function Call: WRITE	Prompt: ! Line Location: PRT+10
Function Call: WRITE	Prompt: !?3,$P(DRG,"^") Line Location: PRT1+3
Function Call: WRITE	Prompt: !?2,VAPA(3) Line Location: PRT1+10
Function Call: WRITE	Prompt: ?2,$P(VADR(1),"^"),!?2,VADR(2),!?2,VADR(3),! Line Location: PRT1+23
Function Call: WRITE	Prompt: "=" Line Location: PRT1+24
Function Call: WRITE	Prompt: @IOF,?22,"DEA DATA-Waived Practitioner Report",?67,DTM,!,?32,$S(RPTYP="D":"Detailed",1:"Summary")_" Report" Line Location: HD+2
Function Call: WRITE	Prompt: !?DVL,"DIVISION: ",DVN Line Location: HD+4
Function Call: WRITE	Prompt: !?26,PSDATE_" to "_PEDATE,?70,"Page: "_PG,! Line Location: HD+5
Function Call: WRITE	Prompt: !,"PROVIDER/DRUG",?55,"# OF PATIENTS",! Line Location: HD+6
Function Call: WRITE	Prompt: "-" Line Location: HD+7
Function Call: WRITE	Prompt: ! Line Location: PGCHK+3
Function Call: WRITE	Prompt: !!,?5,"You may select a single or multiple Divisions," Line Location: DIVSEL+2
Function Call: WRITE	Prompt: !,?5,"or enter ^ALL to select all Divisions.",! Line Location: DIVSEL+3
Routine Call	DIC Line Location: PRV+4 DIVSEL+6
Routine Call	DIR Line Location: TYP+2
Routine Call	%ZIS Line Location: TYP+5
Routine Call	%ZIS Line Location: TYP+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^PSDRUG - [#50]	GET1^DIQ
^PSRX - [#52]	GET1^DIQ
^PS(59 - [#59]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	PSDSUBOX+9, HD+3
^PSRX - [#52]	RPT+6, RPT+8, PRT1+5
^PSRX("AFDT"	RPT+4, RPT+5
^TMP("PSDSUBOX"	RPT+3!, SETMP+5*, PRT+3, PRT+4, PRT+6, PRT+8, PRT1+4
^TMP("PSDSUBOXC"	RPT+3!, SETMP+6, SETMP+7, SETMP+8, PRT+7
^TMP($J	VADR+2!, VADR+4, VADR+8!

Label References

Name	Line Occurrences
DIVSEL	PSDSUBOX+8
EXIT	PSDSUBOX+8, PSDSUBOX+10, DATE+2, DATE+4, PRV+6, TYP+3, TYP+5, TYP+6
HD	PRT+3, PRT+5, PGCHK+3
PGCHK	PRT+5, PRT+9, PRT1+12, PRT1+20, PRT1+25
PRT	RPT+12
PRT1	PRT+9
PRV	PRV+7
SETMP	RPT+11
TYP	PRV+5
VADR	PRT1+22

Naked Globals

Name	Field # of Occurrence
^("I"	PSDSUBOX+9
^(3	VADR+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+1!*, EXIT!
%DT("A"	DATE+1, DATE+3
%DT(0	DATE+1, DATE+3
%ZIS	TYP+5!*
%ZIS("B"	TYP+5*
ARY	DIVSEL~, DIVSEL+7!, DIVSEL+8!, DIVSEL+11*
ARY(	DIVSEL+9, DIVSEL+10*
DEA	RPT+1~, RPT+6*, RPT+7
DFN	PRT1+1~, PRT1+5*
DIC	PRV+2!, PRV+5!, EXIT!, DIVSEL+1~, DIVSEL+5
DIC("A"	PRV+2, DIVSEL+5
DIC("S"	PRV+3, DIVSEL+4
DIC(0	PRV+2, DIVSEL+5
DIR	EXIT!
DIR("A"	TYP+1*
DIR("B"	TYP+1*
DIR(0	TYP+1*
DIRUT	TYP+3, EXIT!, PRT+3, PGCHK+2
DIV	RPT+1~, RPT+8, RPT+9, SETMP+5, SETMP+6, SETMP+7, SETMP+8, PRT+1~, PRT+4, PRT+6 , PRT+7, PRT+8, PRT1+4, HD+3
DR	EXIT!
DRG	PRT+1~, PRT+8*, PRT1+3, PRT1+4, PRT1+13
DRGDA	RPT+1~, RPT+6*, RPT+7, SETMP+2
DRGNM	RPT+1~, RPT+6*, SETMP+2
DRUGINFO	SETMP+1~, SETMP+2*, SETMP+5
DT	PSDSUBOX+9, DATE+1, RPT+2
DTM	RPT+1~, RPT+2*, HD+2
DTOUT	DATE+2, DATE+4, PRV+6, EXIT!, DIVSEL+1~, DIVSEL+8
DUOUT	PRV+5!, PRV+6, EXIT!, DIVSEL+1~, DIVSEL+8
DVL	HD+1~, HD+3*, HD+4
DVN	HD+1~, HD+3*, HD+4
EE	PRT1+1~, PRT1+18*, PRT1+19
FSIG	PRT1+27!
FSIG(	PRT1+18, PRT1+19
FSIG(1	PRT1+15, PRT1+16, PRT1+17
G	TYP+8*, EXIT!
I	EXIT!
IO	TYP+10
IO("Q"	TYP+5!, TYP+6, TYP+9!
IOF	HD+2
IOP	TYP+5!
IOSL	PGCHK+1
LIN	PRT1+1~, PRT1+24, HD+1~, HD+7
ND0	RPT+1~, RPT+6, RPT+8, PRT1+1~, PRT1+5, PRT1+6, PRT1+13, PRT1+21
ND2	RPT+1~, RPT+8*
ORN	VADR~, VADR+3, VADR+4
PATIEN	RPT+1~, RPT+6*, SETMP+6, SETMP+7
PEDATE	PRT+1~, PRT+2*, HD+5
PG	RPT+1~, RPT+2, EXIT!, HD+5, HD+8
PL	PRT1+1~
POP	TYP+5!
PROVIEN	SETMP+1~, SETMP+3*, SETMP+5, SETMP+6, SETMP+7, SETMP+8
PRV	PRV+2!, PRT+1~, PRT+6*, PRT+7, PRT+8, PRT1+4
PRVDA	RPT+1~, RPT+8*, RPT+10, SETMP+3
PRVNM	RPT+1~, RPT+8*, SETMP+3
PSDATE	PRT+1~, PRT+2*, HD+5
PSDBD	PSDSUBOX+7~, DATE+3*, DATE+5, PRT+2
PSDED	PSDSUBOX+7~, DATE+5*, RPT+4, PRT+2
PSDIV	PSDSUBOX+7~, PSDSUBOX+8, PSDSUBOX+9*, PSDSUBOX+10
PSDIV(	PSDSUBOX+9*, RPT+9
PSDOUT	PRT+1~, PRT+2, PRT+4, PRT+5, PRT+6, PRT+8, PRT+9, PRT1+4, PRT1+12, PRT1+20 , PRT1+25, PGCHK+2
PSDSD	PSDSUBOX+7~, DATE+5, RPT+4, RPT+5
PSPRV	PSDSUBOX+7~, PRV+7, RPT+10
PSPRV(	PRV+4*, RPT+10
QF	DIVSEL+1~, DIVSEL+5, DIVSEL+6, DIVSEL+7, DIVSEL+8*
RPTYP	PSDSUBOX+7~, TYP+4*, PRT+7, PRT+10, PRT1+3, HD+2, HD+6
RXN	RPT+1~, RPT+5, RPT+6, RPT+8, SETMP+5, PRT1+4, PRT1+5, PRT1+14, PRT1+22
U	RPT+6
VADD	VADR~, VADR+2!, VADR+4*, VADR+5, VADR+6, VADR+7
VADD(1	VADR+6*
VADD(2	VADR+6*
VADD(3	VADR+7*
VADM	PRT1+27!
VADM(1	PRT1+8
VADR	PRT1+22, PRT1+27!
VADR(1	PRT1+23
VADR(2	PRT1+23
VADR(3	PRT1+23
VAPA	PRT1+27!
VAPA(1	PRT1+9
VAPA(2	PRT1+9
VAPA(3	PRT1+10
VAPA(4	PRT1+11
VAPA(5	PRT1+11
VAPA(6	PRT1+11
X	PRV+5, EXIT!, DIVSEL+1~, DIVSEL+6, DIVSEL+7
Y	DATE+2, DATE+3, DATE+4, DATE+5, PRV+4, PRV+7, TYP+4, EXIT!, DIVSEL+1~, DIVSEL+9 , DIVSEL+10
ZTDESC	TYP+7*, EXIT+1!
ZTQUEUED	EXIT+1!
>> ZTREQ	EXIT+1*
ZTRTN	TYP+7*, EXIT+1!
ZTSAVE	EXIT+1!
ZTSAVE(	TYP+8*
ZTSAVE("PSDIV("	TYP+7*
ZTSAVE("PSPRV("	TYP+7*
ZTSK	TYP+9!

Customize PDF page

Package: Controlled Substances

Routine: PSDSUBOX

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: