Routine: PSORXI

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

Package

Total

Call Graph

FILE^DICN ^DIE ^DIR

Package	Total	Caller Graph
Outpatient Pharmacy	5	PSODGAL PSODGDG1 PSODGDGI PSODRG PSOVER1
IHS Changes To Pharmacy	3	APSQDGDG APSQDRG APSQFAS4

Package

Total

Caller Graph

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

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now creating Pharmacy Intervention",! Line Location: INIT+1
Function Call: WRITE	Prompt: "for "_$P($G(^PSDRUG(PSODRUG("IEN"),0)),"^"),! Line Location: INIT+2
Function Call: WRITE	Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",! Line Location: DIE+4
Function Call: WRITE	Prompt: !,$C(7),"No prescription data" Line Location: EN1+2
Routine Call	DIE Line Location: DIE+3
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.3 - [#9009032.3]	DIC+5
^APSPQA(32.4 - [#9009032.4]	START+3, DIC+14*, DIE+3
^DD("DILOCKTM"	DIE+3
^PSDRUG - [#50]	INIT+2
^PSRX - [#52]	EN1+2, EN1+3

Name	Field # of Occurrence
^(1	DIC+14*

Name	Field # of Occurrence
APSPCRI	DIC+3~, DIC+5*, DIC+8
APSPINT	DIC+3~, DIC+4*, DIC+8, DIC+13
APSPSIG	DIC+3~, DIC+5*, DIC+8
DA	DIC+1!, DIC+9!, DIE+1!, DIE+2*, DIE+3!
DD	DIC+1!
DIC	DIC+1!*, DIC+9!, DIE+1!, DIE+3!
DIC("DR"	DIC+6, DIC+8
DIC(0	DIC+1*
DIE	DIE+1!, DIE+2*, DIE+3!
DIR	EDIT+1!
DIR("A"	EDIT+1*
DIR("B"	EDIT+1*
DIR(0	EDIT+1*
>> DIRUT	EDIT+1
>> DLAYGO	DIC+1*
DO	DIC+1!
DR	DIC+1!, DIC+9!, DIE+1!, DIE+2*, DIE+3!
>> DRG	DIC+14
DT	DIC+1
DUZ	DIC+6
PSODFN	DIC+6, EN1+1~, EN1+4*
PSODRUG	EN1+1~
PSODRUG("IEN"	INIT+2, DIC+6, EN1+4*
PSONEW	EN1+1~
PSONEW("PROVIDER"	START+3, EN1+4
>> PSORX("INTERVENE"	DIC+4
PSORXI	INIT+3!, EOJ+1!
PSORXI("DA"	START+3, DIC+12*, DIE+2, DIE+3
PSORXI("EDIT"	DIE+2, EDIT+2*
PSORXI("IRXN"	EN1+3*
PSORXI("QFLG"	START+1, INIT+3, DIC+15
>> PSOSITE	DIC+8
PSOX	EN1~, EN1+2, EN1+3
PSOY	EN1+1~, EN1+3!*, EN1+4
U	DIC+14
X	DIC+1!*, DICX!, DIE+3!, EDITX!
Y	DIC+1!, DIC+12, DIC+14, DICX!, DIE+3!, EDIT+1, EDITX!

Information