Routine: PSJRXI

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR

Package	Total	Caller Graph
Inpatient Medications	2	PSGSICHK PSJDGAL

Entry Points

Name	Comments	DBIA/ICR reference
END
EDIT	;
DIE	;
EN1X
DIC	;
START	;
INIT	;
EOJ	;
DICX
EDITX
EN1(PSJORDER)	; Entry Point if have internal rx #

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now creating Pharmacy Intervention",! Line Location: INIT+1
Function Call: WRITE	Prompt: "For ",$P($G(^PSDRUG(PSJDRUG("IEN"),0)),"^"),! Line Location: INIT+2
Function Call: WRITE	Prompt: !,"Sorry, someone else is editing this intervention!" Line Location: DIE+4
Function Call: WRITE	Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",! Line Location: DIE+6
Function Call: WRITE	Prompt: !,$C(7),"No prescription data" Line Location: EN1+1
Function Call: WRITE	Prompt: !,$C(7),"No prescription data" Line Location: EN1+4
Routine Call	DIE Line Location: DIE+5
Routine Call	DIR Line Location: EDIT+1

FileNo	Call Tags
^APSPQA(32.4 - [#9009032.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	START+5, DIE+4, DIE+5
^PS(53.1 - [#53.1]	EN1+4, EN1+8
^PSDRUG - [#50]	INIT+2

Name	Field # of Occurrence
DA	DIC+1~, DIC+6!, DIE+1!, DIE+2*, DIE+5!
DD	DIC+1~
>> DFN	EN1+2
DIC	DIC+1~, DIC+2*, DIC+6!, DIE+1!, DIE+5!
DIC("DR"	DIC+3, DIC+5
DIC(0	DIC+2*
DIE	DIE+1!, DIE+2*, DIE+5!
DIR	EDIT+1!
DIR("A"	EDIT+1*
DIR("B"	EDIT+1*
DIR(0	EDIT+1*
>> DIRUT	EDIT+1
>> DLAYGO	DIC+2*
DO	DIC+1~
DR	DIC+1~, DIC+6!, DIE+1!, DIE+2*, DIE+5!
DT	DIC+2
DUZ	DIC+3
>> PSGP	DIC+3
>> PSJDD	DIC+3
PSJDFN	EN1+3~, EN1+7*
PSJDRUG	EN1+3~, EN1+8*
PSJDRUG("IEN"	INIT+2, EN1+8*
PSJNEW	EN1+3~
PSJNEW("PROVIDER"	START+5, EN1+7
PSJORDER	EN1~, EN1+2*, EN1+5, EN1+6, EN1+8
PSJRXI	INIT+3!, EOJ+1!
PSJRXI("DA"	START+5, DIC+7*, DIE+2, DIE+4, DIE+5
PSJRXI("EDIT"	DIE+2, EDIT+2*
PSJRXI("IRXN"	EN1+5*, EN1+8
PSJRXI("QFLG"	START+3, INIT+4, DIC+8
>> PSJRXREQ	DIC+5
>> PSJSITE	DIC+5
>> PSJX	EN1+1, EN1+4
PSJY	EN1+3~, EN1+6!*, EN1+7
SAVEX	START+1~*, EOJ+1
SAVEY	START+1~*, EOJ+1
X	START+1, DIC+1~, DIC+2, DICX!, DIE+5!, EDITX!, EOJ+1
Y	START+1, DIC+1~, DIC+7, DICX!, DIE+5!, EDIT+1, EDITX!, EOJ+1*