Global: ^PSDRUG

FileMan FileNo	FileMan Filename	Package
50	DRUG	Pharmacy Data Management

Package	Total	Routines
Outpatient Pharmacy	248	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 PSOCOST PSOCP PSOCPBA2 PSOCPBK2 PSOCPBK4 PSOCPE PSOCPIBC PSOCPTRI PSOCSRL PSOCST10 PSOCST12 PSOCST2 PSOCST3 PSOCST5 PSOCSTD PSOCSTM PSOD PRINT ANSWER SHEET PSODACT PSODDPR1 PSODDPR2 PSODDPR3 PSODDPR4 PSODDPR5 PSODDPR7 PSODDPR8 PSODDPRE PSODGDG1 PSODGDGI PSODGDGP PSODIR PSODIR1 PSODIR5 PSODISP PSODISPS PSODOSCL PSODRDU1 PSODRDU2 PSODRG PSODRGN PSOERSE3 PSOERSE4 PSOERUT2 PSOERX1G PSOERXA0 PSOERXD2 PSOERXU4 PSOEXBCH PSOEXDT PSOEXRST PSOFDAMG PSOFDAUT PSOFTDR PSOHCSUM PSOHDR PSOHELP PSOHELP1 PSOHLDIS PSOHLDS PSOHLDS1 PSOHLDS2 PSOHLDS3 PSOHLDS5 PSOHLEXC PSOHLNE1 PSOHLNE2 PSOHLNE3 PSOHLNEW PSOHLSG1 PSOHLSG2 PSOHLSG3 PSOHLSN1 PSOHLSNC PSOHLUP PSOHLUP1 PSOLAB PSOLBL PSOLBL2 PSOLBL4 PSOLBLD PSOLBLN PSOLLL1 PSOLLL8 PSOLLLI PSOMGCM1 PSOMGCOM PSOMHV1 PSONDCUT PSONEW2 PSONEWG PSONFI PSONGR PSONRXN PSOORAPI PSOORCPY PSOORDER PSOORDRG PSOORED3 PSOORED4 PSOORED5 PSOORED6 PSOORED7 PSOOREDT PSOORFI1 PSOORFI5 PSOORFI6 PSOORFIN PSOORNE2 PSOORNE3 PSOORNE4 PSOORNE5 PSOORNEW PSOORNW1 PSOORNW2 PSOORRDI PSOORRL PSOORRL1 PSOORRL3 PSOORRLN PSOORRLO PSOORRNW PSOORROC PSOP PSOP1 PSOP2 PSOPOLY PSOPOST PSOPOST4 PSOPOST5 PSOPRF PSOPRFSS PSOPRK PSOPST68 PSOPXRM1 PSOQ0496 PSOQMCAL PSOR52 PSORDS PSOREF PSOREF0 PSOREF1 PSOREF2 PSORELD1 PSORENW PSORENW0 PSORENW3 PSORENW4 PSORESK PSORLLL1 PSORLLLI PSORPC01 PSORPTS1 PSORREF0 PSORREF1 PSORRPA1 PSORRX1 PSORXCLE PSORXDL PSORXED PSORXED1 PSORXI PSORXL PSORXL1 PSORXLAB PSORXPA1 PSORXPR PSORXRP1 PSORXRP2 PSORXRPT PSORXVW PSOSD PSOSD0 PSOSD3 PSOSIG PSOSIGDS PSOSIGMX PSOSPML7 PSOSPSIG PSOSUCAT PSOSUCLE PSOSUINV PSOSULB1 PSOSULOG PSOSUTL PSOTALK PSOTPCRX PSOUPAT PSOUTIL PSOUTL PSOUTLA PSOUTLA1 PSOUTLA2 PSOUTOR PSOVDF1 PSOVDF2 PSOVDF3 PSOVER1 PSOVEXR1 PSOXWRN ^PS(52.5 ^PSRX PSOTEXP1 PSOVER2 PSOVRPT 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	PRESCRIPTION PROFILE PSS243PI PSS50C PSS50DOS PSSCHPRE PSSCLINR PSSCOMMN PSSCSPD PSSDDUT PSSDEE PSSDEE1 PSSDEEA PSSDIUTL PSSDOSED PSSDOSER PSSDOSRP PSSDSAPM PSSDSBBP PSSDSPOP PSSFDBRT PSSGIU PSSLAB PSSLDALL PSSMARK PSSORPH PSSORUTE PSSP134 PSSP138 PSSP176 PSSPOID1 PSSPOST2 PSSUTLPR ^PS(52.6 PSSPOI PSSPOIDT PSSPOST PSSPRICE PSSQOC PSSTRENG PSSUTLAZ ^APSPQA(32.4 PSS127PI PSS1P126 PSS1P191 PSS50B1 PSS50DAT PSS50F PSS50F1 PSS50WS PSSBPSUT PSSCHPST PSSCPRS1 PSSDENT PSSDIN PSSDOS PSSDOSLZ PSSDSAPD PSSDSAPK PSSDTR PSSFILED PSSGMI PSSHLDFS PSSLDEDT PSSMSTR PSSNCPDP PSSNDCUT2 PSSOIDOS PSSOP PSSOPKI1 PSSORUTZ PSSOUTSC PSSP130 PSSPKIPR PSSPOIC PSSPOIM PSSPOIMO PSSQORD PSSREF PSSSCHMS PSSSCHRP PSSSOLI1 ^APSPQA(32.5 PSS50AQM PSS50ATC PSS50C1 PSS50CMP PSS50D PSS50NDF PSS50TMP PSSADDIT PSSAUTL PSSCLOZ PSSCPRS PSSCREAT PSSDACS PSSDRDOS PSSHRHAI PSSHRVL1 PSSLDOSE PSSLOOK PSSNDCUT PSSOICT1 PSSOPKI PSSORPHZ PSSORUTL PSSP191A PSSP198 PSSPKIPI PSSPNSRP PSSPOIM2 PSSPOIMN PSSPOST5 PSSPRUTL PSSSEE PSSSYN PSSUTIL PSSUTLA1 PSSUTLPZ PSSVIDRG PSSVX64 PSSWRNA ^PS(52.7 PSS117EN PSS147PO PSS160EN PSS192PO PSS208P PSS50 PSS50A1 PSS50B2 PSS50E PSS50LAB PSS70UTL PSSCLDRG PSSDDUT2 PSSDELOI PSSDGUPD PSSDSAPA PSSDSAPI PSSDSEXE PSSHLU PSSHUIDG PSSMRRDG PSSMRRI PSSNFI PSSORPH1 PSSPOID2 PSSPOIKA PSSPOIM1 PSSPOIM3 PSSPOST6 PSSPRE PSSREMCH PSSSPD PSSUNMSI PSSUTIL1 PSSUTIL3 PSSVX61 PSSWRNB PSSWRNC PSSWRNE
Controlled Substances	146	PSD68P PSD79P PSDACT1 PSDADJ PSDADJC PSDADJD PSDADJI PSDADJIN PSDADJN PSDADJN1 PSDADJR PSDAMIS1 PSDAMIS2 PSDBAL PSDBALI PSDBAN PSDBAN1 PSDCORP1 PSDCORP2 PSDCORP3 PSDCOSD PSDCOSH PSDCOSM PSDCOSN PSDCOSV PSDCPO PSDCRP PSDCSI PSDCSL PSDDFP PSDDSOR2 PSDDWK PSDEA PSDEA41 PSDEM1 PSDEM2 PSDEM4 PSDERCP PSDERD PSDERP PSDEST PSDESTP PSDEVO PSDEVOR PSDEXGS PSDEXP PSDFILM PSDFND PSDFT PSDFT1 PSDGSH1 PSDGSL1 PSDGSPU PSDGSRV PSDGSRV1 PSDHRPT PSDIPOST PSDLBL0 PSDLBL1 PSDLBL5 PSDLBLR0 PSDLBLR2 PSDLSTK1 PSDLSTK2 PSDMAPU PSDNBT PSDNCGS PSDNDES PSDNMBA PSDNMPR PSDNMRP PSDNMSP PSDNMWE PSDNRGO PSDNRGS PSDNSCG PSDNSCL PSDNSTK PSDNTF PSDNTFPC PSDNTR PSDNTT PSDNTTPC PSDNU1 PSDNU2 PSDOPT PSDOPT0 PSDOPTI PSDOPTN PSDOPTS PSDOPTY PSDORD PSDORD1 PSDORN PSDORNC PSDORNV PSDORP PSDORSN PSDORST PSDORV PSDPAT1 PSDPAT2 PSDPDR1 PSDPDU1 PSDPGS1 PSDPLOG1 PSDPLOG2 PSDPMFG PSDPND PSDPSI PSDPSTK PSDPUGS PSDPWK1 PSDRDR1 PSDREC1 PSDREC2 PSDREC3 PSDREC4 PSDREPD PSDREPV PSDREV PSDREVC PSDREVD PSDRF PSDRF4 PSDRFM PSDRFR PSDRFS PSDRFV PSDRFW PSDRFZ PSDRLOG1 PSDRPGS1 PSDRPGS2 PSDRPT PSDRSI PSDRWK PSDSTK PSDTRA1 PSDTRN1 PSDTRV PSDTRVR1 PSDUP2 PSDUP3 ^PSD(58.85 ^PSD(58.86
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 PSJIPST2 PSJIPST3 PSJLIFN PSJLMGUD PSJLMPRU PSJLMUDE PSJLMUT1 PSJLMUTL 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 ^PS(59.6
Drug Accountability	93	LINE ITEM DATA PSA COMPARISON REPORT PSA81PI PSAAOP PSABRKU6 PSABRKU9 PSACONW PSACREDO PSADJI PSADJR PSADRU PSAENTO PSAGIP1 PSAHIS PSALEVRP PSALFS PSALND PSALNM PSANAC PSANDC PSANDCUT PSANDF PSAOP PSAOP2 PSAPROC6 PSAPROC8 PSAPROC9 PSAPSI2 PSAREORD PSAREPV PSARIN PSATI PSAUNL PSAUNM PSAUP5 PSAUP8 PSAUTL PSAUTL4 PSAUTL6 PSAVER2 PSAVER3 PSAVER6 PSAVIN ^PSD(58.81 DRUG PRIMARY INVENTORY POINT(S) PSACON PSACON2 PSADAI PSADJ PSADRI PSADRIP PSADRUG PSADRUGP PSAHELP PSAHIS1 PSAINV PSALFA PSALFM PSALNA PSALOCO PSALOG1 PSAMON PSAORDP1 PSAOUT PSAP41 PSAP56 PSAPOST PSAPROC1 PSAPROC3 PSAPROC4 PSAPROC5 PSAPROC7 PSAPSI PSAREC PSAREC1 PSAREV PSAREVC PSAREVD PSASIG PSATRAN PSAUP4 PSAUP6 PSAUTL1 PSAVER1 PSAVER7 PSAVERA PSAVERA1 PSAVERA2 PSAVERA3 PSAVIN1 PSAVIN2 PSAVINC
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 ^PSXARC PSXBLD PSXBLD1 PSXCMOP PSXCMOP0 PSXCMOP1 PSXCOSTU PSXCSHI PSXCSMON PSXCSUTL PSXDENT PSXEDIT PSXEDRG PSXEDUTL PSXLBL1 PSXMISC1 PSXNOCMP PSXOCMOP PSXREF PSXRTN1 PSXUTL PSXVND PSXVPN
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 OCXOZ10 ORQOAUIB ORQOAUIC ORWDPLM1 ORWDPLM2 ORY269
Barcode Medication Administration	3	^PSB(53.68 AUDIT LOG PSBRPCMO
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

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	84	PSO283P1 PSO293P1 PSO467PO PSO583PI PSOASAP0 PSOBKDE1 PSOBKDED PSOBPSUT PSOCAN2 PSOCMOPR PSOCOST PSOCSTX PSODDPR3 PSODGAL2 PSODIR1 PSODIR2 PSODIR5 PSODISP1 PSODRG PSODRGN PSOERCR1 PSOERUT2 PSOERUT3 PSOERUT4 PSOERUT5 PSOERUT6 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	62	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 PSSGIU 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	4	YSCLHLGT YSCLTEST YSCLTST2 YSCLTST5
CMOP	3	PSXCMOP1 PSXCSUTL PSXEDRG
DSS Extracts	3	ECXAPHA2 ECXBCM ECXCBFK
Health Summary	3	GMTSPSO8 GMTSPSO9 GMTSPSTN
E Claims Management Engine	2	BPSKBERPT BPSUTIL
Integrated Billing	2	IBCSC5A IBNCPDP1
Order Entry Results Reporting	2	ORCSEND1 ORQ21
Emergency Department Integration Software	1	EDPHIST
My HealtheVet	1	MHVPRNA

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.1, 70] DRUG(#50)[62.05, 905, #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)[1, 19] 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)]

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.05, 905, #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.2, 623002, #50.02(.01)] TOPOGRAPHY FIELD(#61)[17.4, 623004, #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: 90

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 PSS1127.` 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 PSS1127.` 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`
907	RESTRICT FOR ONEVA PHARMACY	6;2	SET (BOOLEAN Data Type)	may be filled via OneVA Pharmacy. Setting this field to 1 at either the Host site or Dispensing site will prevent prescriptions for this drug from being filled via OneVA Pharmacy. LAST EDITED: `FEB 23, 2024` HELP-PROMPT: `Enter '1' to prevent a drug from being processed by OneVA Pharmacy. Select '0' to allow processing.` DESCRIPTION: `This flag will control if a drug can be processed using OneVA Pharmacy. A value of 1 indicates prescriptions for this drug may not be filled via OneVA Pharmacy. A value of 0 or blank indicates prescriptions for this drug` `may be filled via OneVA Pharmacy. Setting this field to 1 at either the Host site or Dispensing site will prevent prescriptions for this drug from being filled via OneVA Pharmacy.`
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 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

Customize PDF page

Package: Pharmacy Data Management

Global: ^PSDRUG

Information

Description

Directly Accessed By Routines, Total: 1065

Accessed By FileMan Db Calls, Total: 386

Pointed To By FileMan Files, Total: 67

Pointer To FileMan Files, Total: 20

Fields, Total: 90

ICR, Total: 5