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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSOMGMRP

Package: Outpatient Pharmacy

Routine: PSOMGMRP


Information

PSOMGMRP ;BHAM ISC/JMB - MONTHLY MANAGEMENT REPORT ; 3/30/93

Source Information

Source file <PSOMGMRP.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Outpatient Pharmacy 4 (EN,ENQ)^PSOMGMN1  EN^PSOMGMN2  EN^PSOMGMN3  EN^PSOMGMN4  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 (,DD)^%DT  ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSO MGMT MONTHLY ALL REPORTS  PSO MGMT MONTHLY IV  PSO MGMT MONTHLY RX COSTS  PSO MGMT MONTHLY RX COUNTS  PSO MGMT MONTHLY TYPE OF RX  

Entry Points

Name Comments DBIA/ICR reference
DISP
SDT
END
PRTDV
PAP
BEG
IV
QUE
EDT

External References

Name Field # of Occurrence
^%DT SDT, EDT
DD^%DT BEG+1, IV+2
^%ZIS QUE, QUE+1
^%ZISC END
^%ZTLOAD QUE+3
^DIC PRTDV+2
^DIR PRTDV+1
EN^PSOMGMN1 QUE+4
ENQ^PSOMGMN1 QUE+4
EN^PSOMGMN2 QUE+4
EN^PSOMGMN3 QUE+4
EN^PSOMGMN4 QUE+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?13,$C(7),$C(7),"**There is no prescription data available to print.**",!?8,"Use the Date Range Compile data option to make the data available."
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!?18,$C(7),$C(7),"**There is no IV data available to print.**"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!,"There is no prescription and IV data available to print."
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRTDV+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTDV+2
Function Call: WRITE
  • Prompt: !!?12,"*** PLEASE PRINT ON WIDE PAPER, I.E., 132 COLUMNS. ***",!
  • Line Location: PAP+0
Function Call: WRITE
  • Prompt: !!,"**** Date Range Selection ****"
  • Line Location: PAP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SDT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"Data available to print starts with "_PSDT_".",!
  • Line Location: SDT+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Data available to print starts with "_PIVSDT_".",!
  • Line Location: SDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: $C(7)," End of month cannot be in the future"
  • Line Location: EDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EDT+1
Function Call: WRITE
  • Prompt: !,$C(7),$C(7),"Report not Queued!"
  • Line Location: QUE+1
Routine Call
  • DIC
  • Line Location:
    • PRTDV+2
Routine Call
  • DIR
  • Line Location:
    • PRTDV+1
Routine Call
  • %ZIS
  • Line Location:
    • QUE
    • QUE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EDT+2
^PS(50.8 - [#50.8] IV, IV+1
^PS(59 - [#59] DISP+5
^PS(59.12 - [#59.12] BEG, EDT+2

Label References

Name Line Occurrences
DISP IV, IV+2
EDT EDT
END BEG, DISP+3, DISP+4, PRTDV+2, SDT, EDT, EDT+2, QUE+1, QUE+3
IV BEG, BEG+1
PAP DISP+6
PRTDV PRTDV+2
SDT SDT

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT PAP+1!, SDT*, EDT*!, QUE!, QUE+3!, END+1!
%DT("A" SDT*, EDT*
%DT(0 EDT*
%ZIS QUE!*
%ZIS("B" QUE*
ANS DISP+6*, PRTDV*, PRTDV+1*, PRTDV+2, END+1!
BDT PAP+1!
BEG END+1!
CNT END+1!
DIC PRTDV+2*!
DIC("A" PRTDV+2*
DIC(0 PRTDV+2*
DIR PRTDV+1!, END+1!
DIR("?" PRTDV*
DIR("??" PRTDV+1*
DIR("A" PRTDV*
DIR(0 PRTDV*
DIRUT PRTDV+1, END+1!
DIV DISP+5*, PRTDV*, PRTDV+2*, END+1!
DT PAP+1
DTOUT PRTDV+2, END+1!
DUOUT PRTDV+2, END+1!
DV DISP+5*, PRTDV, END+1!
DVCNT DISP+5*, PRTDV, PRTDV+2, QUE+1!, QUE+2!
DVMN END+1!
>> EDATE EDT+2*, EDT+3
EDT DISP+1!, PAP+1!, EDT+1*, EDT+2, EDT+4, EDT+5, END+1!
EMN EDT+4*, EDT+5*, END+1!
END END+1!
EQTR EDT+5*, END+1!
>> FND EDT+2*
G QUE+2*, QUE+3!, END+1!
I END+1!
IEN IV+1*, END+1!
IO QUE+1
IO("Q" QUE+2, QUE+3!
ION QUE
IOP QUE!, QUE+1*!
IVE END+1!
IVEDT DISP+3!
IVS IV+1*, END+1!
IVSDT IV+1*, IV+2, DISP+2, DISP+3!, DISP+4
K END+1!
LATE PAP+1*, SDT, EDT, END+1!
M1 END+1!
M2 END+1!
M3 END+1!
MM END+1!
MN END+1!
OK IV*, DISP!
OUT PRTDV+1!*, PRTDV+2, END+1!
PDATE END+1!
PG END+1!
PIVSDT IV+2*, DISP+2, END+1!
POP QUE+1, END+1!
PRT END+1!
PRV END+1!
PSDT BEG+1*, DISP, END+1!
PSOION QUE*, QUE+1!, END+1!
Q1 EDT+4*, EDT+6*, END+2!
Q2 EDT+4*, EDT+6*, END+2!
QCST END+2!
QMREQ END+2!
QTCST END+2!
QTMREQ END+2!
QTR EDT+4*, EDT+5*, EDT+6, END+2!
RUN BEG, DISP, DISP+1, DISP+3, DISP+6, EDT+2, QUE+2, QUE+4, END+2!
S1 END+2!
S2 END+2!
S3 END+2!
>> SDATE EDT+2*, EDT+3
SDT BEG*, BEG+1, DISP, DISP+1!, DISP+4, SDT+3*, EDT, EDT+2, EDT+4, EDT+5
, END+2!
SMN EDT+4*, EDT+5, END+2!
SUBS END+2!
T1 END+2!
T2 END+2!
T3 END+2!
X SDT, EDT, QUE+3!, END+2!
Y BEG+1*, IV+2*, PRTDV+1, PRTDV+2, SDT, SDT+3, EDT, EDT+1, EDT+2*, QUE+3!
, END+2!
ZTDESC QUE+2*, END+2!
>> ZTQUEUED END
>> ZTREQ END*
ZTRTN QUE+2*, END+2!
ZTSAVE END+2!
ZTSAVE( QUE+2*
ZTSK QUE!, QUE+3, END+2!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All