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

Package: Outpatient Pharmacy

Routine: PSOMGRP4


Information

PSOMGRP4 ;BHAM ISC/JMB - DAILY MANAGEMENT IV REPORT ; 3/1/93

Source Information

Source file <PSOMGRP4.m>

Entry Points

Name Comments DBIA/ICR reference
EN
W
K
LINE
MLINE
DLINE
WARD
TYPE
H
IV
WRT2
WDTOT
COMPTE
HERE
MON
CTOT
PRTLN1
GETEM
SETEM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: S
  • Line Location: W+0
Function Call: WRITE
  • Prompt: !
  • Line Location: W+1
Function Call: WRITE
  • Prompt: !,"GRAND TOTAL: "
  • Line Location: W+1
Function Call: WRITE
  • Prompt: ?101,$J(BTOT,8,0),?111,$J(IVTOT,13,2),!!!?17,"FINISHED PRINTING ON: "
  • Line Location: W+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: RUN="A"
  • Line Location: W+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: LINE+0
Function Call: WRITE
  • Prompt: !?15
  • Line Location: MLINE+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: MLINE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DLINE+0
Function Call: WRITE
  • Prompt: "="
  • Line Location: DLINE+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!?30,"O U T P A T I E N T P H A R M A C Y M A N A G E M E N T R E P O R T",!?55,"INTRAVENOUS ADMIXTURE",?117,"PAGE ",PG
  • Line Location: H+0
Function Call: WRITE
  • Prompt: !!?40,"FROM "_$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_$E(SDT,2,3),?60,"TO "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_$E(EDT,2,3)_" ALL DIVISIONS",!!
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !!?24,"PIGGYBKS & SYRS",?47,"L. V. P",?71,"T. P. N.",?87,"CHEMOTHERAPY",?110,"PER DATE",!?7,"DATE",?24,"TOT AVG CST",?44,"TOT AVG CST",?66,"TOT AVG CST",?85,"TOT AVG CST",?106,"TOT TOT CST"
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,$E(DATE,4,5)_"-"_$E(DATE,6,7)_"-"_$E(DATE,2,3)
  • Line Location: WRT2+1
Function Call: WRITE
  • Prompt: !,"MONTH TOTAL"
  • Line Location: MON+0
Function Call: WRITE
  • Prompt: ?TCOL,$J(DISP,7,0),?CCOL,$J(TUC,12,2)
  • Line Location: PRTLN1+0
Info |  Source |  Entry Points |  Interaction Calls