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

Package: Inpatient Medications

Routine: PSIVRQ1


Information

PSIVRQ1 ;BIR/PR-CONT. REPORT DRIVER ;16 DEC 97 / 1:40 PM

Source Information

Source file <PSIVRQ1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Inpatient Medications 4 ENGETP^PSIV  ^PSIVHLP1  ^PSIVHLP2  K^PSIVRQ  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 ^DIC  YN^DICN  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSIVRQ  

Entry Points

Name Comments DBIA/ICR reference
VADC ;Va drug class codes
PQ ;Ask for patient data for drug cost report but not if 'TYPE' selected
PAT ;Ask patient for patient cost report
D ;Select drug
I3 ;Select ward for ward cost report
CAT ;Category of drugs
QUEUE ;Queue logic
P ;Select provider for provider report
HI ;High low cost
T ;Type
NQ ;No queue so run report

External References

Name Field # of Occurrence
^%ZIS QUEUE+1
^%ZISC QUEUE+5
^%ZTLOAD QUEUE+5
^DIC P+2, D+6, I3+4, CAT+1, VADC+1
YN^DICN PQ+2
^DIR HI+1, HI+3, T+1
ENGETP^PSIV PAT+1
^PSIVHLP1 P+2, PQ+2, I3+3
^PSIVHLP2 D+5
K^PSIVRQ PSIVRQ1+6, QUEUE+1, QUEUE+5, NQ+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED"
  • Line Location: QUEUE+1
Function Call: READ
  • Prompt: "Select PROVIDER (or enter ^ALL): "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: P+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$T $C(7) Q:'$T!("^"[X)
  • Line Location: P+1
Function Call: WRITE
  • Prompt: $P("^ALL",X,2)
  • Line Location: P+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: D+1
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: D+2
Function Call: WRITE
  • Prompt: $P(Y,X,2)
  • Line Location: D+3
Function Call: WRITE
  • Prompt: !!,"Should this report include patient data"
  • Line Location: PQ+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: I3+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: I3+1
Function Call: WRITE
  • Prompt:
  • Condition for execution: '$T $C(7) Q:'$T!("^"[X)
  • Line Location: I3+1
Function Call: WRITE
  • Prompt: $P("^ALL",X,2)
  • Line Location: I3+1
Function Call: WRITE
  • Prompt: $P("^OUTPATIENT",X,2)
  • Line Location: I3+2
Function Call: WRITE
  • Prompt: !
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: VADC+1
Function Call: WRITE
  • Prompt: $C(7),!,"LOWER COST BOUND MUST BE LESS THAN UPPER COST BOUND!"
  • Line Location: HI+4
Routine Call
  • DIC
  • Line Location:
    • P+2
    • D+6
    • I3+4
    • CAT+1
    • VADC+1
Routine Call
  • DIR
  • Line Location:
    • HI+1
    • HI+3
    • T+1
Routine Call
  • %ZIS
  • Line Location:
    • QUEUE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(42 - [#42] Classic Fileman Calls
^PS(50.2 - [#50.2] Classic Fileman Calls
^PS(50.605 - [#50.605] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.605 - [#50.605] VADC+1

Label References

Name Line Occurrences
@( NQ+1
CAT D+4
D PSIVRQ1+5, P+1, P+2, D+2, D+3, D+5, D+6, D+7
HI D+2, HI+4
I3 PSIVRQ1+5, I3+3, I3+4
NQ QUEUE+2
P PSIVRQ1+5, P+2
PAT PSIVRQ1+5
PQ D+2, D+3, D+4
T D+3
VADC D+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PQ+2*, PQ+3
%ZIS QUEUE+1!*
%ZIS("B" QUEUE+1*
DA T+1!
>> DFN PAT+1
DIC P+2*!, D+6*, I3+4*!, CAT+1*, VADC+1*
DIC("S" P+2*
DIC(0 P+2*, D+6*, I3+4*, CAT+1*, VADC+1*
DIR HI+1!, HI+5!, T+1!
DIR("?" HI+1*
DIR("A" HI+1*, HI+3*, T+1*
DIR(0 HI+1*, T+1*
>> DIRUT HI+1, HI+3
DTIME P+1, D+1, I3+1
>> G QUEUE+4*
>> HELP P+2*, D+5*, PQ+2*, I3+3*
>> I1 P+1*, P+2*
>> I10 D+2*, D+3*, D+4*, D+6*, CAT+1*, VADC+1*
>> I11 I3+1*, I3+2*, I3+4*
>> I2 D+2*, D+3*, D+4*, D+7*
>> I3 I3+1*, I3+2*, I3+4*
>> I5 PAT+1*
>> I6 QUEUE+3*
>> I9 P+1*, P+2*
IO("DOC" QUEUE+3
IO("Q" QUEUE+1!, QUEUE+2, QUEUE+5!
ION QUEUE+3
IOP QUEUE+1!
>> LCO D+2, HI+5*
>> POP QUEUE+1
PQ D+3!, PQ+2, PQ+3*!
>> PSIVDCR PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1, D+1, D+2, D+3
>> PSIVPAT PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> PSIVPCR PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> PSIVPR QUEUE+1
>> PSIVWCR PSIVRQ1+5, QUEUE+2, QUEUE+3, NQ+1
>> Q PQ+2*
U D+6, D+7, I3+4, CAT+1, VADC+1
>> UCO D+2, HI+2*, HI+4
>> X PSIVRQ1+5, PSIVRQ1+6, P+1*, P+2, D+1*, D+2, D+3, D+4, D+5, D+6
, PQ+3*, PAT+1*, I3+1*, I3+2, I3+3, HI+2*, HI+4, HI+5*, T+1
>> Y P+2, D+2*, D+3*, D+4*, D+6, D+7, I3+4, CAT+1*, VADC+1*, HI+1*
, HI+2*, HI+3*, HI+5*, T+1*, T+2*
>> Y(0 D+3, D+7
>> ZTDESC QUEUE+3*
ZTDTH QUEUE+3!
>> ZTIO QUEUE+3*
>> ZTRTN QUEUE+2*
ZTSAVE QUEUE+3!
ZTSAVE( QUEUE+4*
ZTSK QUEUE+3!, QUEUE+5
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