Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSNLOOK

Package: National Drug File

Routine: PSNLOOK


Information

PSNLOOK ;BIR/WRT-Look up into drug file ; 06/19/03 15:00

Source Information

Source file <PSNLOOK.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSDRUG - [#50] GET1^DIQ
^PSNDF(50.68 - [#50.68] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call