Routine: PSONRXN

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR
Outpatient Pharmacy	2	DIR^PSODIR2 ^PSODSPL
Registration	1	PAUSE^VALM1

Package

Total

Call Graph

VA Fileman

^DIC ^DIE ^DIR

Outpatient Pharmacy

DIR^PSODIR2 ^PSODSPL

Registration

PAUSE^VALM1

Package	Total	Caller Graph
Outpatient Pharmacy	6	PSONEW PSONEW1 PSOORED1 PSOORNE5 PSOORNEW PSORENW0
IHS Changes To Pharmacy	2	APSPFNC2 APSQFAS
IHS Omnicell Pyxis Interface	1	BOPUVER
Patient Chart	1	BPCRXNXT

Package

Total

Caller Graph

Outpatient Pharmacy

PSONEW PSONEW1 PSOORED1 PSOORNE5 PSOORNEW PSORENW0

IHS Changes To Pharmacy

APSPFNC2 APSQFAS

IHS Omnicell Pyxis Interface

BOPUVER

Patient Chart

BPCRXNXT

Name	Comments	DBIA/ICR reference
MANUALX
AUTO	; Entry point for getting next rx # if autonumbering
MANUAL	; Entry Point to ask user for new rx #
LOOP2
AUTOX
FATAL	;error in autonum queue if necessary and quit
CHECK	; Entry Point to check if valid new rx number

Name	Field # of Occurrence
^DIC	CHECK+3
^DIE	LOOP2+9
^DIR	CHECK+11
DIR^PSODIR2	MANUAL+6
^PSODSPL	MANUAL+8
PAUSE^VALM1	FATAL+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,?10,"Not a new prescription number!!!",!,"Rxn: ",Y(0,0),!,"Patient: ",$S($D(^DPT(+$P(Y(0),"^",2),0)):$P(^(0),"^"),1:"UNKNOWN"),!,"Drug: ",$S($D(^PSDRUG(+$P(Y(0),"^",6),0)):$P(^(0),"^"),1:"UNKNOWN") Line Location: CHECK+5
Function Call: WRITE	Prompt: !,"Issued: ",$E(PSONRXN("ID"),4,5),"-",$E(PSONRXN("ID"),6,7),"-",$E(PSONRXN("ID"),2,3) Line Location: CHECK+7
Function Call: WRITE	Prompt: ! Line Location: CHECK+11
Function Call: WRITE	Prompt: $C(7),?10,"Prescription Rx# "_PSOX_" already being processed." Line Location: CHECK+14
Function Call: WRITE	Prompt: !!,$C(7),"Fatal error in Autonumbering - No Numbers Left!",!,"See Application Package Coordinator!",!,$C(7) Line Location: FATAL+1
Routine Call	DIE Line Location: LOOP2+9
Routine Call	DIC Line Location: CHECK+3
Routine Call	DIR Line Location: CHECK+11

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DILOCKTM"	CHECK+13, AUTO+3, LOOP2+2
^DPT - [#2]	CHECK+5
^PS(59 - [#59]	AUTO+2, AUTO+3, AUTO+4, LOOP2+10
^PSDRUG - [#50]	CHECK+5
^PSRX("B"	CHECK+13, LOOP2, LOOP2+2, LOOP2+3, LOOP2+4

Name	Line Occurrences
AUTOX	LOOP2+1
FATAL	LOOP2
LOOP2	LOOP2+2
MANUAL	MANUAL+8
MANUALX	MANUAL+7, MANUAL+9, MANUAL+10, MANUAL+11, CHECK+4, CHECK+13

Name	Field # of Occurrence
^(0	CHECK+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> COPY	MANUAL+5
DA	MANUAL+6!, LOOP2+5!, LOOP2+6*, LOOP2+9!
DIC	MANUAL+6!, CHECK+3*!, MANUALX+1!, LOOP2+5!, LOOP2+9!
DIC(0	CHECK+3*
DIE	MANUAL+6!, MANUALX+1!, LOOP2+5!, LOOP2+6*, LOOP2+9!
DIR	MANUAL+3!, MANUAL+6!, CHECK+11!
DIR("A"	MANUAL+4, CHECK+11, FATAL+2*
DIR("B"	MANUAL+5*
DIR(0	MANUAL+3, CHECK+11
DIRUT	MANUALX+1!
DR	MANUALX+1!, LOOP2+7*, LOOP2+9!
DTOUT	MANUALX+1!
DUOUT	MANUALX+1!
DUP	LOOP2+2!, LOOP2+3, LOOP2+4, LOOP2+5!
I	LOOP2+2!, LOOP2+4*, LOOP2+5!
>> PSOAC	CHECK+11
PSODIR	MANUALX+1!
PSODIR("DFLG"	MANUAL+10
>> PSODRUG("DEA"	AUTO+2
>> PSODRUG("NAME"	CHECK+9, CHECK+15
>> PSOFIN	CHECK+11
>> PSOFINFL	CHECK+11
PSOI	AUTO+5, AUTO+6, LOOP2*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+7, LOOP2+8, AUTOX!
>> PSONEW("DFLG"	MANUAL+2, MANUALX
>> PSONEW("FIELD"	MANUAL+11
>> PSONEW("OLD L	AST RX#" , AUTO+5*
>> PSONEW("QFLG"	MANUAL+7, MANUAL+9, MANUAL+10, MANUALX, AUTO+1, LOOP2, LOOP2+1, FATAL+2
>> PSONEW("RX #"	, MANUAL+5, CHECK+1, CHECK+18, LOOP2+8
PSONRXN	MANUALX+1!, AUTOX!
PSONRXN("ERR	FLG" , CHECK+2, CHECK+10, CHECK+16*, MANUALX
PSONRXN("HI"	AUTO+5*, LOOP2
PSONRXN("ID"	CHECK+6*, CHECK+7, CHECK+8!
PSONRXN("LO"	AUTO+4*, AUTO+6
PSONRXN("TYPE"	AUTO+2*, AUTO+3, AUTO+4, AUTO+5, LOOP2+7, LOOP2+10
>> PSORX("DO REF	ILL" , MANUAL+9*
>> PSORX("NAME"	MANUAL+4
>> PSORX("QFLG"	MANUAL+10*
>> PSOSITE	AUTO+2, AUTO+3, AUTO+4, LOOP2+6, LOOP2+10
PSOX	MANUAL+12, CHECK+1, CHECK+3, CHECK+13, CHECK+14, CHECK+18, MANUALX+1!
PSOX1	MANUALX+1!, AUTO+4*, AUTO+5, AUTOX!
X	MANUAL+7, CHECK+3*, MANUALX+1!, AUTOX!
Y	MANUAL+8!, MANUAL+9!, MANUAL+12, CHECK+4, CHECK+8!, MANUALX+1!, AUTOX!
Y(0	CHECK+5, CHECK+6

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSONRXN

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: