Routine: PSNHIT

Package	Total	Call Graph
National Drug File	6	$$VAP^PSNAPIS (PUNT,TRY3)^PSNCOMP (HIT1,NDC3,RES1)^PSNHELP SET^PSNHIT (PKSIZE,PKTYPE)^PSNOUT ^PSNSTCK
Kernel	1	T1^%ZOSV
VA Fileman	1	^DIR

Package

Total

Call Graph

National Drug File

$$VAP^PSNAPIS (PUNT,TRY3)^PSNCOMP (HIT1,NDC3,RES1)^PSNHELP SET^PSNHIT (PKSIZE,PKTYPE)^PSNOUT ^PSNSTCK

Kernel

T1^%ZOSV

VA Fileman

^DIR

Package	Total	Caller Graph
National Drug File	4	PSNCOMP PSNDRUG PSNHIT PSNNDC

Package

Total

Caller Graph

National Drug File

PSNCOMP PSNDRUG PSNHIT PSNNDC

Entry Points

External References

Name	Field # of Occurrence
T1^%ZOSV	VAPN
^DIR	ASKIT+1, ASKIT1+1
$$VAP^PSNAPIS	FORM
PUNT^PSNCOMP	RESP, RESP+2
TRY3^PSNCOMP	VAPN+4
HIT1^PSNHELP	WRTIT+3
NDC3^PSNHELP	VAPN+2
RES1^PSNHELP	RESP+5
SET^PSNHIT	ASKIT+3, ASKIT1+3
PKSIZE^PSNOUT	ASKIT, ASKIT1
PKTYPE^PSNOUT	ASKIT, ASKIT1
^PSNSTCK	RESP+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Match made with ",PSNLOC Line Location: HIT+0
Function Call: WRITE	Prompt: ?62,"N/F" Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1 Line Location: HIT+0
Function Call: WRITE	Prompt: !," Now select VA Product Name ",! Line Location: HIT+0
Function Call: WRITE	Prompt: $P(LIST(IEN),"^",2) Line Location: HIT+1
Function Call: READ	Timeout: DTIME Variable: ANS Line Location: WRTIT+0
Function Call: READ	Prompt: "Enter your choice: " Formatting: !! Timeout: DTIME Variable: ANS Line Location: VAPN+0
Function Call: WRITE	Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(PSNODE):"",1:$P(PSNODE,"^",8)),!,?5 Line Location: VAPN+3
Function Call: WRITE	Prompt: !!,"Invalid answer",! Line Location: VAPN+5
Function Call: READ	Timeout: DTIME Line Location: RESP+0
Function Call: WRITE	Prompt: !," Invalid Response " Line Location: RESP+6
Function Call: WRITE	Prompt: !,"Inactive VA Product entry has been selected!!",!! Line Location: RESP+7
Function Call: WRITE	Prompt: " ",PSND," ",PSNVC Line Location: PRA+2
Function Call: WRITE	Prompt: " ",PSND," ",PSNVC Line Location: PRA+3
Function Call: WRITE	Prompt: !!,"No match found" Line Location: OOPS+0
Function Call: WRITE	Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE Line Location: ASKIT+0
Function Call: WRITE	Prompt: !?10,"Is this a match ?" Line Location: ASKIT+1
Function Call: WRITE	Prompt: !!,"Local drug ",$P(^PSDRUG(PSNB,0),"^"),!,"matches ",?11,PSNFORM,!,"PACKAGE SIZE: ",PSNSZE,!,"PACKAGE TYPE: ",PSNTPE Line Location: ASKIT1+0
Function Call: WRITE	Prompt: !?10,"Is this a match ?" Line Location: ASKIT1+1
Routine Call	DIR Line Location: ASKIT+1 ASKIT1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	VAPN+2
^PSDRUG - [#50]	HIT, ASKIT, ASKIT1, PKI+3, PKI+4
^PSNDF(50.68 - [#50.68]	RESP+8, SETARY1, PKI+1
^PSNTRAN - [#50.612]	SET, SET+1, OOPS
^PSNTRAN(0	SET*
^TMP($J	FORM, WRTIT+1, VAPN+5, VAPN+6, STAR!, SETARY1, ARRAY, KILL+1!, STAR0!, EXTD

Name	Line Occurrences
ARRAY	SETARY1
EXTD	WRTIT
FORM	WRTIT+2, WRTIT+3, WRTIT+5, VAPN+3, VAPN+5, RESP+3, RESP+7
PKI	SET+1
RESP	RESP+1, RESP+5, RESP+6
SETARY1	STAR
STAR	FORM
STAR0	FORM
VAPN	VAPN+1

Name	Field # of Occurrence
^(7	PKI+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	FORM!, WRTIT, WRTIT+2, WRTIT+3!, WRTIT+4!, WRTIT+5, VAPN, VAPN+1!, VAPN+2, VAPN+3! , VAPN+4, VAPN+5!, VAPN+6, RESP*!, RESP+1, RESP+2!, RESP+3!, RESP+4, RESP+5!, RESP+6 , RESP+9!, KILL!
ASC	PSNHIT+6*, WRTIT, KILL+1!
BB	WRTIT*, WRTIT+1, KILL+1!, EXTD
>> CID	SETARY1*, ARRAY
>> CMID	WRTIT+1, EXTD*
CS	PKI~, PKI+1, PKI+2, PKI+3, PKI+4, PKI+6
DA	FORM!*
DIC	KILL!
DIR	ASKIT+1!, ASKIT1+1!
DIR("B"	ASKIT+1, ASKIT1+1
DIR(0	ASKIT+1, ASKIT1+1
>> DIRUT	ASKIT+1, ASKIT1+1
DOS	KILL!
DTIME	WRTIT, VAPN, RESP
>> DUNCE	ASKIT1, ASKIT1+2
DUZ	SET+1, OOPS
END	KILL+1!
IEN	KILL+1!, STAR0*
IFN	KILL!
II	KILL!
IOF	SET+1
JJ	KILL!
>> KK	VAPN+6, RESP+7, SETARY1, ARRAY
LIST	FORM!, KILL+1!
LIST(	RESP+7, ARRAY, STAR0
MJL	KILL!
NBR	KILL!
NDP	KILL!
>> NOMSYN	ASKIT1+2*
PS	KILL!
>> PSNB	HIT, SET, SET+1, OOPS, ASKIT, ASKIT1, PKI+3, PKI+4
PSNCLASS	RESP+8*, SET+1, KILL!
PSNDA	FORM, RESP+8, KILL!
PSNDDA	KILL!
PSNFL	HIT+1, WRTIT, WRTIT+4, VAPN, RESP+4, RESP+8, SET+1*, KILL!
PSNFNM	VAPN+6*, RESP+8, SET+1, KILL!, PKI+1
PSNFORM	RESP!, RESP+2!, RESP+3!, KILL!, ASKIT, ASKIT1
PSNLOC	HIT, KILL+1!
>> PSNM	STAR*, SETARY1, ARRAY
PSNNAM	VAPN+2, KILL!
PSNNAME	KILL!
PSNNDC	KILL!
PSNNDF	RESP+8*, SET+1, KILL!
PSNODE	VAPN+2, VAPN+3, KILL+1!
PSNOU	VAPN+2, KILL+1!
PSNRAN	STAR, ARRAY, KILL+1!
PSNSIZE	SET+1, KILL!
PSNSP	KILL!
PSNSTDA	KILL!
PSNSZ	KILL!
PSNSZE	KILL!, ASKIT, ASKIT1
PSNTPE	KILL+1!, ASKIT, ASKIT1
PSNTRFL	KILL!
PSNTYP	KILL!
PSNTYPE	SET+1, KILL!
PSNUNDA	KILL!
PSNV	KILL+1!
PSNVAR	RESP+8*, KILL!
PSNWR	FORM*, KILL+1!
PSNX	KILL+1!
PSNZ	KILL+1!
PT	KILL!
>> STOP	FORM*, WRTIT
STR	KILL!
UNT	KILL!
VADC	KILL+1!
VV	KILL!
VV1	KILL!
WRT	STAR*, KILL+1!
X	FORM, RESP+2, KILL!, PKI+7
>> XRT0	VAPN
>> XRTN	VAPN*
Y	KILL!
Y(0	ASKIT+2, ASKIT+3, ASKIT1+2, ASKIT1+3

Customize PDF page

Package: National Drug File

Routine: PSNHIT

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
VAPN
STAR0
SET
HIT
FORM
SETARY1
RESP
EXTD
STAR
ASKIT1
KILL
OOPS
ASKIT
PRA	; PRINT DOSE FORM AND CLASS AFTER VA PRODUCT NAME IF A DUPLICATE ; S PSNDFM=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",1),PSND=$P(^PS(50.606,PSNDFM,0),"^",1) ; S PSNVCL=$P(^PSNDF(PSNDA,2,$P(^PSNDF(PSNDA,5,KK,0),"^",2),0),"^",3),PSNVC=$P(^PS(50.605,PSNVCL,0),"^",1) W " ",PSND," ",PSNVC S PSNF=0 Q ; W " ",PSND," ",PSNVC S PSNF=0 Q
ARRAY
PKI
WRTIT