Routine: PSNACT

Package	Total	Call Graph
VA Fileman	5	(,IX)^DIC MIX^DIC1 ^DIE ($$GET1,EN)^DIQ ^DIR
Kernel	2	ENDR^%ZISS $$LJ^XLFSTR

Package	Total	Caller Graph
National Drug File	1	PSNACT

Entry Points

External References

Name	Field # of Occurrence
ENDR^%ZISS	PSNACT+5
^DIC	PRODI+1, LINK+7, LINK+11, LISTNDC+2
IX^DIC	NDC+2, NDC+3, NDCI+2, LINK+2
MIX^DIC1	CMOP
^DIE	LINK+6, LINK+7, LINK+10, LINK+11
$$GET1^DIQ	EXPAN+3
EN^DIQ	PRODI+1, NDCI+2, PRT, LISTNDC1+3, LISTNDC1+12
^DIR	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+10 , HANG
$$LJ^XLFSTR	LISTNDC1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSNACT+6
Function Call: WRITE	Prompt: !,"This option allows you to lookup NDF file information three ways (VA Product",!,"Name, NDC, or CMOP ID number).",! Line Location: TEXT+0
Function Call: WRITE	Prompt: ?23,$P(ING,"^")," Strength: ",$P(PSNELXY,"^",2)," Units: ",$P($G(^PS(50.607,+$P(PSNELXY,"^",3),0)),"^"),! Line Location: ENTER+6
Function Call: WRITE	Prompt: ?26,$P($G(^PS(50.605,+K,0),"Unknown"),"^"),! Line Location: ENTER+7
Function Call: WRITE	Prompt: !,"CS Federal Schedule: "_$S($P($G(^PSNDF(50.68,PSNELIEN,7)),"^")]"":$P(^PSNDF(50.68,PSNELIEN,7),"^"),1:"") Line Location: ENTER+8
Function Call: WRITE	Prompt: !,"National Formulary Indicator: " Line Location: ENTER+9
Function Call: WRITE	Prompt: "Yes" Condition for execution: $P(Y5,"^")=1 Line Location: ENTER+9
Function Call: WRITE	Prompt: "No" Condition for execution: $P(Y5,"^")=0 Line Location: ENTER+9
Function Call: WRITE	Prompt: !,"National Formulary Restriction: ",! Line Location: ENTER+10
Function Call: WRITE	Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)" Line Location: ENTER+11
Function Call: WRITE	Prompt: @IOF,!,"NDC: ",$P(NDF,"^",2),$$DT($P(NDF,"^",7))," UPN: ",$P(NDF,"^",3),!,"VA Product Name: ",$P(^PSNDF(50.68,$P(NDF,"^",6),0),"^"),!,"Manufacturer: ",$P($G(^PS(55.95,+$P(NDF,"^",4),0)),"^")," Trade Name: ",$P(NDF,"^",5),!,"Route: " Line Location: LKNDC+0
Function Call: WRITE	Prompt: $P(^(K,0),"^")," " Line Location: LKNDC+1
Function Call: WRITE	Prompt: !,"Package Size: ",$P(^PS(50.609,$P(NDF,"^",8),0),"^")," Package Type: ",$P(^PS(50.608,$P(NDF,"^",9),0),"^") Line Location: LKNDC+2
Function Call: WRITE	Prompt: !,"Unlinked",! Line Location: LINK+6
Function Call: WRITE	Prompt: !,"Linked",! Line Location: LINK+7
Function Call: WRITE	Prompt: !,"Unlinked",! Line Location: LINK+10
Function Call: WRITE	Prompt: !,"Linked",! Line Location: LINK+11
Function Call: WRITE	Prompt: ! Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: LISTNDC1+3
Function Call: WRITE	Prompt: !,$J(ZCT,5)," ",PSN1 Line Location: LISTNDC1+7
Function Call: WRITE	Prompt: !! Line Location: LISTNDC1+12
Function Call: WRITE	Prompt: ?23,$P(ING,"^")," Strength: ",$P(PSNELXA,"^",2)," Units: ",$P($G(^PS(50.607,+$P(PSNELXA,"^",3),0)),"^"),! Line Location: ENTER1+5
Function Call: WRITE	Prompt: ?26,$P($G(^PS(50.605,+K,0),"Unknown"),"^"),! Line Location: ENTER1+6
Function Call: WRITE	Prompt: !,"CS Federal Schedule: "_$S($P(Z7,"^")]"":$P(Z7,"^"),1:"") Line Location: ENTER1+7
Function Call: WRITE	Prompt: !,"National Formulary Indicator: " Line Location: ENTER1+8
Function Call: WRITE	Prompt: "Yes" Condition for execution: $P(Z5,"^")=1 Line Location: ENTER1+8
Function Call: WRITE	Prompt: "No" Condition for execution: $P(Z5,"^")=0 Line Location: ENTER1+8
Function Call: WRITE	Prompt: !,"National Formulary Restriction: ",! Line Location: ENTER1+9
Function Call: WRITE	Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)" Line Location: ENTER1+10
Function Call: WRITE	Prompt: !!,"NDC: ",$P(NDX,"^",2)," UPN: ",$P(NDX,"^",3),!,"VA Product Name: ",$P(^PSNDF(50.68,$P(NDX,"^",6),0),"^"),!,"Manufacturer: ",$P($G(^PS(55.95,+$P(NDX,"^",4),0)),"^")," Trade Name: ",$P(NDX,"^",5),!,"Route: " Line Location: PRNT+2
Function Call: WRITE	Prompt: $P(^(SIE1,0),"^") Line Location: PRNT+3
Function Call: WRITE	Prompt: !,"Package Size: ",$P(^PS(50.609,$P(NDX,"^",8),0),"^")," Package Type: ",$P(^PS(50.608,$P(NDX,"^",9),0),"^") Line Location: PRNT+4
Function Call: WRITE	Prompt: !,"Dose Form: " Line Location: NDOSE+3
Function Call: WRITE	Prompt: !,"Dose Form: ",$P($G(^PS(50.606,+$P(PSNELZER,"^",3),0)),"^")_$S($P($G(^PS(50.606,+$P(PSNELZER,"^",3),1)),"^")=1:" (Exclude from Dosing Cks)",1:"") Line Location: NDOSE+4
Function Call: WRITE	Prompt: !,"Strength: ",$P(PSNELZER,"^",4)," Units: ",$S($P(PSNELZER,"^",5):$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^"),1:"") Line Location: NDOSE+8
Function Call: WRITE	Prompt: !,"Strength: ",$P(PSNELZER,"^",4) Line Location: NDOSE+9
Function Call: WRITE	Prompt: !,"Units: " Line Location: NDOSE+10
Function Call: WRITE	Prompt: $S($P(PSNELZER,"^",5):$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^"),1:"") Line Location: NDOSE+10
Function Call: WRITE	Prompt: !," "_$P($G(^PS(50.607,+$P(PSNELZER,"^",5),0)),"^") Line Location: NDOSE+11
Function Call: WRITE	Prompt: !,"Override DF Exclude from Dosage Checks: "_$S($P($G(^PSNDF(50.68,PSNELORX,9)),"^")=1:"Yes",$P($G(^PSNDF(50.68,PSNELORX,9)),"^")=0:"No",1:"") Line Location: OVEX+2
Function Call: WRITE	Prompt: " (Dosage Checks shall be performed)" Line Location: OVEX+6
Function Call: WRITE	Prompt: " (No dosage checks performed)" Line Location: OVEX+7
Function Call: WRITE	Prompt: " "_$G(PSNELFZC) Line Location: EXPAN+4
Function Call: WRITE	Prompt: ! Line Location: NFIP+4
Function Call: WRITE	Prompt: ! Line Location: NFIP+8
Routine Call	DIE Line Location: LINK+6 LINK+7 LINK+10 LINK+11
Routine Call	DIC Line Location: PRODI+1 LINK+7 LINK+11 LISTNDC+2
Routine Call	DIR Line Location: ASKIT NDC+1 NDC+2 NDCI+1 LINK+1 LINK+3 LINK+5 LINK+9 LISTNDC1+2 LISTNDC1+10 HANG
Routine Call	DIC Line Location: NDC+2 NDC+3 NDCI+2 LINK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSNDF(50.67 - [#50.67]	Classic Fileman Calls
^PSNDF(50.68 - [#50.68]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DT+1
^DD(50.67	LINK+7, LINK+11
^PS(50.416 - [#50.416]	ENTER+5, ENTER1+4
^PS(50.605 - [#50.605]	ENTER+7, ENTER1+6
^PS(50.606 - [#50.606]	NDOSE+4, OVEX+5, OVEX+6, OVEX+7
^PS(50.607 - [#50.607]	ENTER+6, ENTER1+5, NDOSE+6, NDOSE+8, NDOSE+10, NDOSE+11
^PS(50.608 - [#50.608]	LKNDC+2, PRNT+4
^PS(50.609 - [#50.609]	LKNDC+2, PRNT+4
^PS(50.621 - [#50.621]	GCN+2, GCN+4
^PS(50.623 - [#50.623]	GCN+1, GCN+2, GCN+4
^PS(55.95 - [#55.95]	LKNDC, PRNT+2
^PSNDF(50.6 - [#50.6]	ENTER+2, ENTER1+1
^PSNDF(50.64 - [#50.64]	ENTER+4, ENTER1+3
^PSNDF(50.67 - [#50.67]	LKNDC+1, LINK+5, LINK+9, LISTNDC1+3, LISTNDC1+7, LISTNDC1+8, PRNT+1, PRNT+3
^PSNDF(50.68 - [#50.68]	ENTER, ENTER+5, ENTER+7, ENTER+8, ENTER+11, LKNDC, LISTNDC+2, ENTER1, ENTER1+4, ENTER1+6 , ENTER1+10, CMOP, PRNT+2, NDOSE+2, OVEX+2, OVEX+3, EXPAN+2, NFIP+3, NFIP+5
^TMP($J	END!, LISTNDC+1!, LISTNDC1+2!, LISTNDC1+7*, LISTNDC1+12

Label References

Name	Line Occurrences
$$DT	ENTER+1, LKNDC
ASKIT	PSNACT+6
CMOP	ASKIT+3
END	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LISTNDC+2, LISTNDC1+13
ENTER	LISTNDC+2, CMOP
ENTER1	LKNDC+3
EXPAN	ENTER+8, ENTER1+7
GCN	ENTER, ENTER1
HANG	ENTER+6, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, ENTER+13, PRT, ENTER1+5, ENTER1+7 , ENTER1+8, ENTER1+9, ENTER1+10, ENTER1+11, ENTER1+12, PRNT, NFIP+7
LINK	LINK+12
LISTNDC	ASKIT+2, NDCI+1
LISTNDC1	NDCI+1
LKNDC	NDC+2, NDC+3
NDC	ASKIT+1
NDOSE	ENTER+2, ENTER1+1
NFIP	ENTER+10, ENTER1+9
OVEX	ENTER+12, ENTER1+11
PAD	NDC+2
PAD1	PAD
PRNT	LISTNDC+2, CMOP
TEXT	PSNACT+6

Naked Globals

Name	Field # of Occurrence
^(	ENTER+5, LKNDC+1, LISTNDC1+8, ENTER1+4, PRNT+3
^(3	ENTER
^(5	ENTER
^(7	ENTER

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	PSNACT+7!, PAD, PAD+1, PAD+2, PAD1
ASK	PSNACT+7!, ASKIT*, ASKIT+1, ASKIT+2, ASKIT+3
D	PSNACT+7!, NDC+2, NDC+3, NDCI+2, LINK+2, CMOP*
DA	ENTER, ENTER+15!, NDC+2, NDC+3, LKNDC+1, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3! , LINK+2, LINK+5, LINK+6, LINK+7, LINK+9, LINK+10, LINK+11, LISTNDC+1!, PRT, LISTNDC1+3 , LISTNDC1+7, LISTNDC1+8, LISTNDC1+12
DA(1	LINK+6, LINK+7, LINK+10, LINK+11
DD	LINK+7!, LINK+11!
DIC	PSNACT+6!, PSNACT+7!, NDC+2, NDC+3, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3!, LINK+2* , LINK+7, LINK+11, LISTNDC+1!, LISTNDC+2, PRT, LISTNDC1+3, LISTNDC1+12, CMOP!*
DIC("A"	NDC+3, NDCI+2, LINK+2, CMOP
DIC("P"	LINK+7, LINK+11
DIC(0	NDC+2, NDC+3, PRODI+1, NDCI+2, LINK+2, LINK+7, LINK+11, LISTNDC+2, CMOP*
DIE	ENTER+15!, END!, LINK+6, LINK+7, LINK+10, LINK+11
DIR	PSNACT+6!, PSNACT+7!, END!, NDCI+3!, LINK+3!, HANG!
DIR("A"	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+9 , HANG*
DIR("B"	LINK+1*
DIR(0	ASKIT, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+3, LINK+5, LINK+9, LISTNDC1+2, LISTNDC1+9 , HANG*
DIRUT	PSNACT+6, ASKIT, ENTER+15!, NDC+1, NDC+2, NDCI+1, LINK+1, LINK+2, LINK+3, LINK+5 , LINK+9, LISTNDC1+2
>> DLAYGO	LINK+7, LINK+11
DO	LINK+7!, LINK+11!
DR	ENTER+15!, END!, LINK+6, LINK+7, LINK+10, LINK+11
DTOUT	PSNACT+7!, LISTNDC1+10
DUOUT	PSNACT+7!, LISTNDC1+10
DYAYGO	PSNACT+7!
ENG	PSNACT+7!, GCN+2, GCN+4
I	PSNACT+7!
IEN	PSNACT+7!, LISTNDC+2, CMOP
IN	END!, LINK+5, LINK+6, LINK+7, LINK+9, LINK+10, LINK+11
ING	ENTER+5, ENTER+6, ENTER+15!, END!, ENTER1+4, ENTER1+5
IOF	ENTER+1, LKNDC, HANG
>> IORVOFF	DT+1
>> IORVON	PSNACT+5, DT+1
IOSL	ENTER+6, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, PRT, ENTER1+5, ENTER1+7, ENTER1+8 , ENTER1+9, ENTER1+10, ENTER1+11, PRNT, NFIP+7
J	PSNACT+7!, END!
K	ENTER+5, ENTER+7, ENTER+15!, LKNDC+1, END!, ENTER1+4, ENTER1+6*
L	END!, LISTNDC+1!
MAP	PSNACT+7!, GCN+2, GCN+4
MORE	PSNACT+7!, LISTNDC1+8*, LISTNDC1+9
NDF	NDC+2, NDC+3, LKNDC, LKNDC+2, LKNDC+3, END!
NDX	PSNACT+7!, PRNT+1*, PRNT+2, PRNT+4
NEW	END!, LINK+3*, LINK+5, LINK+7, LINK+9, LINK+11
OLD	END!, LINK+2*, LINK+7, LINK+11
OLDDA	PSNACT+7!, ENTER+15!, END!
PMIS	PSNACT+7!, ENTER+5, ENTER1+4, GCN, GCN+1, GCN+2, GCN+4
PPP	PSNACT+7!
PROMPT	PSNACT+7!, NDC+1!, NDC+2, NDC+3, END!, NDCI+1, NDCI+2, NDCI+3!, LINK+1*, LINK+2 , LINK+3, LINK+4, LINK+8
PSN	PSNACT+7!, LISTNDC1+2*, LISTNDC1+7, LISTNDC1+8
PSN1	PSNACT+7!, LISTNDC1+2, LISTNDC1+3, LISTNDC1+5, LISTNDC1+6, LISTNDC1+7, LISTNDC1+8
PSNELDFF	OVEX+1~, OVEX+3*, OVEX+4, OVEX+5, OVEX+6, OVEX+7
PSNELFJ	NFIP~, NFIP+3, NFIP+5
PSNELFJC	NFIP+1~, NFIP+2, NFIP+4, NFIP+6, NFIP+8
PSNELFJZ	NFIP+1~, NFIP+3*, NFIP+5
PSNELFZA	EXPAN~, EXPAN+2, EXPAN+3
PSNELFZB	EXPAN+1~, EXPAN+3*
PSNELFZC	EXPAN+1~, EXPAN+3*, EXPAN+4
PSNELIEN	ENTER~*, ENTER+2, ENTER+5, ENTER+7, ENTER+8, ENTER+10, ENTER+11, ENTER+12
PSNELORX	OVEX~, OVEX+2, OVEX+3
PSNELSTL	NDOSE+1~, NDOSE+5*, NDOSE+8
PSNELUNL	NDOSE+1~, NDOSE+6, NDOSE+7, NDOSE+8, NDOSE+10
PSNELXA	ENTER1~, ENTER1+4*, ENTER1+5
PSNELXEN	ENTER1~*, ENTER1+1, ENTER1+4, ENTER1+6, ENTER1+7, ENTER1+9, ENTER1+10, ENTER1+11
PSNELXXX	NDOSE~, NDOSE+2
PSNELXY	ENTER~, ENTER+5*, ENTER+6
PSNELZER	NDOSE+1~, NDOSE+2*, NDOSE+3, NDOSE+4, NDOSE+5, NDOSE+6, NDOSE+7, NDOSE+8, NDOSE+9, NDOSE+10 , NDOSE+11
QQQ	PSNACT+7!, ENTER!, ENTER1!, GCN, GCN+1, GCN+2, GCN+4
QUIT	PSNACT+7!, ENTER+5, ENTER+6, ENTER+7, ENTER+8, ENTER+9, ENTER+10, ENTER+11, ENTER+12, LISTNDC+2 , PRT, LISTNDC1+2, LISTNDC1+3, LISTNDC1+4, LISTNDC1+7, LISTNDC1+10, LISTNDC1+12, ENTER1+4, ENTER1+5, ENTER1+6 , ENTER1+7, ENTER1+8, ENTER1+9, ENTER1+10, ENTER1+11, HANG*, PRNT, NFIP+3, NFIP+8
SIE	PSNACT+7!, LISTNDC+2, PRT, CMOP, PRNT+1, PRNT+3
SIE1	PSNACT+7!, PRNT+3*
VV	PAD*, PAD+1!, PAD1
VV1	PAD*, PAD+1!, PAD1
X	PSNACT+5, ENTER+5, ENTER+15!, NDC+2, END!, PRODI+2!, NDCI+3!, LINK+7, LINK+11, ENTER1+4* , PAD+2*
Y	PSNACT+7!, ENTER, ENTER+15!, NDC+2, NDC+3, END!, PRODI+1, PRODI+2!, NDCI+2, NDCI+3! , LINK+2, LINK+3, LINK+5, LINK+9, LISTNDC+2, LISTNDC1+2, LISTNDC1+11, LISTNDC1+12, CMOP, HANG , PAD, DT~, DT+1
Y(0	ASKIT, ENTER+1, ENTER+2, ENTER+3, NDC+1, NDC+2, NDC+3, NDCI+1, LINK+1, LINK+2
Y1	PSNACT+7!, ENTER*, ENTER+3, ENTER+4, ENTER+15!, END!
Y3	PSNACT+7!, ENTER*, ENTER+7, ENTER+15!, END!
Y5	PSNACT+7!, ENTER*, ENTER+9
Y6	PSNACT+7!, ENTER*
Y7	PSNACT+7!, ENTER*, ENTER+1, ENTER+15!, END!
Z0	PSNACT+7!, ENTER1*, ENTER1+1, ENTER1+2
Z1	PSNACT+7!, ENTER1*, ENTER1+2, ENTER1+3
Z3	PSNACT+7!, ENTER1*, ENTER1+6
Z5	PSNACT+7!, ENTER1*, ENTER1+8
Z6	PSNACT+7!, ENTER1*
Z7	PSNACT+7!, ENTER1*, ENTER1+7
ZA	PSNACT+7!, LKNDC+3*, ENTER1
ZCT	PSNACT+7!, LISTNDC1+7*, LISTNDC1+8, LISTNDC1+9
ZXX	PSNACT+6*, PSNACT+7!

Customize PDF page

Package: National Drug File

Routine: PSNACT

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
DT(Y)	;Inactivation Date display
TEXT
LINK	;LINK NDCS OR UPNS
CMOP
LKNDC
PRNT
PAD1
PRT
LISTNDC	;LOOK UP NDCS BY PRODUCT
NDOSE(PSNELXXX)	;New Dose Form/Strength/Unit display added with patch PSN4169
ENTER1
END
NFIP(PSNELFJ)	;
NDC	;OR UPN
HANG
GCN
NDCI	;INQUIRE INTO 50.67
ENTER
OVEX(PSNELORX)	;New Override Dose Form display added with patch PSN4169
LISTNDC1	;LOOK UP PARTIAL NDC
EXPAN(PSNELFZA)	;
PRODI	;INQUIRE INTO 50.68
ASKIT
PAD