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

Package: Inpatient Medications

Routine: PSIVWCR


Information

PSIVWCR ;BIR/PR-BUILD WARD COST REPORT ;22 JUL 94 / 11:32 AM

Source Information

Source file <PSIVWCR.m>

Entry Points

Name Comments DBIA/ICR reference
SUB ;Set sub routine variable
HV ;Preset sum header variables
RM1 ;Run report for one IV room
RMALL ;Run report for all IV rooms
QUEUE ;Queue
W ;Enter here to print report
5 ;N 1 w
6 ;N all w
1 ;1 d 1 w
2 ;All w all d
3 ;1 w all d
4 ;All w 1 d
7 ;C all WD
71 ;V C all w
8 ;C 1 w
81 ;V C 1 w
B ;
H ;
K

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: QUEUE+1
Function Call: WRITE
  • Prompt: !,$C(7),"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: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),!
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!,?56,"WARD/DRUG USAGE REPORT:",?120,"PAGE:",?102,$J(PC,4),!,?56,H
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !?56,I11,!?56,I10,!?56,I15
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !!!?1," DRUG NAME",?38," DISPENSED",?57,"(DESTROYED)",?77,"RECYCLED",?95,"CANCELLED",?123,"DRUG COST"
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !
  • Line Location: H+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: H+4
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LN=132
  • Line Location: H+4
Info |  Source |  Entry Points |  Interaction Calls