Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 (,DD)^%DT  EN1^DIP  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSO BINGO REPORT PRINT  PSO BINGO REPORT WAIT TIME  PSOBING1  PSOBINGO  PSOHLDI1  

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

External References

Name Field # of Occurrence
^%DT A1EDATE
DD^%DT CVCV+1, PRINT
^%ZIS SETUP
^%ZISC END
^%ZTLOAD SKIP+1
EN1^DIP BBWAIT+1
^DIR SELECT+3, LOOP+2, PAGE+2

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
Routine Call
  • DIR
  • Line Location:
    • SELECT+3
    • LOOP+2
    • PAGE+2
Routine Call
  • %ZIS
  • Line Location:
    • SETUP

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(52.11 - [#52.11] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.11 - [#52.11] STATS1+1
^PS(59 - [#59] SELECTSELECT+1, SELECT+2, LOAD+1
^PS(59.2 - [#59.2] SELECT+1, LOAD+1, LOOP+3, LD+1, STATS1+4*, STATS1+5*, STATS1+6*

Label References

Name Line Occurrences
A1 EDATE
CV LOAD+1, LOAD1+1
EDATE EDATE+1
END A1+1, SELECT+1, SELECT+3, SETUPSETUP+1, LOAD+2, LOOP+2, LOAD1+3, SKIP+1
FILL LD+1
HEADING TP+1, FILL+7
LD LOAD+1, LOAD1+1
LOAD1 SETUP+2
LOOP SELECT+4, LOOP+3, LOOP+5
PAGE TPTP+2, PRINT+7
QUE SETUP+1
SETUP SELECT+2, LOOP+2
SKIP QUE+1
STARS TP+2, HEADING+2, PRINT+6
TP LD+4
TPE LOAD+2, LOAD1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT A1!*, A1+2!, EDATE*, END+1!
%DT("A" A1*, EDATE*
%DT(0 A1*, A1+2*
>> %ZIS SETUP*
APE FILL*, FILL+2*, FILL+3, FILL+4, FILL+5, FILL+6, END+1!
BDAT CV*, HEADING+1, END+1!
BDATE A1+2*, CVLD+1, END+1!
>> BY BBWAIT+1*
CNT STATS1+1*, END+1!
DA STATS1+1, END+1!
>> DATE STATS1+1*, STATS1+4, STATS1+5, STATS1+6
>> DIC BBWAIT+1*
>> DIF STATS1+3*, STATS1+5
DIR SELECT+3!, LOOP+2!, PAGE+2!
DIR("A" SELECT+3*, LOOP+1*
DIR("B" SELECT+3*
DIR(0 SELECT+3*, LOOP+1*, PAGE+2*
DIRUT SELECT+3, END+1!
DT A1EDATE+1, CV+1
DTOUT A1+1, EDATEPAGE+2, END+1!
DUOUT LOOP+2, PAGE+2, END+1!
EDAT CV*, HEADING+1, END+1!
EDATE EDATE+2*, CVLD+1, END+1!
FLAG SELECT*, SELECT+4*, SETUPSETUP+2, LOOP+5, TPEQUE+1, END+1!
FLD STATS1+1*, STATS1+2*, STATS1+5, STATS1+6!
>> FLDS BBWAIT+1*
G QUE*, QUE+1!
HEAD TP+1*!, PRINT+3, END+1!
I END+1!
IO CV
IO("Q" SETUP+1
IOF HEADING+1
IOSL PRINT+7, PAGE
IOST PAGE+2
JOES STATS1+4, STATS1+5, STATS1+6, END+1!
KEEP FILL*, FILL+3*, FILL+4*, END+1!
>> L BBWAIT+1*
LINE CV*, TPTP+2*, HEADING+1, PRINT+6*, PRINT+7, PAGEPAGE+1*, END+1!
NDIV SELECT*, SELECT+1, SELECT+2, END+1!
NO END+1!
NO( FILL*, FILL+3, FILL+4, FILL+5, FILL+6, PRINT+4
NODATA FILL*, FILL+1, END+1!
NODE LD+1*, FILLEND+1!
NOW CV+1*, HEADING+1, END+1!
NPT CV*, LD+4*, TPE*, TP+2, END+1!
NPT1 FILL+1*, FILL+5*, PRINT+5, END+1!
PAGE CV*, PAGE+1*, END+2!
PDIV SETUPEND+2!
PDIV( SELECT+2*, LOOP+4*, LOAD1+1
>> POP SETUP
PS1 LOAD+1*, LOAD1+1*, CV*, LD+1, END+2!
PS2 LD+1*, TPPRINTEND+2!
PS3 END+2!
PSDA END+2!
PSOUT LOAD+1, LOAD1+1, CV*, LD+1, LD+2, PAGE+2*, END+2!
RDIV END+2!
>> RX0 STATS1+3
RXO END+2!
S1 STATS1+3*, STATS1+6!
S2 STATS1+3*, STATS1+6!
SAVE END+2!
STAR STARS*, END+2!
START STATS1+3*, STATS1+6!
>> TD SELECT*, SELECT+1, SELECT+2, LOAD1+2, CV*, LD+4*, TPE
>> TM1 STATS1+1
TM2 STATS1+1~*, STATS1+3
TOT END+2!
TOT( FILL+3*, FILL+4*, PRINT+4
>> TP CV*, TPEFILL+5*
>> TPD LD*, LD+3, LD+4, FILL+6*
TTM CV*, LD+4*, TPE*, TP+2, END+2!
TTM1 FILL+1*, FILL+5*, PRINT+5, END+2!
>> TW CV*, TPEFILL+5*
>> TWD LD*, LD+4, FILL+6*
WDIV LOAD+1*, LOAD1+1*, LD+3, TPE*, PRINT+1, END+2!
X LOOP+1!, LOOP+2, END+2!
X1 END+2!
XX SELECT*, END+2!
XX1 END+2!
Y A1+1, A1+2, EDATEEDATE+1, EDATE+2, SELECT+4, LOOP+3, LOOP+4, CV*, CV+1*
, PRINT*, PRINT+1, END+2!
ZTDESC SKIP*, END+2!
>> ZTQUEUED END
>> ZTREQ END*
ZTRTN QUE+1*, QUE+2*, END+2!
ZTSAVE END+2!
ZTSAVE( QUE*
ZZ PRINT+4*, PAGE*, END+2!

Marked Items

Name Field # of Occurrence
$T(ZIP+1 PRINT+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All