Routine: PSOMGCM1

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
MailMan	1	^XMD
Uncategorized	1	$$RXSUM^FBRXUTL

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+5
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)
^%ZOSF("TEST"	FBA+4
^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+7
PDT	PDT
Q	DAY+2
RECOM	PURG+2, TSK+3, RECOM+1
REDT	REDT
SET	FBA+6

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+5, 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+5*, 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+5, FBA+6, FBA+7, MAIL+4*, MAIL+10, SET+2, SET+5
PPCOST	END!, FBA+6*, 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!
QTY120	END+1!
QTY179	END+1!
QTY180	END+1!
QTY30	END+1!
QTY60	END+1!
QTY90	END+1!
QTY90P	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+5, MAIL+7
ST	END+1!, BEG3+1*
STAFF	END+1!
STCOST	END+1!
STN	END+2!, FBA, FBA+1, FBA+2, FBA+3, FBA+5
SUB	END+1!
SY	PURG+2*, PDT+1, PDT+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, FBA+4, 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!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOMGCM1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: