Routine: PSNMRG

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC (T0,T1)^%ZOSV ^%ZTLOAD $$PATCH^XPDUTL
National Drug File	2	$$PROD2^PSNAPIS ^PSNPSS
Pharmacy Data Management	2	DRG^PSSHUIDG EN2^PSSUTIL

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC (T0,T1)^%ZOSV ^%ZTLOAD $$PATCH^XPDUTL

National Drug File

$$PROD2^PSNAPIS ^PSNPSS

Pharmacy Data Management

DRG^PSSHUIDG EN2^PSSUTIL

Package	Total	Caller Graph
National Drug File	2	PSNMRG PSNOUT

Package

Total

Caller Graph

National Drug File

PSNMRG PSNOUT

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	QUE, DONE
T0^%ZOSV	LOOP
T1^%ZOSV	LOOP+1
^%ZTLOAD	QUE
$$PROD2^PSNAPIS	SET+6
^PSNPSS	SET+9
DRG^PSSHUIDG	SET+20
EN2^PSSUTIL	SET+11
$$PATCH^XPDUTL	SET+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This option will merge NDF fields into your local drug file. This will also",!,"produce an Error Report for entries in the translation file which are not",!,"in the local file if they should exist." Line Location: PSNMRG+12
Function Call: WRITE	Prompt: " These exceptions will not be merged.",! Line Location: PSNMRG+13
Function Call: WRITE	Prompt: !,"You may queue this report if you wish.",! Line Location: PSNMRG+14
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+0
Function Call: WRITE	Prompt: !,?32,"MERGE ERROR REPORT",! Line Location: TITLE+1
Function Call: WRITE	Prompt: !,"Date Printed: ",Y,?73,"Page: ",PSNPGCT,! Line Location: TITLE+2
Function Call: WRITE	Prompt: !!,"INTERNAL FILE NUMBER",?30,"VA PRODUCT NAME",! Line Location: TITLE+3
Function Call: WRITE	Prompt: "-" Line Location: TITLE+4
Function Call: WRITE	Prompt: !!,?30,"No Errors Found During Merge",!!! Line Location: LOOP+2
Function Call: WRITE	Prompt: !,?8,PSNB,?30,FRMNAM,!,"*** This entry no longer exists in your local drug file. *** ",!," This entry will not be merged. ",! Line Location: LOOP+3
Function Call: WRITE	Prompt: !,?5,DISPNM,?51,"needs to be rematched to Orderable Item." Line Location: LOOP+4
Function Call: WRITE	Prompt: !,"Additive ",?12,ADNM,?51,"needs to be rematched to Orderable Item." Line Location: LOOP+5
Function Call: WRITE	Prompt: !,"Solution ",?12,SLNM,?51,"needs to be rematched to Orderable Item." Line Location: LOOP+6
Routine Call	%ZIS Line Location: DVC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	SET+9, SET+11
^DD("DD"	TITLE+2
^PS(50.3 - [#50.3]	SET+15
^PS(50.605 - [#50.605]	SET+13, SET+19, SETAPC
^PS(59.7 - [#59.7]	SET+13
^PSDRUG - [#50]	SET+1, SET+4, SET+5, SET+6, SET+7, SET+8, SET+13*, SET+15, SET+19
^PSDRUG("AND"	SET+4*
^PSDRUG("AOC"	SET+18!, SET+19*
^PSDRUG("APC"	SET+14, SET+15, SETAPC!
^PSDRUG("AQ1"	SET+6*
^PSDRUG("VAC"	SET+2!, SET+4*
^PSDRUG("VAPN"	SET+5*
^PSNDF(50.68 - [#50.68]	SET+1, SET+4, SET+7, SET+8
^PSNTRAN - [#50.612]	LOOP, LOOP+3!, SET+1, SET+3, SET+16!
^PSNTRAN(0	SET+16*
^TMP("PSNAD"	LOOP+5, KILLIT!
^TMP("PSNDP"	LOOP+4, KILLIT!
^TMP("PSNSL"	LOOP+6, KILLIT!
^TMP($J	LOOP!, LOOP+2, LOOP+3, SET+1*

Name	Line Occurrences
DONE	DVC
DVC	DVC
LOOP	ENQ
SET	LOOP
SETAPC	SET+14
TITLE	ENQ, LOOP+3, LOOP+4, LOOP+5, LOOP+6

Name	Field # of Occurrence
^(49.99	SET+13

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZIS("A"	DVC*
%ZIS("B"	DVC*
ADNM	LOOP+5*, KILLIT!
ANS	KILLIT!
CLDA	KILLIT!, SET+13*, SET+19, SETAPC
>> COD	SET+14, SET+18, SETAPC
CS	SET+8~*!
>> DA	SET+6*
DISPNM	LOOP+4*, KILLIT!
DT	TITLE+2
FLAG	DONE!, SET+12, SET+15, SETAPC
FORMI	SET+7*, SET+10!
FRMNAM	LOOP+3, KILLIT!, SET+1*
IO	ENQ
IO("Q"	DVC!, QUE!, DONE!
IOF	DONE, TITLE
IOP	DVC!, DONE!
IOSL	ENQ, LOOP+3, LOOP+4, LOOP+5, LOOP+6
IOST	DVC
>> K	SET+6*
MJT	DONE!, TITLE+4*
MMM	SET+6*, SET+10!
NNN	SET+6*, SET+7, SET+8, SET+10!
POP	DVC!, DONE!
>> PP	SET+14, SET+18, SETAPC
PRIM	DONE!, SET+15, SET+19
PSNB	LOOP, LOOP+3, KILLIT!, SET+1, SET+2, SET+3, SET+4, SET+5, SET+6, SET+7 , SET+8, SET+11, SET+13, SET+14, SET+15, SET+16, SET+18, SET+19, SET+20, SETAPC
PSNEX	SET+5*!
>> PSNFL	SET
PSNIO	KILLIT!
PSNNODE	KILLIT!, SET+3*, SET+4, SET+13
PSNPGCT	ENQ, DONE!, TITLE, TITLE+2
PSNPGLNG	ENQ*, DONE!
SLNM	LOOP+6*, KILLIT!
VADC	DONE!, SET+2*
>> X	SET+6, SET+9, SET+11*
>> XRT0	LOOP+1
>> XRTL	LOOP
>> XRTN	LOOP+1*
Y	DONE!, TITLE+2*
>> ZTDESC	QUE*
>> ZTQUEUED	DONE
>> ZTREQ	DONE*
ZTRTN	QUE*, KILLIT!
ZTSK	QUE!

Customize PDF page

Package: National Drug File

Routine: PSNMRG

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items