Routine: PSORXPR

Package	Total	Call Graph
Outpatient Pharmacy	5	STAT^PSOFUNC LAST^PSORFL (HLD,PAR,RF)^PSORXPR1 FSIG^PSOUTLA EN3^PSOUTLA1
VA Fileman	3	^DIC $$GET1^DIQ ^DIR
CMOP	1	^PSXVIEW
IHS Changes To Pharmacy	1	EP1^APSPMAN1
Kernel	1	ENDR^%ZISS
Registration	1	PID^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOCAN PSORXED PSOVER PSOVER1
IHS Changes To Pharmacy	1	APSPRXV

Entry Points

External References

Name	Field # of Occurrence
ENDR^%ZISS	PR+5
EP1^APSPMAN1	GET+6
^DIC	DTT+1, DTT+6, DTT+8, DTT+10, LG+2, A1+4
$$GET1^DIQ	PR+20, PR+21
^DIR	CON
STAT^PSOFUNC	PR
LAST^PSORFL	PR+28
HLD^PSORXPR1	REM+1
PAR^PSORXPR1	REM+2
RF^PSORXPR1	REM+2
FSIG^PSOUTLA	PR+23
EN3^PSOUTLA1	PR+24
^PSXVIEW	ACT+2
PID^VADPT	PR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,"RX: ",$P(RX0,"^"),?20,"PATIENT: "_$P(P0,"^")_" (",VA("PID")_") ",!,"STATUS: "_ST_" "_$S($P($G(^PSRX(DA,"IB")),"^")]"":"CO-PAY STATUS",1:"") Line Location: PR+2
Function Call: WRITE	Prompt: !,PKIT Line Location: PR+4
Function Call: WRITE	Prompt: !,"Manufacturer: "_APSPMM,?40,"Mfg Expiration Date: "_$E(APSPD,4,5)_"/"_$E(APSPD,2,3) Line Location: PR+9
Function Call: WRITE	Prompt: !?6," NDC: ",$P(RX2,U,7) Line Location: PR+10
Function Call: WRITE	Prompt: ?$X+2,"("_$P(R9999999,U,6)_")" Line Location: PR+11
Function Call: WRITE	Prompt: ?$X+2,"("_$P(RX0,U,17)_")" Line Location: PR+12
Function Call: WRITE	Prompt: !?6," QTY: ",$P(RX0,"^",7)," ",$S($P(RX0,"^",8)?1N.N:$P(RX0,"^",8),1:"??")," DAY SUPPLY" Line Location: PR+14
Function Call: WRITE	Prompt: !?6," NDC: ",$P(RX2,U,7) Line Location: PR+16
Function Call: WRITE	Prompt: ?$X+2,"("_$P(R9999999,U,6)_")" Line Location: PR+17
Function Call: WRITE	Prompt: ?$X+2,"("_$P(RX0,U,17)_")" Line Location: PR+18
Function Call: WRITE	Prompt: !,"SUBSTITUTION : "_$$GET1^DIQ(52,DA,9999999.25) Line Location: PR+20
Function Call: WRITE	Prompt: !,"CASH DUE: "_$$GET1^DIQ(52,DA,9999999.26) Line Location: PR+21
Function Call: WRITE	Prompt: !?7,"SIG: ",$G(BSIG(1)) Line Location: PR+25
Function Call: WRITE	Prompt: !?12,$G(BSIG(PSREV)) Line Location: PR+26
Function Call: WRITE	Prompt: !?4,"LATEST: ",RFLL,?37,"# OF REFILLS: ",$P(RX0,"^",9) Line Location: PR+28
Function Call: WRITE	Prompt: " REMAINING: ",$P(RX0,"^",9)-PL Line Location: PR+28
Function Call: WRITE	Prompt: !?4,"ISSUED: ",DAT Line Location: DTT+0
Function Call: WRITE	Prompt: ?41,"PROVIDER: "_PHYS Line Location: DTT+2
Function Call: WRITE	Prompt: !?41,"COSIGNER: "_$P(Y,"^",2) Line Location: DTT+3
Function Call: WRITE	Prompt: !?4,"LOGGED: ",DAT,?43,"CLINIC: ",$S($D(^SC(+$P(RX0,"^",5),0)):$P(^(0),"^"),1:"NOT ON FILE") Line Location: DTT+4
Function Call: WRITE	Prompt: !?3,"EXPIRES: ",PSEXDT,?41,"DIVISION: ",PSDIV,!?7,"CAP: ",$P("NON-^","^",$S($D(^PS(55,DFN,0)):+$P(^(0),"^",2),1:0)),"SAFETY",?42,"ROUTING: " Line Location: DTT+5
Function Call: WRITE	Prompt: $P("MAIL^WINDOW^INPATIENT","^",X) Condition for execution: X Line Location: DTT+5
Function Call: WRITE	Prompt: !?2,"ENTRY BY: ",$S(+Y:$P(Y,"^",2),1:$P(RX0,"^",16)) Line Location: DTT+7
Function Call: WRITE	Prompt: !!,"FILLED: "_RFL,?20,"PHARMACIST: "_$S(+Y:$P(Y,"^",2),1:""),?52,"LOT #: "_$P(RX2,"^",4) Line Location: DTT+11
Function Call: WRITE	Prompt: !," DISPENSED: "_$S($P(RX2,"^",5):$E($P(RX2,"^",5),4,5)_"/"_$E($P(RX2,"^",5),6,7)_"/"_$E($P(RX2,"^",5),2,3),1:"") Line Location: DTT+12
Function Call: WRITE	Prompt: ?$X+10,$S($P(RX2,"^",15):" RETURNED TO STOCK: "_$E($P(RX2,"^",15),4,5)_"/"_$E($P(RX2,"^",15),6,7)_"/"_$E($P(RX2,"^",15),2,3),1:" RELEASED: "_$S($P(RX2,"^",13):$E($P(RX2,"^",13),4,5)_"/"_$E($P(RX2,"^",13),6,7)_"/"_$E($P(RX2,"^",13),2,3),1:"")) Line Location: DTT+13
Function Call: WRITE	Prompt: ! Line Location: REM+2
Function Call: WRITE	Prompt: !,L1,?3,DAT,?14,$S($P(LBL,"^",2):"REFILL "_$P(^PSRX(DA,"L",L1,0),"^",2),1:"ORIGINAL") Line Location: LG+1
Function Call: WRITE	Prompt: ?40,$P(Y,"^",2),!,"COMMENTS: "_$P(^PSRX(DA,"L",L1,0),"^",3) Line Location: LG+3
Function Call: WRITE	Prompt: !,N,?3,DAT,?14 Line Location: A1+0
Function Call: WRITE	Prompt: ?25 Line Location: A1+3
Function Call: WRITE	Prompt: $S(X>0&(X<6):"REFILL "_X,X=6:"PARTIAL",X>6:"REFILL "_(X-1),1:"ORIGINAL") Line Location: A1+3
Function Call: WRITE	Prompt: ?40,$S(+Y:$P(Y,"^",2),1:$P(P1,"^",3)) Line Location: A1+5
Function Call: WRITE	Prompt: @IOF Line Location: H1+0
Function Call: WRITE	Prompt: !!,"ACTIVITY LOG:",!,"#",?3,"DATE",?14,"REASON",?25,"RX REF",?40,"INITIATOR OF ACTIVITY",! Line Location: H1+1
Function Call: WRITE	Prompt: "=" Line Location: H1+1
Function Call: WRITE	Prompt: ! Line Location: H1+2
Function Call: WRITE	Prompt: @IOF Line Location: L1+0
Function Call: WRITE	Prompt: !!,"LABEL LOG:",!,"#",?3,"DATE",?14,"RX REF",?40,"PRINTED BY",! Line Location: L1+1
Function Call: WRITE	Prompt: "=" Line Location: L1+1
Function Call: WRITE	Prompt: ! Line Location: L1+2
Routine Call	DIC Line Location: DTT+1 DTT+6 DTT+8 DTT+10 LG+2 A1+4
Routine Call	DIR Line Location: CON

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ACT+2
^DPT - [#2]	GET
^PS(52.4 - [#52.4]	PR
^PS(55 - [#55]	DTT+5
^PS(59 - [#59]	GET+9
^PSDRUG - [#50]	PR+7
^PSRX - [#52]	GET, GET+3, PR+2, PR+23, PR+24, PR+28, PR+29, REM, REM+1, ACT , ACT+1, LG+1, LG+2, LG+3
^SC - [#44]	DTT+4

Label References

Name	Line Occurrences
A1	ACT
CON	ACT, ACT+1, LG, A1
DAT	DTT, DTT+4, ACT+1, A1
H1	ACT, A1
L1	ACT+1, LG
LG	ACT+1
PSORXPR	EN+2
Q	REM+2, ACT, ACT+1, ACT+3
REM	DTT+10

Naked Globals

Name	Field # of Occurrence
^(	ACT
^("D"	REM
^("I"	PR+7
^("STA"	GET
^("TN"	GET
^(0	GET, GET+9, PR+7, DTT+4, DTT+5, ACT+1
^(2	GET
^(3	GET

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	Q+1!
%I	Q+1!
>> APSP	GET+5*
>> APSPD	GET+7, GET+8, PR+9
>> APSPL	GET+7, GET+8
>> APSPLTYP	EN+1*
>> APSPMAN	GET+6, GET+7, GET+8, PR+9
>> APSPMM	GET+7, GET+8, PR+9
>> APSPRXX	GET+5*
>> APSPX9	GET+4*
BSIG	PR+23!, PR+27!
BSIG(	PR+23*, PR+26
BSIG(1	PR+25, PR+26
>> DA	GET, GET+3, GET+5, PR, PR+2, PR+20, PR+21, PR+23, PR+24, PR+28 , PR+29, REM, REM+1, ACT, ACT+1, LG+1, LG+2, LG+3
DAT	DTT, DTT+4, LG+1, A1, Q!, DAT*
DFN	GET*, PR, DTT+5, Q+1!
DIC	DTT+1!, DTT+6!, DTT+8!, DTT+10!, LG+2!, LG+3!, A1+4!, A1+5!
DIC(0	DTT+1, DTT+6, DTT+8, DTT+10, LG+2, A1+4
DIR	Q!, CON!
DIR(0	CON*
DIRUT	REM+2, ACT, ACT+1, LG, A1, Q!, CON!
DTOUT	Q!, CON!
DTT	DTT, DTT+2, ACT, ACT+1, Q!, DAT*
DUOUT	Q!, CON!
EXDT	Q!
FFX	GET, A1, Q!, H1, H1+2, L1, L1+2, CON
FSIG	PR+23!, PR+24!
FSIG(	PR+23
I	Q+1!, H1+1, L1+1
IFN	PR+28!, PR+29*, Q!
II	PR+28*, Q!
IOF	PR+2, H1, L1
IORVOFF	PR+5!, PR+6
IORVON	PR+5!, PR+6
J	GET*, PR+28, Q!
L1	ACT+1*, LG+1, LG+2, LG+3, Q!
LBL	ACT+1*, LG+1, Q+1!
M1	PR+7*, Q!
MED	PR+7*, Q!
N	ACT*, A1, Q!
P0	GET*, PR+2, Q!
P1	ACT*, A1+1, A1+3, A1+4, A1+5, A1+6, Q!
P9999999	GET+2~
PHYS	DTT+2*, Q!, EN+2!
>> PKI	PR+4
>> PKI1	PR+4
>> PKIE	PR+5, PR+6
PKIT	PR+4~, PR+5, PR+6
PL	PR+28, PR+29, REM+2, Q!
>> PS	PR+2*, Q+1
PSDIV	GET+9*, DTT+5, Q!
PSEXDT	GET+9*, DTT+5, Q!
>> PSOAC	CON
>> PSOFROM	GET+4
>> PSOZVER	DTT+10
PSREV	PR+23, PR+24!, PR+26, PR+27!
R3	GET*, DTT+1, DTT+3, Q!
R9999999	GET+2~, GET+3*, PR+11, PR+13, PR+17, PR+19
RFDATE	Q+1!, EN+2!
RFL	DTT+11, Q!, EN+2!
RFL1	Q!, EN+2!
RFLL	PR+28, Q!, EN+2!
RTN	GET*, PR+7, Q!
RX0	GET*, GET+4, GET+5, PR+2, PR+7, PR+12, PR+14, PR+18, PR+28, DTT , DTT+4, DTT+5, DTT+6, DTT+7, Q!
RX2	GET*, GET+7, GET+9, PR+10, PR+16, DTT+2, DTT+8, DTT+9, DTT+10, DTT+11 , DTT+12, DTT+13, Q!
SIG	Q!
ST	PR*, PR+2, REM+1, Q!, EN+2!
ST0	PR, Q!, EN+2!
STA	Q!
U	GET+5, PR+10, PR+11, PR+12, PR+13, PR+16, PR+17, PR+18, PR+19
>> VA("PID"	PR+2
X	PR+5!, DTT+1!, DTT+5, DTT+6!, DTT+8!, DTT+10!, ACT+2~!, LG+2!, LG+3!, A1+1* , A1+2, A1+3, A1+4!, A1+5!
Y	DTT+1!, DTT+2, DTT+3, DTT+6!, DTT+7, DTT+8!, DTT+9, DTT+10!, DTT+11, LG+2! , LG+3!, A1+4!, A1+5!
Z0	Q!
Z1	Q!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSORXPR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: