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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSIVRQ

Package: Inpatient Medications

Routine: PSIVRQ


Information

PSIVRQ ;BIR/PR,MLM,MV-REPORT DRIVER ; 9/25/08 12:31pm

Source Information

Source file <PSIVRQ.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Inpatient Medications 3 ENIVKV^PSGSETU  ^PSIVREC  ^PSIVRQ1  
VA Fileman 3 ^%DT  ^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Inpatient Medications 8 PSIVAOR  PSIVRQ1  PSJI AMIS  PSJI DRUG COST REPORT  PSJI PATIENT COST  PSJI PROVIDER REPORT  PSJI RECOMPILE  PSJI WARD/DRUG USAGE REPORT  

Entry Points

Name Comments DBIA/ICR reference
DTS ;Get start and stop dates for all reports
K ;Kill variables
RECOM ;Recompile IV cost data for date range
LS ;Ask for long or short report if user is running the drug cost report.
IV ;Ask user for IV room to run reports for.

External References

Name Field # of Occurrence
^%DT DTS+4, DTS+5
^%DTC DTS+2
^DIR LS+3, LS+5, IV+3
ENIVKV^PSGSETU K+2
^PSIVREC RECOM+1
^PSIVRQ1 IV+2, IV+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The IV BACKGROUND JOB [PSJI BACKGROUND JOB] that compiles IV cost data",!,"was last successfully run on: ",Y
  • Line Location: DTS+1
Function Call: WRITE
  • Prompt: !!,$C(7),"**WARNING** that was <",X,"> days ago. PLEASE contact your site manager.",!?12,"Cost data is probably not accurate because of this."
  • Line Location: DTS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DTS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DTS+5
Function Call: WRITE
  • Prompt: !!,$C(7),$C(7),"End date must be GREATER than start date."
  • Line Location: DTS+6
Function Call: WRITE
  • Prompt: $P("^ALL",X,2)
  • Line Location: IV+4
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: IV+5
Routine Call
  • DIR
  • Line Location:
    • LS+3
    • LS+5
    • IV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DTS+1, DTS+3
^PS(50.8 - [#50.8] DTS+1, DTS+3
^PS(59.5 - [#59.5] DTS+3

Label References

Name Line Occurrences
DTS DTS+6
IV LS+4
K DTS+4, DTS+5, LS+8, IV+4

Naked Globals

Name Field # of Occurrence
^( DTS+1, DTS+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DTS+4*, K+1!
%DT("A" DTS+4*, DTS+5*
%DT(0 DTS+4*
%T K+1!
BRIEF DTS+4!, LS+2!, LS+3*, LS+7*, K+1!
D K+1!
DATA DTS+3*, K+1!
DFN K+1!
DIC K+1!
DIR LS+2!, LS+3!, LS+5!, IV+3!
DIR("?" LS+3*, LS+5*, IV+3*
DIR("??" LS+5*, IV+3*
DIR("A" LS+3*, LS+5*, IV+3*
DIR("B" LS+3*, LS+5*, IV+3*
DIR(0 LS+3*, LS+5*, IV+3*
DIRUT K+1!
DT DTS+2
DUOUT K+1!
G K+1!
HELP K+1!
I1 K+1!
I10 K+1!
I11 K+1!
I15 IV+4*, IV+5*, K+1!
I2 K+1!
I3 K+1!
I4 IV+4*, IV+5*, K+1!
I5 K+1!
I6 K+1!
I7 DTS+4*, DTS+6, K+1!
I8 DTS+5*, DTS+6, K+1!
I9 K+1!
JJ K+1!
LCO K+1!
NU K+1!
POP K+1!
PQ LS+7!, K+1!, K+2!
>> PSIVAMIS IV+2
PSIVDCR LS+4, K+1!
PSIVPAT IV+2, K+1!
PSIVPCR LS+3, K+1!
PSIVRC DTS+1, DTS+2, RECOM+1!, K+2!
PSIVWCR K+2!
Q K+2!
SMO DTS+4!, K+2!
>> STSRPT DTS+1, DTS+2, DTS+3, DTS+8
U DTS+3, IV+5
UCO K+2!
VAERR K+2!
X DTS+2, LS+3, LS+7, LS+8, IV+4, IV+5, K+2!
>> X1 DTS+2*
>> X2 DTS+1*
Y DTS+1*, DTS+3*, DTS+4, DTS+5, IV+5, K+2!
Z DTS+3*, K+2!
>> ZTQUEUED K+2
>> ZTREQ K+2*
ZTSK K+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All