Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.4 - [#59.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call