Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSDNMU

Package: Controlled Substances

Routine: PSDNMU


Information

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

Source Information

Source file <PSDNMU.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

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

Entry Points

Name Comments DBIA/ICR reference
CII ;Select CS DEA Codes
; Return PSDCII=2,3,4,5 or user selection
; Return PSDOUT=1 if '^" entered
CIIQ
CIIO ;Optional Select CS DEA Codes
; Return PSDCII=2,3,4,5 or user selection or null
; Return PSDOUT=1 if '^" entered
CIIOQ
INPS ;Select Inpatient Site file 59.4
; Return PSDIDIV=ien^Name
; Return PSDOUT=1 If '^' entered
INPSC
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
PLOCC
PLOCQ
PLOCA ;Get all Pharmacy Location for selected Inpatient Site
; Return PSDPLOC(ien)=Name
DISD ;Discharge Days Number
DISDQ
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
DST
DATEQ
DIV ;Ask Outpatient Division(s)
; Return PSDODIV array ie. PSDODIV(file59ien)=""
; Return PSDOUT=1 If '^' entered
DIVC
DIVQ

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All