Routine: PSNOP54

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$PATCH^XPDUTL
VA Fileman	4	^%DT NOW^%DTC EN^DDIOL ^DIR
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Inpatient Medications	1	PSJUTL99

Entry Points

Name	Comments	DBIA/ICR reference
EN
HDR	;
EXC	;builds exceptions
PT
GET	;med list
EOJ
DIDI	;check for interactions
BUILDX	;
GETX
START	;
BUILD	;build profiles
RPT
BUILDXB	;
OUT	;data print

External References

Name	Field # of Occurrence
^%DT	START+7, START+9
NOW^%DTC	HDR+1
^%ZIS	START+12
^%ZISC	EOJ+4
^%ZTLOAD	START+15
EN^DDIOL	START+1, START+8
^DIR	START+5
DEM^VADPT	EXC+10
$$PATCH^XPDUTL	START+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report searches Outpatient Medications looking for drug interactions",!,"based on the data in ^XTMP(""PSNINT"",VA PRODUCT,VA PRODUCT,1)",! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: START+8
Function Call: WRITE	Prompt: ! Line Location: START+12
Function Call: WRITE	Prompt: !,"Nothing Printed" Line Location: START+12
Function Call: WRITE	Prompt: !,"The primary data for this report does not exist",!! Line Location: BUILD+1
Function Call: WRITE	Prompt: @IOF Line Location: BUILDX+4
Function Call: WRITE	Prompt: @IOF Line Location: BUILDXB+2
Function Call: WRITE	Prompt: !!,"NO EXCEPTIONS FOUND!",! Line Location: OUT+1
Function Call: WRITE	Prompt: ! Line Location: OUT+3
Function Call: WRITE	Prompt: "_" Line Location: OUT+3
Function Call: WRITE	Prompt: !,$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^"),?40,"PID: "_$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^",2),?60,"DOB: "_$P(^TMP($S(PSONISS:"ZPSN PSOEX",1:"PSN PSOEX"),$J,PT,0),"^",3) Line Location: OUT+8
Function Call: WRITE	Prompt: !,"Interaction Inactivation Date: "_$P($G(^TMP("ZPSN PSOEX",$J,PT,RX,PSOF,PSOG,1,0)),"^",5) Line Location: OUT+10
Function Call: WRITE	Prompt: "Interaction inactivated on "_$P($G(^TMP("ZPSN PSOEX",$J,PT,RX,PSOF,PSOG,1,0)),"^",5),! Line Location: RPT+5
Function Call: WRITE	Prompt: @IOF,"Possible Unreported Drug Interactions",?($X+5),"Print Date: "_Y,?($X+10),"Page: "_PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Inactivated Drug Interactions" Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: "=" Line Location: HDR+4
Function Call: WRITE	Prompt: ! Line Location: HDR+5
Routine Call	DIR Line Location: START+5
Routine Call	%ZIS Line Location: START+12

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+7, GET+10, HDR+1
^PS(55 - [#55]	PT, PT+1
^PS(56 - [#56]	DIDI+9, DIDI+12
^PSDRUG - [#50]	GET+7, GET+8, GET+9
^PSRX - [#52]	PT+1, GET+1, GET+2, GET+11, EXC+3
^TMP(	EXC+9, EXC+11, EXC+13, EXC+14, EXC+15, EXC+16, EXC+17, OUT+3, OUT+5, OUT+6 , OUT+7, OUT+8, OUT+9, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT, RPT+1 , RPT+2, RPT+3, RPT+4
^TMP("PSN PSO"	START+3!, PT+2!, GET+11, EOJ+2!, DIDI+1, DIDI+2, DIDI+4, DIDI+11, DIDI+14*, EXC+13 , EXC+14, EXC+17
^TMP("PSN PSOEX"	START+3!, EOJ+1!, OUT+1
^TMP("ZPSN PSOEX"	START+4!, BUILDX+3, BUILDXB+2, BUILDXB+4, EOJ+3!, EXC+19*, OUT+1, OUT+10, RPT+5
^XTMP("PSNINT"	BUILD+1, DIDI+5, DIDI+7, EXC+15, EXC+16

Label References

Name	Line Occurrences
BUILD	EN
BUILDX	PT
BUILDXB	BUILDX+1
DIDI	PT+2
EOJ	START+5, START+9, START+12, START+13, EN
EXC	DIDI+11, DIDI+14
GET	PT+1
GETX	GET+5, GET+7
HDR	OUT+1, OUT+4, OUT+8
OUT	BUILDX+2, BUILDX+3, BUILDXB+1, BUILDXB+2, BUILDXB+3, BUILDXB+4
PT	PT+3
RPT	OUT+2

Naked Globals

Name	Field # of Occurrence
^("STA"	GET+2
^(0	GET+1
^(2	GET+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EOJ+2!, HDR+1
%DT	START+7, START+9, EOJ+2!
%DT("A"	START+9*
%DT("B"	START+9*
%ZIS	START+12!*
DFN	EXC+10*!
DIR	START+3!, EOJ+1!
DIR("A"	START+5*
DIR("B"	START+5*
DIR(0	START+5*
DIRUT	START+3!, START+5, EOJ+1!
DT	EXC+7
DTOUT	EOJ+1!
DUOUT	EOJ+1!
ED	GET+10*, GET+11, EOJ+2!
FD	GET+10*, GET+11, EOJ+2!
IO	OUT+1, RPT, HDR+2
IO("Q"	START+13
IOF	BUILDX+4, BUILDXB+2, HDR+2
IOM	OUT+3, HDR+4
IOP	START+12!
IOSL	OUT+4, OUT+8
NDF1	EOJ+2!, DIDI+1*, DIDI+5, DIDI+7, EXC+15, EXC+16
NDF2	EOJ+2!, DIDI+4*, DIDI+5, DIDI+7, EXC+15, EXC+16
PG	EOJ+1!, HDR+1*, HDR+2
POP	START+12!
PSNVP	EOJ+3!, DIDI+5*, DIDI+7, EXC+15, EXC+16
PSNW	DIDI+6!
PSOCUTDT	START+10*, PT, EOJ+1!
PSODRG	GET+6*, GET+7, GET+8, GET+9, GET+11, EOJ!
PSODRUGN	GET+8*, GET+11, EOJ!
PSOEXPDT	PT, PT+1, EOJ!
PSOF	EOJ+3!, OUT+6, OUT+7, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15 , RPT+1, RPT+2, RPT+3, RPT+4, RPT+5
PSOG	EOJ+3!, OUT+7, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT+2 , RPT+3, RPT+4, RPT+5
PSOININD	EOJ+3!, DIDI+6!, DIDI+9, DIDI+10!, DIDI+12, DIDI+13!, EXC+1, EXC+8, EXC+19
PSOINN1	EOJ+3!, DIDI+6!, DIDI+7*, DIDI+8, DIDI+9, DIDI+11, DIDI+12
PSOINN2	EOJ+3!, DIDI+6!, DIDI+7*, DIDI+8, DIDI+12, DIDI+14
PSOISLAT	EOJ+3!, EXC+4!, EXC+5, EXC+6, EXC+7, EXC+8
PSOISSD1	EOJ+3!, EXC+3*, EXC+4, EXC+5, EXC+6
PSOISSD2	EOJ+3!, EXC+3*, EXC+4, EXC+5, EXC+6
PSONDF	GET+9*, GET+11, EOJ!
PSONISS	BUILDX+2, BUILDX+3, BUILDXB+1, BUILDXB+2, BUILDXB+3, BUILDXB+4, EOJ+3!, OUT+3, OUT+5, OUT+6 , OUT+7, OUT+8, OUT+9, OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT , RPT+1, RPT+2, RPT+3, RPT+4, RPT+5, HDR+3
PSORX0	GET+2*, GET+6, EOJ!
PSOSETIN	EOJ+3!
PSOST0	GET+2*, GET+4, GET+5, EOJ!
PSOW	EOJ+3!, DIDI+11, DIDI+14, EXC+13, EXC+14, EXC+15, EXC+16, EXC+17, EXC+19
PSOZZACT	EOJ+3!, EXC+1, EXC+8, EXC+9, EXC+11, EXC+13, EXC+14, EXC+15, EXC+16, EXC+17 , EXC+19
PT	BUILD+2, PT, PT+1, GET+1, EOJ+1!, EXC+9, EXC+10, EXC+11, EXC+13, EXC+14 , EXC+15, EXC+16, EXC+17, EXC+19, OUT+3, OUT+5, OUT+6, OUT+7, OUT+8, OUT+9 , OUT+10, OUT+11, OUT+12, OUT+13, OUT+14, OUT+15, RPT, RPT+1, RPT+2, RPT+3 , RPT+4, RPT+5
RPT	START+5, BUILDX+1, BUILDX+4, BUILDXB+1, BUILDXB+3*, EOJ+1!, OUT+1, OUT+2
RX	PT+1, GET+1, GET+2, GET+11, EOJ!, OUT+6, OUT+7, OUT+9, OUT+10, OUT+11 , OUT+12, OUT+13, OUT+14, OUT+15, RPT+1*, RPT+2, RPT+3, RPT+4, RPT+5
RX2	GET+2*, GET+10, EOJ!
SS	EOJ!, OUT+3, HDR+4
STA	GET+3*, GET+4, EOJ!
STATUS	GET+4*, GET+11, EOJ!
VADM	EXC+12!
VADM(1	EXC+11
VADM(2	EXC+11
VADM(3	EXC+11
VADM(4	EXC+11
VADM(5	EXC+11
X	START+7*, EOJ+1!
XI	EOJ+1!, DIDI+1*, DIDI+2, DIDI+11, DIDI+14, EXC+3, EXC+13, EXC+14, EXC+15, EXC+16 , EXC+17, EXC+19
XT	EOJ+1!, DIDI+2*, DIDI+4, DIDI+11, DIDI+14, EXC+3, EXC+13, EXC+14, EXC+15, EXC+16 , EXC+17, EXC+19
>> Y	START+5, START+9, START+10, GET+10, HDR+1, HDR+2
>> ZTDESC	START+14*
>> ZTREQ	START+15*
>> ZTRTN	START+14*
>> ZTSAVE("PSOCUTDT"	START+14*
>> ZTSAVE("RPT"	START+14*
>> ZTSK	START+15

Customize PDF page

Package: National Drug File

Routine: PSNOP54

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: