Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PSDRUG

Package: Pharmacy Data Management

Global: ^PSDRUG


Information

FileMan FileNo FileMan Filename Package
50 DRUG Pharmacy Data Management

Description

Directly Accessed By Routines, Total: 1063

Package Total Routines
Outpatient Pharmacy 246 APSPT16    PSO ALPHA DRUG LIST    PSO BBWAIT PRINT    PSO COST STAT    PSO DEA PSDRPH PRINT    PSO DEA SET PARMS PRINT    PSO DRUG LIST    PSO DRUG WARNINGS
PSO DRUG WARNINGS HEADER    PSO HOLD    PSO INACTIVE DRUG LIST    PSO INTERVENTIONS    PSO N/F LIST    PSO NARC LIST    PSO PARK    PSO PHARMACY STATS
PSO REQUEST STATISTICS    PSO SUSPENSE LIST    PSO SYNONYM LIST    PSO283PI    PSO293PI    PSO52EX    PSOAMIS0    PSOARCCV
PSOARX    PSOATRF    PSOATRF1    PSOATRFC    PSOATRFV    PSOAUTOC    PSOBAIR2    PSOBAIRP
PSOBGMG3    PSOBINGO    PSOBORP3    PSOBUILD    PSOCAN1    PSOCAN2    PSOCAN4    PSOCLOLS
PSOCMOP    PSOCMOPB    PSOCMOPC    PSOCMOPT    PSOCP    PSOCPBA2    PSOCPBK2    PSOCPBK4
PSOCPIBC    PSOCPTRI    PSOCSRL    PSOCST12    PSOCST2    PSOCST3    PSOCST5    PSOCSTD
PSOCSTM    PSOD PRINT ANSWER SHEET    PSODDPR3    PSODDPR4    PSODDPR5    PSODDPR7    PSODDPR8    PSODDPRE
PSODGDG1    PSODGDGI    PSODGDGP    PSODIR1    PSODIR5    PSODISP    PSODOSCL    PSODRDU1
PSODRGN    PSOERX1G    PSOERXA0    PSOERXU4    PSOEXRST    PSOFDAMG    PSOFTDR    PSOHELP1
PSOHLDS    PSOHLEXC    PSOHLNE2    PSOHLNEW    PSOHLSG2    PSOHLSNC    PSOHLUP1    PSOLAB
PSOLBL4    PSOLBLD    PSOLBLN    PSOLLL8    PSONDCUT    PSONEW2    PSONEWG    PSONRXN
PSOORAPI    PSOORCPY    PSOORDER    PSOORED4    PSOORED5    PSOORED7    PSOOREDT    PSOORFI6
PSOORFIN    PSOORNE3    PSOORNE5    PSOORNEW    PSOORNW1    PSOORRLO    PSOORRNW    PSOORROC
PSOP1    PSOP2    PSOPOST5    PSOPRF    PSOPRFSS    PSOPST68    PSOPXRM1    PSOQ0496
PSOR52    PSOREF0    PSOREF1    PSORENW    PSORESK    PSORREF1    PSORRX1    PSORXI
PSORXL    PSORXL1    PSORXLAB    PSORXPA1    PSOSD    PSOSD0    PSOSD3    PSOSIG
PSOSIGDS    PSOSIGMX    PSOSPSIG    PSOSUCLE    PSOSUINV    PSOSUTL    PSOTEXP1    PSOUTIL
PSOUTL    PSOUTLA    PSOUTLA1    PSOUTLA2    PSOUTOR    PSOVDF1    ^PSRX    PSOCOST
PSOCPE    PSOCST10    PSODACT    PSODDPR1    PSODDPR2    PSODRDU2    PSODRG    PSOERUT2
PSOEXBCH    PSOEXDT    PSOFDAUT    PSOHLNE3    PSOHLSG3    PSOHLSN1    PSOHLUP    PSOLLL1
PSOLLLI    PSOMGCOM    PSOMHV1    PSONFI    PSONGR    PSOORED6    PSOORFI5    PSOORNE2
PSOORNE4    PSOORNW2    PSOORRL1    PSOORRL3    PSOP    PSOPOLY    PSOPOST    PSORDS
PSORELD1    PSORENW0    PSORLLL1    PSORPC01    PSORPTS1    PSORRPA1    PSORXDL    PSORXED
PSORXPR    PSORXRP1    PSORXVW    PSOTALK    PSOUPAT    PSOVER2    PSOVEXR1    PSOVRPT
^PS(52.5    PSODIR    PSODISPS    PSOERXD2    PSOHCSUM    PSOHDR    PSOHELP    PSOHLDIS
PSOHLDS1    PSOHLDS2    PSOHLDS3    PSOHLDS5    PSOHLNE1    PSOHLSG1    PSOLBL    PSOLBL2
PSOMGCM1    PSOORDRG    PSOORED3    PSOORFI1    PSOORRDI    PSOORRL    PSOORRLN    PSOPOST4
PSOPRK    PSOQMCAL    PSOREF    PSOREF2    PSORENW3    PSORENW4    PSORLLLI    PSORREF0
PSORXCLE    PSORXED1    PSORXRP2    PSORXRPT    PSOSPML7    PSOSUCAT    PSOSULB1    PSOSULOG
PSOTPCRX    PSOVDF2    PSOVDF3    PSOVER1    PSOXWRN    SORT GROUP    
National Drug File 185 PSN105D    PSN111D    PSN114D    PSN118D    PSN121D    PSN123D    PSN125D    PSN127D
PSN130D    PSN132D    PSN135D    PSN138D    PSN142D    PSN144D    PSN146D    PSN148D
PSN149D    PSN153D    PSN155D    PSN158D    PSN161D    PSN163D    PSN166D    PSN170D
PSN172D    PSN174D    PSN177D    PSN179D    PSN182D    PSN184D    PSN186D    PSN188D
PSN190D    PSN195D    PSN198D    PSN201D    PSN204D    PSN207D    PSN210D    PSN213D
PSN216D    PSN219D    PSN222D    PSN225D    PSN228D    PSN232D    PSN235D    PSN238D
PSN241D    PSN244D    PSN247D    PSN250D    PSN253D    PSN256D    PSN259D    PSN266D
PSN269D    PSN272D    PSN275D    PSN278D    PSN281D    PSN284D    PSN287D    PSN290D
PSN293D    PSN301D    PSN304D    PSN307D    PSN310D    PSN313D    PSN316D    PSN319D
PSN322D    PSN325D    PSN328D    PSN331D    PSN334D    PSN337D    PSN339D    PSN341D
PSN344D    PSN347D    PSN350D    PSN353D    PSN356D    PSN359D    PSN362D    PSN367D
PSN370D    PSN373D    PSN376D    PSN379D    PSN382D    PSN385D    PSN388D    PSN391D
PSN394D    PSN398D    PSN401D    PSN404D    PSN408D    PSN411D    PSN415D    PSN418D
PSN421D    PSN424D    PSN427D    PSN432D    PSN435D    PSN439D    PSN443D    PSN446D
PSN450D    PSN453D    PSN456D    PSN459D    PSN462D    PSN466D    PSN469D    PSN473D
PSN478D    PSN481D    PSN484D    PSN487D    PSN490D    PSN494D    PSN497D    PSN4P69P
PSN4POST    PSN500D    PSN503D    PSN505D    PSN508D    PSN511D    PSN515D    PSN518D
PSN521D    PSN524D    PSN527D    PSN530D    PSN533D    PSN536D    PSN542D    PSN545D
PSN548D    PSN5ND    PSNAPIS    PSNCOMP    PSNDEA    PSNDRUG    PSNEXC    PSNGPN
PSNHELP    PSNHFRM    PSNHFRM1    PSNHIT    PSNJP54    PSNLDG    PSNLOOK    PSNMCLS
PSNMRG    PSNNDC    PSNNDC1    PSNOCLS    PSNODDI1    PSNONDF    PSNOUT    PSNPCH27
PSNPFN    PSNPPIO    PSNPPIP    PSNPPSNU    PSNPPSNV    PSNPPSNW    PSNPSS    PSNPST
PSNQA    PSNRPT2    PSNRPT3    PSNSTCK    PSNSTCL    PSNSUPLY    PSNVER    PSNVFY
PSNVIEW    
Pharmacy Data Management 161 PSS147PO    PSS160EN    PSS192PO    PSS1P191    PSS208P    PSS50A1    PSS50ATC    PSS50B1
PSS50C    PSS50C1    PSS50D    PSS50LAB    PSS50NDF    PSS50TMP    PSS50WS    PSSADDIT
PSSCHPRE    PSSCHPST    PSSCLDRG    PSSCLINR    PSSCOMMN    PSSCPRS1    PSSDACS    PSSDDUT2
PSSDEE    PSSDEE1    PSSDEEA    PSSDENT    PSSDOS    PSSDOSLZ    PSSDOSRP    PSSDRDOS
PSSDSAPA    PSSDSAPK    PSSDSAPM    PSSDSEXE    PSSDTR    PSSGIU    PSSHLDFS    PSSHLU
PSSHRHAI    PSSHRVL1    PSSHUIDG    PSSLAB    PSSLOOK    PSSMARK    PSSMRRI    PSSMSTR
PSSNDCUT    PSSNDCUT2    PSSNFI    PSSOPKI    PSSOPKI1    PSSORPHZ    PSSP130    PSSP138
PSSP191A    PSSP198    PSSPKIPI    PSSPKIPR    PSSPNSRP    PSSPOIC    PSSPOIDT    PSSPOIM1
PSSPOIMN    PSSPOST2    PSSPRE    PSSPRICE    PSSQORD    PSSSCHMS    PSSTRENG    PSSUNMSI
PSSUTIL1    PSSUTIL3    PSSUTLA1    PSSUTLAZ    PSSVIDRG    PSSVX64    PSSWRNA    PSSWRNB
PSSWRNE    ^APSPQA(32.4    PRESCRIPTION PROFILE    PSS117EN    PSS127PI    PSS1P126    PSS243PI    PSS50
PSS50AQM    PSS50B2    PSS50CMP    PSS50DAT    PSS50DOS    PSS50E    PSS50F    PSS50F1
PSS70UTL    PSSAUTL    PSSBPSUT    PSSCLOZ    PSSCPRS    PSSCREAT    PSSCSPD    PSSDDUT
PSSDELOI    PSSDGUPD    PSSDIN    PSSDIUTL    PSSDOSED    PSSDOSER    PSSDSAPD    PSSDSAPI
PSSDSBBP    PSSDSPOP    PSSFDBRT    PSSFILED    PSSGMI    PSSLDALL    PSSLDEDT    PSSLDOSE
PSSMRRDG    PSSNCPDP    PSSOICT1    PSSOIDOS    PSSOP    PSSORPH    PSSORPH1    PSSORUTE
PSSORUTL    PSSORUTZ    PSSOUTSC    PSSP134    PSSP176    PSSPOI    PSSPOID1    PSSPOID2
PSSPOIKA    PSSPOIM    PSSPOIM2    PSSPOIM3    PSSPOIMO    PSSPOST    PSSPOST5    PSSPOST6
PSSPRUTL    PSSSYN    PSSWRNC    ^APSPQA(32.5    ^PS(52.7    PSSQOC    PSSREF    PSSREMCH
PSSSCHRP    PSSSEE    PSSSOLI1    PSSSPD    PSSUTIL    PSSUTLPR    PSSUTLPZ    PSSVX61
^PS(52.6    
Controlled Substances 146 PSD79P    PSDACT1    PSDADJC    PSDADJN    PSDBAN1    PSDCORP1    PSDCORP3    PSDCOSV
PSDEM2    PSDESTP    PSDFND    PSDGSRV    PSDHRPT    PSDLBL1    PSDLBLR0    PSDNCGS
PSDNMPR    PSDNMRP    PSDNSCG    PSDNTF    PSDNTTPC    PSDNU1    PSDOPT    PSDOPTN
PSDOPTS    PSDORD    PSDORD1    PSDORNV    PSDPAT2    PSDPDR1    PSDPND    PSDPSTK
PSDREC4    PSDREVC    PSDRF    PSDRSI    ^PSD(58.85    ^PSD(58.86    PSD68P    PSDADJ
PSDADJD    PSDADJI    PSDADJIN    PSDADJN1    PSDADJR    PSDAMIS1    PSDAMIS2    PSDBAL
PSDBALI    PSDBAN    PSDCORP2    PSDCOSD    PSDCOSH    PSDCOSM    PSDCOSN    PSDCPO
PSDCRP    PSDCSI    PSDCSL    PSDDFP    PSDDSOR2    PSDDWK    PSDEA    PSDEA41
PSDEM1    PSDEM4    PSDERCP    PSDERD    PSDERP    PSDEST    PSDEVO    PSDEVOR
PSDEXGS    PSDEXP    PSDFILM    PSDFT    PSDFT1    PSDGSH1    PSDGSL1    PSDGSPU
PSDGSRV1    PSDIPOST    PSDLBL0    PSDLBL5    PSDLBLR2    PSDLSTK1    PSDLSTK2    PSDMAPU
PSDNBT    PSDNDES    PSDNMBA    PSDNMSP    PSDNMWE    PSDNRGO    PSDNRGS    PSDNSCL
PSDNSTK    PSDNTFPC    PSDNTR    PSDNTT    PSDNU2    PSDOPT0    PSDOPTI    PSDOPTY
PSDORN    PSDORNC    PSDORP    PSDORSN    PSDORST    PSDORV    PSDPAT1    PSDPDU1
PSDPGS1    PSDPLOG1    PSDPLOG2    PSDPMFG    PSDPSI    PSDPUGS    PSDPWK1    PSDRDR1
PSDREC1    PSDREC2    PSDREC3    PSDREPD    PSDREPV    PSDREV    PSDREVD    PSDRF4
PSDRFM    PSDRFR    PSDRFS    PSDRFV    PSDRFW    PSDRFZ    PSDRLOG1    PSDRPGS1
PSDRPGS2    PSDRPT    PSDRWK    PSDSTK    PSDTRA1    PSDTRN1    PSDTRV    PSDTRVR1
PSDUP2    PSDUP3    
Inpatient Medications 104 PSGAMSA    PSGCAP0    PSGDCC    PSGDCT1    PSGDS0    PSGEUD    PSGFILD3    PSGFILED
PSGIU    PSGMI    PSGOE1    PSGOE2    PSGOE7    PSGOEEW    PSGOEF    PSGOEF1
PSGOER    PSGOERS    PSGOES    PSGOESF    PSGORVW    PSGPEN    PSGPLF    PSGPLR
PSGPLXR    PSGPRVR    PSGSICH    PSGSICHK    PSGTAP0    PSGTAP1    PSGTCTD    PSIVCHK1
PSIVDCR    PSIVDRG    PSIVOCDS    PSIVOPT    PSIVPCR    PSIVST2    PSIVWCR    PSIVWRP
PSIVXREF    PSJ FILED    PSJ0050    PSJ0077    PSJ0078    PSJ5P315    PSJADT2    PSJBCMA
PSJBCMA1    PSJBLDOC    PSJDCHK    PSJDGCK    PSJDIN    PSJEEU0    PSJFTR    PSJGMRA
PSJHL10    PSJHL3    PSJHL9    PSJHLV    PSJIEDT    PSJIPST1    PSJIPST3    PSJLIFN
PSJLMGUD    PSJLMUTL    ^PS(59.6    PSJIPST2    PSJLMPRU    PSJLMUDE    PSJLMUT1    PSJMISC
PSJOCOR    PSJOEEW    PSJORAPI    PSJORPOE    PSJORRE1    PSJORREN    PSJORUT2    PSJORUTL
PSJPAD50    PSJPAD70    PSJPAD7I    PSJPADE    PSJPADIT    PSJPADPT    PSJPATMR    PSJPDCLA
PSJPDCLU    PSJPDRIN    PSJPDRIP    PSJPDRTP    PSJPDRTR    PSJPDRUT    PSJPDV    PSJPR0
PSJPXRM1    PSJRXI    PSJSFRQ    PSJU DRUG EDIT    PSJU FILED    PSJUTL    PSJUTL1    PSJUTL3
Drug Accountability 93 DRUG    LINE ITEM DATA    PRIMARY INVENTORY POINT(S)    PSA COMPARISON REPORT    PSA81PI    PSAAOP    PSABRKU6    PSABRKU9
PSACON    PSACON2    PSACONW    PSACREDO    PSADAI    PSADJ    PSADJI    PSADJR
PSADRI    PSADRIP    PSADRU    PSADRUG    PSADRUGP    PSAENTO    PSAGIP1    PSAHELP
PSAHIS    PSAHIS1    PSAINV    PSALEVRP    PSALFA    PSALFM    PSALFS    PSALNA
PSALND    PSALNM    PSALOCO    PSALOG1    PSAMON    PSANAC    PSANDC    PSANDCUT
PSANDF    PSAOP    PSAOP2    PSAORDP1    PSAOUT    PSAP41    PSAP56    PSAPOST
PSAPROC1    PSAPROC3    PSAPROC4    PSAPROC5    PSAPROC6    PSAPROC7    PSAPROC8    PSAPROC9
PSAPSI    PSAPSI2    PSAREC    PSAREC1    PSAREORD    PSAREPV    PSAREV    PSAREVC
PSAREVD    PSARIN    PSASIG    PSATI    PSATRAN    PSAUNL    PSAUNM    PSAUP4
PSAUP5    PSAUP6    PSAUP8    PSAUTL    PSAUTL1    PSAUTL4    PSAUTL6    PSAVER1
PSAVER2    PSAVER3    PSAVER6    PSAVER7    PSAVERA    PSAVERA1    PSAVERA2    PSAVERA3
PSAVIN    PSAVIN1    PSAVIN2    PSAVINC    ^PSD(58.81    
Auto Replenishment Ward Stock 45 PSGW PERCENTAGE    PSGWADE    PSGWADE1    PSGWADP    PSGWATR1    PSGWBGIN    PSGWBO1    PSGWBOA
PSGWBOI    PSGWBOS    PSGWCAD    PSGWCAD3    PSGWCL    PSGWCLP    PSGWCPA    PSGWDEL
PSGWDR    PSGWDUP    PSGWDUP1    PSGWEDI1    PSGWEXR    PSGWHC0    PSGWHV0    PSGWLSI1
PSGWLSI2    PSGWNU    PSGWOD2    PSGWODP    PSGWODRN    PSGWOND    PSGWONDM    PSGWPAW
PSGWPI1    PSGWPL0    PSGWPOST    PSGWPSI    PSGWRA    PSGWSC    PSGWSTD    PSGWSTKI
PSGWTOT    PSGWTOT1    PSGWVW    ^PS(58.6    ^PS(59.4    
CMOP 24 PSX DRUG    PSXBLD    PSXBLD1    PSXCMOP    PSXCMOP0    PSXCMOP1    PSXCOSTU    PSXCSHI
PSXCSMON    PSXCSUTL    PSXDENT    PSXEDIT    PSXEDRG    PSXEDUTL    PSXLBL1    PSXMISC1
PSXNOCMP    PSXOCMOP    PSXREF    PSXRTN1    PSXUTL    PSXVND    PSXVPN    ^PSXARC
Medicine 19 MCAROC1    MCAROEP    MCAROG    MCAROGA1    MCAROGE    MCAROGM    MCAROH2    MCAROK
MCAROK1    MCAROP    MCAROPE1    MCAROT    MCARPROC    MCARSUP    MCOBRHA1    MCOETT11
MCPARC    MCPOS04A    MCPSOP    
Order Entry Results Reporting 7 OCXOZ0F    OCXOZ11    ORQOAUIB    ORQOAUIC    ORWDPLM1    ORWDPLM2    ORY269    
Barcode Medication Administration 3 PSBRPCMO    ^PSB(53.68    AUDIT LOG    
Lab Service 3 LRBLPE1    LRBLPH    LREPIPH    
Accounts Receivable 2 RCDMCR4B    RCDMCR8C    
DSS Extracts 2 ECXDRUG2    ECXPIVD    
Clinical Monitoring System 1 QAMC24    
Enterprise Health Management Platform 1 HMPCORD4    
Kernel 1 ^DIC(19    
Mental Health 1 YSCLSRV3    
My HealtheVet 1 MHVPRNA    
Patient Data Exchange 1 VAQDBIP8    
Surgery 1 SROSCH2    

Accessed By FileMan Db Calls, Total: 382

Package Total Routines
National Drug File 156 PSN105D    PSN111D    PSN114D    PSN118D    PSN121D    PSN123D    PSN125D    PSN127D
PSN130D    PSN132D    PSN135D    PSN138D    PSN142D    PSN144D    PSN146D    PSN148D
PSN149D    PSN153D    PSN155D    PSN158D    PSN161D    PSN163D    PSN166D    PSN170D
PSN172D    PSN174D    PSN177D    PSN179D    PSN182D    PSN184D    PSN186D    PSN188D
PSN190D    PSN195D    PSN198D    PSN201D    PSN204D    PSN207D    PSN210D    PSN213D
PSN216D    PSN219D    PSN222D    PSN225D    PSN228D    PSN232D    PSN235D    PSN238D
PSN241D    PSN244D    PSN247D    PSN250D    PSN253D    PSN256D    PSN259D    PSN266D
PSN269D    PSN272D    PSN275D    PSN278D    PSN281D    PSN284D    PSN287D    PSN290D
PSN293D    PSN301D    PSN304D    PSN307D    PSN310D    PSN313D    PSN316D    PSN319D
PSN322D    PSN325D    PSN328D    PSN331D    PSN334D    PSN337D    PSN339D    PSN341D
PSN344D    PSN347D    PSN350D    PSN353D    PSN356D    PSN359D    PSN362D    PSN367D
PSN370D    PSN373D    PSN376D    PSN379D    PSN382D    PSN385D    PSN388D    PSN391D
PSN394D    PSN398D    PSN401D    PSN404D    PSN408D    PSN411D    PSN415D    PSN418D
PSN421D    PSN424D    PSN427D    PSN432D    PSN435D    PSN439D    PSN443D    PSN446D
PSN450D    PSN453D    PSN456D    PSN459D    PSN462D    PSN466D    PSN469D    PSN473D
PSN478D    PSN481D    PSN484D    PSN487D    PSN490D    PSN494D    PSN497D    PSN500D
PSN503D    PSN505D    PSN508D    PSN511D    PSN515D    PSN518D    PSN521D    PSN524D
PSN527D    PSN530D    PSN533D    PSN536D    PSN542D    PSN545D    PSN548D    PSN566PO
PSNAPIS    PSNDEX    PSNDRUG    PSNFRMLY    PSNLDG    PSNLOOK    PSNODDI    PSNPSS
PSNRPT    PSNSTCL    PSNVER    PSNVIEW    
Outpatient Pharmacy 81 PSO283P1    PSO293P1    PSO467PO    PSO583PI    PSOASAP0    PSOBKDE1    PSOBKDED    PSOBPSUT
PSOCAN2    PSOCMOPR    PSOCOST    PSOCSTX    PSODDPR3    PSODGAL2    PSODIR1    PSODIR2
PSODIR5    PSODISP1    PSODRG    PSODRGN    PSOERUT2    PSOERUT4    PSOERUT5    PSOERX1B
PSOERX1F    PSOERXA0    PSOERXA1    PSOERXA5    PSOERXD2    PSOERXI1    PSOERXUT    PSOERXX4
PSOFDAMG    PSOFDAUT    PSOHELP1    PSOHLDS1    PSOHLDS5    PSOHLNE3    PSON52    PSONDCUT
PSONEW    PSONVAR1    PSONVAVW    PSOORCPY    PSOORDRG    PSOORED1    PSOORFI6    PSOORNEW
PSOORNW1    PSOORNW2    PSOPKIV1    PSOPMP0    PSOPROD1    PSOPROD2    PSOREJP0    PSORELD1
PSORENW    PSORENW0    PSORENW4    PSORLLL2    PSORLLL3    PSORLST2    PSORPTS    PSORREF
PSORRPA1    PSORRX1    PSORWRAP    PSORXL    PSORXPA1    PSORXRP2    PSORXRPT    PSOSPML2
PSOSPMU1    PSOSPMUT    PSOSPMV    PSOSUINV    PSOTPRP1    PSOUTIL    PSOUTL    PSOUTLA2
PSOVER1    
Pharmacy Data Management 61 PSS127PI    PSS189PI    PSS208P    PSS235PO    PSS50A    PSS50A1    PSS50ATC    PSS50B
PSS50B1    PSS50B2    PSS50C    PSS50C1    PSS50CMP    PSS50D    PSS50DAT    PSS50E
PSS50F    PSS50F1    PSS50LAB    PSS50NDF    PSS50P7    PSS50WS    PSS52P6B    PSS70UTL
PSSBPSUT    PSSCLOZ    PSSCREAT    PSSCSPD    PSSDDUT2    PSSDEE    PSSDEE1    PSSDEEA
PSSDELOI    PSSDOS    PSSDOSED    PSSDOSER    PSSDRDOS    PSSDSEXE    PSSFILED    PSSLAB
PSSLOOK    PSSMARK    PSSMSTR    PSSNDCUT    PSSNDCUT2    PSSP130    PSSP176    PSSP198
PSSPOI    PSSPOIM2    PSSPOIMN    PSSPOST    PSSPRICE    PSSSEE    PSSUTIL    PSSUTIL1
PSSVIDRG    PSSWRNA    PSSWRNC    PSSWRNE    PSSXRF1    
Drug Accountability 24 PSAAOP    PSABRKU9    PSACON    PSAGIP1    PSANDF    PSAOUT    PSAPROC4    PSAPROC7
PSAPROC8    PSARDCBA    PSARDCU1    PSARDCUT    PSAREC    PSAREC1    PSATI    PSAUP8
PSAUTL6    PSAVER2    PSAVER6    PSAVER7    PSAVERA    PSAVERA2    PSAVERA3    PSAVINC
Inpatient Medications 18 PSGDCC    PSGFILD3    PSGFILED    PSGOE7    PSGOE82    PSGOE92    PSGOEV    PSGSICHK
PSJCLOLS    PSJCLOZ    PSJDGAL2    PSJDGCK    PSJOC    PSJPAD50    PSJPDRIN    PSJPDRUT
PSJRXLAB    PSJUTL3    
Barcode Medication Administration 8 PSBMLLKU    PSBMLTS    PSBOBL    PSBOBZ    PSBOMT    PSBRPC2    PSBRPCMO    PSBUTL
Controlled Substances 7 PSDDSOR1    PSDIPOST    PSDREC1    PSDREC2    PSDREC3    PSDREC4    PSDSUBOX    
Auto Replenishment Ward Stock 6 PSGWBGIN    PSGWCL    PSGWODP    PSGWSC    PSGWTOT    PSGWVW    
Mental Health 5 YSCLDIS    YSCLHLGT    YSCLTEST    YSCLTST2    YSCLTST5    
CMOP 3 PSXCMOP1    PSXCSUTL    PSXEDRG    
DSS Extracts 3 ECXAPHA2    ECXBCM    ECXCBFK    
Health Summary 3 GMTSPSO8    GMTSPSO9    GMTSPSTN    
Integrated Billing 2 IBCSC5A    IBNCPDP1    
Order Entry Results Reporting 2 ORCSEND1    ORQ21    
E Claims Management Engine 1 BPSUTIL    
Emergency Department Integration Software 1 EDPHIST    
My HealtheVet 1 MHVPRNA    

Pointed To By FileMan Files, Total: 67

Package Total FileMan Files
Outpatient Pharmacy 9 DUE QUESTIONNAIRE(#50.073)[#50.07301(.01)]    DUE ANSWER SHEET(#50.0731)[2]    ADMINISTRATION SCHEDULE(#51.1)[#51.111(.01)]    PENDING OUTPATIENT ORDERS(#52.41)[11]    ERX HOLDING QUEUE(#52.49)[3.2#52.4949(.03)]    PSO AUDIT LOG(#52.87)[7]    OUTPATIENT SITE(#59)[.52]    DRUG COST(#50.9)[#50.9002(.01)#50.9003(.01)#50.9007(.01)]
PRESCRIPTION(#52)[6]    
Pharmacy Data Management 8 APSP INTERVENTION(#9009032.4)[.05]    MEDICATION INSTRUCTION(#51)[#51.321(.01)]    IV ADDITIVES(#52.6)[1]    IV SOLUTIONS(#52.7)[1]    PHARMACY PATIENT(#55)[#55.05(1)#55.06(24)#55.0611(.02)#55.07(.01)]    PHARMACY SYSTEM(#59.7)[10.170]    DRUG(#50)[62.05905#50.065(.01)]
REMOTE PRESCRIPTION LOG(#52.09)[1.1]    
Auto Replenishment Ward Stock 6 PADE INBOUND TRANSACTIONS(#58.6)[2]    PADE INVENTORY SYSTEM(#58.601)[#58.60111(.01)#58.601121(.01)#58.601122(1)]
PADE OUTBOUND MESSAGES(#58.72)[14]    PHARMACY AOU STOCK(#58.1)[#58.11(.01)]    PHARMACY BACKORDER(#58.3)[.01]    AR/WS STATS FILE(#58.5)[#58.52(.01)]    
Inpatient Medications 5 IV CATEGORY(#50.2)[#50.21(1)]    NON-VERIFIED ORDERS(#53.1)[24#53.11(.01)]    UNIT DOSE ORDER SET(#53.2)[#53.2102(.01)#53.23(.01)]    INPATIENT USER PARAMETERS(#53.45)[#53.4502(.01)]    UNIT DOSE PICK LIST STATS(#57.6)[#57.63(.01)]    
Radiology Nuclear Medicine 5 RAD/NUC MED PATIENT(#70)[#70.15(.01)]    NUC MED EXAM DATA(#70.2)[#70.21(.01)]    RAD/NUC MED PROCEDURES(#71)[#71.055(.01)#71.08(.01)]    RADIOPHARMACEUTICAL LOT(#71.9)[5]    NEW RAD PROCEDURE WORKUP(#71.11)[#71.1108(.01)#71.1155(.01)]    
Clinical Reminders 4 REMINDER DEFINITION(#811.9)[#811.902(.01)]    REMINDER FINDING ITEM PARAMETER(#801.43)[.02]    REMINDER TERM(#811.5)[#811.52(.01)]    REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.04)#810.32(.01)]    
DSS Extracts 4 UNIT DOSE LOCAL EXTRACT(#727.809)[62]    IV DETAIL EXTRACT(#727.819)[67]    IV EXTRACT DATA(#728.113)[3]    UNIT DOSE EXTRACT DATA(#728.904)[3]    
Drug Accountability 4 RETURN DRUG(#58.35)[#58.3511(.01)]    DRUG ACCOUNTABILITY STATS(#58.8)[#58.8001(.01)]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[4]    DRUG ACCOUNTABILITY ORDER(#58.811)[#58.81125(1)]    
Barcode Medication Administration 3 BCMA MISSING DOSE REQUEST(#53.68)[.13]    BCMA UNABLE TO SCAN LOG(#53.77)[#53.771(.01)]    BCMA MEDICATION LOG(#53.79)[#53.795(.01)]    
Controlled Substances 3 CS WORKSHEET(#58.85)[3]    CS DESTRUCTION(#58.86)[119]    CS CORRECTION LOG(#58.87)[4]    
Integrated Billing 3 IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.04]    TRANSFER PRICING TRANSACTIONS(#351.61)[4.01]    CLAIMS TRACKING ROI(#356.25)[.03]    
Medicine 3 MEDICATION(#695)[.01]    ENDOSCOPY/CONSULT(#699)[#699.74(.01)]    GENERALIZED PROCEDURE/CONSULT(#699.5)[#699.53(.01)]    
Order Entry Results Reporting 3 ORDER STATISTICS(#100.1)[.01]    ORDER CHECK INSTANCES(#100.05)[#100.06(.01)#100.517(2)]    ORDER DEA ARCHIVE INFO(#101.52)[29]    
Surgery 2 SURGERY(#130)[#130.33(.01)#130.47(.01)#130.48(.01)]
PHARMACY ITEMS(#131.06)[.01]    
Adverse Reaction Tracking 1 PATIENT ALLERGIES(#120.8)[1]    
Clinical Case Registries 1 ROR REGISTRY PARAMETERS(#798.1)[#798.129(.01)]    
Fee Basis 1 FEE BASIS PHARMACY INVOICE(#162.1)[#162.11(9)]    
Mental Health 1 SECLUSION/RESTRAINT(#615.2)[#615.23(.01)]    
PCE Patient Care Encounter 1 REMINDER ORDER CHECK ITEMS GROUP(#801)[#801.015(.01)]    

Pointer To FileMan Files, Total: 20

Package Total FileMan Files
National Drug File 7 VA DRUG CLASS(#50.605)[25]    DRUG UNITS(#50.607)[902]    PACKAGE TYPE(#50.608)[24]    PACKAGE SIZE(#50.609)[23]    MEDICATION ROUTES(#51.2)[62.02]    VA GENERIC(#50.6)[20]    VA PRODUCT(#50.68)[22]    
Pharmacy Data Management 5 PHARMACY ORDERABLE ITEM(#50.7)[2.1]    DOSE UNITS(#51.24)[#50.0904(4)]    DRUG TEXT(#51.7)[#50.037(.01)]    PHARMACY AUTOMATED DISPENSING DEVICES(#52.53)[#50.0906(1)#50.0906(2)]    DRUG(#50)[62.05905#50.065(.01)]
Inpatient Medications 2 PRIMARY DRUG(#50.3)[64]    WARD GROUP(#57.5)[#50.0212(.01)]    
Lab Service 2 LABORATORY TEST(#60)[17.2623002#50.02(.01)]
TOPOGRAPHY FIELD(#61)[17.4623004#50.02(2)]
Outpatient Pharmacy 2 ORDER UNIT(#51.5)[12#50.1(401)]    OUTPATIENT SITE(#59)[#50.032(.01)#50.0906(.01)]    
IFCAP 1 ITEM MASTER(#441)[#50.0441(.01)]    
Kernel 1 NEW PERSON(#200)[#50.0214(2)#50.03(1)#50.0321(1)#50.095(1)]    

Fields, Total: 89

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99999
  • DESCRIPTION:  
    This field contains the internal record number of the drug.
  • GROUP:  PS
.01 GENERIC NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^PSSGENM
  • LAST EDITED:  OCT 19, 2000
  • HELP-PROMPT:  Answer must be 1-40 characters in length. GENERIC NAME cannot be edited if entry marked for CMOP.
  • DESCRIPTION:  
    This is the generic name of the drug. In addition, if this entry is marked for CMOP transmission, the generic name cannot be edited unless it is UNmarked for CMOP transmission first.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  .01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED!","","!?10")
    100,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED!","","!?10")
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^B
    1)= S ^PSDRUG("B",$E(X,1,40),DA)=""
    2)= K ^PSDRUG("B",$E(X,1,40),DA)
  • CROSS-REFERENCE:  50^AC^MUMPS
    1)= Q
    2)= F PSI=1:1 I '$D(^PSDRUG(DA,900,PSI)) S ^PSDRUG(DA,900,PSI,0)=X_"^"_DT Q
    3)= Do Not Delete!
    This xref is used to update the Old Names field (#900). It is in the form of: ^PSDRUG(DA,900,IEN,0)
  • CROSS-REFERENCE:  50^AUDAP^MUMPS
    1)= I '$D(PSGINITF) S ^PSDRUG("AUDAP")=$S($D(^PS(59.7,1,20)):$P(^(20),"^"),1:"")
    1.1)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,1) S XMB(1)=X
    1.2)= S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59),1) S XMB(2)=X
    1.3)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) S XMB(3)=X
    1.4)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S XMB(4)=X
    2)= Q
    2.2)= S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_":",2),$C(59),1) S XMB(2)=X
    2.3)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1)) S XMB(3)=X
    2.4)= S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"") S X=$P(Y(1),U,10) S XMB(4)=X
    3)= Used by the Unit Dose/Inpatient Medications packages.
    CREATE PARAMETER #1)= GENERIC NAME
    CREATE PARAMETER #2)= NON-FORMULARY
    CREATE PARAMETER #3)= CLASSIFICATION
    CREATE PARAMETER #4)= MESSAGE
    CREATE VALUE)= PSZDRUGCHANGE
    DELETE PARAMETER #1)= OLD GENERIC NAME
    DELETE PARAMETER #2)= NON-FORMULARY
    DELETE PARAMETER #3)= CLASSIFICATION
    DELETE PARAMETER #4)= MESSAGE
    DELETE VALUE)= PSZDRUGCHANGE
    This is used by the post-init process of the Unit Dose/Inpatient Medication packages' inits. If this is not set, the post-init process will mark every entry for use with Inpatient Medications package through the
    APPLICATION PACKAGES' USE field. In the form of: ^PSDRUG("AUDAP")
  • CROSS-REFERENCE:  50^AIUU^MUMPS
    1)= I $D(X),$P($G(^PSDRUG(DA,2)),"^",3)]"" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),"^",3)) S ^PSDRUG("AIU"_$E($P(^PSDRUG(DA,2),"^",3),Y(2)),X,DA)=""
    2)= I $D(X),$P($G(^PSDRUG(DA,2)),"^",3)]"" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),"^",3)) K ^PSDRUG("AIU"_$E($P(^PSDRUG(DA,2),"^",3),Y(2)),X,DA)
    3)= This xref is used to update the 'AIU' xref.
    This xref is used to keep the AIU xref in sync when the drug name is edited. It is in the form of: ^PSDRUG("AIU"_$P(^PSDRUG(DA,2),"^",3),Y(2),DA)
  • CROSS-REFERENCE:  50^AK^MUMPS
    1)= Q
    2)= Q
    This cross reference is a place holder. A cross reference is being set in the form of ^PSDRUG("A526",Dispense Drug IEN,IV Additive IEN)="". This is being set from the Generic Drug field (#1) of the IV ADDITIVES file
    (#52.6). Another cross reference is being set in the form of ^PSDRUG("A527",Dispense Drug IEN, IV Solution IEN)="". This is being set from the Generic Drug field (#1) of the IV SOLUTIONS file (#52.7). This data will be
    used to maintain the Pharmacy Orderable Items when changes are made in other files that point to the PHARMACY ORDERABLE ITEM file (#50.7).
1 AHFS NUMBER COMPUTED

  • MUMPS CODE:  S X=$P(^PSDRUG(D0,0),U,2),X=$J(X/100,7,2),X=$E(X,1,2)_":"_$E(X,3,7)
  • ALGORITHM:  S X=$P(^PSDRUG(D0,0),U,2)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 VA CLASSIFICATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<1!($L(X)>5) X I $D(X) K:$S($D(^PSDRUG(DA,"ND")):+^("ND"),1:0) X W:'$D(X) " Uneditable" Q:'$D(X) S DIC="^PS(50.605,",DIC(0)="EQM" D ^DIC K:Y<0 X S:Y>0 X=$P(Y,"^",2)
  • LAST EDITED:  JAN 22, 2019
  • HELP-PROMPT:  Enter the VA Classification.
  • DESCRIPTION:  
    This is the VA classification for this drug.
  • TECHNICAL DESCR:  
    free text
  • EXECUTABLE HELP:  S DIC="^PS(50.605,",DIC(0)="EQM" D ^DIC
  • DELETE TEST:  2,0)= I $D(^PSDRUG(DA,"ND")) D EN^DDIOL("Deletions are not allowed")
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the NATIONAL DRUG CLASS field of the DRUG File
  • CROSS-REFERENCE:  50^AC^MUMPS
    1)= S X=$O(^PS(50.605,"B",X,0)),$P(^PSDRUG(DA,"ND"),"^",6)=X,^PSDRUG("VAC",X,DA)=""
    2)= I $D(^PSDRUG(DA,"ND")) S X=+$P(^PSDRUG(DA,"ND"),"^",6) K:X ^PSDRUG("VAC",X,DA) K:$P(^PSDRUG(DA,"ND"),"^",2)="" ^PSDRUG(DA,"ND")
    3)= SPECIAL CROSS-REFERENCE - DO NOT DELETE.
    This cross-reference stores the resolved pointer value from Field 25 (NATIONAL DRUG CLASS) which points to File 50.605. It is in the form of: ^PSDRUG("VAC",X,DA)
  • CROSS-REFERENCE:  50^APCC^MUMPS
    1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) S:X(1) ^PSDRUG("APC",X(1),X,DA)=""
    2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) K:X(1) ^PSDRUG("APC",X(1),X,DA)
    3)= Do not Delete!
    This cross reference is used as a link between Primary Drug and VA Class.
    It is in the form of: ^PSDRUG("APC",X(1),X,DA)
  • CROSS-REFERENCE:  50^AOCC^MUMPS
    1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",1) S:X(1) ^PSDRUG("AOC",X(1),X,DA)=""
    2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",1) K:X(1) ^PSDRUG("AOC",X(1),X,DA)
    3)= Do not Delete!
    This cross reference is used as a link between Pharmacy Orderable Item
    and VA Classification. Cross-reference created: ^PSDRUG("AOC",X(1),X,DA)
    X(1) => Orderable Item (IEN)
    X => VA Classification
    DA => Dispense Drug (IEN)
  • RECORD INDEXES:  AOC (#38)
2.1 PHARMACY ORDERABLE ITEM 2;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • INPUT TRANSFORM:  I $D(X) N ND S ND=$G(^PSDRUG(DA,"ND")) I +ND,+$P(ND,"^",3),+$$PSJDF^PSNAPIS(0,$P(ND,"^",3))'=$P(^PS(50.7,X,0),"^",2) K X
  • LAST EDITED:  OCT 18, 2000
  • HELP-PROMPT:  Enter a PHARMACY ORDERABLE ITEM to tie this drug to.
  • DESCRIPTION:  
    Name used by ORDER ENTRY/RESULTS REPORTING.
  • TECHNICAL DESCR:  
    Points to file #50.7.
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^ASP
    1)= S ^PSDRUG("ASP",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("ASP",$E(X,1,30),DA)
    3)= Do not delete
    Cross-reference to PHARMACY ORDERABLE ITEM file #50.7.
  • CROSS-REFERENCE:  50^AE^MUMPS
    1)= D SET1^PSSPOID1
    2)= D KILL1^PSSPOID1
    3)= (Do Not Delete)
    This cross reference is used to update the Pharmacy Orderable Item pointer field (#15) in the IV ADDITIVES file (#52.6) and the Pharmacy Orderable Item pointer field (#9) in the IV SOLUTIONS file (#52.7), for IV Additives
    and IV Solutions that are matched to this Drug by the Generic Drug pointer field (#1) in each of these files. Pharmacy Orderable Item pointers in these two files must be the same as the Pharmacy Orderable Item pointer for
    the Drug that the IV Additive or IV Solution is matched to. This cross reference is also used to keep the Pharmacy Orderable Item entries in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information,
    based on all active Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This
    information is also sent to CPRS (Computerized Patient Record System) by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43). The cross references that
    are set and killed are: ^PS(50.7,"A50",Pharmacy Orderable Item IEN,Dispense Drug IEN)="", ^PS(52.6,"AOI",Pharmacy Orderable Item IEN,IV Additive IEN)="", ^PS(52.7,"AOI",Pharmacy Orderable Item IEN,IV Solution IEN)="".
  • RECORD INDEXES:  AOC (#38)
3 DEA, SPECIAL HDLG 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<1)!'(X?.N.U) X D EDIT^PSSDDUT2:$D(X)
  • LAST EDITED:  MAY 01, 2007
  • HELP-PROMPT:  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used to show the DEA Special Handling .
  • TECHNICAL DESCR:  
    free text
  • EXECUTABLE HELP:  D:X="?" DEA^PSSDDUT2 D:X?2."?" DEATBL^PSSDDUT2
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^AF^MUMPS
    1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    3)= (Do Not Delete)
    This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are
    matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System)
    by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
4 MAXIMUM DOSE PER DAY 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  OCT 18, 1989
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  
    This field is used as a standard maximum dosage.
  • TECHNICAL DESCR:  
    numeric
  • GROUP:  PS
5 STANDARD SIG 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X D:$D(X) SIG^PSSDDUT2 D:$D(X) EN^DDIOL(" "_"("_$G(SIG)_" )","","?0") K Z0,Z1,SIG
    9.2 =
    9.3 =
  • LAST EDITED:  JUN 26, 1997
  • HELP-PROMPT:  ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used as a standard default for medication instructions.
  • TECHNICAL DESCR:  
    free text
  • EXECUTABLE HELP:  S DIC=51,DIC(0)="Q" D ^DIC S DIC=DIE
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6 FSN 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5) X
  • HELP-PROMPT:  Answer must be 5-20 characters in length.
  • DESCRIPTION:  
    This is the federal stock number of this drug.
  • GROUP:  PS
8 WARNING LABEL 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>25!($L(X)<1)!'(X?.NP) X D:$D(X) DRUGW^PSSDDUT2 K Z0,Z1
    9.2 = F Z0=1:1 Q:$P(X,",",Z0,99)="" S Z1=$P(X,",",Z0) W:$D(^PS(54,Z1,0)) ?35,$P(^(0),U,1),! I '$D(^(0)) W ?35,"NO SUCH WARNING LABEL" K X Q
  • LAST EDITED:  MAR 17, 1999
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used to indicate if a warning should be printed with the selection of this drug.
  • EXECUTABLE HELP:  S DIC=54,DIC(0)="Q" D ^DIC S DIC=DIE
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.1 NEW WARNING LABEL LIST WARN;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X D VALID^PSSWRNE
  • LAST EDITED:  MAY 24, 2004
  • HELP-PROMPT:  Enter comma-delimited list of warnings from old and new files, following new file entries with an "N".
  • DESCRIPTION:  
    Enter a comma-delimited list of warning numbers from old and new warning files, following new file entries with an "N".
  • TECHNICAL DESCR:  If it is desired to use some warning labels from both the old RX CONSULT file (#54) and the new WARNING LABEL-ENGLISH (#50.625) or WARNING LABEL-SPANISH (#50.626) file, a comma delimited list with entries from both files
    can be entered. Entries from the new warning label file must be followed with an "N". e.g. 22,5N,128N will print local warning number 22 from the RX CONSULT file (#54) followed by warnings 5 and 128 from the new warning
    file (English or Spanish) when the PHARMACY SYSTEM file (#59.7) WARNING LABEL SOURCE field (#16) is set to "N" for new.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8.2 GENDER SPECIFIC LBLS ON ALL RX WARN;2 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 18, 2004
  • HELP-PROMPT:  If a new warning is specific to one gender, set this field to "N" to print the warning only for patients of that gender.
  • DESCRIPTION:  If this field contains "N", warning labels that are marked with a SPECIFIC TO GENDER value of "M" for Male or "F" for Female will only print for this drug when the patient is that specific gender. If this field is null or
    contains a "Y", then the warning will print for both genders.
  • TECHNICAL DESCR:  If this field is answered "N", the SPECIFIC TO GENDER FIELD (#2) of the WARNING LABEL-ENGLISH file (#50.625) or the WARNING LABEL-SPANISH file (#50.626) will be examined and this warning will not print if the gender is not
    the same as what the warning is specific for. If this field contains a "Y" or is null, then the warning will print for both genders.
9 SYNONYM 1;0 Multiple #50.1 50.1

  • DESCRIPTION:  This multiple contains the Synonym, NDC Code, Intended Use, VSN, Order Unit, Price per Order Unit, Dispense Units per Order Unit, Price per Dispense Unit, and Vendor fields. It is used for a quick code for look ups or to
    locate NDCs to increment the drug's inventory when orders are received.
  • GROUP:  PH
11 REORDER LEVEL 660;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
  • DESCRIPTION:  
    This field is used to indicate the reorder level for this drug.
  • TECHNICAL DESCR:  
    numeric
  • GROUP:  PS
12 ORDER UNIT 660;2 POINTER TO ORDER UNIT FILE (#51.5) ORDER UNIT(#51.5)

  • LAST EDITED:  NOV 10, 1990
  • HELP-PROMPT:  Enter the order unit for this drug.
  • DESCRIPTION:  
    This is the order unit for this drug.
  • GROUP:  PS
13 PRICE PER ORDER UNIT 660;3 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  APR 23, 2020
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999, 2 Decimal Digits.
  • DESCRIPTION:  
    This is the price per order unit for this drug.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^50^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,5)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(50,13,1,1,1.1) X ^DD(50
    ,13,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=DIV,X=$S($P(Y(1),U,5):X/$P(Y(1),U,5),1:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#13/#15,1,4)
    DELETE VALUE)= @
    FIELD)= #16
  • CROSS-REFERENCE:  50^PRC^MUMPS
    1)= D ST^PSSPRICE(DA,DUZ,DI)
    2)= S:X'="" X=X
    Cross-reference to set history of price change multiple (field #950) for changes to this field.
  • CROSS-REFERENCE:  ^^TRIGGER^50^30
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,6)):^(6),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^PSDRUG(DIV(0),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=50,DIG=30 D ^DICR
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE/TIME PRICE LAST CHANGED
    Trigger cross-reference to set the value of the DATE/TIME PRICE LAST CHANGED (#30) field.
14 NORMAL AMOUNT TO ORDER 660;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 07, 1983
  • HELP-PROMPT:  Type a whole Number between 0 and 999, 0 Decimal Digits.
  • DESCRIPTION:  
    This is the normal amount to order for this drug.
  • GROUP:  PS
14.5 DISPENSE UNIT 660;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  JUN 13, 1994
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the dispense unit for this drug.
  • AUDIT:  YES, ALWAYS
  • DELETE TEST:  550,0)= N X S X="PSXREF" X ^%ZOSF("TEST") I $T D DISPUNIT^PSXREF
  • GROUP:  PS
15 DISPENSE UNITS PER ORDER UNIT 660;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<1)!(X?.E1"."5N.N) X
  • LAST EDITED:  AUG 22, 2019
  • HELP-PROMPT:  Type a Number between 1 and 99999, 4 Decimal Digits
  • DESCRIPTION:  
    This is the dispense units per order unit for this drug.
  • TECHNICAL DESCR:  
  • GROUP:  PS
  • CROSS-REFERENCE:  ^^TRIGGER^50^16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(50,15,1,1,1.1) X ^DD(50,15,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,3),X=$S(DIV:X/DIV,1:"*******"),Y(2)=$G(X) S X=1,Y(3)=$G(X) S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),660)),DIV=X S $P(^(660),U,6)=DIV,DIH=50,DIG=16 D ^DICR
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#13/#15,1,4)
    DELETE VALUE)= @
    FIELD)= #16
  • CROSS-REFERENCE:  50^DUO^MUMPS
    1)= D ST^PSSPRICE(DA,DUZ,DI)
    2)= S:X'="" X=X
    Cross-reference to set history of price change multiple (field #950) for changes to this field. Also, the bulletin Pharmacy Price Tracker will be created and sent to the PSS DEE AUDIT mail group.
16 PRICE PER DISPENSE UNIT 660;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  MAY 23, 2017
  • HELP-PROMPT:  Type a number between 0 and 999999, 4 Decimal Digits.
  • DESCRIPTION:  
    This is the price per dispense unit for this drug.
    WRITE AUTHORITY: @
  • GROUP:  PS
  • NOTES:  TRIGGERED by the PRICE PER ORDER UNIT field of the DRUG File
    TRIGGERED by the DISPENSE UNITS PER ORDER UNIT field of the DRUG File
17 SOURCE OF SUPPLY 660;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<1)!'(X?1N.U) X
  • LAST EDITED:  JUL 29, 1987
  • DESCRIPTION:  
    This field is used to indicate the source of the supply for this medication/ supply.
  • TECHNICAL DESCR:  
    free text
  • EXECUTABLE HELP:  D P^PSSDDUT2
  • GROUP:  PS
17.1 EXPIRATION DATE 660;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 03, 1992
  • HELP-PROMPT:  Enter date that the current supply expires.
  • DESCRIPTION:  
    This field is used to show the expiration date of the current supply of available drugs.
  • GROUP:  PS
  • CROSS-REFERENCE:  50^AEXP
    1)= S ^PSDRUG("AEXP",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("AEXP",$E(X,1,30),DA)
    This cross reference is used to index expiration date of the current drug supply.
17.2 LAB TEST MONITOR CLOZ;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  OCT 29, 1993
  • HELP-PROMPT:  Answer must be the lab test number or name.
  • DESCRIPTION:  
    This is the lab test results which should be checked before this drug is dispensed.
  • DELETE TEST:  17.2,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17.3 MONITOR MAX DAYS CLOZ;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 29, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of days during which the results of the lab test are of interest when dispensing this drug.
  • DELETE TEST:  17.3,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17.4 SPECIMEN TYPE CLOZ;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • LAST EDITED:  OCT 29, 1993
  • HELP-PROMPT:  Answer with the topography field number or name.
  • DESCRIPTION:  
    This is the specimen type on which the lab test should be run.
  • DELETE TEST:  17.4,0)= I $P($G(^PSDRUG(DA,"CLOZ1")),"^")="PSOCLO1" D CLOZ^PSSDDUT2
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
17.5 MONITOR ROUTINE CLOZ1;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  FEB 01, 1993
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug.
  • CROSS-REFERENCE:  50^ACLOZ^MUMPS
    1)= S:X="PSOCLO1" ^PSDRUG("ACLOZ",DA)=""
    2)= K ^PSDRUG("ACLOZ",DA)
    3)= DO NOT DELETE !
    This cross reference is used for quick lookups on drugs identified as drugs used in the Clozapine study. It is in the form of: ^PSDRUG("ACLOZ",DA)
17.6 LAB MONITOR MARK CLOZ1;2 SET
  • '1' FOR YES;

  • LAST EDITED:  APR 25, 1997
  • DESCRIPTION:  
    This field is set to "1" if the drug is marked for Lab Monitor purposes.
17.7 CLOZAPINE LAB TEST CLOZ2;0 POINTER Multiple #50.02 50.02
18 INV ORDER UNITS COMPUTED

  • MUMPS CODE:  S Y(18,2)=$S($D(^PSDRUG(D0,660)):^(660),1:""),Y(18,1)=$S($D(^(660.1)):^(660.1),1:"") S X=$P(Y(18,1),U,1),X=$S($P(Y(18,2),U,5):X/$P(Y(18,2),U,5),1:"*******") S X=$J(X,0,2)
  • ALGORITHM:  #50/#15 (ALWAYS 2 DECIMAL DIGITS)
  • DESCRIPTION:  
    This is the inventory order units for this drug.
  • GROUP:  PS
20 NATIONAL DRUG FILE ENTRY ND;1 POINTER TO VA GENERIC FILE (#50.6) VA GENERIC(#50.6)

  • LAST EDITED:  FEB 15, 2000
  • HELP-PROMPT:  Enter the corresponding National Drug File entry.
  • DESCRIPTION:  
    This is the pointer to the National Drug file (^PSNDF).
  • TECHNICAL DESCR:  
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
  • CROSS-REFERENCE:  50^APN1^MUMPS
    1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^",3) I X(2)]"" S ^PSDRUG("APN",X(1),X_"A"_X(2),DA)=""
    2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^",3) I X(2)]"" K ^PSDRUG("APN",X(1),X_"A"_X(2),DA)
    3)= Needed by Inpatient Medications.
    Used by Inpatient Medications as a gateway from Primary Drug to National Drug File.
  • CROSS-REFERENCE:  50^AND
    1)= S ^PSDRUG("AND",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("AND",$E(X,1,30),DA)
21 VA PRODUCT NAME ND;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  JUL 30, 1993
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • DESCRIPTION:  
    This is the VA Product Name matched to in the National Drug file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
  • CROSS-REFERENCE:  50^VAPN
    1)= S ^PSDRUG("VAPN",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("VAPN",$E(X,1,30),DA)
22 PSNDF VA PRODUCT NAME ENTRY ND;3 POINTER TO VA PRODUCT FILE (#50.68) VA PRODUCT(#50.68)

  • OUTPUT TRANSFORM:  D FORM^PSNOUT
  • LAST EDITED:  AUG 05, 2016
  • DESCRIPTION:  
    This is the pointer to the VA Product file in the National Drug File package.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
  • CROSS-REFERENCE:  50^APN2^MUMPS
    1)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^") I X(2)]"" S ^PSDRUG("APN",X(1),X(2)_"A"_X,DA)=""
    2)= S X(1)=$P($G(^PSDRUG(DA,2)),"^",6) I X(1) S X(2)=$P($G(^("ND")),"^") I X(2)]"" K ^PSDRUG("APN",X(1),X(2)_"A"_X,DA)
    3)= Needed by Inpatient Medications
    Used by Inpatient Medications as a gateway from Primary Drug to National Drug File.
  • CROSS-REFERENCE:  50^APR
    1)= S ^PSDRUG("APR",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("APR",$E(X,1,30),DA)
    This cross reference indexes the drug with the VA PRODUCT in file #50.67.
23 PACKAGE SIZE ND;4 POINTER TO PACKAGE SIZE FILE (#50.609) PACKAGE SIZE(#50.609)

  • LAST EDITED:  DEC 09, 1987
  • HELP-PROMPT:  Enter a package size for this drug.
  • DESCRIPTION:  
    This is the pointer to the Package Size file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
24 PACKAGE TYPE ND;5 POINTER TO PACKAGE TYPE FILE (#50.608) PACKAGE TYPE(#50.608)

  • LAST EDITED:  DEC 09, 1987
  • HELP-PROMPT:  Enter a package type for this drug.
  • DESCRIPTION:  
    This is the pointer to the Package Type file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
25 NATIONAL DRUG CLASS ND;6 POINTER TO VA DRUG CLASS FILE (#50.605) VA DRUG CLASS(#50.605)

  • LAST EDITED:  MAR 23, 1992
  • HELP-PROMPT:  Enter a VA Drug Class for this drug.
  • DESCRIPTION:  
    This is the pointer to the VA Drug Class file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PS
  • NOTES:  TRIGGERED by the VA CLASSIFICATION field of the DRUG File
  • CROSS-REFERENCE:  50^VAC
    1)= S ^PSDRUG("VAC",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("VAC",$E(X,1,30),DA)
    3)= DO NOT DELETE
    This cross-reference stores the pointer to the VA Drug Class file. This is used for look-up purposes.
  • CROSS-REFERENCE:  ^^TRIGGER^50^2
    1)= S X=$P(^PS(50.605,X,0),U),DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"") I X'=DIU S $P(^(0),U,2)=X I $O(^DD(50,2,1,0)) K DIV,Y S DIV=X,(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR
    2)= S DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"") I DIU]"" S $P(^(0),U,2)="" I $O(^DD(50,2,1,0)) K DIV,Y S (DIV,X)="",(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR
    3)= SPECIAL TRIGGER - DO NOT DELETE.
    CREATE CONDITION)= S (DIV,X)=$P(^PS(50.605,X,0),"^")
    CREATE VALUE)= VA DRUG CLASS
    DELETE VALUE)= @
    FIELD)= #2
26 VA DRUG CLASS CODE COMPUTED

  • MUMPS CODE:  X ^DD(50,26,9.3) S:X]"" X=$P(X,U)_" "_$P(X,U,2) S D0=Y(50,26,80)
    9.2 = S Y(50,26,80)=$S($D(D0):D0,1:""),Y(50,26,3)=$S($D(^PSDRUG(D0,0)):^(0),1:""),Y(50,26,1)=$S($D(^("ND")):^("ND"),1:"")
    9.3 = X ^DD(50,26,9.2) S X=$S('$D(^PS(50.605,+$P(Y(50,26,1),U,6),0)):"",1:^(0)) S:'$D(^PS(50.605,+D0,0)) D0=-1
  • ALGORITHM:  NATIONAL DRUG CLASS_" "_NATIONAL DRUG CLASS:CLASSIF
  • LAST EDITED:  JAN 10, 1989
  • DESCRIPTION:  
    This is the VA Drug Class Code along with the description of that class.
  • GROUP:  PSN
27 CMOP ID ND;10 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X
  • LAST EDITED:  APR 21, 1994
  • HELP-PROMPT:  Answer must be 1-5 characters in length.
  • DESCRIPTION:  
    This field contains the VA CMOP National Identifier from NDF.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PSN
  • CROSS-REFERENCE:  50^AQ1
    1)= S ^PSDRUG("AQ1",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("AQ1",$E(X,1,30),DA)
    3)= DO NOT DELETE
    This cross-reference contains the CMOP ID.
28 OP EXTERNAL DISPENSE 6;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAR 13, 1997
  • DESCRIPTION:  
    Indicates if this drug may be dispensed to an external interface dispensing machine.
  • TECHNICAL DESCR:  
    Set of codes.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  50^AQ2^MUMPS
    1)= S:X=1 ^PSDRUG("AQ2",DA)=""
    2)= K ^PSDRUG("AQ2",DA)
    3)= DO NOT DELETE
    This cross-reference is present if the drug file entry is matched to NDF, has a CMOP ID, and has been marked to send to an external interface dispensing machine. It is in the form of: ^PSDRUG("AQ2",DA)
29 NATIONAL FORMULARY INDICATOR ND;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 07, 1999
  • HELP-PROMPT:  Enter a '1' if this drug is to be on the National Formulary or a '0' if this drug is not on the National Formulary.
  • DESCRIPTION:  This field will be used to determine whether this drug is on the National Formulary. Data will be maintained at the national level. This field will be populated during the NDF matching process. The data cannot be edited at
    the local level.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
31 NDC 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<5)!'((X?4N1"-"4N1"-"2N)!(X?5N1"-"3N1"-"2N)!(X?5N1"-"4N1"-"1N)!(X?5N1"-"4N1"-"2N)!(X?6N1"-"4N1"-"2N)) X
  • LAST EDITED:  AUG 09, 1996
  • HELP-PROMPT:  Answer with dashes in correct NDC format ( e.g., 4-4-2, 5-3-2, 5-4-1, 5-4-2, or 6-4-2).
  • DESCRIPTION:  
    This is the National Drug Code for this drug.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^NDC^MUMPS
    1)= S ^PSDRUG("NDC",$$RJ^XLFSTR($P(X,"-"),6,0)_$$RJ^XLFSTR($P(X,"-",2),4,0)_$$RJ^XLFSTR($P(X,"-",3),2,0),DA)=""
    2)= K ^PSDRUG("NDC",$$RJ^XLFSTR($P(X,"-"),6,0)_$$RJ^XLFSTR($P(X,"-",2),4,0)_$$RJ^XLFSTR($P(X,"-",3),2,0),DA)
    3)= DO NOT DELETE!//
    This cross-reference is used as a lookup by DSS (Decision Support System) software. The format of the cross-reference is intended to match the format of the DSS feeder keys used for DSS pharmacy extracts. In the form of:
    ^PSDRUG("NDC",12 Digit NDC(no "-"),DA)
32 NDC BY OUTPATIENT SITE NDCOP;0 POINTER Multiple #50.032 50.032
37 DRUG TEXT ENTRY 9;0 POINTER Multiple #50.037 50.037
40 ACTION PROFILE MESSAGE (OP) PSO;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1) X
  • LAST EDITED:  APR 23, 1996
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This message will be printed on the Outpatient action profile along with the other information for each prescription for this drug.
  • TECHNICAL DESCR:  
    free text.
  • GROUP:  PSO
50 CURRENT INVENTORY 660.1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"."1.N) X
  • LAST EDITED:  OCT 30, 2000
  • HELP-PROMPT:  Enter Current Inventory Level.
  • DESCRIPTION:  
    This field contains the current number of the drug in stock.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
50.095 DT/TM DISP UNIT PRICE CHANGED 950;0 DATE Multiple #50.095 50.095

  • DESCRIPTION:  
    This field tracks the Date and Time whenever the PRICE PER DISPENSE UNIT (#16) field is changed. It is set using a trigger cross-reference on the PRICE PER DISPENSE UNIT (#16) field.
51 LOCAL NON-FORMULARY 0;9 SET
  • '1' FOR N/F;

  • INPUT TRANSFORM:  I X,$O(^PSDRUG("AFA",DA,0)) D NONF^PSSDDUT2
  • LAST EDITED:  OCT 17, 2000
  • HELP-PROMPT:  Enter a '1' if this is not to appear on the formulary list.
  • DESCRIPTION:  
    This is used to designate the drug as non-formulary.
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^AJ^MUMPS
    1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are
    matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System)
    by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
52 VISN NON-FORMULARY 0;11 SET
  • '1' FOR V-N/F;

  • LAST EDITED:  SEP 07, 1999
  • HELP-PROMPT:  Enter a '1' if this item is not to appear on the VISN formulary.
  • DESCRIPTION:  
    This field will designate a drug that is not on the VISN Formulary.
62.01 DAY (nD) or DOSE (nL) LIMIT 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$S('X:1,X?1.2N1"D":0,1:X'?1.2N1"L") X
  • LAST EDITED:  SEP 24, 1986
  • HELP-PROMPT:  Type a whole Number between 0 and 99, 0 Decimal Digits, followed by either a 'D' (for NUMBER OF DAYS) or an 'L' (for DOSE LIMIT).
  • DESCRIPTION:  This is mainly for NARCOTICS and ANTIBIOTICS. If a number is found here when this medication is selected for a UNIT DOSE order, that number will be used to calculate the DEFAULT value for the STOP DATE/TIME prompt in
    the entry of that order. If the number entered is followed by a "D", that number of days will be added to the START DATE. If the number is followed by an "L", that number will be used to calculate the DOSE LIMIT.
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62.02 UNIT DOSE MED ROUTE 8;2 POINTER TO MEDICATION ROUTES FILE (#51.2) MEDICATION ROUTES(#51.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 29, 1986
  • HELP-PROMPT:  Enter the most common MED ROUTE associated with this medication.
  • DESCRIPTION:  If data is found here when this medication is selected for a UNIT DOSE order, that data will be used as the DEFAULT value for the MED ROUTE prompt in ORDER ENTRY. Please note that ORAL is not selectable as a MED ROUTE
    here, since it is the standard default value in order entry.
  • SCREEN:  S DIC("S")="I $P(^(0),""^"")'=""ORAL"",$P(^(0),""^"",4)"
  • EXPLANATION:  ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE.
  • GROUP:  PSJU
62.03 UNIT DOSE SCHEDULE TYPE 8;3 SET
  • 'OC' FOR ON CALL;
  • 'O' FOR ONE TIME;
  • 'P' FOR PRN;
  • 'R' FOR FILL on REQUEST;

  • LAST EDITED:  DEC 29, 1986
  • HELP-PROMPT:  Enter the most common SCHEDULE TYPE associated with this medication.
  • DESCRIPTION:  If data is found here when this medication is selected for a UNIT DOSE order, that data will be used as the DEFAULT value for the SCHEDULE TYPE prompt in ORDER ENTRY.
    Please note that you will NOT find CONTINUOUS as a SCHEDULE TYPE here, since it is the standard default in order entry.
  • GROUP:  PSJU
62.04 UNIT DOSE SCHEDULE 8;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45)!($L(X," ")>$S(X["PRN":4,1:3))!($L(X)>70)!($L(X)<1) X D:$D(X)#2 SCH^PSSDDUT I $D(X)#2,'PSGS0Y,PSGS0XT D EN^DDIOL(" Every "_PSGS0XT_" minutes","","?0")
  • LAST EDITED:  AUG 18, 2014
  • HELP-PROMPT:  Enter the most common SCHEDULE associated with this medication.
  • DESCRIPTION:  
    If a schedule is found here when this medication is selected for a UNIT DOSE order, that schedule will be used as a default value for the SCHEDULE prompt in order entry.
  • GROUP:  PSJU
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
62.05 CORRESPONDING OUTPATIENT DRUG 8;5 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(2)),$P(^(2),""^"",3)[""O""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 24, 1990
  • HELP-PROMPT:  Enter an Outpatient medication that corresponds to this Unit Dose medication.
  • DESCRIPTION:  
    This is used by the Unit Dose Medications package in such things as the Authorized Absence/Discharge Orders form.
  • SCREEN:  S DIC("S")="I $D(^(2)),$P(^(2),""^"",3)[""O"""
  • EXPLANATION:  ONLY DRUGS MARKED AS OUTPATIENT DRUGS ARE SELECTABLE.
  • GROUP:  PSJU
63 APPLICATION PACKAGES' USE 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>90!($L(X)<1) X
  • LAST EDITED:  DEC 21, 1990
  • HELP-PROMPT:  Answer must be 1-90 characters in length.
  • DESCRIPTION:  
    This field is free text, but contains the codes of the DHCP packages that consider this drug part of its formulary. This field is set through the routine ^PSGIU, and NOT through VA FileMan.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • GROUP:  PS
    UNEDITABLE
  • CROSS-REFERENCE:  50^IU
    1)= S ^PSDRUG("IU",X,DA)=""
    2)= K ^PSDRUG("IU",X,DA)
  • CROSS-REFERENCE:  50^AIU^MUMPS
    1)= S Y(1)=$P(^PSDRUG(DA,0),"^") I Y(1)]"" F Y(2)=1:1:$L(X) S ^PSDRUG("AIU"_$E(X,Y(2)),Y(1),DA)=""
    2)= S Y(1)=$P(^PSDRUG(DA,0),"^") I Y(1)]"" F Y(2)=1:1:$L(X) K ^PSDRUG("AIU"_$E(X,Y(2)),Y(1),DA)
    3)= Do Not Delete
    Sets application package use field (63) cross-ref. In the form of: ^PSDRUG("AIU"_$E(X,Y(2),Y(1),DA)
64 *PRIMARY DRUG 2;6 POINTER TO PRIMARY DRUG FILE (#50.3) PRIMARY DRUG(#50.3)

  • LAST EDITED:  FEB 28, 1995
  • HELP-PROMPT:  Enter a primary drug for this drug.
  • DESCRIPTION:  
    This is the corresponding Primary Drug for this dispense drug. A primary drug does not have a dosage associated with it.
  • TECHNICAL DESCR:  This is the corresponding primary drug for this dispense drug. The primary drug will show on the profiles and other reports. (This dispense drug shows on the expanded view of the order.) This is also used to find the
    primary drug of an order when a dispense drug is selected.
  • GROUP:  PS
  • CROSS-REFERENCE:  50^AP
    1)= S ^PSDRUG("AP",X,DA)=""
    2)= K ^PSDRUG("AP",X,DA)
    3)= Needed by Unit Dose Medications order entry.
  • CROSS-REFERENCE:  50^APC^MUMPS
    1)= S X(1)=$P($G(^PSDRUG(DA,0)),"^",2) S:X(1)]"" ^PSDRUG("APC",X,X(1),DA)=""
    2)= S X(1)=$P($G(^PSDRUG(DA,0)),"^",2) K:X(1)]"" ^PSDRUG("APC",X,X(1),DA)
    3)= This is needed by Unit Dose Medications to do class checking.
    This allows the Unit Dose Medications package to do class checking for drugs designated as primary drugs. In the form of: ^PSDRUG("APC",PRIMARY DRUG ptr.,VA Class Code,DA)
  • CROSS-REFERENCE:  50^APN^MUMPS
    1)= S X(1)=$G(^PSDRUG(DA,"ND")) I $P(X(1),"^")]"",$P(X(1),"^",3)]"" S ^PSDRUG("APN",X,$P(X(1),"^")_"A"_$P(X(1),"^",3),DA)=""
    2)= S X(1)=$G(^PSDRUG(DA,"ND")) I $P(X(1),"^")]"",$P(X(1),"^",3)]"" K ^PSDRUG("APN",X,$P(X(1),"^")_"A"_$P(X(1),"^",3),DA)
    3)= Needed by Inpatient Medications as a gateway from Primary to National Drug File.
    This is used by the Inpatient Medications package as a gateway from Primary Drug to the National Drug File. In the form of: ^PSDRUG("APN",PRIMARY DRUG ptr.,P(1) of "ND" node_A_P(3) of "ND" node,DA)
  • CROSS-REFERENCE:  ^^TRIGGER^52.6^16
    1)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,1.1) K PSJ,PSJ1,PSJ2,PSJ3
    1.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.6,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),"^",12) I DIU'=PSJ S $P(^(0),"^",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR
    2)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,2.1) K PSJ,PSJ1,PSJ2,PSJ3
    2.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.6,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),"^",12) I DIU]"" S $P(^(0),"^",12)="" I PSJ2 S DIV="",(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR
    3)= Needed to update the PRIMARY DRUG field in the IV ADDITIVES file.
    CREATE VALUE)= X
    DELETE VALUE)= @
    FIELD)= GENERIC NAME:IV ADDITIVES:PRIMARY DRUG
    This trigger is needed to update the PRIMARY DRUG field in the IV ADDITIVES file for all additives that point to this GENERIC DRUG.
  • CROSS-REFERENCE:  ^^TRIGGER^52.7^16
    1)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,1.1) K PSJ,PSJ1,PSJ2,PSJ3
    1.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.7,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),"^",12) I DIU'=PSJ S $P(^(0),"^",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR
    2)= K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,2.1) K PSJ,PSJ1,PSJ2,PSJ3
    2.1)= F PSJ3=0:0 S PSJ3=$O(^PS(52.7,"AC",PSJ1,PSJ3)) Q:'PSJ3 I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),"^",12) I DIU]"" S $P(^(0),"^",12)="" I PSJ2 S DIV="",(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR
    3)= Needed to update the PRIMARY DRUG field in the IV SOLUTIONS file.
    CREATE VALUE)= X
    DELETE VALUE)= @
    FIELD)= GENERIC NAME:IV SOLUTIONS:PRIMARY DRUG
    This trigger is needed to update the PRIMARY DRUG field in the IV SOLUTIONS file for all additives that point to this GENERIC DRUG.
65 FORMULARY ALTERNATIVE 65;0 POINTER Multiple #50.065 50.065

  • HELP-PROMPT:  Enter a formulary drug that may be used as an alternative to this non-formulary drug.
  • DESCRIPTION:  
    This is a formulary alternative to this non-formulary drug. Any formulary alternatives are shown to non-pharmacists whenever they attempt to order a non-formulary drug.
  • SCREEN:  S DIC("S")="I '$P(^(0),""^"",9)"
  • EXPLANATION:  Alternative must be a formulary item.
  • GROUP:  PSJ
66 MAXIMUM DAYS SUPPLY 2;7 NUMBER

  • INPUT TRANSFORM:  D MXDAYSUP^PSSDDUT2
  • LAST EDITED:  APR 05, 2016
  • HELP-PROMPT:  Enter the maximum number of days supply allowed for this drug. Enter ?? for important information regarding default values and copays.
  • DESCRIPTION:  This field is used to determine the maximum number for days supply that may be assigned to this drug. If this field is left blank, the MAXIMUM DAYS SUPPLY is set to a default of 90 unless the drug is a controlled substance
    or Clozapine. Any value greater than 90 increases the number of potential copay units above 3.
    The maximum value allowed for this field is 365 (days) for most drugs, however:
    - Schedule 2 controlled substances have a 30-day maximum days supply
    limit.
    - Schedules 3 thru 5 controlled substances have a 90-day maximum days
    supply limit.
    - The maximum number of days supply for this drug cannot exceed the
    National Drug File (NDF) maximum value if it exists.
    - No value can be entered for Clozapine drugs as the maximum days supply
    is controlled by the Clozapine functionality.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
81 DAW CODE EPH;1 NUMBER

  • INPUT TRANSFORM:  D INPUT^PSSDAWUT
  • LAST EDITED:  NOV 08, 2005
  • HELP-PROMPT:  Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies).
  • DESCRIPTION:  
    Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies).
  • EXECUTABLE HELP:  D HLP^PSSDAWUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
82 NCPDP DISPENSE UNIT EPH;2 SET
************************REQUIRED FIELD************************
  • 'EA' FOR EACH;
  • 'GM' FOR GRAMS;
  • 'ML' FOR MILLILITERS;

  • INPUT TRANSFORM:  D NCINIT^PSSDDUT2
  • LAST EDITED:  MAY 18, 2007
  • HELP-PROMPT:  Enter EA for EACH, GM for GRAMS or ML for MILLILITERS.
  • DESCRIPTION:  The NCPDP QUANTITY MULTIPLIER field and this field are used to determine metric quantity for electronic 3rd Party billing purposes.
    This field indicates the NCPDP standard billing Unit of Measure (EA - EACH; GM - GRAMS; ML - MILLILITERS).
  • TECHNICAL DESCR:  
    This field was initially populated by patch PSS*1*127.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
83 NCPDP QUANTITY MULTIPLIER EPH;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99999.99999)!(X<.00001)!(X?.E1"."6.N) X D NCPDPQM^PSSDDUT2
  • LAST EDITED:  NOV 05, 2014
  • HELP-PROMPT:  Type a number between .00001 and 99999.99999, 5 decimal digits.
  • DESCRIPTION:  The NCPDP DISPENSE UNIT field and this field are used to determine metric quantity for electronic 3rd Party billing purposes.
    This field contains the number that will be multiplied by the quantity in the prescription in order to determine the correct quantity to electronically bill 3rd party insurance companies.
  • TECHNICAL DESCR:  
    This field was initially populated by patch PSS*1*127.
  • EXECUTABLE HELP:  D EN^PSSNCPDP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
84 EPHARMACY BILLABLE EPH;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 30, 2015
  • HELP-PROMPT:  Enter 'YES' if this drug is billable, otherwise enter 'NO'.
  • DESCRIPTION:  This field indicates whether a prescription for this drug is billable. In general, OTCs and supplies are not covered, except insulin, glucose test strips, insulin syringes and needles. Some plans cover preventative care
    OTC products. A review of the Payable Claims Report may help determine if a product marked as billable is covered.
85 EPHARMACY BILLABLE (TRICARE) EPH;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 22, 2015
  • HELP-PROMPT:  Enter 'YES' if this drug is TRICARE billable, otherwise enter 'NO'. If unanswered, it will default to the response for the general "EPHARMACY BILLABLE" field.
  • DESCRIPTION:  This field indicates whether a prescription for this drug is TRICARE billable. In general, OTCs and supplies are not covered, except insulin, glucose test strips, insulin syringes, needles and inhaler spacers. If unsure
    mark as billable and change if prescriptions reject as not covered.
86 EPHARMACY BILLABLE (CHAMPVA) EPH;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 20, 2015
  • HELP-PROMPT:  Enter 'YES' if this drug is CHAMPVA billable, otherwise enter 'NO'. If unanswered, it will default to the response for the general "EPHARMACY BILLABLE" field.
  • DESCRIPTION:  This field indicates whether a prescription for this drug is CHAMPVA billable. In general, OTCs and supplies are not covered, except insulin, glucose test scripts, insulin syringes, needles and inhaler spacers. If unsure
    mark as billable and change if prescriptions reject as not covered.
87 SENSITIVE DIAGNOSIS DRUG EPH;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 22, 2015
  • HELP-PROMPT:  Enter 'YES' if this drug is used EXCLUSIVELY to treat a sensitive diagnosis, otherwise enter 'NO'.
  • DESCRIPTION:  
    This field indicates whether this drug is used EXCLUSIVELY to treat one of the VA's sensitive diagnoses, HIV, drug abuse, alcohol abuse and Sickle Cell anemia.
100 INACTIVE DATE I;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 17, 2000
  • HELP-PROMPT:  Enter the date the drug became inactive.
  • DESCRIPTION:  
    This is the date the drug is inactive.
  • GROUP:  PS
  • CROSS-REFERENCE:  50^AI^MUMPS
    1)= S ^PSDRUG(DA,"I")=X
    2)= K ^PSDRUG(DA,"I")
    3)= Do Not Delete
    This cross-reference insures that the "I" node is killed when the inactive date is deleted. In the form of: ^PSDRUG(DA,"I")
  • CROSS-REFERENCE:  50^AR^MUMPS
    1)= Q
    2)= ; I '$D(DIU(0)) S X="PSNOUT" X ^%ZOSF("TEST") I D REACT^PSNOUT
    This cross-reference calls up the NDF matching process when the entry is reactivated to insure that it is matched. In the form of: ^PSDRUG(DA,"ND") No longer used at this time.
  • CROSS-REFERENCE:  50^AD^MUMPS
    1)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    2)= I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),"^") Q:'PSSTEST S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q
    3)= Do Not Delete
    This cross reference is used to keep the Pharmacy Orderable Item entry in the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information, based on all active Drugs, IV Additives, and IV Solutions that are
    matched to the Pharmacy Orderable Item. This information includes Inactivation Date status, Non-Formulary status, Supply status, and Usage status. This information is also sent to CPRS (Computerized Patient Record System)
    by using the "PS MFSEND OR" protocol to update the corresponding Orderable Item entry in the ORDERABLE ITEMS file (#101.43).
101 MESSAGE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>68!($L(X)<1) X
  • LAST EDITED:  MAY 21, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Message displayed whenever drug is selected for RX. Commonly used to warn about restrictions to certain services, doctors, etc. This is purely a passive informational free text field.
  • GROUP:  PS
102 RESTRICTION 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<13) X
  • LAST EDITED:  OCT 27, 1989
  • HELP-PROMPT:  ENTER THE LITERAL "RESTRICTED TO"
  • DESCRIPTION:  
    This is any restrictions that may apply to this drug.
  • GROUP:  PS
212 ATC CANISTER 212;0 POINTER Multiple #50.0212 50.0212

  • DESCRIPTION:  
    This is the ATC dispensing machine canister number(s) for this drug by ward group. If a ward group does not have a canister number, the pick lists for the ward group will not send this drug to the ATC.
  • GROUP:  PSJU
212.1 *ATC CANISTER 8.5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>212)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 06, 1987
  • HELP-PROMPT:  Enter a Number between 1 and 212, 0 Decimal Digits.
  • DESCRIPTION:  
    This should be the number of the canister from the Baxter ATC 212 dispensing machine that contains this drug. If no number is entered here, the Unit Dose package will assume that this drug is NOT currently in the ATC.
  • GROUP:  PSJU
212.2 ATC MNEMONIC 8.5;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1)!'(X'?1.N) X
  • LAST EDITED:  MAY 25, 2000
  • HELP-PROMPT:  Answer must be 1-15 characters in length
  • DESCRIPTION:  This is the link between the Unit Dose package and the ATC dispensing machine. The data here is sent to the ATC, and therefore MUST match the mnemonic entered for this same drug in the ATC. If the mnemonic entered here
    does not match a mnemonic within the ATC, any pick list with this mnemonic sent to the ATC will not complete.
  • EXECUTABLE HELP:  D ATC^PSSDDUT2
  • GROUP:  PSJU
  • CROSS-REFERENCE:  50^XATC
    1)= S ^PSDRUG("XATC",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("XATC",$E(X,1,30),DA)
213 CMOP DISPENSE 3;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 01, 1995
  • DESCRIPTION:  
    Indicates if this drug may be dispensed from the Consolidated Mail Outpatient Pharmacy System.
  • TECHNICAL DESCR:  
    Set of codes
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  50^AQ^MUMPS
    1)= S:X=1 ^PSDRUG("AQ",DA)=""
    2)= K ^PSDRUG("AQ",DA)
    3)= Do Not Delete
    This cross reference is present if the drug file entry has been marked to send to the Consolidated Mail Outpatient Pharmacy (CMOP) system. In the form of: ^PSDRUG("AQ",DA)
  • CROSS-REFERENCE:  50^AG^MUMPS
    1)= S TMP=X N X S X="PSXREF" X ^%ZOSF("TEST") Q:'$T S X=TMP K TMP D ACT^PSXREF
    2)= Q
    3)= DO NOT DELETE
    This cross reference sets the appropriate data in the Activity Log multiple to audit editing of this field. In the form of: ^PSDRUG(DA,4,IEN,0)
214 ACTIVITY LOG 4;0 DATE Multiple #50.0214 50.0214

  • DESCRIPTION:  Date the activity occurred.
  • TECHNICAL DESCR:  
    Date (Multiply asked)
215 QUANTITY DISPENSE MESSAGE 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:($L(X)>68)!($L(X)<1) X
  • LAST EDITED:  JAN 31, 1994
  • HELP-PROMPT:  Answer must be 1-68 characters in length.
  • DESCRIPTION:  
    This is a free text description used by pharmacy personnel to indicate which quantities for the drug/item are stocked by the Outpatient Pharmacy system for this facility.
  • TECHNICAL DESCR:  
    Free text
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300 INPATIENT PHARMACY LOCATION PSG;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  JUN 21, 1984
  • HELP-PROMPT:  Answer must be 1-12 characters in length.
  • DESCRIPTION:  
    Enter from 1 to 3 location codes, each separated by commas, that define the location of this item in the inpatient pharmacy storage. This will be used to sort Automatic Replenishment reports for easier location of items.
  • GROUP:  PSGW
301 AR/WS AMIS CATEGORY PSG;2 SET
  • '0' FOR Field 03 or 04 - Doses by Type;
  • '1' FOR Field 06 or 07 - Units of Issue;
  • '2' FOR Field 17 - Fluids and Admin Sets;
  • '3' FOR Field 22 - Blood Products;

  • LAST EDITED:  DEC 13, 1988
  • HELP-PROMPT:  Enter the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock.
  • DESCRIPTION:  
    This refers to the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock.
  • GROUP:  PSGW
302 AR/WS AMIS CONVERSION NUMBER PSG;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 01, 1987
  • HELP-PROMPT:  Enter a whole number between 1 and 9999, 0 Decimal Digits.
  • DESCRIPTION:  This number reflects the number of doses/units contained in the dispensed drug for Automatic Replenishment/Ward Stock AMIS statistics. For example: For a 20cc vial, the quantity dispensed is 1, and
    the conversion number is 20.
    For 5 oz. antacid, the quantity dispensed is 1, and
    the conversion number is 1.
    For a bottle of 100 aspirin, the quantity dispensed is 1,
    and the conversion number is 100.
  • GROUP:  PSGW
400 SERVICE CODE PFS;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>699999)!(X<600001)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 18, 2005
  • HELP-PROMPT:  This is required for external billing purposes only. Answer must be between 600001-699999.
  • DESCRIPTION:  
    The Charge Description Master (CDM) Change Control board assigns value for this field. The value should be a number between 600001-699999.
  • TECHNICAL DESCR:  This field was introduced as part of the Patient Financial Services System (PFSS) project, to implement a new COTS billing system. Pharmacy application will maintain a CDM/Service Code for every dispensed item. It requires
    that every prescription charge transaction passed to the external billing system to pass a service code. If the drug is not matched to NDF or the Service Code field in the VA PRODUCT file #50.68 is undefined, this field
    will be prompted during DRUG ENTER/EDIT [PSS DRUG ENTER/EDIT] option. In the event the drug is matched later to a NDF entry, previously defined Service Code will be retained.
441 IFCAP ITEM NUMBER 441;0 POINTER Multiple #50.0441 50.0441

  • LAST EDITED:  MAR 17, 1992
  • DESCRIPTION:  
    To provide a direct link between the DRUG file and the ITEM MASTER file.
  • TECHNICAL DESCR:  
    To connect the DRUG file (#50) to the ITEM MASTER file (#441). This may be a one-to-many relationship.
900 OLD NAMES 900;0 Multiple #50.01 50.01
901 STRENGTH DOS;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."5N.N)!('$P($G(^PSDRUG(DA,"DOS")),"^",2)) X
  • LAST EDITED:  MAR 12, 2000
  • HELP-PROMPT:  This field is a numeric value representing the single dose of medication supplied by this product.
  • DESCRIPTION:  
    This field is a numeric value representing the single dose of medication supplied by this product.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  50^AH^MUMPS
    1)= D SETS^PSSDOSED
    2)= D KILLS^PSSDOSED
    This cross reference is used to update all the Possible Dosages for this drug. It sets piece 2 of ^PSDRUG(DA(1),"DOS1",DA,0)= Strength times (*) Dispense Units Per Dose.
902 UNIT DOS;2 POINTER TO DRUG UNITS FILE (#50.607) DRUG UNITS(#50.607)

  • LAST EDITED:  MAR 13, 2000
  • HELP-PROMPT:  Unit of measure. Pointer to the Drug Units File #50.607.
  • DESCRIPTION:  
    Unit of measure. Pointer to the Drug Units File #50.607.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
    UNEDITABLE
903 POSSIBLE DOSAGES DOS1;0 Multiple #50.0903 50.0903

  • LAST EDITED:  MAR 06, 2000
  • DESCRIPTION:  This multiple contains the dispense units per dose, dose and package fields. Possible Dosages can be created only for drugs that meet the specified criteria based on the VA Product File match. Possible Dosages are numeric.
    If a drug cannot have Possible Dosages based on the criteria not being met, then Local Possible Dosages should be created for the drug.
  • IDENTIFIED BY:  DOSE(#1)
904 LOCAL POSSIBLE DOSAGE DOS2;0 Multiple #50.0904 50.0904

  • DESCRIPTION:  This multiple contains the local possible dose and package. If a drug does not have Possible Dosages because it does not meet the specified criteria based on the VA Product File match, then Local Possible Dosages should be
    created.
905 CORRESPONDING INPATIENT DRUG 8;6 POINTER TO DRUG FILE (#50) DRUG(#50)

  • INPUT TRANSFORM:  K:$P($G(^PSDRUG(X,2)),"^",3)'["I"&($P($G(^PSDRUG(X,2)),"^",3)'["U") X
  • LAST EDITED:  APR 03, 2000
  • HELP-PROMPT:  Enter the appropriate corresponding Inpatient Medications drug. Only drugs marked for Unit Dose or IV are selectable.
  • DESCRIPTION:  
    This field will be used when transferring orders from Outpatient Pharmacy to Inpatient Medications. Only drugs marked for Inpatient Medications can be selected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
906 OPAI OPAI;0 POINTER Multiple #50.0906 50.0906

  • DESCRIPTION:  
    This multiple contains the automated dispensing devices associated with a division for this drug.
  • IDENTIFIED BY:  
    "W1": S %I=Y,Y=$S('$D(^(0)):"",$D(^PS(52.53,+$P(^(0),U,2),0))#2:$P(^(0),U,1)_" ("_$P(^(0),U,2)_")",1:""),C=$P(^DD(52.53,.01,0),U,2) D Y^DIQ:Y]"" D EN^DDIOL(Y,,"?30") S Y=%I K %I
950 HISTORY PRICE DISPENSE UNIT 950;0 DATE Multiple #50.03 50.03

  • DESCRIPTION:  
    Multiple to store data related to a price change for the drug.
623002 *LAB TEST MONITOR 623002;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  NOV 05, 1992
  • DESCRIPTION:  
    This is the lab test results of which should be checked before this drug is dispensed.
623003 *MONITOR MAX DAYS 623002;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 05, 1992
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of days during which the results of the lab tests are of interest when dispensing this drug.
623004 *SPECIMEN TYPE 623002;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) TOPOGRAPHY FIELD(#61)

  • LAST EDITED:  NOV 05, 1992
  • DESCRIPTION:  
    This is the specimen type on which the lab test should be run.
623008 *MONITOR ROUTINE 623008;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<3) X
  • LAST EDITED:  NOV 05, 1992
  • HELP-PROMPT:  Answer must be 3-8 characters in length.
  • DESCRIPTION:  
    This is the name of the routine which is called to do all necessary checking on lab test results before dispensing this drug.

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2352
  • National Drug File
  • VA CLASSIFICATION (2).
    Access: Direct Global R/W & w/Fileman

    PHARMACY ORDERABLE ITEM (2.1).
    Access: Direct Global R/W & w/Fileman

    CMOP DISPENSE (213).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG FILE ENTRY (20).
    Access: Direct Global R/W & w/Fileman

    VA PRODUCT NAME (21).
    Access: Direct Global R/W & w/Fileman

    PSNDF VA PRODUCT NAME ENTRY (22).
    Access: Direct Global R/W & w/Fileman

    PACKAGE SIZE (23).
    Access: Direct Global R/W & w/Fileman

    PACKAGE TYPE (24).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG CLASS (25).
    Access: Direct Global R/W & w/Fileman

    CMOP ID (27).
    Access: Direct Global R/W & w/Fileman

    ICR #2367
  • CMOP
  • CMOP DISPENSE (213).
    Access: Direct Global R/W & w/Fileman

    VA PRODUCT NAME (21).
    Access: Read w/Fileman

    CMOP ID (27).
    Access: Direct Global R/W & w/Fileman

    NATIONAL DRUG FILE ENTRY (20).
    Access: Direct Global Read & w/Fileman

    PHARMACY ORDERALBE ITEM (2.1).
    Access: Direct Global Read & w/Fileman

    ICR #2841
  • Text Integration Utility
  • VA CLASSIFICATION (2).
    Access: Direct Global Read & w/Fileman

    "B" CROSS REFERENCE (B).
    Access: Direct Global Read & w/Fileman

    "ASP" CROSS REFERENCE (ASP).
    Access: Direct Global Read & w/Fileman

    DEA, SPECIAL HDLG (3).
    Access: Direct Global Read & w/Fileman

    ICR #2858
  • Clinical Reminders
  • The API OCL^PSOORRL returns a drug which can be an entryin the Drug file or the Pharmacy Orderable item file. We would like to use the"B" cross-reference to determine if the returned drug is from the Drug file orthe Pharmacy Orderable item file.
    ICR #3077
  • National Drug File
  • STRENGTH (901).
    Access: Direct Global R/W & w/Fileman

    UNIT (902).
    Access: Direct Global R/W & w/Fileman

    DISPENSE UNITS PER DOSE (.01).
    Access: Direct Global R/W & w/Fileman

    DOSE (1).
    Access: Direct Global R/W & w/Fileman

    PACKAGE (2).
    Access: Direct Global R/W & w/Fileman

    LOCAL POSSIBLE DOSAGE (.01).
    Access: Direct Global R/W & w/Fileman

    PACKAGE (1).
    Access: Direct Global R/W & w/Fileman

    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All