Routine: PSOCSTM

Package	Total	Call Graph
Outpatient Pharmacy	2	$$MTHLCK^PSOCSTM EN^PSOHLUP
Kernel	1	^%ZTLOAD
VA Fileman	1	^%DT

Package	Total	Caller Graph
Outpatient Pharmacy	3	PSO COSTMONTH PSOCSTD PSOCSTM

Entry Points

External References

Name	Field # of Occurrence
^%DT	BEG, END
^%ZTLOAD	END+3
$$MTHLCK^PSOCSTM	START
EN^PSOHLUP	CHK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"** Date Range Selection **" Line Location: PSOCSTM+10
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !,$C(7),"??",!,"For example, September 1993 could be entered as 9/93 or SEP 93.",!,"For Year 2000 Compliance enter date as 9/2000 or SEP 2000." Line Location: QUES+0
Function Call: WRITE	Prompt: !,"checking for duplicate job..." Line Location: MTHLCK+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	CHK+2
^PS(53 - [#53]	CHK+7
^PS(55 - [#55]	CHK+2
^PS(59 - [#59]	INI, CHK+5
^PSCST - [#50.9]	START+3!, START+4!, SET, SET1, SET1+1, ZNODE+1, ZNODE+2, ZNODE+3, ZNODE+4, ZNODE+5*
^PSCST("B"	START+3!, START+4!, SRCH+1, SET*
^PSCST(0	SRCH+2*
^PSDRUG - [#50]	CHK+3, CHK+9
^PSOCSTM	END+4, Q+2, MTHLCK+8, MTHLCK+9
^PSRX - [#52]	CHK, CHK+1, CHK+11, CHK+12, CHK+13, CHK+19, CHK+20
^PSRX("AL"	SRCH1+3, SRCH1+4, SRCH1+5, CHK!, CHK+19!
^PSRX("AM"	SRCH1+8, SRCH1+9, SRCH1+10, CHK+11!
^SC - [#44]	CHK+8
^TMP($J	START+1!, Q!, VST, VST+1, VST+2!, SF*
^VA(200 - [#200]	CHK+6

Label References

Name	Line Occurrences
$$MTHLCK	PSOCSTM+9
BEG	BEG
CHK	SRCH1+4, SRCH1+9
END	END
INI	SRCH1
Q	BEG, END
QUES	BEG, END
SET	CHK+15, CHK+17, CHK+23
SET1	SRCH
SF	CHK+15, CHK+17, CHK+23
SRCH1	SRCH
VST	SRCH1+5, SRCH1+10
ZNODE	SRCH+2

Naked Globals

Name	Field # of Occurrence
^(0	SF+1, SF+4
^(660	CHK+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEG, END!, Q!
%DT("A"	BEG, END
%DT(0	END*
A	Q!
A(	START+1*, SF+1, SF+2
A1	Q+1!
A1(	START+1, SF+3
AST	MTHLCK+11~*, MTHLCK+13, MTHLCK+16
B	Q!
B(	START+1*, SF+1, SF+3
B1	Q+1!
B1(	START+1*, SF+3
BDT	PSOCSTM+10!, BEG+1*, END, END+3!, START+3, START+4, SRCH, Q!, ZNODE+1
>> BEGDATE	ZNODE+1
C	Q+1!
C(	START+2*, SF+4, SF+5
C1	Q+1!
C1(	START+2, SF+6
CDT	Q+1!, SRCH1+4, SRCH1+5, SRCH1+9, SRCH1+10
CLINIC	Q+1!, CHK+8*!, SF+1
COST	Q!, CHK+9, CHK+15, CHK+17, CHK+21, SF
D	Q+1!
D(	START+2*, SF+4, SF+6
D1	Q+1!
D1(	START+2*, SF+6
DATA	Q!, SF*, SF+2, SF+5
DATA1	Q!, SF+1, SF+2, SF+4, SF+5
DATA2	Q!, SF+1, SF+2, SF+4, SF+5
DFN	Q!, VST+1, CHK+2, SF
DIV	Q+1!, CHK+5, CHK+13, CHK+22*, SF
DRG	Q!, CHK+3*, CHK+9
DT	PSOCSTM+10, SET1
DV	Q+1!, INI, VST, VST+1, SET1+1*
EDT	PSOCSTM+10!, END+1*, END+3!, START+3, START+4, SRCH, Q!, ZNODE+1
G	END+2*, END+3!
GET	MTHLCK~, MTHLCK+9, MTHLCK+10
GOTLOCK	MTHLCK+7~, MTHLCK+8*, MTHLCK+9, MTHLCK+10
I	START+1, START+2, Q!, SF+1, SF+2, SF+3, SF+4, SF+5, SF+6
II	Q!, SF+2, SF+5
LATE	PSOCSTM+10*, BEG, END, Q!
ML	Q!, CHK+15, CHK+17, CHK+21*, SF
ND	ZNODE+1*, ZNODE+2, ZNODE+3, ZNODE+4, ZNODE+5, ZNODE+6!
NDT	Q+1!, SRCH1+5, SRCH1+10
NDZ	ZNODE+1, ZNODE+2, ZNODE+5*, ZNODE+6!
NDZ1	ZNODE+3, ZNODE+4, ZNODE+6!
NDZ2	ZNODE+2*, ZNODE+3, ZNODE+4, ZNODE+6!
NODE	ZNODE+6!
NODE(	ZNODE+1, ZNODE+2, ZNODE+3*, ZNODE+4, ZNODE+5
OR	Q!, CHK+15, CHK+17, CHK+21*, SF
PAR	SRCH1+9*, SRCH1+10!, CHK+10
PAST	Q!, CHK+7*
PGM	Q+1!
PHYS	Q!, CHK+6, CHK+14, CHK+22*
>> PR	CHK+10*
PSD	START+2, SRCH+1, SRCH+2, Q!, SF+4
PSDT	START+3, START+4, SRCH, SRCH+1, Q!, SRCH1+2, SRCH1+3, SRCH1+7, SRCH1+8, CHK , CHK+11, CHK+19, SET, SET1, SET1+1, ZNODE+1*, ZNODE+2, ZNODE+3, ZNODE+4, ZNODE+5
PSDT1	Q!, SRCH1+2, SRCH1+3, SRCH1+4, SRCH1+5, SRCH1+7, SRCH1+8, SRCH1+9, SRCH1+10
PSDTX	SRCH*, Q!, SRCH1+3, SRCH1+8
PSG	START+1*, Q!, SF+1
PSOCNT	SRCH+1*, SRCH+2, Q!
QTY	Q!, CHK+15, CHK+17, CHK+21*, SF
RF	Q!, CHK+15, CHK+17, CHK+21*, SF
RX0	Q!, CHK+1*, CHK+2, CHK+3, CHK+6, CHK+7, CHK+8, CHK+9, CHK+14, CHK+17 , CHK+22
RX1	Q+1!, CHK+13, CHK+14, CHK+15, CHK+20, CHK+21, CHK+22
RX2	Q+1!, CHK+1*, CHK+5, CHK+13, CHK+16, CHK+22
RXF	Q!, SRCH1+4, SRCH1+9, CHK, CHK+11, CHK+12, CHK+13, CHK+16, CHK+18, CHK+19 , CHK+20
RXN	Q+1!, SRCH1+4, SRCH1+9, CHK, CHK+1, CHK+11, CHK+12, CHK+13, CHK+19, CHK+20
STOP	START+4*, START+5!
VAL	Q+1!
VALUE	Q+1!, SF+2, SF+5
VAR	Q+1!
VIS	Q+1!, INI!
VIS(	INI, VST+1, SET1+1
VISITS	Q+1!, INI, VST+1, SET1
WD	Q+1!, CHK+15, CHK+17, CHK+21*, SF
X	START+1, START+2, Q+1!
X1	Q+1!
X2	Q+1!
Y	BEG, BEG+1, END, END+1, Q+1!
ZTDESC	END+2*, END+3!
ZTIO	END+2*, END+3!
>> ZTQUEUED	Q+1, MTHLCK+6, MTHLCK+12
>> ZTREQ	Q+1*
ZTRTN	END+2*, END+3!
ZTSAVE	END+3!
ZTSAVE(	END+2*
>> ZTSK	END+3

Marked Items

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCSTM

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
MTHLCK(GET)	;lock for month end run or query if month end is running ; INPUT: GET = 1 try to get lock and keep locked ; 0 query if locked only, leave as unlocked ; RETURNS: 1 - already locked ; 0 - was not already locked
SET
END
D	;;
G	;;
SRCH
CHK
BEG
Q
START
QUES
INI
VST
ZNODE	;update zero nodes
SF
SRCH1
SET1

Name	Field # of Occurrence
$T(D+I	START+2
$T(G+I	START+1