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: 1033

Package Total Routines
Outpatient Pharmacy 226 461    APSPT16    PSO ALPHA DRUG LIST    PSO BBWAIT PRINT    PSO COST STAT    PSO DRUG LIST    PSO DRUG WARNINGS    PSO DRUG WARNINGS HEADER
PSO HOLD    PSO INACTIVE DRUG LIST    PSO INTERVENTIONS    PSO NARC LIST    PSO PHARMACY STATS    PSO REQUEST STATISTICS    PSO SUSPENSE LIST    PSO SYNONYM LIST
PSO52EX    PSOATRF    PSOATRF1    PSOATRFC    PSOAUTOC    PSOBAIRP    PSOBUILD    PSOCAN1
PSOCLOLS    PSOCMOP    PSOCMOPB    PSOCMOPC    PSOCPBA2    PSOCPBK4    PSOCPTRI    PSOCST10
PSOCST2    PSOCST3    PSOCST5    PSOCSTD    PSODACT    PSODDPR1    PSODDPR2    PSODDPR5
PSODGDGI    PSODOSCL    PSODRDU1    PSODRG    PSOERXA0    PSOERXU4    PSOEXDT    PSOEXRST
PSOFDAMG    PSOFTDR    PSOHCSUM    PSOHDR    PSOHELP    PSOHELP1    PSOHLDS2    PSOHLEXC
PSOHLNE2    PSOHLNE3    PSOHLNEW    PSOHLUP    PSOLBL4    PSOLBLN    PSOLLLI    PSONDCUT
PSONFI    PSONGR    PSOORAPI    PSOORCPY    PSOORDRG    PSOORED6    PSOOREDT    PSOORFI1
PSOORFI5    PSOORFIN    PSOORNE2    PSOORNE3    PSOORNE5    PSOORNW1    PSOORRDI    PSOORRL
PSOORRL3    PSOORROC    PSOP1    PSOP2    PSOPOLY    PSOPOST5    PSOPRFSS    PSOPXRM1
PSOQMCAL    PSOREF0    PSORELD1    PSORENW4    PSORLLL1    PSORLLLI    PSORREF1    PSORRPA1
PSORXDL    PSORXED    PSORXED1    PSORXI    PSORXPA1    PSORXPR    PSORXRP2    PSOSD
PSOSD0    PSOSD3    PSOSIGDS    PSOSPSIG    PSOSUCAT    PSOSUCLE    PSOSULB1    PSOSULOG
PSOTEXP1    PSOUPAT    PSOUTLA    PSOUTLA1    ^PSRX    PSOVRPT    ^PS(52.5    PSO283PI
PSO293PI    PSOAMIS0    PSOARCCV    PSOARX    PSOBAIR2    PSOBGMG3    PSOBINGO    PSOBORP3
PSOCAN2    PSOCAN4    PSOCMOPT    PSOCOST    PSOCP    PSOCPBK2    PSOCPE    PSOCPIBC
PSOCSRL    PSOCST12    PSOCSTM    PSOD PRINT ANSWER SHEET    PSODDPR3    PSODDPR4    PSODDPR7    PSODDPR8
PSODDPRE    PSODGDG1    PSODGDGP    PSODIR    PSODIR1    PSODISP    PSODISPS    PSODRDU2
PSODRGN    PSOEXBCH    PSOFDAUT    PSOHLDIS    PSOHLDS    PSOHLDS1    PSOHLDS3    PSOHLNE1
PSOHLSG1    PSOHLSG2    PSOHLSG3    PSOHLSN1    PSOHLSNC    PSOHLUP1    PSOLAB    PSOLBL
PSOLBL2    PSOLBLD    PSOLLL1    PSOLLL8    PSOMGCM1    PSOMGCOM    PSOMHV1    PSONEW2
PSONEWG    PSONRXN    PSOORDER    PSOORED5    PSOORFI6    PSOORNE4    PSOORNEW    PSOORNW2
PSOORRL1    PSOORRLN    PSOORRLO    PSOORRNW    PSOP    PSOPOST    PSOPOST4    PSOPRF
PSOPST68    PSOQ0496    PSOR52    PSORDS    PSOREF    PSOREF1    PSOREF2    PSORENW
PSORENW0    PSORENW3    PSORESK    PSORPTS1    PSORREF0    PSORRX1    PSORXCLE    PSORXL
PSORXLAB    PSORXRPT    PSORXVW    PSOSIG    PSOSIGMX    PSOSUINV    PSOSUTL    PSOTALK
PSOTPCRX    PSOUTIL    PSOUTL    PSOUTLA2    PSOVDF1    PSOVDF2    PSOVDF3    PSOVER1
PSOVER2    PSOXWRN    
National Drug File 186 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    PSNHELP1    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 158 PSS1P126    PSS50AQM    PSS50C    PSS50DOS    PSS50F1    PSS50WS    PSSADDIT    PSSCOMMN
PSSCREAT    PSSDACS    PSSDEEA    PSSDELOI    PSSDIUTL    PSSDOS    PSSDOSRP    PSSDRDOS
PSSDSPOP    PSSLOOK    PSSMSTR    ^PS(52.6    PSS127PI    PSS50    PSS50B2    PSS50DAT
PSS50TMP    PSS70UTL    PSSAUTL    PSSCHPRE    PSSDDUT2    PSSDENT    PSSDIN    PSSDSAPA
PSSDSAPI    PSSDSEXE    PSSDTR    PSSFDBRT    PSSHLDFS    PSSHRHAI    PSSLDALL    PSSMRRI
PSSNDCUT    PSSNFI    PSSOICT1    PSSOIDOS    PSSOPKI    PSSORPH    PSSORPH1    PSSORUTE
PSSP134    PSSP176    PSSP191A    PSSP198    PSSPKIPI    PSSPKIPR    PSSPOI    PSSPOIC
PSSPOID2    PSSPOIM    PSSPOIM3    PSSPOIMN    PSSPOST2    PSSPOST5    PSSPOST6    PSSPRE
PSSPRUTL    PSSQORD    PSSREMCH    PSSSCHMS    PSSSCHRP    PSSSEE    PSSSPD    PSSTRENG
PSSUNMSI    PSSUTIL1    PSSUTLAZ    PSSWRNE    ^APSPQA(32.4    ^PS(52.7    PRESCRIPTION PROFILE    PSS117EN
PSS147PO    PSS160EN    PSS192PO    PSS1P191    PSS208P    PSS50A1    PSS50ATC    PSS50B1
PSS50C1    PSS50CMP    PSS50D    PSS50E    PSS50F    PSS50LAB    PSS50NDF    PSSBPSUT
PSSCHPST    PSSCLDRG    PSSCLINR    PSSCLOZ    PSSCPRS    PSSCPRS1    PSSCSPD    PSSDDUT
PSSDEE    PSSDEE1    PSSDGUPD    PSSDOSED    PSSDOSER    PSSDOSLZ    PSSDSAPD    PSSDSAPK
PSSDSAPM    PSSDSBBP    PSSFILED    PSSGIU    PSSGMI    PSSHLU    PSSHRVL1    PSSHUIDG
PSSLAB    PSSLDEDT    PSSLDOSE    PSSMARK    PSSMRRDG    PSSNCPDP    PSSOP    PSSOPKI1
PSSORPHZ    PSSORUTL    PSSORUTZ    PSSOUTSC    PSSP130    PSSP138    PSSPNSRP    PSSPOID1
PSSPOIDT    PSSPOIKA    PSSPOIM1    PSSPOIM2    PSSPOIMO    PSSPOST    PSSPRICE    PSSQOC
PSSREF    PSSSOLI1    PSSSYN    PSSUTIL    PSSUTIL3    PSSUTLA1    PSSUTLPR    PSSUTLPZ
PSSVIDRG    PSSVX61    PSSVX64    PSSWRNA    PSSWRNB    PSSWRNC    
Controlled Substances 146 PSDACT1    PSDADJC    PSDADJD    PSDADJIN    PSDAMIS1    PSDAMIS2    PSDBALI    PSDCORP2
PSDCOSD    PSDCOSH    PSDCOSM    PSDCRP    PSDDFP    PSDEM1    PSDEM2    PSDERD
PSDERP    PSDEST    PSDEXGS    PSDEXP    PSDFT    PSDGSL1    PSDHRPT    PSDLBL1
PSDLBL5    PSDLBLR0    PSDLSTK1    PSDLSTK2    PSDNBT    PSDNCGS    PSDNDES    PSDNMRP
PSDNMWE    PSDNRGO    PSDNRGS    PSDNSCG    PSDNSTK    PSDNTR    PSDNTTPC    PSDNU1
PSDOPT0    PSDOPTI    PSDORD    PSDORD1    PSDORN    PSDORSN    PSDPAT1    PSDPAT2
PSDPLOG1    PSDPLOG2    PSDPMFG    PSDPND    PSDPSTK    PSDPUGS    PSDPWK1    PSDREC1
PSDREC2    PSDREPV    PSDRF    PSDRF4    PSDRFR    PSDRFS    PSDRFV    PSDRFW
PSDRLOG1    PSDRPT    PSDRWK    PSDSTK    PSDTRA1    PSDTRV    PSDTRVR1    PSDUP2
^PSD(58.85    ^PSD(58.86    PSD68P    PSD79P    PSDADJ    PSDADJI    PSDADJN    PSDADJN1
PSDADJR    PSDBAL    PSDBAN    PSDBAN1    PSDCORP1    PSDCORP3    PSDCOSN    PSDCOSV
PSDCPO    PSDCSI    PSDCSL    PSDDSOR2    PSDDWK    PSDEA    PSDEA41    PSDEM4
PSDERCP    PSDESTP    PSDEVO    PSDEVOR    PSDFILM    PSDFND    PSDFT1    PSDGSH1
PSDGSPU    PSDGSRV    PSDGSRV1    PSDIPOST    PSDLBL0    PSDLBLR2    PSDMAPU    PSDNMBA
PSDNMPR    PSDNMSP    PSDNSCL    PSDNTF    PSDNTFPC    PSDNTT    PSDNU2    PSDOPT
PSDOPTN    PSDOPTS    PSDOPTY    PSDORNC    PSDORNV    PSDORP    PSDORST    PSDORV
PSDPDR1    PSDPDU1    PSDPGS1    PSDPSI    PSDRDR1    PSDREC3    PSDREC4    PSDREPD
PSDREV    PSDREVC    PSDREVD    PSDRFM    PSDRFZ    PSDRPGS1    PSDRPGS2    PSDRSI
PSDTRN1    PSDUP3    
Inpatient Medications 103 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    
Drug Accountability 91 DRUG    LINE ITEM DATA    PSA COMPARISON REPORT    PSAAOP    PSABRKU9    PSACON    PSACON2    PSACONW
PSACREDO    PSADAI    PSADJI    PSADJR    PSADRI    PSADRIP    PSADRU    PSADRUG
PSADRUGP    PSAGIP1    PSAHELP    PSAHIS1    PSAINV    PSALFA    PSALNA    PSAMON
PSANAC    PSANDCUT    PSANDF    PSAOP    PSAORDP1    PSAP56    PSAPROC3    PSAPROC5
PSAPROC6    PSAPSI2    PSAREORD    PSARIN    PSATI    PSAUP4    PSAUTL    PSAVER6
^PSD(58.81    PSABRKU6    PSADJ    PSAENTO    PSAHIS    PSALEVRP    PSALFM    PSALFS
PSALND    PSALNM    PSALOCO    PSALOG1    PSANDC    PSAOP2    PSAOUT    PSAP41
PSAPOST    PSAPROC1    PSAPROC4    PSAPROC7    PSAPROC8    PSAPROC9    PSAPSI    PSAREC
PSAREC1    PSAREPV    PSAREV    PSAREVC    PSAREVD    PSASIG    PSATRAN    PSAUNL
PSAUNM    PSAUP5    PSAUP6    PSAUP8    PSAUTL1    PSAUTL4    PSAUTL6    PSAVER1
PSAVER2    PSAVER3    PSAVER7    PSAVERA    PSAVERA1    PSAVERA2    PSAVERA3    PSAVIN
PSAVIN1    PSAVIN2    PSAVINC    
Auto Replenishment Ward Stock 44 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    PSGWPOST    PSGWSC    ^PS(58.6    PSGWPL0    PSGWPSI    PSGWRA    PSGWSTD
PSGWSTKI    PSGWTOT    PSGWTOT1    PSGWVW    
CMOP 23 PSX DRUG    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    OCXOZ11    ORQOAUIB    ORQOAUIC    ORWDPLM1    ORWDPLM2    ORY269    
Lab Service 3 LRBLPE1    LRBLPH    LREPIPH    
Barcode Medication Administration 2 PSBRPCMO    ^PSB(53.68    
DSS Extracts 2 ECXDRUG2    ECXPIVD    
Accounts Receivable 1 RCDMCR4B    
Clinical Monitoring System 1 QAMC24    
Enterprise Health Management Platform 1 HMPCORD4    
Kernel 1 ^DIC(19    
Mental Health 1 YSCLSRV3    
Patient Data Exchange 1 VAQDBIP8    
Surgery 1 SROSCH2    

Accessed By FileMan Db Calls, Total: 364

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 68 PSO283P1    PSO293P1    PSO467PO    PSOASAP0    PSOBKDE1    PSOBKDED    PSOBPSUT    PSOCAN2
PSOCMOPR    PSOCOST    PSOCSTX    PSODDPR3    PSODGAL2    PSODIR1    PSODISP1    PSODRG
PSODRGN    PSOERX1B    PSOERXA0    PSOERXA1    PSOERXA5    PSOERXD1    PSOERXD2    PSOERXX4
PSOFDAMG    PSOFDAUT    PSOHELP1    PSOHLDS1    PSOHLNE3    PSON52    PSONDCUT    PSONEW
PSONVAR1    PSONVAVW    PSOORDRG    PSOORED1    PSOORFI6    PSOORNEW    PSOORNW1    PSOORNW2
PSOPKIV1    PSOPMP0    PSOPROD1    PSOPROD2    PSOREJP0    PSORELD1    PSORENW    PSORENW0
PSORENW4    PSORLLL2    PSORLLL3    PSORLST2    PSORPTS    PSORREF    PSORRPA1    PSORRX1
PSORWRAP    PSORXL    PSORXRP2    PSORXRPT    PSOSPML2    PSOSPMU1    PSOSPMUT    PSOSUINV
PSOTPRP1    PSOUTIL    PSOUTLA2    PSOVER1    
Pharmacy Data Management 59 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    PSSP130    PSSP176    PSSP198    PSSPOI
PSSPOIM2    PSSPOIMN    PSSPOST    PSSPRICE    PSSSEE    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 YSCLDIS    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    
Emergency Department Integration Software 1 EDPHIST    

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.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>99999)!(X<0)!(X?.E1"."3.N) X
  • LAST EDITED:  SEP 23, 2019
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999, 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