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
Print Page as PDF
Routine: PSJPDV

Package: Inpatient Medications

Routine: PSJPDV


Information

PSJPDV ;BIR/KKA-LIST PATIENTS ON SPECIFIC DRUGS ; 3/4/10 9:38am

Source Information

Source file <PSJPDV.m>

Entry Points

Name Comments DBIA/ICR reference
DATES ;prompt user for the range of dates
ORDERS
SORT
SELECT
DRGS
MATCH ;**prompt user for the number of matches, default to 1 RMS/PBM PSJ*5*214
DIVWARD ;PSJ*5*214 ADDS MULTIDIVISIONAL SUPPORT
UNIDIV
DEV ; ask print device and queue if asked to
DONE
P ;get primary drug from user
O ;get orderable item from user
O1 ; here if the orderable item is marked for IV use
D ;get dispense drug from user
V ;get VA Class of Drug from user
V2
VSPLIT
VSPLIT2
DT
DTM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ORDERS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SELECT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DRGS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MATCH+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DIVWARD+1
Function Call: WRITE
  • Prompt: !!,"You may optionally select a ward group..."
  • Line Location: UNIDIV+5
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue: "
  • Line Location: DEV+6
Function Call: WRITE
  • Prompt: !!,"Dispense Drugs for ",NAME," are:"
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !,$P(^PSDRUG(SPDRG,0),"^")
  • Line Location: P+2
Function Call: WRITE
  • Prompt: !," NONE FOUND"
  • Line Location: P+4
Function Call: WRITE
  • Prompt: !
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !!,"Dispense Drugs for ",NAME," are:"
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !,$P(^PSDRUG(SPDRG,0),"^")
  • Line Location: O+4
Function Call: WRITE
  • Prompt: !," NONE FOUND"
  • Line Location: O+6
Function Call: WRITE
  • Prompt: !
  • Line Location: O+7
Function Call: WRITE
  • Prompt: !!,"Additives for ",NAME," are:"
  • Line Location: O1+1
Function Call: WRITE
  • Prompt: !,$P(^PS(52.6,SPDRG,0),"^")
  • Line Location: O1+2
Function Call: WRITE
  • Prompt: !,$P(^PS(52.6,SPDRG,0),"^")
  • Line Location: O1+3
Function Call: WRITE
  • Prompt: !," NONE FOUND"
  • Line Location: O1+6
Function Call: WRITE
  • Prompt: !,$P(^PS(52.7,SPDRG,0),"^")
  • Line Location: O1+8
Function Call: WRITE
  • Prompt: !,$P(^PS(52.7,SPDRG,0),"^")
  • Line Location: O1+9
Function Call: WRITE
  • Prompt: !," NONE FOUND"
  • Line Location: O1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: O1+13
Function Call: WRITE
  • Prompt: !!,"Dispense Drugs for VA Class ",NAME," are: "
  • Line Location: V2+0
Function Call: WRITE
  • Prompt: !,$P(^PSDRUG(SPDRG,0),"^")
  • Line Location: V2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: V2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !,"No ",D," date chosen for notices run."
  • Condition for execution: Y<0
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!,"Enter the ",D," date of the range of dates where you wish to see patients ",!,"on specific drugs. The start date and stop date may be the same."
  • Line Location: DTM+0
Function Call: WRITE
  • Prompt: " The stop",!,"date may not come before the start date."
  • Condition for execution: D="stop"
  • Line Location: DTM+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DTM+0
Info |  Source |  Entry Points |  Interaction Calls