Routine: PSNCLEHW

Information

PSNCLEHW ;BIR/LE-CLINICAL EFFECTS & HAZARDOUS WASTE DISPLAY ; 07/02/03 14:01

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
VA FileMan	3	GETS^DIQ ^DIR ^DIWP

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

Package	Total	Caller Graph
National Drug File	2	PSNACT PSNLOOK

Entry Points

Name	Comments	DBIA/ICR reference
CLEFF(VAPRD,QUIT)	;Display Clinical Effects fields
CLEFFS	;
CLEFFW(PSNPKG,PSNOMIT,PSNEXLMT)	;
HAZWASTE(VAPRD,QUIT)	;Display Hazardous Waste fields
END	;
HANG

External References

Name	Field # of Occurrence
GETS^DIQ	CLEFF+5, HAZWASTE+8
^DIR	HANG
^DIWP	HAZWASTE+23

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"CLINICAL EFFECT DURATION: ",$S($D(PSNCLEFA):"YES",1:"NO") Line Location: CLEFF+6
Function Call: WRITE	Prompt: !?3,PSNPACK2," DURATION LIMIT: " Line Location: CLEFFW+3
Function Call: WRITE	Prompt: PSNEXLMT Condition for execution: PSNOMIT="NO" Line Location: CLEFFW+3
Function Call: WRITE	Prompt: !?6,"OMIT EXP/DC ORDER CHECK: ",PSNOMIT Line Location: CLEFFW+3
Function Call: WRITE	Prompt: ! Line Location: HAZWASTE+6
Function Call: WRITE	Prompt: !," DOT Shipping Name: " Line Location: HAZWASTE+25
Function Call: WRITE	Prompt: !," " Line Location: HAZWASTE+26
Function Call: WRITE	Prompt: ! Line Location: HAZWASTE+30
Routine Call	DIR Line Location: HANG

FileNo	Call Tags
^PSNDF(50.68 - [#50.68]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	HAZWASTE+20!, HAZWASTE+24, HAZWASTE+27, HAZWASTE+28!

Label References

Name	Line Occurrences
CLEFFS	CLEFF+13, CLEFF+15
CLEFFW	CLEFF+13, CLEFF+15
END	HAZWASTE+7, HAZWASTE+12, HAZWASTE+14, HAZWASTE+16, HAZWASTE+18
HANG	CLEFFW+4, HAZWASTE+7, HAZWASTE+12, HAZWASTE+14, HAZWASTE+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	HANG!
DIR("A"	HANG*
DIR(0	HANG*
DIWF	HAZWASTE+19~
DIWL	HAZWASTE+19~, HAZWASTE+21*, HAZWASTE+24, HAZWASTE+27
DIWR	HAZWASTE+19~, HAZWASTE+21*
HAZARY	HAZWASTE+5~, HAZWASTE+31!
HAZARY(	HAZWASTE+10, HAZWASTE+11, HAZWASTE+13, HAZWASTE+15, HAZWASTE+17, HAZWASTE+22, HAZWASTE+23
HAZHTDX	HAZWASTE+5~, HAZWASTE+9, HAZWASTE+10, HAZWASTE+15, HAZWASTE+17, HAZWASTE+31!
HAZWCNT	HAZWASTE+19~, HAZWASTE+21, HAZWASTE+22, HAZWASTE+23, HAZWASTE+24*, HAZWASTE+27
HAZWCNT2	HAZWASTE+19~, HAZWASTE+21, HAZWASTE+25, HAZWASTE+26, HAZWASTE+27
II	CLEFF+4~, CLEFF+8, CLEFF+9, CLEFF+10, CLEFF+11
III	CLEFF+4~, CLEFF+8, CLEFF+9
IOF	HANG
IOSL	CLEFFW+4, HAZWASTE+7, HAZWASTE+12, HAZWASTE+14, HAZWASTE+16
PSNCLEF	CLEFF+4~
PSNCLEF(	CLEFF+11*, CLEFF+14, CLEFFS+1
PSNCLEF("IO"	CLEFF+13
PSNCLEFA	CLEFF+4~, CLEFF+6, CLEFF+7
PSNCLEFA(	CLEFF+9, CLEFF+10, CLEFF+11
PSNEXLMT	CLEFF+4~, CLEFF+11, CLEFF+13, CLEFF+15, CLEFFS+1, CLEFFW~, CLEFFW+3
PSNHWQT	CLEFF+4~, CLEFF+15, HAZWASTE+5~, HAZWASTE+18
PSNOMIT	CLEFF+4~, CLEFF+10, CLEFF+11, CLEFF+13, CLEFF+15, CLEFFS+1, CLEFFW~, CLEFFW+3
PSNPACK2	CLEFFW+1~, CLEFFW+2, CLEFFW+3
PSNPKG	CLEFF+4~, CLEFF+10, CLEFF+11, CLEFF+13, CLEFF+14*, CLEFF+15, CLEFFS+1, CLEFFW~, CLEFFW+2
PSNPKG2	CLEFF+4~
QUIT	CLEFF~, CLEFF+2, CLEFF+3, CLEFF+4~, CLEFF+8, CLEFF+13, CLEFF+14, CLEFF+15, CLEFF+16, HAZWASTE~ , HAZWASTE+3, HAZWASTE+4, HAZWASTE+7, HAZWASTE+12, HAZWASTE+14, HAZWASTE+16, HAZWASTE+18, END+1, HANG
VAPRD	CLEFF~, CLEFF+5, HAZWASTE~, HAZWASTE+8, HAZWASTE+10, HAZWASTE+11, HAZWASTE+13, HAZWASTE+15, HAZWASTE+17, HAZWASTE+22 , HAZWASTE+23
X	CLEFF+4~, HAZWASTE+19~, HAZWASTE+23*
Y	CLEFF+4~, HANG

Customize PDF page

Package: National Drug File