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

Package: Outpatient Pharmacy

Routine: PSOBRPRT


Information

PSOBRPRT ;BHAM ISC/LC - BINGO BOARD REPORT GENERATOR ; 1/27/93

Source Information

Source file <PSOBRPRT.m>

Entry Points

Name Comments DBIA/ICR reference
A1
EDATE
SELECT
SETUP
LOAD ;PRINT ALL DIVISIONS
LOOP ;SELECT DIVISIONS TO PRINT
LOAD1 ;PRINT SELECTED DIVISIONS
CV
LD
TPE
TP
FILL
HEADING ;I PAGE>1,($E(IOST,1,2)="C-") S DIR(0)="E" D ^DIR K DIR
PRINT
PAGE
ZIP ;
QUE
SKIP
STARS
STATS1 ; statistical file entry (from PSOBINGO)
BBWAIT ;print bingo board wait time min, max, mean
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: A1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDATE+0
Function Call: WRITE
  • Prompt: !!,$C(7),"*** Future dates are not permitted ***",!
  • Line Location: EDATE+1
Function Call: WRITE
  • Prompt: !!,"No data found for ",$P(^PS(59,NDIV,0),"^")," division."
  • Line Location: SELECT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!,"No data found for ",$P($G(Y),"^",2)," division."
  • Line Location: LOOP+3
Function Call: WRITE
  • Prompt: !!,"No data found for "_WDIV_" division for this date range"
  • Line Location: LD+3
Function Call: WRITE
  • Prompt: !?5,"|",?74,"|",!?5,"|",?74,"|",!?5,"| Total ",?23,$J(NPT,4),?42,$J(TTM,6,2)
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: ?60,$J((TTM/NPT),5,2)
  • Condition for execution: NPT
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: ?74,"|"
  • Line Location: TP+2
Function Call: WRITE
  • Prompt: @IOF,!,?15,"B I N G O B O A R D R E P O R T ",NOW,!?5,"REPORT PERIOD: ",BDAT," through ",EDAT,!
  • Line Location: HEADING+1
Function Call: WRITE
  • Prompt: ?5,"|"," DIVISION: ",WDIV,?40,"DATE: ",Y,?74,"|"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !?5,"|",?47,"(Time In Minutes)",?74,"|"
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !?5,"|"," TIME PERIOD",?22,"# PATIENTS SERVED",?42,"TOT WAIT TIME",?60,"AVG WAIT TIME",?74,"|"
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !?5,$P($T(ZIP+1),"^",ZZ+1),?28,$J(NO(ZZ*2),4),?47,$J(NO(ZZ+(ZZ+1)),6,2),?65,$J(TOT(ZZ),5,2),?74,"|"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: ?40,"PAGE ",PAGE,!
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !?5
  • Line Location: STARS+0
Function Call: WRITE
  • Prompt: "_"
  • Line Location: STARS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: STARS+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.11 - [#52.11] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call