Routine: PSNLOOK

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC $$GET1^DIQ ^DIR
National Drug File	1	($$PROD0,$$PROD2)^PSNAPIS

Package	Total	Caller Graph
National Drug File	1	PSNLOOK

Entry Points

Name	Comments	DBIA/ICR reference
PSDZZ	;
OVER	;
IN2
DSP1
RESTN
HG	;
BEGIN	;
DSPLY
ASK
DSPLY2	;
DSPLY3
SV1
MESS	;
DSP
GCN
GCN1	;
DSPLY1
SC1
ING1
SELD	;Select Drug
SV
SC
ING
PRODF	;

External References

Name	Field # of Occurrence
DD^%DT	SELD+6, DSP1+1
^DIC	SELD+4
$$GET1^DIQ	SV1
^DIR	HG+1, MESS+1
$$PROD0^PSNAPIS	PRODF+1
$$PROD2^PSNAPIS	DSPLY2+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELD+4
Function Call: WRITE	Prompt: !!,"This drug has an Inactive date of "_$G(Y),! Line Location: SELD+6
Function Call: WRITE	Prompt: !!,"This option will allow you to look up entries in your local DRUG file. It will",!,"display National Drug File software match information.",! Line Location: ASK+0
Function Call: WRITE	Prompt: @IOF Line Location: DSPLY+0
Function Call: WRITE	Prompt: !?14,"DRUG Generic Name: ",$P($G(^PSDRUG(PSNLKDA,0)),"^") Line Location: DSPLY+0
Function Call: WRITE	Prompt: !?8,"* NO NATIONAL DRUG FILE INFORMATION *",! Line Location: DSPLY+2
Function Call: WRITE	Prompt: !?5,"VA Product Name: ",$P(PSNLKNOD,"^",2) Line Location: DSPLY1+0
Function Call: WRITE	Prompt: !?5,"VA Generic Name: ",$P($G(^PSNDF(50.6,$P(PSNLKNOD,"^"),0)),"^") Line Location: DSPLY1+1
Function Call: WRITE	Prompt: ?50,"Transmit To CMOP: " Line Location: DSPLY3+0
Function Call: WRITE	Prompt: "YES" Line Location: DSPLY3+1
Function Call: WRITE	Prompt: "NO" Line Location: DSPLY3+2
Function Call: WRITE	Prompt: ?3,PSNLKGR,?50,"Str: ",PSNLKIST Line Location: IN2+0
Function Call: WRITE	Prompt: ?65,"Unt: ",$G(PSNLKIUN) Condition for execution: PSNLKIUT Line Location: IN2+0
Function Call: WRITE	Prompt: ! Line Location: IN2+0
Function Call: WRITE	Prompt: " ",PSNLKSCL Line Location: SC1+0
Function Call: WRITE	Prompt: !,"Strength: ",PSNLKSTR Line Location: DSP+2
Function Call: WRITE	Prompt: " Units: "_PSNLKUNT Condition for execution: $G(PSNLKUN) Line Location: DSP+2
Function Call: WRITE	Prompt: !,"Strength: ",PSNLKSTR Line Location: DSP+3
Function Call: WRITE	Prompt: PSNLKUNT Line Location: DSP+5
Function Call: WRITE	Prompt: !,"National Formulary Name: ",PSNLKNFN,!,"VA Print Name: ",PSNLKVPN,!,"VA Product Identifier: ",PSNLKID Line Location: PSDZZ+1
Function Call: WRITE	Prompt: !,"VA Dispense Unit: ",PSNLKVDU Line Location: PSDZZ+1
Function Call: WRITE	Prompt: !,"VA Dispense Unit: ",PSNLKVDU Line Location: PSDZZ+1
Function Call: WRITE	Prompt: !,"Active Ingredients: ",! Line Location: PSDZZ+2
Function Call: WRITE	Prompt: "Primary Drug Class: ",$P(^PS(50.605,PSNLKCL,0),"^") Line Location: DSP1+0
Function Call: WRITE	Prompt: !,"CS Federal Schedule: ",$G(PSNLKCSF)_" "_$G(PSNZZFS),!,"Single/Multi Source Product: ",$G(PSNLKSP) Line Location: DSP1+0
Function Call: WRITE	Prompt: !,"Inactivation Date: " Line Location: DSP1+1
Function Call: WRITE	Prompt: Y Line Location: DSP1+1
Function Call: WRITE	Prompt: !,"Max Single Dose: ",$P(PSNLKSEV,"^",4),?45,"Min Single Dose: ",$P(PSNLKSEV,"^",5) Line Location: DSP1+2
Function Call: WRITE	Prompt: !,"Max Daily Dose: ",$P(PSNLKSEV,"^",6),?45,"Min Daily Dose: ",$P(PSNLKSEV,"^",7),!,"Max Cumulative Dose: ",$P(PSNLKSEV,"^",8) Line Location: DSP1+3
Function Call: WRITE	Prompt: !,"National Formulary Indicator: " Line Location: DSP1+4
Function Call: WRITE	Prompt: "No" Condition for execution: $P(^PSNDF(50.68,PSNLKGK,5),"^")=0 Line Location: DSP1+4
Function Call: WRITE	Prompt: "Yes" Condition for execution: $P(^PSNDF(50.68,PSNLKGK,5),"^")=1 Line Location: DSP1+4
Function Call: WRITE	Prompt: ! Line Location: DSP1+5
Function Call: WRITE	Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)" Line Location: DSP1+6
Function Call: WRITE	Prompt: ! Line Location: DSP1+8
Function Call: WRITE	Prompt: !,PSNLKWRT Line Location: RESTN+0
Function Call: WRITE	Prompt: ! Line Location: HG+1
Function Call: WRITE	Prompt: @IOF Line Location: HG+2
Function Call: WRITE	Prompt: ! Line Location: MESS+1
Function Call: WRITE	Prompt: !,"Override DF Exclude from Dosage Checks: "_$S($P($G(^PSNDF(50.68,PSNLKGK,9)),"^")=1:"Yes",$P($G(^PSNDF(50.68,PSNLKGK,9)),"^")=0:"No",1:"") Line Location: OVER+1
Function Call: WRITE	Prompt: " (Dosage Checks shall be performed)" Line Location: OVER+4
Function Call: WRITE	Prompt: " (No Dosage Checks performed)" Line Location: OVER+5
Routine Call	DIC Line Location: SELD+4
Routine Call	DIR Line Location: HG+1 MESS+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.416 - [#50.416]	ING+1, ING1
^PS(50.605 - [#50.605]	SC+1, DSP1
^PS(50.606 - [#50.606]	PRODF+2, DSP, OVER+3, OVER+4, OVER+5
^PS(50.607 - [#50.607]	PRODF+2, ING1
^PS(50.621 - [#50.621]	GCN1+1
^PS(50.623 - [#50.623]	GCN1+1
^PSDRUG - [#50]	SELD+6, DSPLY, DSPLY+1
^PSNDF(50.6 - [#50.6]	DSPLY1+1
^PSNDF(50.68 - [#50.68]	DSPLY2+3, PRODF+2, ING, ING+1, SC, SV, SV1+1, DSP1+4, DSP1+6, RESTN , OVER+1

Label References

Name	Line Occurrences
ASK	BEGIN+1
DSP	DSPLY+1
DSP1	DSPLY+1
DSPLY	SELD+7
DSPLY1	DSPLY+1
DSPLY2	DSPLY+1
DSPLY3	PSDZZ+1
GCN	DSPLY2+3
HG	SELD+8, DSP1
IN2	ING+1
ING	DSPLY+1
ING1	ING+1
MESS	SELD+6
OVER	DSP1+7
PRODF	DSPLY+1
PSDZZ	DSP+2
RESTN	DSPLY+1
SC	DSP1
SC1	SC+1
SELD	SELD+6, SELD+9
SV	DSPLY+1
SV1	SV

Naked Globals

Name	Field # of Occurrence
^("ND"	DSPLY

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEGIN+2~, SELD+1!
DIC	BEGIN+2~, SELD+1!, SELD+4!*
DIC(0	SELD+4*
DIR	BEGIN+2~, SELD+1!, HG+1!, MESS+1!
DIR("A"	HG+1, MESS+1
DIR(0	HG+1, MESS+1
DIROUT	BEGIN+2~, SELD+1!
DIRUT	BEGIN+2~, SELD+1!
DLAYGO	BEGIN+2~, SELD+1!
DT	SELD+6
DTOUT	BEGIN+2~, SELD+1!, SELD+4
DUOUT	BEGIN+2~, SELD+1!, SELD+4
IOF	DSPLY, HG+2
PSNLKAND	BEGIN+3~, SELD+2!, ING+1*, ING1
PSNLKBB	BEGIN+3~, SELD+2!, ING*, ING+1
PSNLKCC	BEGIN+3~, SELD+2!, SC*
PSNLKCL	BEGIN+2~, SELD+1!, DSPLY*, DSP1
PSNLKCSF	BEGIN+3~, SELD+2!, SV*, DSP1
PSNLKDA	BEGIN+2~, SELD+1!, SELD+5*, SELD+6, DSPLY, DSPLY+1
PSNLKDAV	BEGIN+2~, SELD+1!, DSPLY2+2*, PRODF+1
PSNLKDF	BEGIN+3~, SELD+2!, PRODF+2*, DSP, OVER+2, OVER+3, OVER+4, OVER+5
PSNLKENG	BEGIN+3~, SELD+2!, GCN1+1*
PSNLKFRM	BEGIN+3~, SELD+2!, PRODF+2*, DSP
PSNLKGK	BEGIN+2~, SELD+1!, DSPLY2+2*, DSPLY2+3, PRODF+1, PRODF+2, ING, ING+1, SC, SV , SV1, SV1+1, DSP1+4, DSP1+6, RESTN, OVER+1
PSNLKGR	BEGIN+3~, SELD+2!, ING+1, IN2, ING1
PSNLKID	BEGIN+2~, SELD+1!, DSPLY2+1, DSPLY2+2, PSDZZ+1
PSNLKIND	BEGIN+2~, SELD+1!, SELD+6*
PSNLKIST	BEGIN+3~, SELD+2!, ING+1*, IN2
PSNLKIUN	BEGIN+4~, SELD+3!, ING+1!, IN2, ING1*
PSNLKIUT	BEGIN+3~, SELD+2!, ING+1*, IN2, ING1
PSNLKL1	BEGIN+4~, SELD+3!, DSP+1*, DSP+2
PSNLKL2	BEGIN+4~, SELD+3!, DSP+1*, DSP+2, DSP+5
PSNLKMAP	BEGIN+3~, SELD+2!, GCN1+1*
PSNLKNFN	BEGIN+3~, SELD+2!, PRODF+2*, PSDZZ+1
PSNLKNND	BEGIN+3~, SELD+2!, SV1+1*, DSP1+1
PSNLKNOD	BEGIN+2~, SELD+1!, DSPLY+1*, DSPLY1, DSPLY1+1, DSPLY2+2
PSNLKPMI	BEGIN+2~, SELD+1!, DSPLY2+3!, GCN, GCN1+1, GCN1+2*, PSDZZ+1
PSNLKQQ	BEGIN+2~, SELD+1!, DSPLY2+3*, GCN, GCN1+1
PSNLKRE	BEGIN+3~, SELD+2!, RESTN*
PSNLKSCL	BEGIN+3~, SELD+2!, SC+1*, SC1
PSNLKSEV	BEGIN+3~, SELD+2!, SV*, DSP1+2, DSP1+3
PSNLKSP	BEGIN+3~, SELD+2!, SV*, DSP1
PSNLKSTR	BEGIN+3~, SELD+2!, PRODF+2*, DSP+1, DSP+2, DSP+3
PSNLKTR	BEGIN+2~, SELD+1!, DSPLY2+1, DSPLY2+2, DSPLY3+1, DSPLY3+2
PSNLKUN	BEGIN+3~, SELD+2!, PRODF+2*, DSP+1, DSP+2, DSP+4
PSNLKUNT	BEGIN+3~, SELD+2!, PRODF+2*, DSP+1, DSP+2, DSP+5, DSP+6
PSNLKVDU	BEGIN+2~, SELD+1!, DSPLY2+1, DSPLY2+2, PSDZZ+1
PSNLKVPN	BEGIN+2~, SELD+1!, DSPLY2+1, DSPLY2+2, PSDZZ+1
PSNLKWRT	BEGIN+3~, SELD+2!, RESTN*
PSNLKZ	BEGIN+3~, SELD+2!, SC*, SC+1
PSNZZFS	BEGIN+3~, SELD+2!, SV1*, DSP1
PSNZZFSA	BEGIN+4~, SELD+3!, SV1*
X	BEGIN+2~, SELD+1!, DSPLY2+2!, DSPLY2+3, DSPLY2+4!, PRODF+1, PRODF+2, PRODF+3!
Y	BEGIN+2~, SELD+1!, SELD+4, SELD+5!, SELD+6, DSP1+1!

Customize PDF page

Package: National Drug File

Routine: PSNLOOK

Information

Source Information

Call Graph

Call Graph Total: 5

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: