Routine: PSOSUDPR

Package	Total	Call Graph
VA Fileman	4	^%DT ^DIC ^DIK ^DIR
Outpatient Pharmacy	3	^PSOLSET ^PSOSUDP1 (CKDIV,PSOINST)^PSOSUPAT

Package

Total

Call Graph

VA Fileman

^%DT ^DIC ^DIK ^DIR

Outpatient Pharmacy

^PSOLSET ^PSOSUDP1 (CKDIV,PSOINST)^PSOSUPAT

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSO PNDPRI

Package

Total

Caller Graph

Outpatient Pharmacy

PSO PNDPRI

Name	Field # of Occurrence
^%DT	BDATE, EDATE
^DIC	SING+4, BAR+3
^DIK	SING+8, EDATE+7, BAR+6
^DIR	EN+4, SING+1, SING+7, EDATE+2, EDATE+4, ALL+1, BAR, BAR+4
^PSOLSET	PSOSUDPR+2
^PSOSUDP1	EN+8
CKDIV^PSOSUPAT	SING+6
PSOINST^PSOSUPAT	SING+2, BAR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?5,"Site Parameters must be defined to use this option!",! Line Location: PSOSUDPR+2
Function Call: WRITE	Prompt: !!,"This option allows you to delete printed Rx's from suspense.",! Line Location: PSOSUDPR+3
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: SING+1
Function Call: WRITE	Prompt: ! Line Location: SING+4
Function Call: WRITE	Prompt: ! Line Location: SING+4
Function Call: WRITE	Prompt: $C(7),!?5,"Cannot delete, Rx# ",RXEXT," has not been printed yet!" Line Location: SING+5
Function Call: WRITE	Prompt: ! Line Location: SING+6
Function Call: WRITE	Prompt: !!?5,"Rx# ",RXEXT," deleted from suspense!",! Line Location: SING+8
Function Call: WRITE	Prompt: !!,"Deleting by date range will delete based on the day the Rx was",!,"actually printed from suspense!" Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: EDATE+1
Function Call: WRITE	Prompt: !!,"Deleting printed suspense entries." Line Location: EDATE+5
Function Call: WRITE	Prompt: "." Line Location: EDATE+7
Function Call: WRITE	Prompt: !,"Finished!" Line Location: EDATE+9
Function Call: WRITE	Prompt: ! Line Location: ALL+1
Function Call: WRITE	Prompt: ! Line Location: BAR+0
Function Call: WRITE	Prompt: !!,"Invalid Prescription!",! Line Location: BAR+1
Function Call: WRITE	Prompt: !!,"Patient: ",$P($G(^DPT(PSODFN,0)),"^") Line Location: BAR+2
Function Call: WRITE	Prompt: ! Line Location: BAR+3
Function Call: WRITE	Prompt: !!,"Deleting Suspense entries for ",$P($G(^DPT(PSODFN,0)),"^") Line Location: BAR+5
Function Call: WRITE	Prompt: "." Line Location: BAR+6
Function Call: WRITE	Prompt: !!,"Finished!",! Line Location: BAR+7
Function Call: WRITE	Prompt: !!?3,"Nothing deleted!",! Line Location: MES+0
Routine Call	DIC Line Location: SING+4 BAR+3
Routine Call	DIR Line Location: EN+4 SING+1 SING+7 EDATE+2 EDATE+4 ALL+1 BAR BAR+4

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^PS(52.5 - [#52.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	BAR+2, BAR+4, BAR+5
^PS(52.5 - [#52.5]	SING+5, SING+6, EDATE+6, EDATE+7, EDATE+8, BAR+6
^PS(59 - [#59]	EN+5
^PSRX - [#52]	SING+3, SING+5, BAR+1, BAR+2

Label References

Name	Line Occurrences
ALL	EN+6, BAR, BAR+3, BAR+7
BAR	BAR
BDATE	BDATE
DATE	EN+7
EDATE	EDATE
EN	EN+6, EN+7, EN+8, SING+1, SING+4, SING+9
END	EN+4
MES	SING+1, SING+2, SING+4, SING+6, SING+7, BDATE, EDATE, EDATE+2, EDATE+4, ALL+1 , BAR+4
SING	SING+2, SING+4, SING+5, SING+6, SING+7

Name	Field # of Occurrence
^("P"	SING+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BDATE!, EDATE!
%DT("A"	BDATE, EDATE
%DT(0	EDATE*
ANS	SING+2*, SING+4, END!
BCNUM	BAR*, BAR+1, END!
BDATE	EDATE, EDATE+6, END!
DA	SING+8, EDATE+7, BAR+6*, END!
DFN	END!
DIC	SING+4!, BAR+3!, END!
DIC("S"	SING+4, BAR+3
DIC(0	SING+4, BAR+3
>> DIK	SING+8, EDATE+7, BAR+6*
DIR	EN!, EN+4!, SING+1!, SING+7!, EDATE+2!, EDATE+4!, ALL+1!, BAR!, BAR+4!, END!
DIR("?"	EN+2, EN+3, SING+1*
DIR("A"	EN, EN+1, SING+1, SING+7, EDATE+2, EDATE+4, ALL+1, BAR, BAR+4*
DIR("B"	EN, SING+7, EDATE+2, EDATE+4, BAR+4*
DIR(0	EN, SING+1, SING+7, EDATE+2, EDATE+4, ALL+1, BAR, BAR+4
>> DTOUT	EN+4, SING+1, SING+4, BDATE, EDATE, EDATE+2, ALL+1, BAR, BAR+3
>> DUOUT	EN+4, SING+1, SING+4, EDATE+2, ALL+1, BAR, BAR+3
EDATE	EDATE+1, EDATE+6, END!
EE	BAR+6*, END!
OUT	SING+2, BAR, BAR+1*, END!
PDIVFLAG	EDATE+7, EDATE+8, END!
PSALL	ALL+2*, BAR, BAR+3, END!
PSINT	EDATE+7*, END!
PSOCODE	EN!, EN+4*, EN+6, EN+7, EN+8, END!
PSODFN	BAR+2, BAR+3, BAR+4, BAR+5, BAR+6, END!
PSODIVS	EN+5*, EDATE+2, EDATE+3, END!
PSONLY	DATE+1, EDATE+3, EDATE+7, END!
>> PSOPAR	PSOSUDPR+2
PSORXIN	BAR+6*, END!
>> PSOSITE	SING+6, EDATE+8
PSPOP	SING+6*, END!
QQ	EDATE+7*, EDATE+8, END!
>> RXEXT	SING+5*, SING+7, SING+8
RXINT	SING+4*, SING+5, END!
RXN	BAR+1*, BAR+2, END!
RXREC	SING+4*, END!
SS	EDATE+6*, EDATE+7, END!
SUSINT	SING+4*, SING+5, SING+6, SING+8, END!
X	SING+1, SING+3, SING+4, BDATE, EDATE, END!
Y	EN+4, SING+2, SING+3*, SING+4, SING+7, BDATE, EDATE, EDATE+1, EDATE+2, EDATE+3 , EDATE+4, ALL+1, ALL+2, BAR, BAR+3, BAR+4, END!
Y(0	SING+4
ZZZ	EN+5*, END!

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOSUDPR

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: