Routine: PSJRXI

Information

PSJRXI ; IHS/DSD,JCM,RLW - LOGS PHARMACY INTERVENTIONS ;15 May 98 9:28 AM

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
VA FileMan	4	(,$$FIND1,FIND)^DIC FILE^DICN ^DIE ^DIR
Inpatient Medications	2	PAUSE^PSJLMUT1 ($$DATE,$$DATE2)^PSJUTL2

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

Package	Total	Caller Graph
Inpatient Medications	4	PSGSICHK PSJCROC PSJDPT PSJGMRA
Outpatient Pharmacy	1	PSODGAL1

Entry Points

Name	Comments	DBIA/ICR reference
START	;
END
INIT	;
DIC	;
DICX	;
DIE	;
EDIT	;
EDITX
EOJ	;
EN1(PSJORDER)	; Entry Point if have internal rx #
EN1X
EN3(PSJIVDST,CDRG2)	; Entry Point for Clinical Reminders
EN3X
LOOK	;Find Internal Number of 32.3 file

External References

Name	Field # of Occurrence
^DIC	DIE+6, DIE+16
$$FIND1^DIC	LOOK+1
FIND^DIC	DIC+3
FILE^DICN	DIC+9
^DIE	DIE+4, DIE+9, DIE+18
^DIR	DIE+8, EDIT+1
PAUSE^PSJLMUT1	DICX+3, DIE+20
$$DATE^PSJUTL2	DIE+14
$$DATE2^PSJUTL2	DIE+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Now creating Pharmacy Intervention",! Line Location: INIT+1
Function Call: WRITE	Prompt: "For ",$P($G(^PSDRUG(PSJDD,0)),"^"),! Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"Unable to log an intervention for ",$G(PSJRXREQ) Line Location: DICX+2
Function Call: WRITE	Prompt: !,"Sorry, someone else is editing this intervention!" Line Location: DIE+3
Function Call: WRITE	Prompt: $C(7),!!,"See 'Pharmacy Intervention Menu' if you want to delete this",!,"intervention or for more options.",! Line Location: DIE+20
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	DIC Line Location: DIE+6 DIE+16
Routine Call	DIC Line Location: LOOK+1
Routine Call	DIC Line Location: DIC+3
Routine Call	DIE Line Location: DIE+4 DIE+9 DIE+18
Routine Call	DIR Line Location: DIE+8 EDIT+1

FileNo	Call Tags
^APSPQA(32.3 - [#9009032.3]	FIND1^DIC, FIND^DIC
^APSPQA(32.4 - [#9009032.4]	Classic Fileman Calls
^APSPQA(32.5 - [#9009032.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APSPQA(32.4 - [#9009032.4]	START+5, DIE+3, DIE+15, DIE+19
^DD("DILOCKTM"	DIE+3
^PS(53.1 - [#53.1]	EN1+4, EN1+8
^PSDRUG - [#50]	INIT+2, DIE+12
^TMP("PSJINTER"	DIE+13, DIE+14*

Label References

Name	Line Occurrences
DIC	START+3
DICX	DIC+5, DIC+12
DIE	DIC+13, EDIT+2
EDIT	START+4, EDIT+3
EDITX	EDIT+1
EN1X	EN1+4
END	START+3
EOJ	END
INIT	START+2
START	EN1+9, EN3+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CDRG2	EN3~, EN3+5, EN3+6!
DA	DIC+1~, DIC+9!, DIE+1!, DIE+2, DIE+4!, DIE+9, DIE+11!, DIE+18*!
DD	DIC+1~
>> DFN	EN1+2
DIC	DIC+1~, DIC+6, DIC+9!, DIE+1!, DIE+4!, DIE+6!, DIE+11!, DIE+16*, DIE+18!
DIC("DR"	DIC+7, DIC+8
DIC(0	DIC+6, DIE+6, DIE+16*
DIE	DIE+1!, DIE+2, DIE+4!, DIE+9, DIE+11!, DIE+18*!
DIR	DIE+7~, EDIT+1!
DIR("?"	DIE+7*
DIR("A"	DIE+7, EDIT+1
DIR("B"	EDIT+1*
DIR(0	DIE+7, EDIT+1
>> DIRUT	EDIT+1
>> DLAYGO	DIC+6*
DO	DIC+1~
DR	DIC+1~, DIC+9!, DIE+1!, DIE+2, DIE+4!, DIE+9, DIE+11!, DIE+18*!
DT	DIC+6
DUZ	DIC+7
>> PSGDT	DIE+14
>> PSGP	DIC+7
>> PSJAADPT	DIE+2, DIE+5
>> PSJDAL	EOJ+1
>> PSJDAL("DA"	EOJ+1*
>> PSJDD	INIT+2, DIC+7, DIE+12, EN3+5*
PSJDFN	EN1+3~, EN1+7*
PSJDRUG	EN1+3~, EN1+8*
PSJDRUG("IEN"	EN1+8*
PSJINTOI	DIE+1~, DIE+12*, DIE+14
PSJIVDSN	EN3+2~*, EN3+6!
PSJIVDST	EN3~, EN3+4, LOOK+1
PSJNEW	EN1+3~
PSJNEW("PROVIDER"	START+5, EN1+7
PSJORDER	EN1~, EN1+2*, EN1+5, EN1+6, EN1+8
PSJOVRS	DIE+1~, DIE+16*
PSJQREC	DIE+5~, DIE+6, DIE+8, DIE+9, DIE+10
PSJRECOM	DIE+1~, DIE+15*, DIE+16, DIE+17
PSJRXI	INIT+3!, EOJ+2!
PSJRXI("DA"	START+5, DIC+11*, DIE+2, DIE+3, DIE+9, DIE+13, DIE+14, DIE+15, DIE+18, DIE+19 , EOJ+1
PSJRXI("EDIT"	DIE+2, EDIT+2*
PSJRXI("IRXN"	EN1+5*, EN1+8
PSJRXI("QFLG"	START+3, INIT+4, DIC+12
PSJRXIEN	DIC+1~, DIC+4, DIC+5, DIC+8, LOOK+1
PSJRXIEN("DILIST"	DIC+4
>> PSJRXREQ	DIC+2, DIC+3, DICX+2, DIE+14, EN3+4
>> PSJSITE	DIC+8
PSJTMPDT	DIE+1~, DIE+13*, DIE+14
>> PSJX	EN1+1, EN1+4
PSJY	DIC+1~, DIC+5, DIC+10, DICX+1, EN1+3~, EN1+6!*, EN1+7
SAVEX	START+1~*, EOJ+2
SAVEY	START+1~*, EOJ+2
X	START+1, DIC+1~, DIC+6, DICX+4!, DIE+4!, DIE+6, DIE+11!, DIE+16, DIE+18!, EDITX! , EOJ+2
Y	START+1, DIC+1~, DIC+10, DIC+11, DICX+4!, DIE+4!, DIE+6, DIE+10, DIE+11!, DIE+16* , DIE+18!, EDIT+1, EDITX!, EOJ+2*

Customize PDF page

Package: Inpatient Medications