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

Entry Points

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

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
  • Formatting: !!
  • Prompt: "Select PROVIDER (or enter ^ALL): "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call