Routine: PSOPRKA

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

Package	Total	Caller Graph
Outpatient Pharmacy	11	PSOATRF PSOBBC PSOLLL7 PSON52 PSOPRK PSOREF PSOREF0 PSORN52 PSORPC01 PSOTRLBL PSOVCCA
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.)	ICR #7428 Status: Active Usage: Private
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/refill ; with no refills can be requested now (will queue original/refill when refill request is received)
CHKPRKORIG(DA)	;

Name	Field # of Occurrence
C^%DTC	UPKSUSP+5
NOW^%DTC	UPKSUSP+32
FILE^DICN	UPKSUSP+22
^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+19
^PSOCMOPA	EN+7, CHKPARK+11, CHKPARK+16, CHKPRKORIG+5
EN^PSOHLSN1	HL7, UPKSUSP+35
LOCK^PSOORCPY	UNPARK+7
KILLPARK^PSOPRK	EN+9
RXACT^PSOPRK	PARK+24, EN+17
$$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+22, UPKSUSP+23, UPKSUSP+24*
^PSDRUG - [#50]	UPKSUSP+20
^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+15, UPKSUSP+22, UPKSUSP+25, UPKSUSP+28, UPKSUSP+29, UPKSUSP+30* , UPKSUSP+32*, UPKSUSP+34, GETRELDT+2, GETRELDT+4, CHKLBL+3, CHKPARK+4, CHKPARK+5, CHKPARK+6, CHKPARK+7, CHKPARK+8 , CHKPARK+10, CHKPARK+12, CHKPARK+13, CHKPARK+15, CHKPRKORIG+2
^PSRX("APARK"	PARK+14*

Name	Line Occurrences
$$CHKPRKORIG	PARK+13
CHKLBL	EN+5, CHKPARK+9, CHKPARK+14, CHKPRKORIG+4
EN0	EN+24
GETRELDT	EN+4, CHKPARK+9, CHKPARK+14, CHKPRKORIG+3
REFRX	EN+27
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!, UPKSUSP+32!
%H	HL7+5!, UPKSUSP+32!
%I	HL7+5!, UPKSUSP+32!
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+34, UPKSUSP+35
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+17 , UPKSUSP+21, UPKSUSP+22, UPKSUSP+28, UPKSUSP+29, UPKSUSP+30, UPKSUSP+32, GETRELDT~, GETRELDT+2, GETRELDT+3, GETRELDT+4 , CHKPARK~, CHKPARK+4, CHKPARK+5, CHKPARK+6, CHKPARK+7, CHKPARK+8, CHKPARK+9, CHKPARK+10, CHKPARK+12, CHKPARK+13 , CHKPARK+14, CHKPARK+15, CHKPRKORIG~, CHKPRKORIG+2, CHKPRKORIG+3, CHKPRKORIG+4
DA(1	PARK+19, UPKSUSP+11, UPKSUSP+14*
DD	UPKSUSP+22!, UPKSUSP+23!
DI	EX+1!
DIC	HL7+5!, EX+1!, UPKSUSP+21*, UPKSUSP+32!
DIC("DR"	UPKSUSP+22*
DIC(0	UPKSUSP+21*
DIE	PARK+13, PARK+18~, PARK+19~, HL7+5!, EX+1!, UPKSUSP+10, UPKSUSP+11~, UPKSUSP+13~, UPKSUSP+14~*, UPKSUSP+32!
DIK	PARK+23*!, EX+1!
DIR	UNPARK+10!, EX+1!
DIRUT	UNPARK+10!, EX+1!
DO	UPKSUSP+22!, UPKSUSP+23!
DQ	EX+1!
DR	PARK+13, PARK+18~, PARK+19~, HL7+5!, EX+1!, UPKSUSP+10, UPKSUSP+11~, UPKSUSP+13~, UPKSUSP+14~*, UPKSUSP+32!
DRADD	UPKSUSP+20~*, UPKSUSP+22, UPKSUSP+31
DT	PARK+26, EN+13, CHKPARK+10, CHKPARK+15
DTOUT	UNPARK+10!
DUOUT	UNPARK+10!, EX+1!
DUZ	UPKSUSP+32
ERRMSG	UNPARK~, EN+26!
ERRMSG(1	UNPARK+7, UNPARK+8, UNPARK+9, EN+28
FDA	HL7+5!, UPKSUSP+29*, UPKSUSP+32!
FILLDATE	UPKSUSP+1~, UPKSUSP+6*, UPKSUSP+10, UPKSUSP+11, UPKSUSP+15, UPKSUSP+18
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!, UPKSUSP+28, UPKSUSP+32!, GETRELDT+1~, GETRELDT+2
IR	EX+1!, UPKSUSP+29, UPKSUSP+30, UPKSUSP+32
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+25, CHKLBL+2, CHKLBL+3, CHKPARK+3, CHKPARK+9, CHKPARK+14, CHKPARK+17! , CHKPRKORIG+1~, CHKPRKORIG+4
LFD	EX+1!, UPKSUSP+25*, UPKSUSP+26, UPKSUSP+32, UPKSUSP+34
NEW1	EX+1!
NEW11	EX+1!
NEXTPOSS	PARK+2~, PARK+10, PARK+12, PARK+13, UPKSUSP+1~, UPKSUSP+7, UPKSUSP+10, CHKPARK+10, CHKPARK+11, CHKPARK+15* , CHKPARK+16, CHKPARK+17!
NOW	EX+1!
>> ORRFILL	EN+22, EN+23, EN+24
>> PDFN	REFRX+3
PPL	EX+1!
PRKMW	PARK+2~, PARK+17, PARK+18, PARK+19, UPKSUSP+12, UPKSUSP+13, UPKSUSP+14, UPKSUSP+31
PSDA	PARK+1*, PARK+18, PARK+19, PARK+23, PARK+24, EX+1!
PSL	EX+1!
PSNP	EX+1!
PSOARR	UNPARK~
PSOARR("UPKSUSPCOMM"	UPKSUSP+26*
PSOCMOP	EN+10, EN+25, CHKPARK+11, CHKPARK+16, CHKPARK+17!, 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+15, UPKSUSP+17, CHKLBL~ , CHKLBL+3
PSODFN	UNPARK~, UNPARK+7, ULP+1
PSOERR	EN+27, EX+2!, REFRX+6
PSOERR(1	EN+28, REFRX+7
>> PSOEXREP	UPKSUSP+23
PSOFILNM	UNPARK+5~, UNPARK+6*, REFRX+6
PSOHRL	EX+1!
>> PSOKPK	EN+17*
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!
PSOPRKRF	CHKPARK+2~, CHKPARK+7*, CHKPARK+8, CHKPARK+12
>> 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
PSORXF	CHKPARK+2~, CHKPARK+13*, CHKPARK+14
PSORXFL	UNPARK+5~, UNPARK+6*, REFRX+1, REFRX+2, REFRX+3
PSOSITE	UPKSUSP+19~*, UPKSUSP+22
>> 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, UPKSUSP+20
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+3, CHKPARK+11, CHKPARK+16*
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+25, EX+3!, GETRELDT+2, GETRELDT+4*, CHKPARK+9, CHKPARK+14, CHKPARK+17!, 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+19, UPKSUSP+20, UPKSUSP+24, UPKSUSP+26 , UPKSUSP+28, UPKSUSP+32!, GETRELDT+1~, GETRELDT+2*, GETRELDT+4, CHKLBL~, CHKLBL+3
RXIEN	UNPARK+5~, EX, EX+3!, GETRELDT+3*
RXN	EX+1!, UPKSUSP+17*, UPKSUSP+19, UPKSUSP+21, UPKSUSP+22, UPKSUSP+25, UPKSUSP+34, UPKSUSP+35
RXP	EX+1!, UPKSUSP+21*, UPKSUSP+22, UPKSUSP+32, UPKSUSP+34
>> RXPR(	UPKSUSP+21
>> RXRP(	UPKSUSP+22, UPKSUSP+32, UPKSUSP+34
>> RXRS(	PARK+21!
RXS	EX+1!
SD	UPKSUSP+1~, UPKSUSP+18*, UPKSUSP+22, UPKSUSP+25
SITE	EX+3!
ST	EX+1!
STA	UNPARK+5~, UNPARK+9*, EX+2!
SUSPCOM	UPKSUSP+31~*, UPKSUSP+32
SUSPT	EX+1!
U	PARK+9, PARK+11
>> UNPARK	EN+22, EN+23
UNRFIL	EN+1~, EN+2, EN+16, EN+18, EN+22, EN+23, EN+24
>> VALMBCK	UNPARK+7, UNPARK+8
>> VALMSG	PARK+20*
X	HL7+5!, EX+1!, UPKSUSP+5, UPKSUSP+8!, UPKSUSP+21*, UPKSUSP+32!
>> X1	UPKSUSP+5*
>> X2	UPKSUSP+5*
XFLAG	EX+1!
Y	PARK+13, HL7+5!, EX+1!, UPKSUSP+22, UPKSUSP+23, UPKSUSP+24, UPKSUSP+32!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRKA

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 12

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: