Routine: PSOPRF

Package	Total	Call Graph
Outpatient Pharmacy	7	EN1P^PSOBSET CUTDATE^PSOFUNC LAST^PSORFL $$RDI^PSORMRX PLBL^PSORXL FSIG^PSOUTLA EN2^PSOUTLA1
Kernel	3	^%ZIS KILL^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	^%DT C^%DTC
Registration	1	PID^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSOBMST PSOPRFSS PSORXL PSOSUPAT PSOSUPRX

Entry Points

Name	Comments	DBIA/ICR reference
ISSD
DRNME
PRT
QOLD
PEND	;Print Pending Orders
RXPNO
CHK
Q
START
PPP
SIG	;Format Sig
NVA	;displays non-va meds
DQ
HD
SD

External References

Name	Field # of Occurrence
^%DT	START+1
C^%DTC	START+1
^%ZIS	START
KILL^%ZTLOAD	DQ
EN1P^PSOBSET	START
CUTDATE^PSOFUNC	Q, START
LAST^PSORFL	CHK+1, PRT+1
$$RDI^PSORMRX	HD+3
PLBL^PSORXL	QOLD
FSIG^PSOUTLA	SIG+2, PEND+10
EN2^PSOUTLA1	SIG+3
PID^VADPT	HD
$$FMTE^XLFDT	NVA+6, NVA+9, NVA+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?Z+15,"**** NO RX DATA ****",! Line Location: START+4
Function Call: WRITE	Prompt: !!,"NAME: "_$P(^DPT(DFN,0),"^"),! Line Location: PPP+1
Function Call: WRITE	Prompt: "END***************" Line Location: RXPNO+1
Function Call: WRITE	Prompt: !,?Z+1,RXPNO,?Z+15,DRNME,?Z+55,$E(ISSD,4,5),"/",$E(ISSD,6,7)," ",$E(RFL,1,5)," ",?Z+67,$J(RFS,2)," ",$J(RXF,2)," ",?Z+73,$J(QTY,12)," ",?Z+86,STA," ",?Z+88,$E(PHYS,1,20) Line Location: PRT+3
Function Call: WRITE	Prompt: !,?Z+19,FSIG(TTTT) Line Location: PRT+4
Function Call: WRITE	Prompt: !,?Z+17,"PRESCRIPTION PROFILE AS OF ",$E(DT,4,5),"/",$E(DT,6,7),"/",($E(DT,1,3)+1700),!!,?Z+20,"NAME: "_$P(^DPT(DFN,0),"^") Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: HD+2
Function Call: WRITE	Prompt: ! Condition for execution: $X>(Z+63) Line Location: HD+2
Function Call: WRITE	Prompt: ?Z+31,$P(MESS," ",B)," " Line Location: HD+2
Function Call: WRITE	Prompt: !!,"THIS PATIENT HAS PRESCRIPTIONS AT OTHER FACILITIES" Line Location: HD+3
Function Call: WRITE	Prompt: !!?Z+20,"PHARMACIST: ___________________________ DATE: ____________" Line Location: HD+4
Function Call: WRITE	Prompt: !!?Z+52," DATES ",?Z+67,"REFS ",?Z+86,"S" Line Location: HD+5
Function Call: WRITE	Prompt: !?Z+1,"RX # ",?Z+15,"DRUG/STRENGTH/SIG",?Z+55,"ISSD LAST ",?Z+67,"AL AC",?Z+77,"QTY",?Z+86,"T",?Z+93,"PROVIDER" Line Location: HD+6
Function Call: WRITE	Prompt: !?Z+1,$E(LINE,1,12),?Z+15,$E(LINE,1,35),?Z+55,"----- -----",?Z+67,"-- --",?Z+73,"------------",?Z+86,"-",?Z+88,$E(LINE,1,20) Line Location: HD+7
Function Call: WRITE	Prompt: !!,?48,"PENDING ORDERS",!,LINE,! Line Location: PEND+4
Function Call: WRITE	Prompt: !?8,$G(FSIG(FSIGZZ)) Line Location: PEND+10
Function Call: WRITE	Prompt: !!?48,"Outside Medications",!,LINE Line Location: NVA+2
Function Call: WRITE	Prompt: ! Line Location: NVA+11
Routine Call	%ZIS Line Location: START

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PPP+1, HD+1
^PS(50.606 - [#50.606]	PEND+7, NVA+5
^PS(50.7 - [#50.7]	PEND+7, NVA+5
^PS(52.41 - [#52.41]	PEND+2, PEND+5
^PS(55 - [#55]	START+3, HD+2, NVA+1, NVA+3, NVA+4
^PSDRUG - [#50]	CHK+4, PEND+7, NVA+5, NVA+7
^PSRX - [#52]	START+3, RXPNO, CHK+1, PRT+1, PRT+2, SIG+1
^TMP($J	START+2!, START+4, SD, PPP+2!, DRNME, ISSD, RXPNO, CHK+4*
^VA(200 - [#200]	PRT+1, PEND+9, NVA+10

Label References

Name	Line Occurrences
CHK	START+3
DRNME	SD, DRNME
HD	START+4
ISSD	DRNME
NVA	PPP
PEND	PPP
PPP	START+4
PRT	RXPNO
RXPNO	ISSD, RXPNO
SIG	PRT+4
START	DQ

Naked Globals

Name	Field # of Occurrence
^(	START+3, RXPNO
^("STA"	START+3
^(0	RXPNO, CHK+4, PRT+1, PEND+7, NVA+5
^(1	HD+2
^(2	START+3, RXPNO

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	START+1*
A	PPP+2!, HD+2*
B	PPP+2!, HD+2*
BSIG	SIG+1!, SIG+4!
BSIG(	SIG+3
>> DFN	START+3, PPP+1, HD+1, HD+2, HD+3, PEND+2, NVA+1, NVA+3, NVA+4
DRNME	SD, PPP+2!, DRNME, ISSD, RXPNO, CHK+4*, PRT+3
DRP	PPP+2!, CHK+4*
DT	START+1*, PRT+2, HD+1
>> DUPRX0	NVA+4*, NVA+5, NVA+6, NVA+7, NVA+8, NVA+9, NVA+10
DUPRXO	NVA+11!
EXP	START+1*, PPP+2!
EXPS	START+1*, PPP+2!, CHK+3
FSIG	SIG+1!
FSIG(	PRT+4, SIG+3*, PEND+10
FSIG(1	PEND+10
FSIGZZ	PEND+1~, PEND+10*
GGGGG	SIG+3*, SIG+4!, PEND+1~
I	START+2*, PPP+2!
II	PPP+2!, CHK+1, PRT+1
IO	DQ, START
IOF	PPP+2
>> IOP	START*
ISSD	PPP+2!, ISSD, RXPNO, CHK+3, CHK+4, PRT+3
J	PPP+2!, CHK+3*
LINE	START+2*, SD, PPP+2!, HD+7, PEND+4, NVA+2
LN	PPP+2!, HD+2*
MESS	PPP+2!, HD+2*
MJK	PPP+2!, PRT+1*
NEW1	START+1*, PPP+2!, CHK+3
NEW11	START+1*, PPP+2!, CHK+3
NVA	NVA+3*, NVA+4, NVA+11!
>> PFIO	DQ*, START
PHYS	PPP+2!, PRT+1*, PRT+3
POP	PPP+2!
PPPPP	PEND+1~, PEND+2*
>> PSOBMST	START
>> PSODTCUT	START, CHK, CHK+1
>> PSOPRPAS	CHK+2
PSPCOUNT	PEND+1~, PEND+2*
PSPPEND	PEND+1~, PEND+2*
PSPPEND(	PEND+2*, PEND+5, PEND+10
PSPPEND(0	PEND+3
PSPROSIG	SIG+1*, SIG+2, SIG+4!
PSPSTAT	PEND+1~, PEND+2*
PSSODRUG	PEND+1~
PZXZERO	PEND+1~, PEND+5*, PEND+6, PEND+8, PEND+9
PZZDRUG	PEND+1~, PEND+6*, PEND+7
>> PZZODRUG	PEND+6*, PEND+7
QTY	PPP+2!, PRT*, PRT+3
>> RFDATE	CHK+1
RFL	PPP+2!, PRT+3
RFS	PPP+2!, PRT*, PRT+3
RXF	PPP+2!, PRT+1*, PRT+3
RXNN	START+3, PPP+2!, RXPNO, CHK+1, CHK+3, CHK+4, PRT+1, PRT+2, SIG+1, SIG+2 , SIG+3
RXPNO	PPP+2!, ISSD, RXPNO, CHK+3*, CHK+4, PRT+3
RXPX	START+3, PPP+2!, RXPNO, CHK+2, CHK+3, CHK+4, PRT, PRT+1
RXPX2	START+3, PPP+2!, RXPNO, CHK, PRT+2
RXX	START+3*, PPP+2!
SD	SD, PPP+2!, DRNME, ISSD, RXPNO, CHK+4
SIG	PPP+2!
STA	PPP+2!, PRT+2*, PRT+3
TTTT	PPP+2!, PRT+4*
X	START+1*, PPP+2!
X1	START+1*, PPP+2!
X2	START+1*, PPP+2!
Y	START+1, PPP+2!
Z	START!, START+1*, START+4, SD, PPP+2!, PRT+3, PRT+4, HD+1, HD+2, HD+4 , HD+5, HD+6, HD+7
ZXXX	PEND+1~, PEND+5*, PEND+10

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOPRF

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: