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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOMGCM1

Package: Outpatient Pharmacy

Routine: PSOMGCM1


Information

PSOMGCM1 ;BHAM ISC/JMB,SAB - management data compile/recompile ;4/15/05 3:10pm

Source Information

Source file <PSOMGCM1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 6 (,DD)^%DT  C^%DTC  FILE^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZTLOAD  $$DT^XLFDT  
Outpatient Pharmacy 2 SETUP1^PSOAUTOC  (BUILD,CLE,COM1,DAYS,STA)^PSOMGCOM  
Fee Basis 1 $$RXSUM^FBRXUTL  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Outpatient Pharmacy 5 PSO MGMT DATA PURGE  PSO MGMT NIGHTLY COMPILE  PSO MGMT RPT DAILY COMPILE  PSO MGMT RPT ONE DAY COMPILE  PSO MGMT RPT RANGE COMPILE  

Entry Points

Name Comments DBIA/ICR reference
TSK ;initialize nightly mgmt. compile job
RECOM ;recompile data for a date range
BEG
BEG2
BEG3
BEG1
TASK ;compile every night
ADDEM
COM2
QUE
DAY ;recompile by day
END
REDT
PDT
Q
P
ADD
SET
EX
FBA
PURG ;purge data for a date range
MAIL

External References

Name Field # of Occurrence
^%DT PURG+2, PDT, DAY+1, RECOM+1, REDT
DD^%DT PURG+1, PURG+2, PDT+1
C^%DTC TASK+1
^%ZTLOAD PDT+4, QUE+1, Q+1
FILE^DICN ADD
^DIK P, BEG
$$GET1^DIQ FBA+2
^DIR PDT+2, TSK+2
$$RXSUM^FBRXUTL FBA+4
SETUP1^PSOAUTOC TSK+1
BUILD^PSOMGCOM BEG1+1
CLE^PSOMGCOM BEG1
COM1^PSOMGCOM BEG3+2
DAYS^PSOMGCOM COM2+3
STA^PSOMGCOM COM2+3
$$DT^XLFDT FBA
^XMD MAIL+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Purge Management Statistics",!!
  • Line Location: PURG+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PDT+0
Function Call: WRITE
  • Prompt: !,$C(7),$C(7)
  • Line Location: PDT+1
Function Call: WRITE
  • Prompt: !!!,"Purge from "_SY_" to "_Y,!
  • Line Location: PDT+1
Function Call: WRITE
  • Prompt: !,$C(7),"No data has been purged."
  • Line Location: PDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DAY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: REDT+0
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: REDT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: REDT+1
Routine Call
  • DIR
  • Line Location:
    • PDT+2
    • TSK+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^PS(59.12 - [#59.12] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(59 - [#59] COM2+1, FBA+1, FBA+2, SET, SET+2, ADD
^PS(59.12 - [#59.12] PURG+1, P, BEG, SET, SET+1*, SET+2*, SET+3, SET+4*, SET+5*, ADDEM*
, ADDEM+1*, ADDEM+2*
^PSDRUG - [#50] COM2+2
^PSRX - [#52] BEG1, BEG2, BEG3, BEG3+1, COM2, COM2+1, COM2+2
^TMP($J END!, BEG1!
^XUSEC("PSORPH" MAIL

Label References

Name Line Occurrences
ADD BEG1+1, SET
ADDEM ADD
BEG TASK+1
BEG1 BEG+1
BEG2 BEG1
BEG3 BEG2
COM2 BEG3+2
DAY DAY+1
END PURG+2, PDT, DAY+1, RECOM+1, REDT, BEG+2
EX TSK+2
FBA BEG+2
MAIL FBA+3, FBA+6
PDT PDT
Q DAY+2
RECOM PURG+2, TSK+3, RECOM+1
REDT REDT
SET FBA+5

Naked Globals

Name Field # of Occurrence
^("INI" FBA+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END!, PURG+2*, DAY+1*, RECOM+1*
%DT("A" PURG+2*, PDT*, DAY+1*, RECOM+1*, REDT*
%DT("B" PURG+1*, PURG+2!
%DT(0 PURG+2*!, PDT*, DAY+1*!, RECOM+1*!, REDT*
AVGCAT END!
AVGEQFL END!
AVGFEE END!
AVGMETH END+1!
AVGST END!
CAT END!
CATA END!
CATC END!
CATCOST END!
COM END+2!, DAY+1*, REDT+1*, Q
COST END!, COM2+2*
COSTPST END+1!
DA END!, P*, BEG*, BEG+1!, BEG3*, COM2, COM2+1
DATE END!, COM2+1*
DAY QUE+1!
DAYS END+2!, BEG3+1*
DD ADD!
DFN END!, BEG3+1*, BEG3+2
DIC END!, ADD*
DIC(0 ADD*
DIFROM MAIL+15~
DIK P*, P+1!, BEG*, BEG+1!
DINUM END!, ADD*
DIR PDT+2!, TSK+2!, EX!
DIR("A" PDT+2*, TSK+2*
DIR("B" PDT+2*, TSK+2*
DIR(0 PDT+2*, TSK+2*
DIRUT END!, PDT+2, TSK+2
DIV END!, SET+3*
DO ADD!
DRUG END!, BEG3+1*, BEG3+2
DT PURG+2, TASK+1, DAY+1, RECOM+1, REDT, FBA*, FBA+2
DV END!, COM2+1*, FBA*, FBA+1*, FBA+2, SET*, SET+1, SET+2*, SET+4, SET+5
, ADD*, ADDEM, ADDEM+1, ADDEM+2
EDT END!, PDT*, PDT+1, PDT+2!, PDT+4!, P, TASK+1*, QUE+1!, DAY+1*, REDT+1*
, Q+1!, BEG, BEG+1, FBA+4, MAIL+7
EQCOST END!
EQFL END!
EQPREQ END!
FCOST END!
FEE END!, SET+2*, SET+3*, SET+4
G PDT+3*, PDT+4!, QUE+1!, Q*, Q+1!
INV END!
MAIL END!
MAIL( COM2+1*
METH END!
METHAD END!
METHCOST END+1!
NDT END+2!, BEG+1*, BEG1, BEG1+1
NEW END!
NODE1 END+1!
OTH END!
PCAT END!
PCPP END+1!
PDATE END!, BEG1*, BEG1+1*, BEG2, BEG3, FBA+4*, SET, SET+1, SET+2, SET+3
, SET+4, SET+5, ADD, ADDEM, ADDEM+1, ADDEM+2
PHYS END!, BEG3+1*
PP END!, FBA+3*, FBA+4*, FBA+5*, FBA+6*, MAIL+4*, MAIL+10, SET+2, SET+5
PPCOST END!, FBA+5*, SET+5
PREQ END!
PSO MAIL+15!
PSO(1 MAIL+5*
PSO(10 MAIL+14*
PSO(2 MAIL+6*
PSO(3 MAIL+7*
PSO(4 MAIL+8*
PSO(5 MAIL+9*
PSO(6 MAIL+10*
PSO(7 MAIL+11*
PSO(8 MAIL+12*
PSO(9 MAIL+13*
PSO1 MAIL*, MAIL+15!
QTY30 END+1!
QTY60 END+1!
QTY90 END+1!
QTY90P END+1!
QTYOVR90 END+1!
R END+1!
REC END+1!, BEG2*, BEG3, BEG3+1, COM2, COM2+1, COM2+2
RECOM END!
REF END+1!
REF( COM2+1*
RX0 END+1!, BEG3+1*
RXF END+1!, COM2+1*, COM2+2
RXPREQ END+1!
SDT END+1!, PURG+1*, PURG+2*, PDT, PDT+2!, PDT+4!, P, TASK+1*, QUE+1!, DAY+1*
, RECOM+1*, REDT, Q+1!, BEG, BEG+1, FBA+4, MAIL+7
ST END+1!, BEG3+1*
STAFF END+1!
STCOST END+1!
STN END+2!, FBA*, FBA+1, FBA+2*, FBA+3, FBA+4
SUB END+1!
SY PURG+2*, PDT+1, PDT+2!
TDAYS END+2!
TFCT END+2!, ADDEM+2
TFIL END+2!, BEG1+1, ADDEM
TFTY END+2!, ADDEM+1
TY END+2!, BEG1*, BEG2, BEG3, BEG3+2
VAEL END+1!
WIND END+1!
WIND( COM2+1*
X END+1!, PURG+2, PDT, EX!, TASK+1, DAY+1, RECOM+1, REDT, ADD*
X1 TASK+1*!
X2 TASK+1*!
XMDUZ MAIL+2*, MAIL+15!
XMSUB MAIL+3*, MAIL+15!
XMTEXT MAIL+15*!
>> XMY( MAIL*
>> XMY("" MAIL+1
Y END+1!, PURG+1*, PURG+2*!, PDT, PDT+1*, PDT+2!, TSK+2, EX!, DAY+1, RECOM+1
, REDT, REDT+1
ZTDESC END+1!, PDT+3*, QUE*, Q*
ZTDTH END+1!, PDT+3*, QUE*, Q*
ZTIO PDT+3*, PDT+4!, QUE*, QUE+1!, Q*, Q+1!
>> ZTQUEUED END+2, PDT+4, QUE+1, Q+1
>> ZTREQ END+2*, PDT+4*, QUE+1*, Q+1*
ZTRTN END+1!, PDT+3*, QUE*, Q*
ZTSAVE END+1!
ZTSAVE( PDT+3*, Q*
ZTSK PDT+4!, QUE+1!, Q+1!
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 |  Naked Globals |  Local Variables |  All