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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 5 ENDEV^PSGTI  LIST^PSJEXP0  G^PSJPDIR  ^PSJPDV0  $$CNTDIV^PSJQUTIL  
VA FileMan 3 ^%DT  ^DIC  ^DIR  
Kernel 1 ^%ZISC  
Registration 1 (DIVISION,WARD)^VAUTOMA  

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: 1

Package Total Caller Graph
Inpatient Medications 1 PSJ PDV  

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

External References

Name Field # of Occurrence
^%DT DT
^%ZISC DONE
^DIC DRGS+8
^DIR SORT+1, SELECT+2, MATCH+3
ENDEV^PSGTI DEV+2
LIST^PSJEXP0 ORDERS
G^PSJPDIR UNIDIV+5
^PSJPDV0 DEV+5
$$CNTDIV^PSJQUTIL DIVWARD+2
DIVISION^VAUTOMA DIVWARD+3
WARD^VAUTOMA UNIDIV+1

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
Routine Call
  • DIC
  • Line Location:
    • DRGS+8
Routine Call
  • DIR
  • Line Location:
    • SORT+1
    • SELECT+2
    • MATCH+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS( O+2
^PS(50.605 - [#50.605] VSPLIT, VSPLIT+1, VSPLIT+2, VSPLIT2
^PS(52.6 - [#52.6] O1+3
^PS(52.7 - [#52.7] O1+9
^PS(57.5 - [#57.5] UNIDIV+7, UNIDIV+8
^PSDRUG - [#50] P+2, O+4, V2+1
^PSDRUG("AOC" V2+1
^PSDRUG("AP" P+2
^PSDRUG("ASP" O+4

Label References

Name Line Occurrences
@( DRGS+8
DONE DATES+2, ORDERS, SORT+1, SELECT+2, DRGS+12, MATCH+3, DIVWARD+4, UNIDIV+2, DEV+2
DT DATES+2
DTM DT
O1 O+2
UNIDIV DIVWARD+2
V2 V+1, VSPLIT+2, VSPLIT2
VSPLIT V+1
VSPLIT2 VSPLIT+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATES+2*!, DONE!
%DT(0 DATES+2*
>> BCNT DRGS*, DRGS+12, P+3*, O+5*, O1+5*, O1+11*, D+1*, V2+2*
CHOICE DONE!
CNT DONE!
CONT DEV+6*, DONE!
COUNT DRGS*, DRGS+10, DONE!, P+2, P+3*, O+4, O+5*, O1+3, O1+5*, O1+9
, O1+11*, D+1*, V2+1, V2+2*
D DATES+2*, DONE!, DT, DTM
DIC DRGS+3!*, DRGS+8!, DONE!
DIC("W" DRGS+6*, DRGS+7*
DIC(0 DRGS+3*
DIR SORT+1!, SELECT+2!, MATCH+3!
DIR("?" SORT+1*, SELECT+1*, SELECT+2*, MATCH+2*
DIR("A" SORT*, SELECT*, MATCH+1*
DIR("B" SORT*, MATCH+1*
DIR(0 SORT*, SELECT*, MATCH+1*
DTIME DEV+6, DT
DTOUT SORT+1, SELECT+2, DRGS+8, MATCH+3, DIVWARD+4, UNIDIV+2, DONE!
DUOUT SORT+1, SELECT+2, DRGS+8, MATCH+3, DIVWARD+4, DONE!
FIL O+2~*
GG DONE+2!
GGG DONE+2!
IEN DRGS+8*, DONE!, P+2, O+2, O+4, O1+3, O1+9, D+1, VSPLIT, VSPLIT+1
IO DEV+3
IOF DONE
IOST DEV+4, DEV+6, DONE
MATCHES DONE+2!
NAME DRGS+8*, DONE!, P+1, P+2, P+3, O+3, O+4, O+5, O1+1, O1+3
, O1+5, O1+7, O1+9, O1+11, D+1, V2, V2+1, V2+2, VSPLIT+2*, VSPLIT2*
ON DONE+2!
OUT DATES+1~, ORDERS, DRGS+3, DRGS+8*, DONE!, DONE+2!
POP DEV+2, DONE!
PRIM DONE!, V2+1*
PSGP DONE!
PSGTIR DEV+1*, DONE!
PSIVUP DONE+2!
PSJACNWP DONE+2!
PSJCNT DRGS+10*, MATCH+1, MATCH+2, DONE!
PSJDOB DONE+2!
PSJISP DONE!
PSJISP( P+2*, O+4*, O1+3*, O1+9*, D+1*, V2+1*
PSJMAT MATCH+3*, DONE!
PSJORIFN DONE+2!
PSJPAD DONE+2!
PSJPAGE DONE+2!
PSJPBID DONE+2!
PSJPCAF DONE+2!
PSJPDD DONE+2!
PSJPDOB DONE+2!
PSJPDX DONE+2!
PSJPHT DONE+2!
PSJPHTD DONE+2!
PSJPPID DONE+2!
PSJPRB DONE+2!
PSJPSEX DONE+2!
PSJPSSN DONE+2!
PSJPTD DONE+2!
PSJPTS DONE+2!
PSJPTSD DONE+2!
PSJPTSP DONE+2!
PSJPWD DONE+2!
PSJPWDN DONE+2!
PSJPWT DONE+2!
PSJPWTD DONE+2!
PSJQ DONE+3!
PSJQ("CLASS" VSPLIT+1*, VSPLIT+2, VSPLIT2
PSJQ("CLASS2" VSPLIT2*
PSJQ("STOP" V+1, VSPLIT+2*
PSJREPF DATES+2*, DONE!
PSJREPS DATES+2*, DONE!
PSJSEL UNIDIV+4~
PSJSEL("WG" UNIDIV+7, UNIDIV+8
PSJSL SELECT+2*, DRGS+3, DRGS+4, DRGS+8, DONE!
PSJSNM DONE!
PSJSNM( P+2*, P+3, O+4*, O+5, O1+3*, O1+5, O1+9*, O1+11, D+1*, V2+1*
, V2+2
PSJSRT SORT+1*, DONE!
PSJSTOP UNIDIV+4~, UNIDIV+6
PSJWARD UNIDIV+4~, UNIDIV+7*, UNIDIV+8
QFLG DATES+1~, DRGS+8*, DRGS+12, DEV+6, DONE!
SPDRG DONE!, P+2*, O+4*, O1+3*, O1+9*, V2+1*
U DRGS+8
VAUTD DIVWARD+2*, UNIDIV+3, DONE+3!
VAUTNI UNIDIV*, DONE+3!
VAUTW UNIDIV+3, UNIDIV+8*, DONE+3!
VAUTW( UNIDIV+8*
X DEV+1*, DONE!, DT*
Y DATES+2, SORT+1, SELECT+2, DRGS+8, MATCH+3, DIVWARD+4, UNIDIV+2, DONE!, DT*
>> ZTDESC DEV+1*
ZTSAVE DEV+1!
ZTSAVE( DEV+1*
ZTSK DEV+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All