Routine: PSNLOOK

Package	Total	Call Graph
VA FileMan	5	DD^%DT NOW^%DTC ^DIC $$GET1^DIQ ^DIR
National Drug File	3	(FD,FDT,POSDOS)^PSNACT ($$CPTIER,$$PROD0,$$PROD2)^PSNAPIS (CLEFF,HAZWASTE)^PSNCLEHW

Package	Total	Caller Graph
National Drug File	2	PSNACT PSNLOOK

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;
SELD	;Select Drug
ASK
DSPLY
DSPLY1
DSPLY2	;
GCN
GCN1	;
DSPLY3
PRODF	;
ING
IN2
ING1
SC
SC1
SV
SV1
DSP
PSDZZ	;
DSP1
RESTN
HG	;
MESS	;
OVER	;
GETTIER(PSNTDRUG)	;called by DIC; look up copay tier by file 50 ien for current date
DATE(PSNCONVD)	;convert fileman date to mm/dd/yyyy

External References

Name	Field # of Occurrence
DD^%DT	SELD+7, DSP1+1, DSP1+9
NOW^%DTC	DSP1+6, GETTIER+6
^DIC	SELD+5
$$GET1^DIQ	SV1, DSP1+19, GETTIER+2, GETTIER+3, GETTIER+9
^DIR	HG+1, MESS+1
FD^PSNACT	DSP1+5
FDT^PSNACT	DSP1+5
POSDOS^PSNACT	DSP1+18
$$CPTIER^PSNAPIS	DSP1+6, GETTIER+7
$$PROD0^PSNAPIS	PRODF+1
$$PROD2^PSNAPIS	DSPLY2+2
CLEFF^PSNCLEHW	DSP1+16
HAZWASTE^PSNCLEHW	DSP1+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELD+5
Function Call: WRITE	Prompt: !!,"This drug has an Inactive date of "_$G(Y),! Line Location: SELD+7
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: !,"Copay Tier: ",$P(PSNLKCP,"^",1) Line Location: DSP1+8
Function Call: WRITE	Prompt: !,"Copay Effective Date: " Line Location: DSP1+9
Function Call: WRITE	Prompt: Y Line Location: DSP1+9
Function Call: WRITE	Prompt: ! Line Location: DSP1+10
Function Call: WRITE	Prompt: !,"Exclude Drg-Drg Interaction Ck: Yes (No check for Drug-Drug Interactions)" Line Location: DSP1+11
Function Call: WRITE	Prompt: ! Line Location: DSP1+15
Function Call: WRITE	Prompt: ! Line Location: DSP1+17
Function Call: WRITE	Prompt: !,"Maximum Days Supply: ",$$GET1^DIQ(50.68,PSNLKGK,32) Line Location: DSP1+19
Function Call: WRITE	Prompt: !!,"Coding System: ",$P(^PSNDF(50.68,PSNLKGK,11,PSNCODX,0),"^",1) Line Location: DSP1+26
Function Call: WRITE	Prompt: !,"Code: ",$P(^PSNDF(50.68,PSNLKGK,11,PSNCODX,1,PSNCODJ,0),"^",1) Line Location: DSP1+28
Function Call: WRITE	Prompt: ! Line Location: DSP1+29
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
Function Call: WRITE	Prompt: " Tier ",$P(PSSCP,"^") Line Location: GETTIER+8
Routine Call	DIC Line Location: SELD+5
Routine Call	DIR Line Location: HG+1 MESS+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PSDRUG - [#50]	GET1^DIQ
^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+7, 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+11, DSP1+24 , DSP1+25, DSP1+26, DSP1+27, DSP1+28, RESTN, OVER+1

Label References

Name	Line Occurrences
$$DATE	GETTIER+10
ASK	BEGIN+1
DSP	DSPLY+1
DSP1	DSPLY+1
DSPLY	SELD+8
DSPLY1	DSPLY+1
DSPLY2	DSPLY+1
DSPLY3	PSDZZ+1
GCN	DSPLY2+3
HG	SELD+9, DSP1, DSP1+13, DSP1+16, DSP1+21
IN2	ING+1
ING	DSPLY+1
ING1	ING+1
MESS	SELD+7
OVER	DSP1+12
PRODF	DSPLY+1
PSDZZ	DSP+2
RESTN	DSPLY+1
SC	DSP1
SC1	SC+1
SELD	SELD+7, SELD+10
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
>> %	GETTIER+6
%DT	BEGIN+3~, SELD+2!
CPDATE	DSP1+6~!, GETTIER+1~, GETTIER+6, GETTIER+7!
DATE	DATE+1~, DATE+2*, DATE+3
DIC	BEGIN+3~, SELD+2!, SELD+5!*
DIC("W"	SELD+5*
DIC(0	SELD+5*
DIR	BEGIN+3~, SELD+2!, HG+1!, MESS+1!
DIR("A"	HG+1, MESS+1
DIR(0	HG+1, MESS+1
DIROUT	BEGIN+3~, SELD+2!
DIRUT	BEGIN+3~, SELD+2!
DLAYGO	BEGIN+3~, SELD+2!
DT	SELD+7
DTOUT	BEGIN+3~, SELD+2!, SELD+5
DUOUT	BEGIN+3~, SELD+2!, SELD+5
I	DSP1+23~, DSP1+24*
IOF	DSPLY, HG+2
J	DSP1+23~, DSP1+27*
PSNCODJ	DSP1+23~, DSP1+26, DSP1+27, DSP1+28
PSNCODX	DSP1+23~, DSP1+24, DSP1+25, DSP1+26, DSP1+27, DSP1+28
PSNCONVD	GETTIER+1~, GETTIER+10*, GETTIER+11, DATE~, DATE+2
PSNFD	SELD+4!, GETTIER+1~, GETTIER+3*, GETTIER+4
PSNFDT	SELD+4!
PSNINACT	GETTIER+1~, GETTIER+9*, GETTIER+10
PSNLKAND	BEGIN+4~, SELD+3!, ING+1*, ING1
PSNLKBB	BEGIN+4~, SELD+3!, ING*, ING+1
PSNLKCC	BEGIN+4~, SELD+3!, SC*
PSNLKCL	BEGIN+2~, SELD+1!, DSPLY*, DSP1
PSNLKCP	BEGIN+5~, SELD+4!, DSP1+6*, DSP1+8, DSP1+9
PSNLKCSF	BEGIN+4~, SELD+3!, SV*, DSP1
PSNLKDA	BEGIN+2~, SELD+1!, SELD+6*, SELD+7, 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+5, DSP1+6, DSP1+11, DSP1+16, DSP1+18, DSP1+19, DSP1+22 , DSP1+24, DSP1+25, DSP1+26, DSP1+27, DSP1+28, RESTN, OVER+1
PSNLKGR	BEGIN+4~, SELD+3!, ING+1, IN2, ING1
PSNLKID	BEGIN+2~, SELD+1!, DSPLY2+1, DSPLY2+2, PSDZZ+1
PSNLKIND	BEGIN+2~, SELD+1!, SELD+7*
PSNLKIST	BEGIN+4~, SELD+3!, ING+1*, IN2
PSNLKIUN	BEGIN+5~, SELD+4!, ING+1!, IN2, ING1*
PSNLKIUT	BEGIN+4~, SELD+3!, ING+1*, IN2, ING1
PSNLKL1	BEGIN+5~, SELD+4!, DSP+1*, DSP+2
PSNLKL2	BEGIN+5~, SELD+4!, DSP+1*, DSP+2, DSP+5
PSNLKMAP	BEGIN+3~, SELD+2!, GCN1+1*
PSNLKNFN	BEGIN+4~, SELD+3!, PRODF+2*, PSDZZ+1
PSNLKNND	BEGIN+4~, SELD+3!, 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+5~, SELD+4!, RESTN*
PSNLKSCL	BEGIN+5~, SELD+4!, SC+1*, SC1
PSNLKSEV	BEGIN+4~, SELD+3!, SV*, DSP1+2, DSP1+3
PSNLKSP	BEGIN+4~, SELD+3!, 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+4~, SELD+3!, 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+5~, SELD+4!, RESTN*
PSNLKZ	BEGIN+5~, SELD+4!, SC*, SC+1
PSNRXCUI	DSP1+23~, DSP1+25*
PSNTDRUG	BEGIN+5~, GETTIER~, GETTIER+2, GETTIER+7, GETTIER+9
PSNZZFS	BEGIN+5~, SELD+4!, SV1*, DSP1
PSNZZFSA	BEGIN+5~, SELD+4!, SV1*
PSSCP	GETTIER+1~, GETTIER+7*, GETTIER+8
VAPID	GETTIER+1~
VAPROD	GETTIER+1~, GETTIER+2*, GETTIER+3, GETTIER+5, GETTIER+7
X	BEGIN+3~, SELD+2!, DSPLY2+2!, DSPLY2+3, DSPLY2+4!, PRODF+1, PRODF+2, PRODF+3!, DSP1+6~!, GETTIER+1~ , GETTIER+7!
Y	BEGIN+3~, SELD+2!, SELD+5, SELD+6!, SELD+7, DSP1+1!, DSP1+9*!

Customize PDF page

Package: National Drug File

Routine: PSNLOOK

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: