Routine: PSDDSOR

Information

PSDDSOR ;BHM/MHA/PWC - Digitally signed CS Orders Report ;02/02/2021

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$UP^XLFSTR
VA FileMan	5	^%DT NOW^%DTC ^DIC ($$GET1,D)^DIQ ^DIR
Controlled Substances	2	(GETDATA,PRT)^PSDDSOR1 ^PSDSET
Outpatient Pharmacy	2	$$ERXIEN^PSOERXU9 $$CSDS^PSOSIGDS

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: 4

Package	Total	Caller Graph
Controlled Substances	4	PSD CS PRESCRIPTIONS REPORT PSD DIGITALLY SIGNED ORDERS PSDDSOR1 PSDSUBOX

Entry Points

Name	Comments	DBIA/ICR reference
SITE
DATE	;ask date range
SL
D	;ask drug(s)
PR	;ask provider(s)
PA	;ask patient(s)
S	;
DEV
EN	;
EN1
EN2
GETD	;
GETD1	;
CONT	;
CT1
CT2
CT3
PSTR	;
IN
WR
N4
STR4	;
N3
STR3
N2
STR2
N1
STR1
PRT
HD
HD1
END
KV
INST	;

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+4
NOW^%DTC	PSTR+2
^%ZIS	DEV, DEV+1
^%ZISC	END
^%ZTLOAD	DEV+6
^DIC	SITE+3, D+4, PR+3, PA+3
$$GET1^DIQ	PSTR+4
D^DIQ	PSTR+3
^DIR	DATE+12, DATE+17, DATE+18, DATE+21, SL+4, SL+17, S+4, HD1
GETDATA^PSDDSOR1	GETD1+1
PRT^PSDDSOR1	PRT
^PSDSET	PSDDSOR+12
$$ERXIEN^PSOERXU9	EN1+5, EN1+6, EN2+9, EN2+10
$$CSDS^PSOSIGDS	EN1+3, EN2+7
$$FMTE^XLFDT	HD+2
$$UP^XLFSTR	D+5, PR+4, PA+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"You are logged on under the ",$P(^PS(59,PSDDV,0),"^")," division.",! Line Location: SITE+6
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: ! Line Location: DATE+4
Function Call: WRITE	Prompt: ! Line Location: DATE+16
Function Call: WRITE	Prompt: ! Line Location: DATE+18
Function Call: WRITE	Prompt: ! Line Location: DATE+21
Function Call: WRITE	Prompt: !!,?5,"You may select a single drug, several drugs,",!,?5,"or enter ^ALL to select all drugs.",!! Line Location: D+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single provider, several providers,",!,?5,"or enter ^ALL to select all providers.",!! Line Location: PR+1
Function Call: WRITE	Prompt: !!,?5,"You may select a single patient, several patients,",!,?5,"or enter ^ALL to select all patients.",!! Line Location: PA+1
Function Call: WRITE	Prompt: !!,"Select controlled substance schedule(s)" Line Location: S+1
Function Call: WRITE	Prompt: ! Line Location: S+6
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"******** NO DATA TO PRINT ********",!! Line Location: PSTR+5
Function Call: WRITE	Prompt: $S(AC=1:"Processed",AC=2:"Discontinued",AC=3:"Expired",1:"Pending")_" Orders:",! Line Location: WR+0
Function Call: WRITE	Prompt: @IOF,!,"OP "_$S(PSDRXSRC'="W"&(PSDRXSRC'="A"):"Digitally Signed ",1:"")_"CS Orders Report for Division "_DVN,?71,"Page: ",$J(PG,3) Line Location: HD+1
Function Call: WRITE	Prompt: !,"Date Range: "_$$FMTE^XLFDT(PSDBD,"2Y")_" - "_$$FMTE^XLFDT(PSDED,"2Y") Line Location: HD+2
Function Call: WRITE	Prompt: ?33,"Source: ",$S(PSDRXSRC="C":"CPRS",PSDRXSRC="E":"eRx",PSDRXSRC="B":"CPRS+eRx",PSDRXSRC="W":"WRITTEN",1:"ALL") Line Location: HD+3
Function Call: WRITE	Prompt: ?54,"Printed on: "_TDT,! Line Location: HD+4
Function Call: WRITE	Prompt: ! Line Location: END+0
Routine Call	DIC Line Location: SITE+3 D+4 PR+3 PA+3
Routine Call	DIR Line Location: DATE+12 DATE+17 DATE+18 DATE+21 SL+4 SL+17 S+4 HD1
Routine Call	%ZIS Line Location: DEV DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PS(59 - [#59]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	EN2+3, EN2+4, EN2+5, EN2+11, GETD1+3, GETD1+4
^PS(59 - [#59]	SITE+6, EN2+2, INST+2
^PSRX - [#52]	EN1+1, EN1+4, EN1+6
^PSRX("AC"	EN+3, EN1
^TMP("PSDDSOR"	EN+1!, CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10, PSTR+5 , N4, N4+1, N4+2, N4+3, STR4+1, N3, N3+1, N3+2, N3+3, STR3 , N2, N2+1, N2+2, STR2, N1, N1+1, N1+2, STR1, END+1!

Label References

Name	Line Occurrences
@(	SL+10, PSTR+6
CONT	GETD1+5
CT1	CONT+8
CT2	CT1+1
CT3	CT2+1
D	D+8
DEV	SL+18
EN1	EN+3
EN2	EN+4
END	DATE+2, DATE+4, DATE+17, DATE+19, DATE+22, SL+11, SL+12, DEV+1, DEV+2, EN+4
GETD	EN1+8, EN2+11
GETD1	GETD+1
HD	PSTR+5, WR, PRT
HD1	N4, N3, N2, N1, HD
IN	STR4+1, STR3, STR2, STR1
KV	DATE+16, SL+2, SL+17, S+6
PA	PA+7
PR	PR+7
PRT	STR4+2, STR3+1, STR2+1, STR1+1
PSTR	EN+4
SITE	SITE
SL	DATE+20, SL+12
STR1	N1+2
STR2	N2+2
STR3	N3+3
STR4	N4+3
WR	N4, N3, N2, N1

Naked Globals

Name	Field # of Occurrence
^("OR1"	EN1+1
^(0	EN1+1, EN2+2, EN2+5, INST+2
^(2	EN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PSTR+1~, PSTR+2
%DT	DATE+1!*
%DT("A"	DATE+1, DATE+3
%DT(0	DATE+1, DATE+3
%ZIS	DEV!*
AC	PSDDSOR+9~, WR, N4, N4+1, N4+2, N4+3, STR4+1, N3, N3+1, N3+2 , N3+3, STR3, N2, N2+1, N2+2, STR2, N1, N1+1, N1+2, STR1
BDT	PSDDSOR+9~, PSTR+3*
CT	PSDDSOR+9~, SL, SL+3, SL+4, SL+9
DFN	PSDDSOR+9~
DIC	SITE+1, SITE+3!, D+2!, D+6!, PR+2!, PR+5!, PA+2!, PA+5!
DIC("A"	SITE+1, D+2, PR+2, PA+2
DIC("S"	SITE+2, D+3
DIC(0	SITE+1, D+2, PR+2, PA+2
DIR	DATE+8!, DATE+17!, DATE+19!, DATE+22!, S+2!, HD1!, KV!
DIR("?"	DATE+10*
DIR("A"	DATE+11, DATE+16, DATE+18, DATE+21, SL+4, SL+17, S+3, HD1
DIR("B"	DATE+9, DATE+16, DATE+18, DATE+21, SL, SL+3!, SL+17, S+3
DIR(0	DATE+8, DATE+16, DATE+18, DATE+21, SL+2, SL+17, S+3, HD1
DIRUT	DATE+13, DATE+17, DATE+19, DATE+22, SL+2, SL+5, SL+12, S+4, N4, N4+1 , N4+2, N4+3, N3, N3+1, N3+2, N3+3, N2, N2+1, N2+2, N1 , N1+1, N1+2, PRT, HD, KV!
DP	PSDDSOR+9~, SL, SL+4, SL+9
DRG	PSDDSOR+9~, D+2!, D+8, DEV+5, END+1!
DRG(	D+4*, CONT+9
DRGN	CONT+7~*, CONT+9
DRUG	PSDDSOR+9~, CONT+6*
DT	DATE+1
DTOUT	SITE, SITE+3, DATE+2, DATE+4, DATE+13, SL+2, SL+11, D+7, PR+6, PA+6 , S+4, KV!
DUOUT	SITE, SITE+3, SL+2, SL+11, D+6!, D+7, PR+5!, PR+6, PA+5!, PA+6 , S+4, KV!
DV	PSDDSOR+9~, EN2, EN2+3, EN2+4
DVN	PSDDSOR+9~, PSTR+4*, HD+1
EDT	PSDDSOR+9~, PSTR+3*
FI	PSDDSOR+9~
G	PSDDSOR+11~, DEV+4*
I	PSDDSOR+11~, SL+7, SL+12, SL+14, SL+15, S+5, EN+1, CT3+1, CT3+2, CT3+4 , CT3+5, CT3+7, CT3+8, CT3+9, CT3+10*, END+1!
IO	PSTR+5
IO("Q"	DEV+2!
IOF	HD+1
ION	DEV
IOP	DEV!, DEV+1*!
IOSL	PRT
IOST	HD1
J	PSDDSOR+11~, SL+7, SL+15, SL+16, S+5*, END+1!
K	S+5*, END+1!
NS	PSDDSOR+9~, EN+1*, CT3, CT3+3, CT3+6, PSTR+6
O	PSDDSOR+11~, SL+7*, SL+8
OP	PSDDSOR+9~, SL+1, SL+2, SL+7, SL+8
ORD	PSDDSOR+9~, EN1+1, EN1+7, EN2+11, GETD1+1
ORS	PSDDSOR+9~, CONT+1*, CONT+3, CONT+4
P1	PSTR+3~*
P2	PSTR+3~*
PAT	PSDDSOR+9~, PA+2!, PA+7, DEV+5, CONT+5*, END+1!
PAT(	PA+3*, GETD+2
PG	PSDDSOR+9~, PSTR+3, WR, HD+1, HD+5*, HD1
PL	PSDDSOR+9~
PL1	PSDDSOR+9~
PND	EN+2, EN2, GETD1+1, CONT+1, CONT+2, END+1!
POP	DEV!, DEV+1
POS	PSDDSOR+9~, EN+2, EN2+3, EN2+4
PRO	PSDDSOR+9~, PR+2!, PR+7, DEV+5, END+1!
PRO(	PR+3*, CT1+2
PROV	PSDDSOR+9~, CT1*
PSDBD	PSDDSOR+10~, DATE+3*, DATE+5, PSTR+3, HD+2
PSDCSRX	DATE+20, S+3, S+5, EN1+1, END+1!
PSDDF	PSDDSOR+10~, DATE+17*, CONT+3, CONT+4, END+1!
PSDDV	PSDDSOR+10~, SITE+5*, SITE+6, EN1+1, PSTR+4, END+1!
PSDED	PSDDSOR+10~, DATE+5*, EN+3, EN2+3, PSTR+3, HD+2, END+1!
PSDIO	PSDDSOR+10~, DEV*, DEV+1!, DEV+2!
PSDPO	PSDDSOR+10~, DATE+20, DATE+22, EN+4
PSDPR	PSDDSOR+10~, SL, PR+2, PR+5*, CT1+1, END+1!
PSDPT	PSDDSOR+10~, SL, PA+2, PA+5*, GETD+1, END+1!
PSDRG	PSDDSOR+10~, SL, D+2, D+6*, CONT+8, END+1!
PSDRXSRC	PSDDSOR+10~, DATE+14*, DATE+20, EN1+4, EN1+5, EN1+6, EN2+8, EN2+9, EN2+10, HD+1 , HD+3
PSDSC	PSDDSOR+10~, SL, SL+6, CT2+1, END+1!
PSDSD	PSDDSOR+10~, DATE+5, EN+2, EN+3, EN1, END+1!
>> PSDSITE	PSDDSOR+12
PSDXF	PSDDSOR+11~, DATE+19*, CONT+3, CONT+4, END+1!
PSINST	EN2+1~
PSINST(	EN2+2, EN2+11, INST+2
PSIR	EN2+1~, EN2+2, INST+1~, INST+2
>> PSOSITE	SITE, SITE+3*, SITE+5, EN2+2, INST+2
RX	PSDDSOR+11~, EN1, EN1+1, EN1+4, EN1+5, EN1+6, EN2+4, EN2+5, EN2+9, EN2+10 , EN2+11, GETD1+3, GETD1+4, CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9 , CT3+10
RX0	PSDDSOR+11~, EN1+1, EN1+3, EN1+7, EN2+5, EN2+7, EN2+8, EN2+10, EN2+11, GETD+2 , GETD1+1, GETD1+2, GETD1+3, CONT+2
RX2	PSDDSOR+11~
S1	PSDDSOR+11~, CONT+3, CONT+4, CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9 , CT3+10, N4+1, N4+2, N4+3, STR4+1, N3+1, N3+2, N3+3, STR3, N2+1* , N2+2, STR2, N1+1*, N1+2, STR1
S2	PSDDSOR+11~, N4+1, N4+2, N4+3, STR4+1, N3+1, N3+2, N3+3, STR3, N2+1* , N2+2, STR2
S3	PSDDSOR+11~, N4+2, N4+3, STR4+1, N3+2, N3+3, STR3
S4	PSDDSOR+11~, N4+2*, N4+3, STR4+1
S5	PSDDSOR+11~, N4+3, STR4+1, N3+3, STR3, N2+2, STR2, N1+2, STR1
S6	PSDDSOR+11~, IN, STR4+1, STR3, STR2, STR1*
SCH	PSDDSOR+11~, S+5!, DEV+5, CT2*, END+1!
SCH(	S+5*, CT2+2
SR	PSDDSOR+11~, SL!, SL+12!
SR(	SL+9, SL+15, EN+1
SR(1	CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10
SR(2	CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8
SR(3	CT3+1, CT3+2, CT3+4, CT3+5
SR(4	CT3+1, CT3+2
SRT	PSDDSOR+11~, SL!, SL+12, END+1!
SRT(	SL+9*, SL+14, SL+15
TDT	PSDDSOR+11~, PSTR+2*, HD+4
TY	PSDDSOR+11~
VA	END+1!
X	PSDDSOR+11~, D+5, D+6, PR+4, PR+5, PA+4*, PA+5
Y	PSDDSOR+11~, SITE+3, DATE+2, DATE+3, DATE+4, DATE+5, DATE+14, DATE+17, DATE+19, DATE+22 , SL+6, SL+9, SL+10, SL+12, D+4, D+8, PR+3, PR+7, PA+3, PA+7 , S+5, GETD1+1, GETD1+2, GETD1+4, CONT+1, CONT+2, CONT+3, CONT+4, CT3+1, CT3+4 , CT3+7, CT3+9, PSTR+3*
Y(	CT3+2, CT3+5, CT3+8, CT3+10
Y(0	SL+7
Y(1	CONT+5
Y(2	CONT+6, CONT+7, CT2, CT2+2
Y(4	CT1, CT1+2
Y(6	CONT+6, CONT+7
Y0	IN!, END+1!
Y1	IN!, END+1!
Y2	IN!, END+1!
Y3	IN!, END+1!
Y4	IN!, END+1!
Y5	IN!, END+1!
Y6	IN!, END+1!
Z	PSDDSOR+11~, STR4+1, STR3, STR2, STR1
>> ZTDESC	DEV+3*
ZTDTH	DEV+2!
ZTIO	DEV+2!
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	DEV+3*
ZTSAVE	DEV+2!
ZTSAVE(	DEV+4*
ZTSAVE("DRG("	DEV+5*
ZTSAVE("PAT("	DEV+5*
ZTSAVE("PRO("	DEV+5*
ZTSAVE("SCH("	DEV+5*
ZTSAVE("SR("	DEV+5*
ZTSAVE("SRT("	DEV+5*
ZTSK	DEV!, DEV+2!, DEV+6!

Customize PDF page

Package: Controlled Substances

Routine: PSDDSOR

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: