Routine: PSORESK

Package	Total	Call Graph
Outpatient Pharmacy	9	REVERSE^PSOBPSU1 ICN^PSODPT EN^PSOHDR EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET LOCK^PSOORCPY ($$CHECK,ACT,CP,STAT)^PSORESK1 INVT^PSORXDL
VA Fileman	7	(C,NOW)^%DTC ^DIC ^DIE ^DIK $$GET1^DIQ EN^DIQ1 ^DIR
Controlled Substances	1	PSDRTS^PSDOPT0
IHS Changes To Pharmacy	1	CALLPOS^APSPFUNC
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK
Registration	1	$$SITE^VASITE
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

REVERSE^PSOBPSU1 ICN^PSODPT EN^PSOHDR EN^PSOHLSN1 EN^PSOHLUP ^PSOLSET LOCK^PSOORCPY ($$CHECK,ACT,CP,STAT)^PSORESK1
INVT^PSORXDL

VA Fileman

(C,NOW)^%DTC ^DIC ^DIE ^DIK $$GET1^DIQ EN^DIQ1 ^DIR

Controlled Substances

PSDRTS^PSDOPT0

IHS Changes To Pharmacy

CALLPOS^APSPFUNC

Pharmacy Data Management

($$L,PSOL,PSOUL,UL)^PSSLOCK

Registration

$$SITE^VASITE

Toolkit

$$GET^XPAR

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO RETURNED STOCK

Package

Total

Caller Graph

Outpatient Pharmacy

PSO RETURNED STOCK

External References

Name	Field # of Occurrence
C^%DTC	NPF+2, NPF+3, NPF+6
NOW^%DTC	BC1+45, BC1+46, PAR+25
CALLPOS^APSPFUNC	BC1+55, PAR+59
^DIC	RXLKUP+5
^DIE	BC1+45, BC1+46, BC1+54, PAR+37, PAR+44, PAR+51, PAR+58, NPF+7
^DIK	BC1+47, PAR+60
$$GET1^DIQ	BC1+48, PAR+52
EN^DIQ1	BC+3
^DIR	BC, BC1+13, BC1+22, BC1+35, REF+2, PAR+9, PAR+22
PSDRTS^PSDOPT0	BC1+26, PAR+10, PAR+12, PAR+13
REVERSE^PSOBPSU1	BC1+56, PAR+29
ICN^PSODPT	BC1+5
EN^PSOHDR	PAR+61
EN^PSOHLSN1	BC1+57, PAR+61
EN^PSOHLUP	BC1+8
^PSOLSET	AC
LOCK^PSOORCPY	BC1+6
$$CHECK^PSORESK1	BC1+45, PAR+51
ACT^PSORESK1	BC1+47, PAR+47
CP^PSORESK1	BC1+29, PAR+16
STAT^PSORESK1	BC1+9
INVT^PSORXDL	BC1+28, PAR+15
$$L^PSSLOCK	BC1+6
PSOL^PSSLOCK	BC1+7
PSOUL^PSSLOCK	UL+1
UL^PSSLOCK	BC1+7, UL+2
$$SITE^VASITE	BC+3
$$GET^XPAR	RXLKUP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Outpatient Pharmacy Site Parameters are required!" Line Location: AC+0
Function Call: WRITE	Prompt: !! Line Location: BC+0
Function Call: WRITE	Prompt: !,$C(7),$C(7)," INVALID STATION NUMBER !!",$C(7),$C(7),! Line Location: BC+2
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7)," NON-EXISTENT Rx" Line Location: BC+4
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7)," IMPROPER BARCODE FORMAT" Line Location: BC+5
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Rx # "_$P(^PSRX(RXP,0),"^")_" was NOT released !" Line Location: BC1+17
Function Call: WRITE	Prompt: ! Line Location: BC1+19
Function Call: WRITE	Prompt: !!?5,"Prescription Not Returned to Stock!",! Line Location: BC1+28
Function Call: WRITE	Prompt: !?5,"Comments are required, 10-75 characters.",! Line Location: BC1+35
Function Call: WRITE	Prompt: !,"Rx # "_$P(^PSRX(RXP,0),"^")_" Returned to Stock.",! Line Location: BC1+57
Function Call: WRITE	Prompt: $C(7),!!,"Last Fill Already Returned to Stock !",! Line Location: PAR+2
Function Call: WRITE	Prompt: !!,$C(7),$C(7),$S(XTYPE:"Refill",1:"PARTIAL")_" #"_TYPE_" was NOT released !",! Line Location: PAR+3
Function Call: WRITE	Prompt: ! Line Location: PAR+4
Function Call: WRITE	Prompt: ! Line Location: PAR+6
Function Call: WRITE	Prompt: !!?5,"Prescription Not Returned to Stock!",! Line Location: PAR+15
Function Call: WRITE	Prompt: !?5,"Comments are required, 10-75 characters.",! Line Location: PAR+22
Function Call: WRITE	Prompt: ! Line Location: PAR+37
Function Call: WRITE	Prompt: " - Not Returned!" Line Location: PAR+41
Function Call: WRITE	Prompt: !!,"Rx # "_$P(^PSRX(RXP,0),"^")_$S(XTYPE:" REFILL",1:" PARTIAL")_" #"_TYPE_" Returned to Stock" Line Location: PAR+60
Function Call: WRITE	Prompt: !!,"The PSDMGR key is required to return a CONTROLLED SUBSTANCE Rx to stock and",!,"update corresponding vault balances." Line Location: MSG+0
Routine Call	DIE Line Location: BC1+45 BC1+46 BC1+54 PAR+37 PAR+44 PAR+51 PAR+58 NPF+7
Routine Call	DIC Line Location: RXLKUP+5
Routine Call	DIR Line Location: BC BC1+13 BC1+22 BC1+35 REF+2 PAR+9 PAR+22

FileNo	Call Tags
^PSRX - [#52]	Classic Fileman Calls, GET1^DIQ
^PS(52.5 - [#52.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BC1+20, PAR+7
^PS(52.5 - [#52.5]	BC1+47, PAR+60
^PS(55 - [#55]	BC1+8
^PSDRUG - [#50]	BC1+20, BC1+28, BC1+38, BC1+40, PAR+7, PAR+15, PAR+25, PAR+27
^PSRX - [#52]	BC+4, BC+5, BC1+2, BC1+4, BC1+8, BC1+9, BC1+10, BC1+11, BC1+15, BC1+16 , BC1+17, BC1+18, BC1+19, BC1+20, BC1+26, BC1+29, BC1+44, BC1+50, BC1+57, REF , REF+3, PAR, PAR+2, PAR+3, PAR+5, PAR+6, PAR+7, PAR+12, PAR+13, PAR+16 , PAR+25, PAR+32, PAR+33, PAR+40, PAR+49, PAR+54, PAR+60, NPF, NPF+1, NPF+2 , NPF+5, NPF+6
^PSRX("AR"	BC1+18, BC1+41!, PAR+5, PAR+28!
^UTILITY($J	AC+1!

Label References

Name	Line Occurrences
$$RXLKUP	RXP+1
BC	BC+1, BC+2, BC+4, BC+5, BC1+2, BC1+6, BC1+7, BC1+9, BC1+11, BC1+15 , BC1+17, BC1+22, BC1+24, REF, PAR+1, PAR+2, PAR+3, PAR+9, PAR+14, PAR+15 , PAR+16, PAR+40, PAR+62
BC1	BC+1, BC+5
BCI	BC+1
EX	BC, BC1+24, PAR+1, PAR+2, PAR+14
MSG	BC1+26, PAR+12, PAR+13
NPF	PAR+47
PAR	BC1+14
REF	BC1+10
UL	BC1+9, BC1+11, BC1+16, BC1+17, BC1+22, BC1+24, REF, PAR+1, PAR+2, PAR+3 , PAR+9, PAR+14, PAR+15, PAR+16, PAR+44, PAR+62

Name	Field # of Occurrence
^("STA"	BC1+9
^(0	BC1+10, BC1+20, PAR+7, PAR+12, PAR+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	BC1+45, BC1+46, EX+1!
COM	BC1+36, PAR+24, EX+1!
COPAYFLG	BC1+10*, BC1+29, PAR+16, EX+1!
DA	BC+3!, BC1+45!, BC1+46!, BC1+47, BC1+53~, BC1+54, PAR+36, PAR+42, PAR+51!, PAR+57~ , PAR+58, PAR+60, EX+1!, NPF+7*
DA(1	PAR+36, PAR+42
DIC	BC+3, EX+2!, RXLKUP+1~, RXLKUP+5
DIC("S"	RXLKUP+3, RXLKUP+4
DIC(0	RXLKUP+5*
DIE	BC1+45!, BC1+46!, BC1+53~, BC1+54, PAR+36, PAR+42, PAR+51!, PAR+57~, PAR+58, EX+1! , NPF+7!
DIK	BC1+47, PAR+60, EX+2!
DIQ	BC+3*!
DIQ(0	BC+3*
DIR	BC!, BC1+13!, BC1+22!, BC1+32!, BC1+36!, REF+2!, PAR+4!, PAR+9!, PAR+19!, PAR+22! , EX+1!
DIR("?"	BC, BC1+13, BC1+33, REF+2, PAR+20*
DIR("A"	BC, BC1+12, BC1+19, BC1+20, BC1+21, BC1+33, REF+1, PAR+6, PAR+7, PAR+8 , PAR+20*
DIR("B"	BC1+12, BC1+19, BC1+34, REF+1, PAR+6, PAR+21
DIR(0	BC, BC1+12, BC1+22, BC1+33, REF+1, PAR+6, PAR+20*
DIRUT	BC, BC1+22, BC1+31, BC1+32!, BC1+35, PAR+18, PAR+19!, PAR+22, EX+1!
DR	BC+3!, BC1+45!, BC1+46!, BC1+53~, BC1+54, PAR+36, PAR+43, PAR+51!, PAR+57~, PAR+58 , EX+1!, NPF+7*
DT	BC1+48, PAR+52
DTOUT	BC1+11, BC1+32!, REF, PAR+4!, PAR+9, PAR+19!
DUOUT	BC1+11, BC1+32!, REF, PAR+4!, PAR+9, PAR+19!
I	EX+1!
ISDT	BC1+44, BC1+45, PAR+48~, PAR+49, PAR+50
PSDCS	EX+1!, MSG
PSDRS	EX+1!, MSG
PSDS	BC1+26!, PAR+12!, PAR+13!
PSOCPN	EX+1!
PSOCPRX	EX+1!
PSODEF	AC+1!, BC!, BC1+34, BC1+36, PAR+21, PAR+24
PSODEFLG	BC!, BC1+28!, PAR+15!, EX+1!
PSODISPP	PAR+61!*
PSOINVTX	BC!, BC1+28!, BC1+39, PAR+15!, PAR+26, EX+1!
PSOLOCRL	BC1+18, BC1+41, PAR+5!, PAR+28, EX+1!
PSOLOUD	BC1+8*!
PSOMSG	BC1+7!, EX+1!
>> PSOPAR	AC
PSOPCECT	AC+1, BC1+24, PAR+1, PAR+2, EX+1!
PSOPFS	BC1+29~, PAR+16~, EX+2!
PSOPLCK	BC1+6*!, BC1+7!, EX+1!
PSORESAR	BC+3!
PSORESAR(4	BC+3
PSORESST	BC+2!, BC+3!*
PSORESSX	BC+3*!
PSORRDFN	BC1+4*, BC1+5, BC1+6, BC1+7, EX+1!, UL+2
PSOWHERE	BC!, BC1+18, BC1+21, BC1+28, BC1+39, BC1+41, PAR+5!, PAR+8, PAR+15, PAR+26 , PAR+28, EX+1!
PSOY	NPF~, NPF+2*, NPF+3
QDRUG	BC1+10*, BC1+28, BC1+38, BC1+40, PAR+15, PAR+25, PAR+27, EX+1!
QTY	BC1+10, BC1+40, PAR+25, PAR+27, EX+1!
RDUZ	EX+1!
REC	EX+1!
RESK	AC+1, BC1+24, PAR+1, PAR+2, EX+1!
RETSK	BC1+27, PAR+14, EX+1!, MSG*
RXP	BC+1, BC+4, BC+5, BC1+2, BC1+4, BC1+7, BC1+8, BC1+9, BC1+10, BC1+11 , BC1+15, BC1+16, BC1+17, BC1+18, BC1+19, BC1+20, BC1+26, BC1+29, BC1+41, BC1+44 , BC1+45, BC1+46, BC1+47, BC1+48, BC1+50, BC1+54, BC1+55, BC1+56, BC1+57, REF , REF+3, PAR, PAR+2, PAR+3, PAR+5, PAR+6, PAR+7, PAR+12, PAR+13, PAR+16 , PAR+25, PAR+28, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+49, PAR+51 , PAR+52, PAR+54, PAR+58, PAR+59, PAR+60, PAR+61, EX+1!, BCI, RXP+1*, UL+1 , NPF, NPF+1, NPF+2, NPF+5, NPF+6, NPF+7
STATUS	BC1+49~, BC1+50, BC1+51, BC1+52, PAR+53~, PAR+54, PAR+55, PAR+56
>> SVRELDT	PAR+32, PAR+33, PAR+43
TYPE	PAR*, PAR+1, PAR+2, PAR+3, PAR+5, PAR+6, PAR+12, PAR+13, PAR+16, PAR+25 , PAR+28, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+59, PAR+60, EX+1! , NPF, NPF+1, NPF+2, NPF+4
U	BC1+2, BC1+50, PAR+54
X	BC+1, BC+2, BC+3, BC+4, BC1+32!, BC1+36!, PAR+19!, PAR+24!, EX+1!, RXP+1 , NPF+2, NPF+3, NPF+6*, NPF+7, RXLKUP~
X1	EX+1!, NPF+1, NPF+2, NPF+5*
X2	EX+1!, NPF+1, NPF+2, NPF+5*
XDT	EX+1!
XTYPE	BC!, BC1+14, REF+3, PAR*, PAR+2, PAR+3, PAR+5, PAR+6, PAR+12, PAR+16 , PAR+25, PAR+29, PAR+32, PAR+33, PAR+36, PAR+40, PAR+42, PAR+43, PAR+47, PAR+60 , PAR+61, EX+1!
Y	BC1+11*, BC1+14, BC1+22, BC1+32!, BC1+36!, BC1+46, REF+3, PAR+9, PAR+19!, PAR+24! , EX+1!, RXLKUP+1~, RXLKUP+6
YY	PAR*, EX+1!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORESK

Information

Source Information

Call Graph

Call Graph Total: 21

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
PAR
BCI
BC
NPF
AC
RXLKUP(X)	; EP
UL	;
EX	;
MSG
RXP	;S RXP=$O(^PSRX("B",X,RXP)) I $P($G(^PSRX(+RXP,"STA")),"^")=13 G RXP
REF
BC1	;