Routine: PSDDSOR

Information

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

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
VA Fileman	5	^%DT NOW^%DTC ^DIC ($$GET1,D)^DIQ ^DIR
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
Controlled Substances	2	PRT^PSDDSOR1 ^PSDSET
Order Entry Results Reporting	1	GETDATA^ORWOR1

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Controlled Substances	2	PSD DIGITALLY SIGNED ORDERS PSDDSOR1

Entry Points

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

External References

Name	Field # of Occurrence
^%DT	DATE+1, DATE+4
NOW^%DTC	PSTR
^%ZIS	DEV, DEV+1
^%ZISC	END
^%ZTLOAD	DEV+6
^DIC	SITE+3, D+4, PR+3, PA+3
$$GET1^DIQ	PSTR+2
D^DIQ	PSTR+1
^DIR	DATE+7, DATE+8, DATE+10, SL+4, SL+16, S+1, S+6, HD1
GETDATA^ORWOR1	GETD1+1
PRT^PSDDSOR1	PRT
^PSDSET	PSDDSOR+11
$$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+6
Function Call: WRITE	Prompt: ! Line Location: DATE+8
Function Call: WRITE	Prompt: ! Line Location: DATE+10
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: !! Line Location: S+1
Function Call: WRITE	Prompt: !,?5,$S(I=1:"1 - SCHEDULE I",I=2:"2 - SCHEDULE II",I=3:"3 - SCHEDULE II NON-NARCOTICS",I=4:"4 - SCHEDULE III",I=5:"5 - SCHEDULE III NON-NARCOTICS",I=6:"6 - SCHEDULE IV NARCOTICS",1:"7 - SCHEDULE V NARCOTICS") Line Location: S+4
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"******** NO DATA TO PRINT ********",!! Line Location: PSTR+3
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,!?2,"Digitally Signed CS Orders Report for Division "_DVN,?70,"Page: ",PG Line Location: HD+1
Function Call: WRITE	Prompt: !,?8,"Date Range: "_BDT_" - "_EDT,?53,"Printed on: "_TDT,! Line Location: HD+2
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+7 DATE+8 DATE+10 SL+4 SL+16 S+1 S+6 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(	EN2+1, EN2+2, EN2+3
^PS(52.41 - [#52.41]	GETD1+3, GETD1+4
^PS(59 - [#59]	SITE+6
^PSRX - [#52]	EN+2, EN1, EN1+1
^TMP($J	EN+1!, CT3+1, CT3+2, CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10, PSTR+3 , 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+9, PSTR+4
CONT	GETD1+5
CT1	CONT+6
CT2	CT1+1
CT3	CT2+1
D	D+8
DEV	SL+17
EN1	EN+2
EN2	EN+3
END	DATE+2, DATE+4, DATE+7, DATE+9, DATE+11, SL+10, SL+11, DEV+1, DEV+2, EN+3
GETD	EN1+3, EN2+4
GETD1	GETD+1
HD	PSTR+3, WR, PRT
HD1	N4, N3, N2, N1, HD
IN	STR4+1, STR3, STR2, STR1
KV	DATE+6, SL+2, SL+16, S+1, S+5
PA	PA+7
PR	PR+7
PRT	STR4+2, STR3+1, STR2+1, STR1+1
PSTR	EN+3
SITE	SITE
SL	SL+11
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+3
^(2	EN1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PSTR
%DT	DATE+1!*
%DT("A"	DATE+1, DATE+3
%DT(0	DATE+1, DATE+3
%ZIS	DEV!*
AC	PSDDSOR+8~, 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+8~, PSTR+1*, HD+2
CT	PSDDSOR+8~, SL, SL+3, SL+4, SL+8
DFN	PSDDSOR+8~
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+7!, DATE+9!, DATE+11!, HD1!, KV!
DIR("A"	DATE+6, DATE+8, DATE+10, SL+4, SL+16, S+1, HD1*
DIR("B"	DATE+6, DATE+8, DATE+10, SL, SL+3!, SL+16, S+1*
DIR(0	DATE+6, DATE+8, DATE+10, SL+2, SL+16, S+1, S+6, HD1
DIRUT	DATE+7, DATE+9, DATE+11, SL+2, SL+5, SL+11, S+2, S+6, 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+8~, SL, SL+4, SL+8
DRG	PSDDSOR+8~, D+2!, D+8, DEV+5, END+1!
DRG(	D+4*, CONT+7
DRUG	PSDDSOR+8~, CONT+5*
DT	DATE+1
DTOUT	SITE, SITE+3, DATE+2, DATE+4, SL+2, SL+10, D+7, PR+6, PA+6, KV!
DUOUT	SITE, SITE+3, SL+2, SL+10, D+6!, D+7, PR+5!, PR+6, PA+5!, PA+6 , KV!
DV	PSDDSOR+8~, EN2, EN2+1, EN2+2
DVN	PSDDSOR+8~, PSTR+2*, HD+1
EDT	PSDDSOR+8~, PSTR+1*, HD+2
FI	PSDDSOR+8~, EN2*, EN2+1, EN2+2, EN2+3
>> G	DEV+4*
I	PSDDSOR+10~, SL+6, SL+11, SL+13, SL+14, S+4, S+8, EN+1, CT3+1, CT3+2 , CT3+4, CT3+5, CT3+7, CT3+8, CT3+9, CT3+10
IO	PSTR+3
IO("Q"	DEV+2!
IOF	HD+1
ION	DEV
IOP	DEV!, DEV+1*!
IOSL	PRT
IOST	HD1
J	PSDDSOR+10~, SL+6, SL+14, SL+15, S+8*
NS	PSDDSOR+8~, EN+1*, CT3, CT3+3, CT3+6, PSTR+4
O	PSDDSOR+10~, SL+6*, SL+7
OP	PSDDSOR+8~, SL+1, SL+2, SL+6, SL+7
ORD	PSDDSOR+8~, EN1+1, EN1+2, EN2+4, GETD1+1
ORS	PSDDSOR+8~, CONT+1*, CONT+2, CONT+3
P1	PSTR+1~*
P2	PSTR+1~*
PAT	PSDDSOR+8~, PA+2!, PA+7, DEV+5, CONT+4*, END+1!
PAT(	PA+3*, GETD+2
PG	PSDDSOR+8~, PSTR+1, WR, HD+1, HD+3*, HD1
PL	PSDDSOR+8~
PL1	PSDDSOR+8~
PND	EN+2, EN2, GETD1+1, END+1!
POP	DEV!, DEV+1
POS	PSDDSOR+8~, EN+2, EN2+1, EN2+2
PRO	PSDDSOR+8~, PR+2!, PR+7, DEV+5, END+1!
PRO(	PR+3*, CT1+2
PROV	PSDDSOR+8~, CT1*
PSDBD	PSDDSOR+9~, DATE+3*, DATE+5, PSTR+1
PSDDF	PSDDSOR+9~, DATE+7*, CONT+2, END+1!
PSDDV	PSDDSOR+9~, SITE+5*, SITE+6, EN1+1, PSTR+2, END+1!
PSDED	PSDDSOR+9~, DATE+5*, EN+2, EN2+1, PSTR+1, END+1!
PSDIO	PSDDSOR+9~, DEV*, DEV+1!, DEV+2!
PSDPO	PSDDSOR+9~, DATE+11*, EN+3
PSDPR	PSDDSOR+9~, SL, PR+2, PR+5*, CT1+1, END+1!
PSDPT	PSDDSOR+9~, SL, PA+2, PA+5*, GETD+1, END+1!
PSDRG	PSDDSOR+9~, SL, D+2, D+6*, CONT+6, END+1!
PSDSC	PSDDSOR+9~, SL, S+1!, S+3, CT2+1, END+1!
PSDSD	PSDDSOR+9~, DATE+5, EN+2, EN1, END+1!
>> PSDSITE	PSDDSOR+11
PSDXF	PSDDSOR+10~, DATE+9*, CONT+1, END+1!
>> PSOSITE	SITE, SITE+3*, SITE+5
RX	PSDDSOR+10~, EN1, EN1+1, EN2+2, EN2+3, GETD1+3, GETD1+4, CT3+1, CT3+2, CT3+4 , CT3+5, CT3+7, CT3+8, CT3+9, CT3+10
RX0	PSDDSOR+10~, EN1+1, EN1+2, EN2+3, EN2+4, GETD+2, GETD1+1, GETD1+2, GETD1+3
RX2	PSDDSOR+10~
S1	PSDDSOR+10~, CONT+3, 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+10~, N4+1, N4+2, N4+3, STR4+1, N3+1, N3+2, N3+3, STR3, N2+1* , N2+2, STR2
S3	PSDDSOR+10~, N4+2, N4+3, STR4+1, N3+2, N3+3, STR3
S4	PSDDSOR+10~, N4+2*, N4+3, STR4+1
S5	PSDDSOR+10~, N4+3, STR4+1, N3+3, STR3, N2+2, STR2, N1+2, STR1
S6	PSDDSOR+10~, IN, STR4+1, STR3, STR2, STR1*
SCH	PSDDSOR+10~, S+1!, DEV+5, CT2*, END+1!
SCH(	S+7, S+8, CT2+2
SR	PSDDSOR+10~, SL!, SL+11!
SR(	SL+8, SL+14, 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+10~, SL!, SL+11, END+1!
SRT(	SL+8*, SL+13, SL+14
TDT	PSDDSOR+10~, PSTR*, HD+2
TY	PSDDSOR+10~, EN+2*, EN1, EN2+1, EN2+2
VA	END+1!
X	PSDDSOR+10~, D+5, D+6, PR+4, PR+5, PA+4*, PA+5
Y	PSDDSOR+10~, SITE+3, DATE+2, DATE+3, DATE+4, DATE+5, DATE+7, DATE+9, DATE+11, SL+8 , SL+9, SL+11, D+4, D+8, PR+3, PR+7, PA+3, PA+7, S+3, S+7* , S+8, GETD1+1, GETD1+2, GETD1+4, CONT+1, CT3+1, CT3+4, CT3+7, CT3+9, PSTR+1*
Y(	CT3+2, CT3+5, CT3+8, CT3+10
Y(0	SL+6
Y(1	CONT+4
Y(2	CONT+5, CONT+7, CT2, CT2+2
Y(4	CT1, CT1+2
Y(6	CONT+5
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+10~, 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: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: