Routine: PSOPRK

Information

PSOPRK ;BIR/EJW - park/unpark functionality ; May 17, 2023@18:30:42

Package	Total	Call Graph
Outpatient Pharmacy	16	($$LSTRFL,ECMESND)^PSOBPSU1 $$SUBMIT^PSOBPSUT ^PSOBUILD (,EN,UNPARK)^PSOCMOPA EN^PSOHLSN1 ^PSOLSET LOCK^PSOORCPY (CHKLBL,GETRELDT,PARK,RMP)^PSOPRKA ^PSOREF0 $$PSOET^PSOREJP3 $$HDLG^PSOREJU1 $$FIND^PSOREJUT GETPARK^PSORPC01 S^PSORXL $$MAXNUMRF^PSOUTIL $$TITRX^PSOUTL
VA FileMan	4	^DIC FILE^DICN ^DIE ^DIR
Kernel	1	$$NOW^XLFDT
List Manager	1	(FULL,PAUSE)^VALM1
Pharmacy Data Management	1	($$L,PSOL,PSOUL,UL)^PSSLOCK

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: 13

Package	Total	Caller Graph
Outpatient Pharmacy	12	PSO PARK PSO UNPARK PSOHLD PSOHLDA PSOORED2 PSOORED3 PSOORED6 PSOOREDT PSOPRKA PSOREF0 PSORRPA1 PSORXL1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
UNPARK	;
EN
UMSG
EX	;
PARK(DA)
AR	;
D1
PRK(DA)	; - Rx Park update ; Recheck DEA code in case called from somewhere else
ULP	;
KILLPARK(RX)	; KILL PARK level and APARK xref
RXACT(RX,ACTION,REASON,OTHCOM,SUS)	; Adds PARK/UNPARK info to the Rx Activity Log
MW	; WHEN UNPARKING, DON'T PROMPT FOR PARK
MWX
MWP(PSODA,PREVMWP,REFILL)	; UNHOLD;EDIT ROUTE - CHECK TO SEE IF SHOULD ALSO PROMPT FOR PARK
REFCK	;

External References

Name	Field # of Occurrence
^DIC	UMSG+14
FILE^DICN	RXACT+7, RXACT+18
^DIE	EN+10, EN+15, EN+28
^DIR	MW+6, MWP+17
$$LSTRFL^PSOBPSU1	RXACT+2
ECMESND^PSOBPSU1	UMSG+30
$$SUBMIT^PSOBPSUT	UMSG+27
^PSOBUILD	EX+6, AR+3
^PSOCMOPA	REFCK+5
EN^PSOCMOPA	PARK+22
UNPARK^PSOCMOPA	UMSG+7
EN^PSOHLSN1	UNPARK+15, UMSG+3, PARK+17
^PSOLSET	UNPARK+4
LOCK^PSOORCPY	UNPARK+7, PARK+12
CHKLBL^PSOPRKA	REFCK+4
GETRELDT^PSOPRKA	REFCK+3
PARK^PSOPRKA	PRK+5
RMP^PSOPRKA	AR+1, AR+2
^PSOREF0	UMSG+17
$$PSOET^PSOREJP3	UMSG+32
$$HDLG^PSOREJU1	UMSG+34
$$FIND^PSOREJUT	UMSG+33
GETPARK^PSORPC01	PARK+4, MWP+8
S^PSORXL	UMSG+19
$$MAXNUMRF^PSOUTIL	UMSG+15
$$TITRX^PSOUTL	UMSG+10
$$L^PSSLOCK	UNPARK+7, PARK+12
PSOL^PSSLOCK	UNPARK+8, PARK+13
PSOUL^PSSLOCK	UNPARK+11, EX+6, D1
UL^PSSLOCK	ULP+1
FULL^VALM1	UNPARK+12, PARK+21
PAUSE^VALM1	EX+2
$$NOW^XLFDT	RXACT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: UNPARK+5
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: UNPARK+6
Function Call: WRITE	Prompt: from Line Location: EN+37
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PARK+6
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PARK+7
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PARK+8
Function Call: WRITE	Prompt: $C(7),$C(7) Line Location: PARK+9
Routine Call	DIC Line Location: UMSG+14
Routine Call	DIE Line Location: EN+10 EN+15 EN+28
Routine Call	DIR Line Location: MW+6 MWP+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+8, EN+13
^DD(52	RXACT+10, RXACT+14
^DD(52.1	RXACT+15
^PS(52.41 - [#52.41]	UMSG+11
^PSDRUG - [#50]	PARK+2, PARK+9, PRK+3, MWP+10, MWP+11
^PSRX - [#52]	UNPARK+9, UNPARK+10, UNPARK+13, UNPARK+14, EN, EN+1, EN+5, EN+16, EN+20, EN+22 , EN+25, EN+39, EN+40, EN+42, EN+47, EN+48, EN+49, EN+50, UMSG, UMSG+4 , UMSG+6, UMSG+23, PARK+2, PARK+9, PARK+11, PARK+14, PARK+15, PARK+16*, PARK+17, PRK+3 , KILLPARK+1!, RXACT+11, MWP+10, MWP+11
^PSRX("APARK"	KILLPARK+1!
^XUSEC("PSO TECH ADV"	UNPARK+11, PARK+10
^XUSEC("PSORPH"	UNPARK+11, PARK+10

Label References

Name	Line Occurrences
D1	PARK+14, PARK+19, PARK+22
EX	UNPARK+4, UNPARK+13, EN+3, EN+28, EN+30, UMSG+7, UMSG+9, UMSG+19, UMSG+27, UMSG+36
KILLPARK	UNPARK+15, EN+29, EN+31, UMSG+4
MW	EN+30
PRK	AR+2
REFCK	EN+45
RXACT	UMSG+1
ULP	UNPARK+8, UNPARK+11, UNPARK+13, EN+3, EN+28, EN+30, UMSG+7, UMSG+9, UMSG+19, UMSG+27 , UMSG+36, UMSG+41, PARK+13, PARK+14, PARK+19, PARK+22, AR+4
UMSG	EN+29

Naked Globals

Name	Field # of Occurrence
^(	EN
^("STA"	UNPARK+9, PARK+14
^(2	UNPARK+14, PARK+15, PARK+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EX+7!
ACT	EN+20*, EX+7!, D1!
ACTION	UMSG+26~, UMSG+27, UMSG+29, UMSG+32, UMSG+34*, RXACT~, RXACT+3, RXACT+4, RXACT+10
>> BPMW	RXACT+3, RXACT+10
C	EX+7!
>> CLOZPAT	UMSG+15
COMM	UNPARK+14, UNPARK+15!, UMSG+2~, UMSG+3!, PARK+17!, RXACT+1~, RXACT+3, RXACT+4, RXACT+5, RXACT+6 , RXACT+10, RXACT+16, RXACT+17
D0	EX+7!
DA	UNPARK+8, UNPARK+9, UNPARK+10, UNPARK+11, UNPARK+13, UNPARK+14, UNPARK+15, EN, EN+1, EN+2 , EN+4~, EN+5, EN+16, EN+17, EN+22, EN+25, EN+29, EN+31, EN+39, EN+40 , EN+42, EN+47, EN+48, EN+49, EN+50, UMSG, UMSG+1, UMSG+4, UMSG+6, UMSG+29~ , UMSG+38, EX+7!, PARK~, PARK+2, PARK+9, PARK+11, PARK+13, PARK+14, PARK+15, PARK+16 , PARK+17, AR+1, AR+2*, D1!, PRK~, PRK+3, PRK+5, RXACT+1~, REFCK+3, REFCK+4
DA(1	EN+4, EN+5, EN+16, EN+17!, RXACT+5
DD	RXACT+1~
DI	EX+7!
DIC	UMSG+12~, UMSG+14, UMSG+16!, EX+7!, RXACT+1~, RXACT+5, MWP+12!
DIC("DR"	RXACT+6, RXACT+17
DIC(0	UMSG+14, RXACT+5
DIE	EN+4~, EN+20, EX+7!
DIK	EX+7!
DINUM	RXACT+1~
DIR	UNPARK+12!, EX+7!, D1!, MW+2!, MWX!, MWP+12!
DIR("A"	MW+4, MWP+14, MWP+15*
DIR("B"	MW+5, MWP+16
DIR(0	MW+4, MWP+14, MWP+15*
DIROUT	D1!
DIRUT	UNPARK+12!, EX+7!, D1!, MW+7, MWP+18
DLAYGO	RXACT+1~, RXACT+5*
DO	RXACT+1~
DQ	EX+7!
DR	EN+9, EN+14, EN+22, EN+23, EN+25, EN+26, EX+4!, EX+5!, EX+7!, RXACT+1~
DT	UNPARK+13, EN+7, EN+8, EN+12, EN+20, EN+21, UMSG+19, PARK+14, RXACT+3, RXACT+4
DTOUT	UNPARK+12!, D1!
DUOUT	UNPARK+12!, EX+7!, D1!
DUZ	UNPARK+11, PARK+10, RXACT+6, RXACT+17
FDT	EN+20, EN+21, EN+28!
FLD	EX+7!, D1!
HRX	EX+8!
I	EN*, EX+7!
IR	EX+7!
JJ	UMSG+6, UMSG+12~, UMSG+15, UMSG+16!, EX+8!
LBLP	REFCK+1~, REFCK+2*, REFCK+5, REFCK+6
LFD	EX+7!
NEW1	UMSG+5*, EX+7!
NEW11	UMSG+5*, EX+7!
NOW	EX+7!
>> ORN	EX+6, D1
OTHCOM	RXACT~, RXACT+5*, RXACT+6
PARK	MWP+1~, MWP+5, MWP+9, MWP+10, MWP+11, MWP+15
>> PCOMH(	UMSG+20*
PI	AR+2*, AR+3!
PPL	EX+7!, AR+2
PREVMWP	MWP~, MWP+3*, MWP+4, MWP+20, MWP+21
PREVMWP1	MWP+1~, MWP+4*, MWP+16
PRKMW	EN+30~, EN+46, EN+47, EN+49, UMSG+17, MW+3, MW+8, MWP+13, MWP+19, MWP+20 , MWP+21
PRKMWA	EN+35~, EN+42, EN+43, EN+46, EN+48, EN+50, EN+51!
PRKMWQ	EN+35~, EN+39, EN+41, EN+47, EN+48, EN+49, EN+50, EN+51!
PSDA	EN+17, EX+7!, AR+2!
PSL	EX+7!
PSNP	EX+7!
PSOACT	EN+35~, EN+39, EN+40, EN+42, EN+51!
>> PSOBEDT	UNPARK+5, PARK+6
>> PSOCMOP	REFCK+6
PSODA	MWP~, MWP+10, MWP+11
>> PSODFN	UNPARK+7, PARK+12, ULP+1
PSODRUG	PARK+1~, PRK+2~, MWP+1~
PSODRUG("DEA"	PARK+2, PARK+8, PRK+3, PRK+4, MWP+11*
PSODRUG("IEN"	UMSG+15
PSOFILLDT	RXACT+1~, RXACT+11*, RXACT+12
PSOFLDNM	RXACT+1~, RXACT+14, RXACT+15, RXACT+16
PSOFROM	PARK+22*!
PSOFRPK	EN+29, EX+5, RXACT+9, MW+1, MWP+2!, MWP+21*
PSOHRL	EX+7!
PSOLIST	EX+8!
>> PSOLST(	EX+6, D1
PSOMSG	UNPARK+8!, EX+7!, PARK+13!, D1!
>> PSONACT	UNPARK+6, PARK+7
PSONOOR	UMSG+2~*, UMSG+3
PSOOLDFILLDT	UNPARK+1~, EN+1*, RXACT+12, RXACT+13
>> PSOPAR	UNPARK+4, UMSG+19
PSOPARKX	PARK+3~, MWP+7~
PSOPARKX(0	PARK+5, MWP+9
PSOPLCK	UNPARK+7!, UNPARK+8!, EX+7!, PARK+12!, PARK+13!, D1!
PSOREF	UMSG+17~
PSOREF("IRXN"	UMSG+17*
PSOREF("MAIL/WINDOW"	UMSG+17*
>> PSOREJCT	UNPARK+5
>> PSORX("FILL D	ATE" , EN+17, UMSG+4, UMSG+19, EX+8!
>> PSORX("PATIEN	T STATUS" , UMSG+13
>> PSORX("PSOL"	UMSG+36, UMSG+37, UMSG+38, UMSG+39*, AR+1, AR+2
PSORX0	EX+8!
PSOTOPK	EX+4, RXACT+9, MWP+2!, MWP+20*
PSOUNPRK	EN+4*, EN+17!
>> PSOX1	UMSG+37*
>> PSOX2	UMSG+37*, UMSG+38, UMSG+39
PSPRK	EX+8!
PSRXN	EX+8!
>> PSXSYS	UMSG+7
QTY	EX+8!
REASON	RXACT~
REFCK	UNPARK+1~, UNPARK+3, EN+46, UMSG+9, REFCK+6
REFILL	MWP~
RESULTS	PARK+3~, PARK+4, MWP+7~, MWP+8
RFDATE	EX+7!
RFDT	EX+8!
RFL	UMSG+28~, UMSG+30, UMSG+32, UMSG+33, UMSG+34, RXACT+1~, RXACT+2, RXACT+6, RXACT+11, RXACT+15 , RXACT+17
RFN	EX+7!, D1!
>> RLDT	EN+5, EN+6, EN+22, EN+23, EN+25
>> RLDTP1	EN+22*
RSDT	EN, EN+7, EN+12, EN+13, D1!, REFCK+1~, REFCK+2, REFCK+4, REFCK+5, REFCK+6
RTN	EX+7!
RX	UMSG+28~*, UMSG+30, UMSG+32, UMSG+33, UMSG+34, KILLPARK~, KILLPARK+1, RXACT~, RXACT+2, RXACT+5 , RXACT+11
RX0	UMSG+13, UMSG+15, EX+7!
RXF	EN, EN+1, EN+3, EN+4, EN+23, EN+47, EN+48, EN+49, EN+50, UMSG+4 , UMSG+6, EX+8!, REFCK+4
>> RXFL(	UMSG+6*, UMSG+27, UMSG+28
RXIEN	UNPARK+1~, EN+2*, EN+4, EN+16, EN+17, EN+20, UMSG+3, UMSG+4, UMSG+6, UMSG+9 , UMSG+10, UMSG+11, UMSG+17, UMSG+20, UMSG+21, UMSG+23, UMSG+27, UMSG+28, UMSG+36, UMSG+38 , UMSG+39
RXN	EX+7!
RXP	EX+7!
>> RXRH(	UMSG+21*
>> RXRP(	UMSG+23*
RXS	EX+7!
ST	EX+7!, PARK+18*, PARK+20!
STA	UNPARK+9, UNPARK+10, UNPARK+11!, EX+8!, PARK+14, PARK+18, PARK+19
SUS	RXACT~, RXACT+3
SUSPT	EX+7!
TD	EN+8~, EN+13~
U	EN+1, RXACT+11, RXACT+14, RXACT+15, MW+7, MWP+18
>> VALMBCK	UNPARK+5, UNPARK+6, UNPARK+7, UNPARK+8, UNPARK+10, UNPARK+11, EN+28, EN+30, PARK+5, PARK+6 , PARK+7, PARK+8, PARK+9, PARK+10, PARK+11, PARK+12, PARK+13, PARK+15, PARK+20*
>> VALMSG	UNPARK+5, UNPARK+6, UNPARK+7, UNPARK+8, UNPARK+10, UNPARK+11, UNPARK+14, UMSG, UMSG+10, UMSG+11 , UMSG+15, PARK+5, PARK+6, PARK+7, PARK+8, PARK+9, PARK+10, PARK+11, PARK+12, PARK+13 , PARK+15, PARK+20
X	UMSG+12~, UMSG+13, UMSG+16!, EX+7!, D1!, RXACT+1~, RXACT+7, MW+7, MWX!, MWP+18 , MWP+22!
XFLAG	UMSG+7, EX+7!, PARK+22!
Y	UNPARK+11!, EN+3!, EN+8~, EN+11, EN+13~, EN+17, EN+28, UMSG+12~, UMSG+15, UMSG+16! , EX+7!, PARK+20!, D1!, RXACT+1~, MW+7!, MW+8, MWX!, MWP+18!, MWP+19, MWP+22!
Y(0	UNPARK+9, PARK+14, PARK+20
>> ZD(	EN+16*, EN+17, UMSG+4
ZZ	RXACT+13~*, RXACT+16

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRK

Information

Source Information

Call Graph

Call Graph Total: 23

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: