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

Package: Inpatient Medications

Routine: PSIVPCR


Information

PSIVPCR ;BIR/PR,MV-BUILD PROVIDER COST REPORT ;20 JUN 94 / 2:33 PM

Source Information

Source file <PSIVPCR.m>

Entry Points

Name Comments DBIA/ICR reference
SUB ;Set sub routine variable
RM1 ;Run report for one IV room
RMALL ;Run report for all IV rooms
QUEUE ;Queue
W ;Enter to print report
1 ;1 p 1 d
2 ;Al p al d
3 ;1 p al d
4 ;Al p 1 d
5 ;1 p n d
6 ;Al p n d
7 ;C al p
71 ;VA C al p
8 ;C 1 p
81 ;VA C 1 p
B ;
H ;
HBRIEF ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO DATA."
  • Line Location: W+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(I6)&($Y)
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !?56,"PROVIDER DRUG COST REPORT (REGULAR):",?120,"PAGE:",PG,!?56,H
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !?56,I9,!?56,I10,!?56,I15
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !!!?1,"PROVIDER",?36,"DISPENSED",?56,"DESTROYED",?73,"RECYCLED",?97,"CANCELLED",?128,"COST",!
  • Line Location: H+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+5
Function Call: WRITE
  • Prompt: !?20,"PROVIDER DRUG COST REPORT (CONDENSED):",?70,"PAGE:",PG,!?20,H
  • Line Location: HBRIEF+1
Function Call: WRITE
  • Prompt: !?20,I9,!?20,I10,!?20,I15
  • Line Location: HBRIEF+2
Function Call: WRITE
  • Prompt: !!!?1,"PROVIDER",?53,"TOTAL COST",!
  • Line Location: HBRIEF+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HBRIEF+3
Info |  Source |  Entry Points |  Interaction Calls