Routine: PSNVFY

Package	Total	Call Graph
National Drug File	4	$$PROD2^PSNAPIS BLDIT^PSNCOMP RES2^PSNHELP (INGRED,PKSIZE,PKTYPE)^PSNOUT

Package	Total	Caller Graph
National Drug File	3	PSNOUT PSNVER PSNVFY

Entry Points

External References

Name	Field # of Occurrence
$$PROD2^PSNAPIS	START+6
BLDIT^PSNCOMP	RESP+6
RES2^PSNHELP	RESP+7
INGRED^PSNOUT	START+12
PKSIZE^PSNOUT	START+9
PKTYPE^PSNOUT	START+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+0
Function Call: WRITE	Prompt: ?2,"LOCAL DRUG NAME: ",PSNOLD Line Location: START+0
Function Call: WRITE	Prompt: ?68,"N/F" Condition for execution: $P(^PSDRUG(PSNB,0),"^",9)=1 Line Location: START+0
Function Call: WRITE	Prompt: !,?40,"ORDER UNIT:" Line Location: START+1
Function Call: WRITE	Prompt: !,?24,"DISPENSE UNITS/ORDER UNITS: ",$S('$D(NODE):"",1:$P(NODE,"^",5)),!,?37,"DISPENSE UNIT: ",$S('$D(NODE):"",1:$P(NODE,"^",8)) Line Location: START+3
Function Call: WRITE	Prompt: !!,"VA PRODUCT NAME: ",PSNNEW Line Location: START+4
Function Call: WRITE	Prompt: !,"VA PRINT NAME: ",$P(X,"^"),?57,"CMOP ID: ",$P(X,"^",2),!,"VA DISPENSE UNIT: ",$P(X,"^",4) Line Location: START+6
Function Call: WRITE	Prompt: ?57,"MARKABLE FOR CMOP: " Line Location: START+7
Function Call: WRITE	Prompt: "YES" Condition for execution: $P(X,"^",3)=1 Line Location: START+7
Function Call: WRITE	Prompt: "NO" Condition for execution: $P(X,"^",3)=0 Line Location: START+7
Function Call: WRITE	Prompt: "NOT MARKED" Condition for execution: $P(X,"^",3)="" Line Location: START+7
Function Call: WRITE	Prompt: !,?5,"PACKAGE SIZE: ",PSNSZE,!,?5,"PACKAGE TYPE: ",PSNTPE Line Location: START+9
Function Call: WRITE	Prompt: !,"VA CLASS: ",$P(^PS(50.605,PSNVADC,0),"^",1)_" "_$P(^PS(50.605,PSNVADC,0),"^",2) Line Location: START+10
Function Call: WRITE	Prompt: !,"CS FEDERAL SCHEDULE: "_$S($P($G(^PSNDF(50.68,PSNFNM,7)),"^"):$P(^PSNDF(50.68,PSNFNM,7),"^"),1:"") Line Location: START+11
Function Call: WRITE	Prompt: !,"INGREDIENTS:" Line Location: START+12
Function Call: WRITE	Prompt: !,"NATIONAL FORMULARY INDICATOR: " Line Location: START+14
Function Call: WRITE	Prompt: ?30,"YES" Condition for execution: NFI=1 Line Location: START+14
Function Call: WRITE	Prompt: ?30,"NO" Condition for execution: NFI=0 Line Location: START+14
Function Call: WRITE	Prompt: !,"NATIONAL FORMULARY RESTRICTION:",!,NFR Line Location: START+15
Function Call: WRITE	Prompt: !!,"< Enter ""Y"" for yes, ""N"" for no >" Line Location: RESP+0
Function Call: READ	Timeout: DTIME Line Location: RESP+2
Function Call: WRITE	Prompt: ! Line Location: RESP+5
Function Call: WRITE	Prompt: !," Invalid Response " Line Location: RESP+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(51.5 - [#51.5]	START+2
^PS(50.605 - [#50.605]	START+10
^PSDRUG - [#50]	CHK+1, CHK+3, START, START+2
^PSNDF(50.68 - [#50.68]	CHK+3, START+11, START+13
^PSNTRAN - [#50.612]	PSNVFY+6, CHK+1!, CHK+2, CHK+3, START+5, START+8, START+10, RESP+6, RESP+9*
^TMP($J	KILL+1!

Label References

Name	Line Occurrences
CHK	PSNVFY+6, RESP+6
KILL	DONE
RESP	RESP+3, RESP+8
START	RESP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	RESP+2*, RESP+3, RESP+4!, RESP+5, RESP+6!, RESP+7!, RESP+8, KILL!
ASC	KILL+1!
BB	KILL+1!
CODE	KILL+2!
D0	START+5*, START+6, START+16!
DA	START+6*, KILL+2!
DATE	KILL+2!
DDD	KILL+2!
DIC	KILL!
DIR	KILL+2!
DT	CHK+1
DTIME	RESP+2
DUNCE	KILL+2!
DUZ	RESP+9
EEE	KILL+2!
END	KILL+1!
FFF	KILL+2!
FL	KILL+2!
GGG	KILL+2!
IEN	KILL+2!
IN	KILL+1!
IOF	START
J	KILL+2!
JJ	KILL+1!
K	START+6*, KILL+2!
KK	KILL+1!
LIST	KILL+2!
MJL	KILL+1!
NBR	KILL!
NFI	START+13*, START+14, KILL+2!
>> NFR	START+13*, START+15
NO31	KILL+2!
NODE	START+2*, START+3, KILL+1!
NOM31	KILL+2!
NOMSYN	KILL+2!
PP	KILL+2!
PPQ	KILL+2!
PSNARY	KILL+2!
PSNB	PSNVFY+6*, DONE!, CHK+1, CHK+2, CHK+3, START, START+2, START+5, START+8, START+10 , RESP+6, RESP+9
PSNCLASS	KILL!
PSNCON	START+16!, KILL!
PSND	KILL+1!
PSNDA	KILL!
PSNDDA	KILL!
PSNDF	KILL!
PSNDFM	KILL+1!
PSNENT	KILL+1!
PSNF	KILL+1!
PSNFL	PSNVFY+6, DONE!, CHK, RESP+2, RESP+5*, KILL!
PSNFN	KILL+1!
PSNFNM	START+5*, START+6, START+11, START+13, KILL!
PSNFORM	KILL!
PSNIEN	KILL+2!
PSNINQ	KILL+2!
PSNLOC	KILL+1!
PSNM	KILL+1!
PSNNAM	KILL+1!
PSNNAME	KILL+1!
PSNNDF	KILL!
PSNNEW	CHK+3*, START+4, KILL!
PSNNL	KILL+1!
PSNODE	KILL+1!
PSNOLD	CHK+3*, START, KILL!
PSNOU	KILL+1!
PSNP	CHK+1*, KILL+1!, KILL+2!
PSNPD	KILL+2!
PSNPST	CHK+3*, KILL!
PSNRAN	KILL+1!
PSNSIZE	START+8*, START+16!, KILL!
PSNSTDA	KILL!
PSNSZ	KILL!
PSNSZE	START+9, START+16!, KILL+1!
PSNTPE	START+9, START+16!, KILL+1!
PSNTRFL	KILL+2!
PSNTYP	KILL!
PSNTYPE	START+8*, START+16!, KILL!
PSNUNDA	KILL!
PSNUP	KILL+2!
PSNV	KILL+1!
PSNVADC	START+10*, KILL+1!
PSNVAR	KILL+1!
PSNVC	KILL+1!
PSNVCL	KILL+1!
PSNW	PSNVFY+6, DONE, START, KILL+1!
PSNWR	KILL+1!
PSNWRT	START+2*, KILL+1!
PSNX	KILL+1!
PSNXZ	KILL+2!
PSNZ	KILL+1!
PTPS	KILL+2!
QQ	KILL+2!
RM	KILL+1!
RR	KILL+2!
SL	KILL+1!
ST	KILL+2!
STOP	KILL+2!
STOPIT	START+16!, KILL!
TT	KILL+2!
TTT	KILL+2!
U	CHK+3
VV	KILL+1!
VVV	KILL+1!
WR	KILL+2!
WRT	KILL+1!
X	START+6*, START+7, KILL!
XX	KILL+2!
XXX	KILL+2!
Y	START+16!, KILL!, KILL+2!
>> Z9	RESP+1
ZXZX	KILL+2!
ZZ	KILL+1!
ZZZ	KILL+1!

Customize PDF page

Package: National Drug File

Routine: PSNVFY

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: