Routine: PSOPRKA

Package	Total	Call Graph
Outpatient Pharmacy	8	REF^PSOATRFC REVERSE^PSOBPSU1 $$RXSITE^PSOBPSUT ^PSOCMOPA EN^PSOHLSN1 LOCK^PSOORCPY (KILLPARK,RXACT)^PSOPRK ACT^PSORXL1
VA FileMan	4	C^%DTC FILE^DICN ^DIE ^DIK
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK

Package	Total	Caller Graph
Outpatient Pharmacy	9	PSOATRF PSOBBC PSOLLL7 PSON52 PSOPRK PSOREF0 PSORN52 PSORPC01 PSOTRLBL
Order Entry Results Reporting	1	ORWPS1

Name	Comments	DBIA/ICR reference
PARK(PSODA)	;park function ; Called from PSOPRK and edit for Outpatient and from PSORPC01 for Park from CPRS
HL7
RMP(PSODA)	;remove Rx if found in array PSORX("PSOL")
RMB(PSODA)	;remove Rx if found in array BBRX()
UNPARK(PSODA,PSODFN,ERRMSG,PSOARR)	; UNPARK FROM CPRS and refill option (including AudioCARE ; Process telephone refills option) ; Called from CPRS (PSORPC01 RPC) (Marks as unparked and queues fill to ; suspense if last fill is unreleased and label has not printed. If last fill ; is released, do auto refill.)
EN	;
EN0	;
EX
ULP	;
REFRX(REFCOM)	;
UPKSUSP	; Update routing and date fields for latest fill and put on suspense
GETRELDT(DA)	; get release date of last fill
CHKLBL(PSODA,RXF)	; see if label has printed for this fill
CHKPARK(DA,RESULT)	; Entry point for AudioCARE API to determine if parked original ; with no refills can be requested now (will queue original when refill request is received)
CHKPRKORIG(DA)	;

Name	Field # of Occurrence
C^%DTC	UPKSUSP+5
FILE^DICN	UPKSUSP+19
^DIE	PARK+13, PARK+18, PARK+19, UPKSUSP+10, UPKSUSP+11, UPKSUSP+13, UPKSUSP+14
^DIK	PARK+23
REF^PSOATRFC	REFRX+6
REVERSE^PSOBPSU1	HL7+3
$$RXSITE^PSOBPSUT	UPKSUSP+18
^PSOCMOPA	EN+7, CHKPARK+9, CHKPRKORIG+5
EN^PSOHLSN1	HL7, UPKSUSP+26
LOCK^PSOORCPY	UNPARK+7
KILLPARK^PSOPRK	EN+9
RXACT^PSOPRK	PARK+24, EN+17
ACT^PSORXL1	UPKSUSP+24
$$L^PSSLOCK	UNPARK+7
PSOL^PSSLOCK	UNPARK+8
PSOUL^PSSLOCK	EX
UL^PSSLOCK	ULP+1

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

Name	Line Occurrences (* Changed, ! Killed)
^PS(52.41 - [#52.41]	REFRX+1
^PS(52.5 - [#52.5]	PARK+23, UPKSUSP+19, UPKSUSP+20, UPKSUSP+21*
^PSRX - [#52]	PARK+3, PARK+4, PARK+5, PARK+6, PARK+7, PARK+9, PARK+10, PARK+11, PARK+12, PARK+14* , PARK+20, RMP+5, UNPARK+9, EN+2, EN+11, EN+12, EN+14, EN+18, EN+20, EN+21* , REFRX+2, REFRX+3, UPKSUSP+2, UPKSUSP+3, UPKSUSP+19, UPKSUSP+22*, UPKSUSP+25, GETRELDT+2, GETRELDT+4, CHKLBL+3 , CHKPARK+3, CHKPARK+4, CHKPARK+5, CHKPARK+6, CHKPARK+8, CHKPRKORIG+2
^PSRX("APARK"	PARK+14*

Name	Line Occurrences
$$CHKPRKORIG	PARK+13
CHKLBL	EN+5, CHKPARK+7, CHKPRKORIG+4
EN0	EN+23
GETRELDT	EN+4, CHKPARK+7, CHKPRKORIG+3
REFRX	EN+26
RMB	RMP+7
RMP	PARK+15
ULP	UNPARK+8, UNPARK+9, EN0+1
UPKSUSP	EN+15

Name	Field # of Occurrence
^(	EN+20, GETRELDT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	HL7+5!, EX+1!
%H	HL7+5!
%I	HL7+5!
ACT	PARK+4*, EX+1!
>> BBRX(	RMP+7, RMB+1, RMB+3*!
BINGRTE	PARK+16!
BPMW	PARK+2~, PARK+11, EN+19~, EN+20*, EN+21
C	EX+1!
COMM	PARK+25~, PARK+26, HL7, UPKSUSP+25, UPKSUSP+26
D0	EX+1!
DA	PARK+1, PARK+3, PARK+4, PARK+5, PARK+6, PARK+7, PARK+9, PARK+10, PARK+11, PARK+12 , PARK+13, PARK+14, PARK+15, PARK+18~, PARK+19~, PARK+20, PARK+21, PARK+23!, PARK+24, HL7 , HL7+3, UNPARK+6, UNPARK+8, UNPARK+9, EN+2, EN+4, EN+5, EN+9, EN+11, EN+12 , EN+14, EN+17, EN+18, EN+20, EN+21, EX+1!, UPKSUSP+11~, UPKSUSP+13~, UPKSUSP+14~, UPKSUSP+16 , UPKSUSP+19, GETRELDT~, GETRELDT+2, GETRELDT+3, GETRELDT+4, CHKPARK~, CHKPARK+3, CHKPARK+4, CHKPARK+5, CHKPARK+6 , CHKPARK+7, CHKPARK+8, CHKPRKORIG~, CHKPRKORIG+2, CHKPRKORIG+3, CHKPRKORIG+4
DA(1	PARK+19, UPKSUSP+11, UPKSUSP+14*
DD	UPKSUSP+19!, UPKSUSP+20!
DI	EX+1!
DIC	HL7+5!, EX+1!, UPKSUSP+19*
DIC("DR"	UPKSUSP+19*
DIC(0	UPKSUSP+19*
DIE	PARK+13, PARK+18~, PARK+19~, HL7+5!, EX+1!, UPKSUSP+10, UPKSUSP+11~, UPKSUSP+13~, UPKSUSP+14~*
DIK	PARK+23*!, EX+1!
DIR	UNPARK+10!, EX+1!
DIRUT	UNPARK+10!, EX+1!
DO	UPKSUSP+19!, UPKSUSP+20!
DQ	EX+1!
DR	PARK+13, PARK+18~, PARK+19~, HL7+5!, EX+1!, UPKSUSP+10, UPKSUSP+11~, UPKSUSP+13~, UPKSUSP+14~*
DT	PARK+26, EN+13, CHKPARK+8
DTOUT	UNPARK+10!
DUOUT	UNPARK+10!, EX+1!
ERRMSG	UNPARK~, EN+25!
ERRMSG(1	UNPARK+7, UNPARK+8, UNPARK+9, EN+27
FDA	HL7+5!
FILLDATE	UPKSUSP+1~, UPKSUSP+6*, UPKSUSP+10, UPKSUSP+11, UPKSUSP+17
FLD	EX+1!
HRX	EX+2!
I	PARK+4, PARK+5, PARK+6, HL7+5!, RMP+2~, RMP+3, RMP+7, RMB+1, RMB+3, EN+1~ , EN+2, EN+19~, EN+20, EX+1!, GETRELDT+1~, GETRELDT+2*
IR	EX+1!
J	RMP+2~, RMP+4, RMB+2, EN+19~, EN+20*
JJ	EX+2!
K	RMP+2~, RMP+4, RMP+5, RMP+7
LBL	CHKLBL+1~, CHKLBL+3*
LBLP	EN+3, EN+7, EN+10, EN+24, CHKLBL+2, CHKLBL+3, CHKPARK+2, CHKPARK+7, CHKPARK+10!, CHKPRKORIG+1~ , CHKPRKORIG+4
LFD	EX+1!, UPKSUSP+22*, UPKSUSP+23, UPKSUSP+25
NEW1	EX+1!
NEW11	EX+1!
NEXTPOSS	PARK+2~, PARK+10, PARK+12, PARK+13, UPKSUSP+1~, UPKSUSP+7, UPKSUSP+10, CHKPARK+8, CHKPARK+9, CHKPARK+10!
NOW	EX+1!
>> ORRFILL	EN+22, EN+23
>> PDFN	REFRX+3
PPL	EX+1!
PRKMW	PARK+2~, PARK+17, PARK+18, PARK+19, UPKSUSP+12, UPKSUSP+13, UPKSUSP+14
PSDA	PARK+1*, PARK+18, PARK+19, PARK+23, PARK+24, EX+1!
PSL	EX+1!
PSNP	EX+1!
PSOARR	UNPARK~
PSOARR("UPKSUSPCOMM"	UPKSUSP+23*
PSOCMOP	EN+10, EN+24, CHKPARK+9, CHKPARK+10!, CHKPRKORIG+1~, CHKPRKORIG+5
PSODA	PARK~, PARK+1, RMP~, RMP+1, RMP+3, RMP+5, RMP+7, RMB~, RMB+1, RMB+2 , UNPARK~, UNPARK+6, UPKSUSP+2, UPKSUSP+3, UPKSUSP+11, UPKSUSP+13, UPKSUSP+14, UPKSUSP+16, CHKLBL~, CHKLBL+3
PSODFN	UNPARK~, UNPARK+7, ULP+1
PSOERR	EN+26, EX+2!, REFRX+6
PSOERR(1	EN+27, REFRX+7
>> PSOEXREP	UPKSUSP+20
PSOFILNM	UNPARK+5~, UNPARK+6*, REFRX+6
PSOHRL	EX+1!
PSOLIST	EX+2!
PSOMSG	UNPARK+8!, EX+1!
PSONOOR	PARK+25~, PARK+27*, HL7
PSOOLDFILLDT	PARK+2~, PARK+9, UNPARK+5~, EN+14
PSOPLCK	UNPARK+7*!, UNPARK+8!, EX+1!
>> PSORX("FILL D	ATE" , EN+11, EN+12, EN+13*, UPKSUSP+5, UPKSUSP+6
>> PSORX("PSOL"	PARK+15, RMP+3, RMP+7*!
PSORX0	EX+2!
>> PSORXED("RX0"	PARK+11
PSORXFL	UNPARK+5~, UNPARK+6*, REFRX+1, REFRX+2, REFRX+3
PSOSITE	UPKSUSP+18~*, UPKSUSP+19
>> PSOTOPK	PARK+11
PSOUTIL	EX+3!
PSOX	UNPARK+5~, EX+3!, UPKSUSP+1~
PSOX("DAYS SU	PPLY" , UPKSUSP+4*, UPKSUSP+5
PSOX("MAIL/WINDOW"	UPKSUSP+9*
PSOX("QTY"	UPKSUSP+4*
PSOX("RX0"	UPKSUSP+2*, UPKSUSP+4
PSOX("RX2"	UPKSUSP+3*
PSOX1	UPKSUSP+5*, UPKSUSP+7, UPKSUSP+8!
PSOX2	RMP+2~, RMP+3, RMP+4, RMB+1, RMB+2
PSOX3	RMP+2~, RMP+4, RMP+5, RMP+6, RMB+2
PSOX9	RMP+2~, RMP+4, RMP+6, RMP+7, RMB+2*, RMB+3
PSOY	UNPARK+5~, EX+3!
PSPRK	EX+2!
PSRXN	EX+2!
PSUS	PARK+4, PARK+23, PARK+24, HL7+5!
QTY	EX+2!
REFCOM	REFRX~
REFCOM(1	REFRX+1, REFRX+2, REFRX+3, REFRX+7
RESULT	CHKPARK~, CHKPARK+2, CHKPARK+9
RFDATE	EX+1!
RFDT	EX+2!
RFN	PARK+4, PARK+5, PARK+6, PARK+7, EX+1!
RSDT	PARK+4, PARK+5, PARK+6, PARK+7, PARK+13, HL7+5!, EN+3, EN+5, EN+7, EN+10 , EN+24, EX+3!, GETRELDT+2, GETRELDT+4*, CHKPARK+7, CHKPARK+10!, CHKPRKORIG+1~, CHKPRKORIG+3
RTN	EX+1!
RX0	EX+1!
RXF	PARK+2~, PARK+4, PARK+5, PARK+6, PARK+7, PARK+9, PARK+11, PARK+12, PARK+13, PARK+18 , PARK+19, HL7+3, HL7+5!, EN+2, EN+5, EN+11, EN+12, EN+14, EN+18, EN+20 , EN+21, EX+2!, UPKSUSP+10, UPKSUSP+11, UPKSUSP+13, UPKSUSP+14, UPKSUSP+18, UPKSUSP+21, UPKSUSP+23, GETRELDT+1~ , GETRELDT+2, GETRELDT+4, CHKLBL~, CHKLBL+3
RXIEN	UNPARK+5~, EX, EX+3!, GETRELDT+3*
RXN	EX+1!, UPKSUSP+16*, UPKSUSP+18, UPKSUSP+19, UPKSUSP+22, UPKSUSP+25, UPKSUSP+26
RXP	EX+1!, UPKSUSP+19*, UPKSUSP+25
>> RXPR(	UPKSUSP+19
>> RXRP(	UPKSUSP+19, UPKSUSP+25
>> RXRS(	PARK+21!
RXS	EX+1!
SD	UPKSUSP+1~, UPKSUSP+17*, UPKSUSP+19, UPKSUSP+22
SITE	EX+3!
ST	EX+1!
STA	UNPARK+5~, UNPARK+9*, EX+2!
SUSPT	EX+1!
U	PARK+9, PARK+11
>> UNPARK	EN+22*
UNRFIL	EN+1~, EN+2, EN+16, EN+18, EN+22, EN+23
>> VALMBCK	UNPARK+7, UNPARK+8
>> VALMSG	PARK+20*
X	HL7+5!, EX+1!, UPKSUSP+5, UPKSUSP+8!, UPKSUSP+19*
>> X1	UPKSUSP+5*
>> X2	UPKSUSP+5*
XFLAG	EX+1!
Y	PARK+13, HL7+5!, EX+1!, UPKSUSP+19, UPKSUSP+20, UPKSUSP+21

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRKA

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 10

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: