Routine: PSOP2

Information

PSOP2 ;BIR/SAB - medication profile long or short ;May 20, 2020@10:17

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Outpatient Pharmacy	1	DIR^PSOP1
VA FileMan	1	^DIC

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

Package	Total	Caller Graph
Outpatient Pharmacy	2	PSOP PSOP1

Entry Points

Name	Comments	DBIA/ICR reference
DATE
DRUG
CLSS
PEND	;list pending orders
HD1	;W @IOF W !,?29,"PENDING ORDERS",!,PSOPLINE
NVA	;non-va meds

External References

Name	Field # of Occurrence
^DIC	PEND+8
DIR^PSOP1	PEND+3, PEND+10, PEND+11, PEND+14, NVA+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Drug: ",$S($P(PSOPEND(EEEE),"^",2)="DD":$P($G(^PSDRUG(+PPDIS,0)),"^"),1:$P($G(^PS(50.7,+PPOI,0)),"^")_" "_$P($G(^PS(50.606,+$P($G(^(0)),"^",2),0)),"^")),! Line Location: PEND+6
Function Call: WRITE	Prompt: ! Condition for execution: PCOUNT>1 Line Location: PEND+11
Function Call: WRITE	Prompt: ?6,$G(^PS(52.41,PENDREX,"SIG",AAAA,0)) Line Location: PEND+11
Function Call: WRITE	Prompt: !,?29,"PENDING ORDERS",!,PSOPLINE Line Location: HD1+0
Function Call: WRITE	Prompt: @IOF Line Location: HD1+2
Function Call: WRITE	Prompt: !,"Patient: "_$P($G(^DPT(DFN,0)),"^"),?70,"Page: "_PAGE,!?21,$S($G(NVA):"Non-VA MEDS (Not Dispensed by VA)",1:"Pending Outpatient Orders"),!,PSOPLINE Line Location: HD1+2
Function Call: WRITE	Prompt: !!,PSOPLINE,!?(80-$L("Non-VA MEDS (Not Dispensed by VA)"))/2,"Non-VA MEDS (Not Dispensed by VA)",! Line Location: NVA+2
Function Call: WRITE	Prompt: @IOF Line Location: NVA+5
Function Call: WRITE	Prompt: !?2,"Order Check(s):" Line Location: NVA+24
Function Call: WRITE	Prompt: !?2,"Order Check(s):" Line Location: NVA+25
Function Call: WRITE	Prompt: !?2,"Order Check(s):" Line Location: NVA+26
Function Call: WRITE	Prompt: !?5,"Override Reason: " Line Location: NVA+28
Function Call: WRITE	Prompt: ?22,^PS(55,DFN,"NVA",PPP,"OCK",NVAP,"OVR",NVAPR,0),! Line Location: NVA+30
Function Call: WRITE	Prompt: !?2,"Statement/Explanation/Comments: " Line Location: NVA+33
Function Call: WRITE	Prompt: $P(^PS(55,DFN,"NVA",PPP,"DSC",NVAP,0),"^"),!?34 Line Location: NVA+35
Function Call: WRITE	Prompt: ! Line Location: NVA+36
Routine Call	DIC Line Location: PEND+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HD1+2
^PS(50.606 - [#50.606]	PEND+6, NVA+7
^PS(50.7 - [#50.7]	PEND+6, NVA+7
^PS(52.41 - [#52.41]	PEND+1, PEND+2, PEND+5, PEND+11, PEND+12, PEND+13
^PS(55 - [#55]	NVA+1, NVA+3, NVA+14, NVA+22, NVA+24, NVA+26, NVA+28, NVA+30, NVA+33, NVA+35
^PSDRUG - [#50]	DRUG, CLSS, PEND+6, NVA+7
^PSRX - [#52]	DATE+1, DATE+2, DRUG, DRUG+3, DRUG+4, CLSS, CLSS+3, CLSS+4
^TMP($J	DATE+2, DRUG+4, CLSS+4*
^VA(200 - [#200]	NVA+21, NVA+31

Label References

Name	Line Occurrences
HD1	PEND+4, PEND+10, PEND+12, NVA+6, NVA+15, NVA+23, NVA+25, NVA+26, NVA+27, NVA+29 , NVA+32, NVA+34

Naked Globals

Name	Field # of Occurrence
^("STA"	DRUG+3, CLSS+3
^(0	DATE+1, DATE+2, DRUG, CLSS, PEND+2, PEND+5, PEND+6, NVA+7, NVA+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AAAA	PEND+11~*, PEND+12
>> CLS	CLSS+1
>> DFN	PEND+1, HD1+2, NVA+1, NVA+3, NVA+14, NVA+22, NVA+24, NVA+26, NVA+28, NVA+30 , NVA+33, NVA+35
DIC	PEND+8!*
DIC(0	PEND+8*
>> DRG	DRUG, DRUG+2, DRUG+4, CLSS, CLSS+2, CLSS+4
>> DRS	DRUG+1
>> DTS	DATE
>> EDT	DATE+1
>> EEEE	PEND+4*, PEND+5, PEND+6, PEND+7, PEND+8
IOF	HD1+2, NVA+5
IOSL	PEND+10, PEND+11, NVA+5, NVA+6, NVA+15, NVA+23, NVA+25, NVA+26, NVA+27, NVA+29 , NVA+32, NVA+34
IOST	PEND+3, PEND+10, PEND+11, PEND+14, NVA+5, NVA+6, NVA+15, NVA+23, NVA+25, NVA+26 , NVA+27, NVA+29, NVA+32, NVA+34
>> J	DATE+1, DATE+2, DRUG, DRUG+3, DRUG+4, CLSS, CLSS+3, CLSS+4
NVA	HD1+2, NVA+3*, NVA+36!
NVAOR	NVA+3*, NVA+4, NVA+7, NVA+9, NVA+10, NVA+12, NVA+13, NVA+16, NVA+17, NVA+18 , NVA+19, NVA+20, NVA+21, NVA+36!
NVAP	NVA+26, NVA+28, NVA+30, NVA+35, NVA+36!
NVAPR	NVA+30*, NVA+36!
>> PAGE	HD1+1, HD1+2, HD1+3
>> PCOUNT	PEND+11*
>> PENDREX	PEND+5*, PEND+11, PEND+12, PEND+13
>> PLS	HD1+1, HD1+3, NVA+8
>> PPCOUNT	PEND+4, PEND+6, PEND+12*
>> PPDIS	PEND+5*, PEND+6
>> PPOI	PEND+5*, PEND+6
>> PPP	PEND+1, PEND+2, NVA+3, NVA+14, NVA+22, NVA+24, NVA+26, NVA+28, NVA+30, NVA+33 , NVA+35
>> PPPCNT	PEND+1, PEND+2, PEND+3
>> PPPSTAT	PEND+1*
PQT	PEND+3, PEND+4, PEND+10, PEND+11, PEND+14, NVA+3!, NVA+5
PRV	NVA+26*, NVA+31, NVA+36!
>> PSFR	DRUG+2, CLSS+2
>> PSODTCT	DRUG+3, DRUG+4, CLSS+3, CLSS+4
>> PSOPEND(	PEND+2*, PEND+4, PEND+5, PEND+6, PEND+7, PEND+8
>> PSOPLINE	HD1+2, NVA+2
>> PSTO	DRUG+2, CLSS+2
>> SDT	DATE+1
TRCL	CLSS+1, CLSS+2*, CLSS+3!, CLSS+4!
TRDR	DRUG+1, DRUG+2*, DRUG+3!, DRUG+4!
TRDT	DATE, DATE+1*, DATE+2!
X	DATE+2, PEND+8!
Y	PEND+8!, PEND+9

Customize PDF page

Package: Outpatient Pharmacy