Routine: PSDNMU

Information

PSDNMU ;DOIFO/CMS - CS Monitoring Utility routine ;17 Dec 02

Source Information

Source file <PSDNMU.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC D^DIQ ^DIR

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Controlled Substances	5	PSDNMBA PSDNMPR PSDNMRP PSDNMSP PSDNMWE

Entry Points

External References

Name	Field # of Occurrence
^%DT	DST, DST+4
^DIC	INPSC+2, PLOCC, DIVC
D^DIQ	DST+3, DST+7
^DIR	CII+7, CIIO+7, DISD+9, DISD+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"OPTIONAL" Line Location: CIIO+4
Function Call: WRITE	Prompt: ! Line Location: INPSC+2
Function Call: WRITE	Prompt: !!,"A CS Inpatient Site must be selected! Enter '^' to exit." Line Location: INPSC+4
Function Call: WRITE	Prompt: !!,"A 'Pharmacy Location' must be selected! Enter '^ALL' to select all locations. Enter '^' to exit." Line Location: PLOCC+3
Function Call: WRITE	Prompt: ! Line Location: DST+0
Function Call: WRITE	Prompt: !,"Date Range is required! Enter '^' to exit." Line Location: DST+2
Function Call: WRITE	Prompt: !!,"The ending date of the range must be later than the starting date." Line Location: DST+6
Function Call: WRITE	Prompt: !!,"A 'DIVISION' must be selected! or Enter '^' to exit." Line Location: DIVC+2
Routine Call	DIC Line Location: INPSC+2 PLOCC DIVC
Routine Call	DIR Line Location: CII+7 CIIO+7 DISD+9 DISD+15

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(59.4 - [#59.4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(59 - [#59]	DIVC+4
^PSD(58.8 - [#58.8]	PLOCA+4, PLOCA+5, PLOCA+6

Label References

Name	Line Occurrences
DATEQ	DST+1, DST+5
DISDQ	DISD+11
DIVC	DIVC+2, DIVC+5
DIVQ	DIVC+1, DIVC+3
DST	DST+2, DST+6
INPSC	INPSC+4
INPSQ	INPSC+3, INPSC+5
PLOCA	PLOCC+1
PLOCC	PLOCC+3, PLOCC+6
PLOCQ	PLOCC+1, PLOCC+2, PLOCC+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DISD+5~, DATE+6~
%DT	DISD+5~, DATE+6~, DST!*
%DT("A"	DST, DST+4
D	INPS+3~, INPSC*
DIC	INPS+3~, INPSC, INPSC+2!, PLOC+5~, PLOCC, DIV+4~, DIVC*
DIC("A"	PLOC+6, PLOCC+6, DIV+5, DIVC+5
DIC("S"	INPSC+1, PLOCC
DIC(0	INPSC, PLOCC, DIVC*
DIR	CII+3!, CII+7!, CIIQ!, CIIO+3!, CIIO+7!, CIIOQ!, PLOCQ!, DISD+5!, DISD+9!, DISDQ! , DIVQ!
DIR("?"	CII+6, CIIO+6, DISD+8, DISD+14
DIR("A"	CII+4, CIIO+5, DISD+7, DISD+13
DIR("B"	CII+5, DISD+6, DISD+12*
DIR(0	CII+4, CIIO+5, DISD+6, DISD+12
DIROUT	CIIQ!, CIIOQ!, PLOCQ!, DISDQ!, DIVQ!
DIRUT	CIIQ!, CIIOQ!, PLOCQ!, DISDQ!, DIVQ!
DTOUT	CII+3!, CII+9, CIIQ!, CIIO+3!, CIIO+9, CIIOQ!, INPS+3~, INPSC+3, PLOCC+2, PLOCQ! , DISD+11, DISD+17, DISDQ!, DIVC+1, DIVQ!
DUOUT	CII+3!, CII+9, CIIQ!, CIIO+3!, CIIO+9, CIIOQ!, PLOCQ!, DISD+11, DISD+17, DISDQ! , DIVQ!
PSDCII	CII+8, CII+9!, CIIO+8, CIIO+9!
>> PSDDTN	DST, DST+4
PSDED	DATE+6!, DST+1!, DST+5!, DST+7*
PSDIDIV	INPS+3!, INPSC+5*, PLOCA+5
PSDISA	DISD+5!, DISD+16*, DISD+17!
PSDISB	DISD+5!, DISD+10*, DISD+17!
PSDNO	CIIQ!, CIIOQ!
PSDODIV	DIV+4!, DIVC+1!
PSDODIV(	DIVC+4*
PSDODIV(0	DIVC+2, DIVC+3
PSDOUT	CII+3!, CII+9, CIIO+3!, CIIO+9, INPSC+3, PLOC+5!, PLOCC+2, DISD+11, DISD+17, DATE+6! , DST+1, DST+5, DIV+4!, DIVC+1*
PSDPLOC	PLOC+5!, PLOCC+2!, PLOCA+3*
PSDPLOC(	PLOCC+5, PLOCA+6
PSDPLOC(0	PLOCC+3, PLOCC+4
PSDSD	DATE+6!, DST+1!, DST+3*, DST+5!, DST+6
PSDY	PLOCA+2~, PLOCA+3, PLOCA+4, PLOCA+5, PLOCA+6
U	PLOCC+5, PLOCA+5, PLOCA+6, DIVC+4
X	CII+3~, CIIO+3~, INPS+3~, INPSC+3, PLOC+5~, PLOCC+1, PLOCC+2, DISD+5~, DATE+6~, DST+1 , DST+5, DIV+4~, DIVC+1
Y	CII+3~, CII+8, CIIO+3~, CIIO+8, INPS+3~, INPSC+4, INPSC+5, PLOC+5~, PLOCC+3, PLOCC+4 , PLOCC+5, DISD+5~, DISD+10, DISD+16, DATE+6~, DST+2, DST+3, DST+6, DST+7, DIV+4~ , DIVC+2, DIVC+3, DIVC+4

Name	Comments	DBIA/ICR reference
DATEQ
PLOCC
PLOCQ
DISDQ
DIVQ
CIIOQ
CII	;Select CS DEA Codes ; Return PSDCII=2,3,4,5 or user selection ; Return PSDOUT=1 if '^" entered
DIVC
CIIQ
CIIO	;Optional Select CS DEA Codes ; Return PSDCII=2,3,4,5 or user selection or null ; Return PSDOUT=1 if '^" entered
PLOCA	;Get all Pharmacy Location for selected Inpatient Site ; Return PSDPLOC(ien)=Name
DISD	;Discharge Days Number
INPSQ
PLOC	;Ask Pharmacy Location ; PSDIDIV must be defined to selected inpatient site ; Return PSDPLOC array ie. PSDPLOC(file58.8ien)="" ; Return PSDOUT=1 If '^' entered
DATE	;Ask Date Range ; Pass PSDDTN - Name of Date Range (Opt.) ; Return PSDSD - Start Date Range ie. 3030109.9999^JAN 10, 2003 ; Return PSDED - End Date Range ie. 3030118.9999^JAN 19, 2003 ; Return PSDOUT=1 If '^' entered
INPS	;Select Inpatient Site file 59.4 ; Return PSDIDIV=ien^Name ; Return PSDOUT=1 If '^' entered
INPSC
DST
DIV	;Ask Outpatient Division(s) ; Return PSDODIV array ie. PSDODIV(file59ien)="" ; Return PSDOUT=1 If '^' entered

Customize PDF page

Package: Controlled Substances

Routine: PSDNMU

Call Graph Total: 4

Caller Graph Total: 5