Routine: PSOCSTX

Information

PSOCSTX ;BHAM ISC/SAB - COMMON CALL FOR ALL THE COST REPORTS ; 09/09/99 08:00

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	^%DT ^%DTC ^DIC DT^DIO2 ^DIR
Kernel	2	^%ZIS ^%ZISC
Outpatient Pharmacy	1	(FTT,FTU)^PSOCSTX

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 10

Package	Total	Caller Graph
Outpatient Pharmacy	10	PSOCST11 PSOCST12 PSOCST2 PSOCST3 PSOCST4 PSOCST5 PSOCST6 PSOCST8 PSOCST9 PSOCSTX

Entry Points

Name	Comments	DBIA/ICR reference
CDT
CTR	;Check for valid month selection
CMC
DRS
CTP
PRV
PTS
HD
HD0
HDC
HDN
DVC
PRT
FTX
FTU
FTT
EX
DVS
SUB
TOT
ZER
PAS

External References

Name	Field # of Occurrence
^%DT	CDT, CDT+3
^%DTC	CDT+4
^%ZIS	DVC
^%ZISC	EX
^DIC	DRS+1, PRV+1, PTS+1, DVS+1
DT^DIO2	CTP, HD0+1
^DIR	CTR+8, CMC+3, CTP+5, HD0
FTT^PSOCSTX	FTX
FTU^PSOCSTX	FTX

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CDT+0
Function Call: WRITE	Prompt: ! Line Location: CDT+3
Function Call: WRITE	Prompt: !!,"Report for the period: " Line Location: CTP+0
Function Call: WRITE	Prompt: " to " Line Location: CTP+0
Function Call: WRITE	Prompt: " to " Line Location: CTP+0
Function Call: WRITE	Prompt: !!,$G(TT1),!,$G(TT2),! Line Location: HD+1
Function Call: WRITE	Prompt: "-" Line Location: HD+1
Function Call: WRITE	Prompt: @IOF,!,$G(TT0) Line Location: HD0+1
Function Call: WRITE	Prompt: " to " Line Location: HD0+1
Function Call: WRITE	Prompt: " to " Line Location: HD0+1
Function Call: WRITE	Prompt: ?$S(RP=12:90,1:71),"Page: ",PAGE Line Location: HD0+2
Function Call: WRITE	Prompt: !!,"**No Data Found for Requested Date Range for " Line Location: HDN+0
Function Call: WRITE	Prompt: TTA_" ",@TTC Line Location: HDN+1
Function Call: WRITE	Prompt: "All "_TTA_"s" Line Location: HDN+2
Function Call: WRITE	Prompt: "**",!! Line Location: HDN+3
Function Call: WRITE	Prompt: !,$G(TTX),?(C1-1),$J($P(Y,"^",2),5),?(C2-1),$J($P(Y,"^",3),5),?(C3-1),$J(FILLS,5),?59,$J($P(Y,"^",4),10,2),?72 Line Location: PRT+1
Function Call: WRITE	Prompt: $J(AVG,8,2) Line Location: PRT+1
Function Call: WRITE	Prompt: !,"Total" Line Location: FTX+0
Function Call: WRITE	Prompt: ! Line Location: FTX+0
Function Call: WRITE	Prompt: !,?(C1-1),"-----",?(C2-1),"-----",?(C3-1),"-----",?59,"----------",?72,"--------" Line Location: FTU+0
Function Call: WRITE	Prompt: ?(C1-1),$J(CNTO,5),?(C2-1),$J(CNTR,5),?(C3-1),$J(CNT,5),?59,$J(COST,10,2),?72 Line Location: FTT+0
Function Call: WRITE	Prompt: $J(AVG,8,2) Line Location: FTT+0
Routine Call	DIC Line Location: DRS+1 PRV+1 PTS+1 DVS+1
Routine Call	DIR Line Location: CTR+8 CMC+3 CTP+5 HD0
Routine Call	%ZIS Line Location: DVC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSDRUG - [#50]	Classic Fileman Calls
^PS(53 - [#53]	Classic Fileman Calls
^PS(59 - [#59]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	EX+1!

Label References

Name	Line Occurrences
CMC	DRS, PRV, PTS, DVS
CTR	CDT+1
EX	HDN+3
FTX	TOT
HD	TOT
HD0	HD

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CDT!, CDT+3, EX+2!
%DT("A"	CDT, CDT+3
%DT(0	CDT*
%ZIS	DVC!*, EX+1!
ANS	EX+1!
AVG	PRT+1, FTT, EX+1!, SUB*
BEGDATE	CDT, CDT+2, CTR+9*, CTP, HD0+1, EX+1!
C1	HDC+5, HDC+6, HDC+8, HDC+9, PRT+1, FTU, FTT, EX+2!
C2	HDC+5, HDC+6, HDC+9, PRT+1, FTU, FTT, EX+2!
C3	HDC+5, HDC+6, HDC+8, HDC+9, PRT+1, FTU, FTT, EX+2!
CLA	EX+2!
CLAX	EX+2!
CNT	PRT, FTT, EX+1!, SUB, TOT, ZER
CNTO	PRT, FTT, EX+1!, SUB, TOT, ZER
CNTR	PRT, FTT, EX+1!, SUB, TOT, ZER
COST	PRT, FTT, EX+1!, SUB, TOT, ZER
CTR	CDT, CDT+1, CDT+3, CTR+8, CMC+3, DRS, DRS+1, CTP+5, PRV, PRV+1* , PTS, PTS+1, HD0, HDC, DVC, EX+1!, EX+2!, DVS, DVS+1*
DIC	DRS+1!, PRV+1!, PTS+1!, EX+1!, DVS+1!
DIC("A"	DRS+1, PRV+1, PTS+1, DVS+1
DIC("S"	PRV+1*
DIC(0	DRS+1, PRV+1, PTS+1, DVS+1
DIR	CTR+1!, CTR+8!, CMC!, CMC+3!, CTP+1!, CTP+5!
DIR("?"	CTR+4, CTR+5, CTR+6, CTR+7, CMC+1, CMC+2, CTP+2, CTP+3, CTP+4*
DIR("A"	CTR+1, CTR+2, CTR+3, CMC, CTP+1*
DIR("B"	CTR+1, CMC, CTP+1*
DIR(0	CTR+1, CMC, CTP+1, HD0
>> DIRUT	HD0
DIV	EX+2!, DVS+1*
DIVX	EX+2!
DRUG	DRS+1*, EX+1!
DRUGX	EX+1!
DT	CDT, CDT+1, CDT+2, CDT+4, CDT+5, CDT+6, HD0+1
>> DTOUT	CDT, CDT+3, CTR+8, CMC+3, CTP+5
>> DUOUT	CTR+8, CMC+3, CTP+5
ENDDATE	CDT+4, CDT+5, CDT+6*, CTP, HD0+1, EX+1!
FILLS	PRT*, PRT+1, EX+1!
G	EX+1!, PAS*
I	HD+1*, EX+1!
IFN	CMC+3, DRS+1, PRV+1, PTS+1, HDN+1, EX+1!, DVS+1
IFNX	EX+1!
IOF	HD0+1, EX
ION	DVC
IOP	DVC!*
IOSL	TOT
IOST	HD0, EX
PAGE	HD0, HD0+2, HDC, EX+1!
PGM	EX+1!
PHY	PRV+1*, EX+1!
PHYX	EX+1!
POP	DVC!, EX+1!
PSDT	EX+1!
PSI	EX+1!
PSOION	DVC*!
QUIT	CDT!
RP	CTP+5*, HD0+2, HDC, HDC+1, HDC+2, HDC+3, HDC+4, HDC+5, EX+1!, EX+2!
RRM	CTP+1, HD+1, HDC*, EX+2!
STA	PTS+1*, EX+2!
STAX	EX+2!
T1	EX+2!, SUB, TOT, ZER
T2	EX+2!, SUB, TOT, ZER
T3	EX+2!, SUB, TOT, ZER
T4	EX+2!, SUB, TOT, ZER
TT	HDC+1*, HDC+7, HDC+9, EX+2!
TT0	HD0+1, HDC+7*, EX+2!
TT1	HD+1, HDC+8*, EX+2!
TT2	HD+1, HDC+9*, EX+2!
TTA	CMC, CMC+1, HDC+2*, HDC+3, HDN+1, HDN+2, EX+2!
TTB	CMC+2, HDC+3*, EX+2!
TTC	HDC+4*, HDN+1, EX+2!
TTX	PRT+1, EX+2!
UTL	EX+2!
VAL	EX+2!
VAR	EX+2!
X	CDT+5, EX+2!
>> X1	CDT+4*
>> X2	CDT+4*
Y	CDT, CDT+1, CDT+3, CDT+4, CDT+5, CDT+6, CTR+8, CMC+3, DRS+1, CTP* , CTP+5, PRV+1, PTS+1, HD0+1*, PRT, PRT+1, EX+2!, DVS+1
ZTDESC	EX+2!
>> ZTQUEUED	EX+2
>> ZTREQ	EX+2*
ZTRTN	EX+2!
>> ZTSAVE(	PAS*
ZTSK	DVC!, EX+2!

Customize PDF page

Package: Outpatient Pharmacy