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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | 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: 1148

Package Total Routines
Outpatient Pharmacy 243 ACTIVITY LOG    APSPT16    ATC CANISTER    DRUG    DRUG TEXT ENTRY    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT
IFCAP ITEM NUMBER    LOCAL POSSIBLE DOSAGE    NDC BY OUTPATIENT SITE    OPAI    POSSIBLE DOSAGES    PRESCRIPTION PROFILE    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 N/F LIST
PSO NARC LIST    PSO PHARMACY STATS    PSO REQUEST STATISTICS    PSO SUSPENSE LIST    PSO SYNONYM LIST    PSO283PI    PSO293PI    PSO52EX
PSOAMIS0    PSOARCCV    PSOARX    PSOATRF    PSOATRF1    PSOATRFC    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    PSODISP    PSODISPS    PSODOSCL    PSODRDU1
PSODRDU2    PSODRG    PSODRGN    PSOERXA0    PSOERXU4    PSOEXBCH    PSOEXDT    PSOEXRST
PSOFDAMG    PSOFDAUT    PSOFTDR    PSOHCSUM    PSOHDR    PSOHELP    PSOHELP1    PSOHLDIS
PSOHLDS    PSOHLDS1    PSOHLDS2    PSOHLDS3    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    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    PSOPST68
PSOPXRM1    PSOQ0496    PSOQMCAL    PSOR52    PSORDS    PSOREF    PSOREF0    PSOREF1
PSOREF2    PSORELD1    PSORENW    PSORENW0    PSORENW3    PSORENW4    PSORESK    PSORLLL1
PSORLLLI    PSORPTS1    PSORREF0    PSORREF1    PSORRPA1    PSORRX1    PSORXCLE    PSORXDL
PSORXED    PSORXED1    PSORXI    PSORXL    PSORXLAB    PSORXPA1    PSORXPR    PSORXRP2
PSORXRPT    PSORXVW    PSOSD    PSOSD0    PSOSD3    PSOSIG    PSOSIGDS    PSOSPSIG
PSOSUTL    PSOTALK    PSOTEXP1    PSOUTL    PSOUTLA2    ^PSRX    PSOSIGMX    PSOSUCAT
PSOSUCLE    PSOSUINV    PSOSULB1    PSOSULOG    PSOTPCRX    PSOUPAT    PSOUTIL    ^PS(52.5
PSOUTLA    PSOUTLA1    PSOUTOR    PSOVDF1    PSOVDF2    PSOVDF3    PSOVER1    PSOVER2
PSOVRPT    PSOXWRN    SYNONYM    
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 PSS117EN    PSS1P126    PSS1P191    PSS50    PSS50A1    PSS50ATC    PSS50F    PSS50LAB
PSS70UTL    PSSBPSUT    PSSCLINR    PSSCOMMN    PSSCPRS    PSSCSPD    PSSDENT    PSSDOSER
PSSDOSLZ    PSSDSAPI    PSSDSBBP    PSSDSEXE    PSSFDBRT    PSSGMI    PSSMARK    PSSOPKI
PSSORUTZ    PSSP198    PSSPOI    PSSPOIC    PSSPOIM3    PSSPRUTL    PSSUTIL3    ^PSDRUG
PSSSPD    PSSWRNC    ^PS(52.7    PSSPKIPI    PSSPNSRP    PSSREMCH    PSSSYN    PSSUNMSI
PSSUTLA1    PSSWRNA    ^APSPQA(32.4    PSS127PI    PSS147PO    PSS160EN    PSS192PO    PSS208P
PSS243PI    PSS50AQM    PSS50B1    PSS50B2    PSS50C    PSS50C1    PSS50CMP    PSS50D
PSS50DAT    PSS50DOS    PSS50E    PSS50F1    PSS50NDF    PSS50TMP    PSS50WS    PSSADDIT
PSSAUTL    PSSCHPRE    PSSCHPST    PSSCLDRG    PSSCLOZ    PSSCPRS1    PSSCREAT    PSSDACS
PSSDDUT    PSSDDUT2    PSSDEE    PSSDEE1    PSSDEEA    PSSDELOI    PSSDGUPD    PSSDIN
PSSDIUTL    PSSDOS    PSSDOSED    PSSDOSRP    PSSDRDOS    PSSDSAPA    PSSDSAPD    PSSDSAPK
PSSDSAPM    PSSDSPOP    PSSDTR    PSSFILED    PSSGIU    PSSHLDFS    PSSHLU    PSSHRHAI
PSSHRVL1    PSSHUIDG    PSSLAB    PSSLDALL    PSSLDEDT    PSSLDOSE    PSSLOOK    PSSMRRDG
PSSMRRI    PSSMSTR    PSSNCPDP    PSSNDCUT    PSSNFI    PSSOICT1    PSSOIDOS    PSSOP
PSSORPHZ    PSSORUTE    PSSORUTL    PSSOUTSC    PSSP134    PSSP138    PSSP176    PSSP191A
PSSPCH13    PSSPKIPR    PSSPOID1    PSSPOID2    PSSPOIDT    PSSPOIM    PSSPOIM1    PSSPOIM2
PSSPOIMN    PSSPOST2    PSSPOST5    PSSPOST6    PSSPRE    PSSPRICE    PSSQOC    PSSQORD
PSSREF    PSSSCHMS    PSSSEE    PSSTRENG    PSSUTIL    PSSUTLPZ    PSSVX61    PSSVX64
^PS(52.6    PSSOPKI1    PSSORPH    PSSORPH1    PSSP130    PSSPOIKA    PSSPOIMO    PSSPOST
PSSSCHRP    PSSSOLI1    PSSUTIL1    PSSUTLAZ    PSSUTLPR    PSSVIDRG    PSSWRNB    PSSWRNE
^APSPQA(32.5    
Controlled Substances 160 ACTIVITY LOG    ATC CANISTER    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT    IFCAP ITEM NUMBER    OPAI    POSSIBLE DOSAGES
PSD68P    PSDADJIN    PSDBALI    PSDCORP3    PSDCOSV    PSDDFP    PSDDSOR2    PSDEST
PSDEVOR    PSDGSPU    PSDGSRV    PSDLBL0    PSDLBLR2    PSDNMBA    PSDNMSP    PSDNRGS
PSDNU1    PSDNU2    PSDOPTI    PSDORD    PSDORSN    PSDORST    PSDPAT1    PSDPMFG
PSDRDR1    PSDREC4    PSDRF    PSDRFS    PSDRPGS1    PSDRPT    PSDRSI    PSDTRN1
^PSD(58.85    DRUG    DRUG TEXT ENTRY    LOCAL POSSIBLE DOSAGE    NDC BY OUTPATIENT SITE    PBM DA PHARM LOC MAPPINGS    PSD79P    PSDACT1
PSDADJ    PSDADJC    PSDADJD    PSDADJI    PSDADJN    PSDADJN1    PSDADJR    PSDAMIS1
PSDAMIS2    PSDBAL    PSDBAN    PSDBAN1    PSDCORP1    PSDCORP2    PSDCOSD    PSDCOSH
PSDCOSM    PSDCOSN    PSDCPO    PSDCRP    PSDCSI    PSDCSL    PSDDWK    PSDEA
PSDEA41    PSDEM1    PSDEM2    PSDEM4    PSDERCP    PSDERD    PSDERP    PSDESTP
PSDEVO    PSDEXGS    PSDEXP    PSDFILM    PSDFND    PSDFT    PSDFT1    PSDGSH1
PSDGSL1    PSDGSRV1    PSDHRPT    PSDIPOST    PSDLBL1    PSDLBL5    PSDLBLR0    PSDLSTK1
PSDLSTK2    PSDMAPU    PSDNBT    PSDNCGS    PSDNDES    PSDNMPR    PSDNMRP    PSDNMWE
PSDNRGO    PSDNSCG    PSDNSCL    PSDNSTK    PSDNTF    PSDNTFPC    PSDNTR    PSDNTT
PSDNTTPC    PSDOPT    PSDOPT0    PSDOPTN    PSDOPTS    PSDOPTY    PSDORD1    PSDORN
PSDORNC    PSDORNV    PSDORP    PSDORV    PSDPAT2    PSDPDR1    PSDPDU1    PSDPGS1
PSDPLOG1    PSDPLOG2    PSDPND    PSDPSI    PSDPSTK    PSDPUGS    PSDPWK1    PSDREC1
PSDREC2    PSDREC3    PSDREPD    PSDREPV    PSDREV    PSDREVC    PSDREVD    PSDRF4
PSDRFM    PSDRFR    PSDRFV    PSDRFW    PSDRFZ    PSDRLOG1    PSDRPGS2    PSDRWK
PSDSTK    PSDTRA1    PSDTRV    PSDTRVR1    PSDUP2    PSDUP3    SYNONYM    ^PSD(58.86
Inpatient Medications 118 ACTIVITY LOG    ATC CANISTER    DRUG TEXT ENTRY    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT    IFCAP ITEM NUMBER    IV DRUG
LOCAL POSSIBLE DOSAGE    NDC BY OUTPATIENT SITE    OPAI    PBM DA PHARM LOC MAPPINGS    POSSIBLE DOSAGES    PRESCRIPTION PROFILE    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    SYNONYM    
Drug Accountability 103 ACTIVITY LOG    ATC CANISTER    DRUG    DRUG TEXT ENTRY    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT    IFCAP ITEM NUMBER
LOCAL POSSIBLE DOSAGE    NDC BY OUTPATIENT SITE    OPAI    PBM DA PHARM LOC MAPPINGS    POSSIBLE DOSAGES    PSA COMPARISON REPORT    PSAAOP    PSABRKU6
PSABRKU9    PSACON    PSACON2    PSACONW    PSACREDO    PSADAI    PSADJ    PSADJI
PSADJR    PSADRI    PSADRIP    PSADRU    PSADRUG    PSADRUGP    PSAENTO    PSAGIP1
PSAHELP    PSAHIS    PSAHIS1    PSAINV    PSALEVRP    PSALFA    PSALFM    PSALFS
PSALNA    PSALND    PSALNM    PSALOCO    PSALOG1    PSAMON    PSANAC    PSANDC
PSANDCUT    PSANDF    PSAOP    PSAOP2    PSAORDP1    PSAOUT    PSAP41    PSAP56
PSAPOST    PSAPROC1    PSAPROC3    PSAPROC4    PSAPROC5    PSAPROC6    PSAPROC7    PSAPROC8
PSAPROC9    PSAPSI    PSAPSI2    PSAREC    PSAREC1    PSAREORD    PSAREPV    PSAREV
PSAREVC    PSAREVD    PSARIN    PSASIG    PSATI    PSATRAN    PSAUNL    PSAUNM
PSAUP4    PSAUP5    PSAUP6    PSAUP8    PSAUTL    PSAUTL1    PSAUTL4    PSAUTL6
PSAVER1    PSAVER2    PSAVER3    PSAVER6    PSAVER7    PSAVERA    PSAVERA1    PSAVERA2
PSAVERA3    PSAVIN    PSAVIN1    PSAVIN2    PSAVINC    ^PSD(58.81    SYNONYM    
Auto Replenishment Ward Stock 56 ACTIVITY LOG    ATC CANISTER    DRUG TEXT ENTRY    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT    IFCAP ITEM NUMBER    LOCAL POSSIBLE DOSAGE
NDC BY OUTPATIENT SITE    OPAI    PBM DA PHARM LOC MAPPINGS    POSSIBLE DOSAGES    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    SYNONYM
CMOP 36 ACTIVITY LOG    ATC CANISTER    DRUG TEXT ENTRY    DT/TM DISP UNIT PRICE CHANGED    FORMULARY ALTERNATIVE    HISTORY PRICE DISPENSE UNIT    IFCAP ITEM NUMBER    LOCAL POSSIBLE DOSAGE
NDC BY OUTPATIENT SITE    OPAI    POSSIBLE DOSAGES    PSX DRUG    PSXBLD    PSXBLD1    PSXCMOP    PSXCMOP0
PSXCMOP1    PSXCOSTU    PSXCSHI    PSXCSMON    PSXCSUTL    PSXDENT    PSXEDIT    PSXEDRG
PSXEDUTL    PSXLBL1    PSXMISC1    PSXNOCMP    PSXOCMOP    PSXREF    PSXRTN1    PSXUTL
PSXVND    PSXVPN    RELEASE DATA    SYNONYM    
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    
DSS Extracts 2 ECXDRUG2    ECXPIVD    
Accounts Receivable 1 RCDMCR4B    
Barcode Medication Administration 1 PSBRPCMO    
Clinical Monitoring System 1 QAMC24    
Enterprise Health Management Platform 1 HMPCORD4    
Mental Health 1 YSCLSRV3    
Patient Data Exchange 1 VAQDBIP8    
Surgery 1 SROSCH2    

Accessed By FileMan Db Calls, Total: 366

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 70 PSO283P1    PSO293P1    PSO467PO    PSO583PI    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    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    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

    External References

    Name Field # of Occurrence
    ^%DT 17.1+1, 100+1, 17.1+1, 100+1, 17.1+1, 100+1, 17.1+1, 100+1, 17.1+1, 100+1
    , 17.1+1, 100+1
    EN^DDIOL .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1, .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1
    , .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1, .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1
    , .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1, .01DEL.01+1, .01DEL100+1, 2DEL2+1, 5+1, 62.04+1
    ^DIC 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 2+1, 2(HELP ), 5(HELP ), 8(HELP )
    , 62.02+1, 62.05+1, 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 2+1, 2(HELP )
    5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1
    , 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1
    ^DICR 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1)
    64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    Y^DIQ ID25+1, ID25+1, ID25+1, ID25+1, ID25+1, ID25+1
    $$PSJDF^PSNAPIS 2.1+1, 2.1+1, 2.1+1, 2.1+1, 2.1+1, 2.1+1
    FORM^PSNOUT 22OT+1, 22OT+1, 22OT+1, 22OT+1, 22OT+1, 22OT+1
    HLP^PSSDAWUT 81(HELP ), 81(HELP ), 81(HELP ), 81(HELP ), 81(HELP ), 81(HELP )
    INPUT^PSSDAWUT 81+1, 81+1, 81+1, 81+1, 81+1, 81+1
    SCH^PSSDDUT 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1
    ATC^PSSDDUT2 212.2(HELP ), 212.2(HELP ), 212.2(HELP ), 212.2(HELP ), 212.2(HELP ), 212.2(HELP )
    CLOZ^PSSDDUT2 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.2DEL17.2+1
    , 17.3DEL17.3+1, 17.4DEL17.4+1, 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1
    DEA^PSSDDUT2 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP )
    DEATBL^PSSDDUT2 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP )
    DRUGW^PSSDDUT2 8+1, 8+1, 8+1, 8+1, 8+1, 8+1
    EDIT^PSSDDUT2 3+1, 3+1, 3+1, 3+1, 3+1, 3+1
    MXDAYSUP^PSSDDUT2 66+1, 66+1, 66+1, 66+1, 66+1, 66+1
    NCPDPQM^PSSDDUT2 83+1, 83+1, 83+1, 83+1, 83+1, 83+1
    P^PSSDDUT2 17(HELP ), 17(HELP ), 17(HELP ), 17(HELP ), 17(HELP ), 17(HELP )
    SIG^PSSDDUT2 5+1, 5+1, 5+1, 5+1, 5+1, 5+1
    KILLS^PSSDOSED 901(XREF 1K), 901(XREF 1K), 901(XREF 1K), 901(XREF 1K), 901(XREF 1K), 901(XREF 1K)
    SETS^PSSDOSED 901(XREF 1S), 901(XREF 1S), 901(XREF 1S), 901(XREF 1S), 901(XREF 1S), 901(XREF 1S)
    ^PSSGENM .01+1, .01+1, .01+1, .01+1, .01+1, .01+1
    EN^PSSNCPDP 83(HELP ), 83(HELP ), 83(HELP ), 83(HELP ), 83(HELP ), 83(HELP )
    KILL1^PSSPOID1 2.1(XREF 2K), 2.1(XREF 2K), 2.1(XREF 2K), 2.1(XREF 2K), 2.1(XREF 2K), 2.1(XREF 2K)
    SET1^PSSPOID1 2.1(XREF 2S), 2.1(XREF 2S), 2.1(XREF 2S), 2.1(XREF 2S), 2.1(XREF 2S), 2.1(XREF 2S)
    EN1^PSSPOIDT 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K)
    51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    ST^PSSPRICE 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S)
    13(XREF 2S), 15(XREF 2S)
    VALID^PSSWRNE 8.1+1, 8.1+1, 8.1+1, 8.1+1, 8.1+1, 8.1+1
    ACT^PSXREF 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S)
    DISPUNIT^PSXREF 14.5DEL550+1, 14.5DEL550+1, 14.5DEL550+1, 14.5DEL550+1, 14.5DEL550+1, 14.5DEL550+1
    $$NOW^XLFDT 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S)
    $$RJ^XLFSTR 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K)
    31(XREF 1S), 31(XREF 1K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" 14.5DEL550+1, 213(XREF 2S), 14.5DEL550+1, 213(XREF 2S), 14.5DEL550+1, 213(XREF 2S), 14.5DEL550+1, 213(XREF 2S), 14.5DEL550+1, 213(XREF 2S)
    , 14.5DEL550+1, 213(XREF 2S)
    ^DD(50 .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 15(XREF 1S), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K)
    64(XREF 5S), 64(XREF 5K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 15(XREF 1S), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1
    64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 15(XREF 1S), 25(XREF 2S), 25(XREF 2K)
    , 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 15(XREF 1S)
    25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), .01(XREF 3n1.2), .01(XREF 3n2.2)
    13(XREF 1S), 15(XREF 1S), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K)
    .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 15(XREF 1S), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K)
    64(XREF 5S), 64(XREF 5K)
    ^DD(50.605 ID25+1, ID25+1, ID25+1, ID25+1, ID25+1, ID25+1
    ^DD(52.6 64(XREF 4S), 64(XREF 4K), 64(XREF 4S), 64(XREF 4K), 64(XREF 4S), 64(XREF 4K), 64(XREF 4S), 64(XREF 4K), 64(XREF 4S), 64(XREF 4K)
    64(XREF 4S), 64(XREF 4K)
    ^DD(52.7 64(XREF 5S), 64(XREF 5K), 64(XREF 5S), 64(XREF 5K), 64(XREF 5S), 64(XREF 5K), 64(XREF 5S), 64(XREF 5K), 64(XREF 5S), 64(XREF 5K)
    64(XREF 5S), 64(XREF 5K)
    ^PS(50.5 .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3)
    .01(XREF 3n1.3), .01(XREF 3n2.3)
    ^PS(50.605 - [#50.605] ID25+1, 2(XREF 1S), 25(XREF 2S), 26OF9.3+1, ID25+1, 2(XREF 1S), 25(XREF 2S), 26OF9.3+1, ID25+1, 2(XREF 1S)
    25(XREF 2S), 26OF9.3+1, ID25+1, 2(XREF 1S), 25(XREF 2S), 26OF9.3+1, ID25+1, 2(XREF 1S), 25(XREF 2S), 26OF9.3+1
    , ID25+1, 2(XREF 1S), 25(XREF 2S), 26OF9.3+1
    ^PS(50.7 - [#50.7] 2.1+1, 2.1+1, 2.1+1, 2.1+1, 2.1+1, 2.1+1
    ^PS(52.6 - [#52.6] 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 4n1.1), 64(XREF 4n2.1)
    ^PS(52.7 - [#52.7] 64(XREF 5n1.1), 64(XREF 5n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1)
    ^PS(54 - [#54] 8OF9.2+1, 8OF9.2+1, 8OF9.2+1, 8OF9.2+1, 8OF9.2+1, 8OF9.2+1
    ^PS(59.7 - [#59.7] .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S)
    ^PSDRUG - [#50] .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K)
    , 1+1, 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1
    3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4)
    15(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 18+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 26OF9.2+1, 51(XREF 1S), 51(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K)
    100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 901+1, 905+1, .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3)
    .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1, 2+1, 2DEL2+1, 2(XREF 1S)
    2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1
    , 18+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 51(XREF 1S), 51(XREF 1K)
    63(XREF 2S), 63(XREF 2K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    , 901+1, 905+1, .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4)
    .01(XREF 4S), .01(XREF 4K), 1+1, 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S)
    2(XREF 3K), 2.1+1, 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 18+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S)
    22(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 51(XREF 1S), 51(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 2S), 64(XREF 2K)
    64(XREF 3S), 64(XREF 3K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 901+1, 905+1, .01(XREF 2K), .01(XREF 3n1.1)
    .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1, 2+1
    , 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 3(XREF 1S), 3(XREF 1K)
    13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 17.2DEL17.2+1
    , 17.3DEL17.3+1, 17.4DEL17.4+1, 18+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26OF9.2+1
    51(XREF 1S), 51(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 100(XREF 1S), 100(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 901+1, 905+1, .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2)
    .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1, 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S)
    2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 18+1, 20(XREF 1S)
    20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 51(XREF 1S), 51(XREF 1K), 63(XREF 2S), 63(XREF 2K)
    64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 901+1, 905+1
    .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K)
    , 1+1, 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1
    3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4)
    15(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 18+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 26OF9.2+1, 51(XREF 1S), 51(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K)
    100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 901+1, 905+1
    ^PSDRUG("ACLOZ" 17.5(XREF 1S), 17.5(XREF 1K), 17.5(XREF 1S), 17.5(XREF 1K), 17.5(XREF 1S), 17.5(XREF 1K), 17.5(XREF 1S), 17.5(XREF 1K), 17.5(XREF 1S), 17.5(XREF 1K)
    17.5(XREF 1S), 17.5(XREF 1K)
    ^PSDRUG("AEXP" 17.1(XREF 1S), 17.1(XREF 1K), 17.1(XREF 1S), 17.1(XREF 1K), 17.1(XREF 1S), 17.1(XREF 1K), 17.1(XREF 1S), 17.1(XREF 1K), 17.1(XREF 1S), 17.1(XREF 1K)
    17.1(XREF 1S), 17.1(XREF 1K)
    ^PSDRUG("AIU" .01(XREF 4S), .01(XREF 4K), 63(XREF 2S), 63(XREF 2K), .01(XREF 4S), .01(XREF 4K), 63(XREF 2S), 63(XREF 2K), .01(XREF 4S), .01(XREF 4K)
    63(XREF 2S), 63(XREF 2K), .01(XREF 4S), .01(XREF 4K), 63(XREF 2S), 63(XREF 2K), .01(XREF 4S), .01(XREF 4K), 63(XREF 2S), 63(XREF 2K)
    .01(XREF 4S), .01(XREF 4K), 63(XREF 2S), 63(XREF 2K)
    ^PSDRUG("AND" 20(XREF 2S), 20(XREF 2K), 20(XREF 2S), 20(XREF 2K), 20(XREF 2S), 20(XREF 2K), 20(XREF 2S), 20(XREF 2K), 20(XREF 2S), 20(XREF 2K)
    20(XREF 2S), 20(XREF 2K)
    ^PSDRUG("AOC" 2(XREF 3S), 2(XREF 3K), 2(XREF 3S), 2(XREF 3K), 2(XREF 3S), 2(XREF 3K), 2(XREF 3S), 2(XREF 3K), 2(XREF 3S), 2(XREF 3K)
    2(XREF 3S), 2(XREF 3K)
    ^PSDRUG("AP" 64(XREF 1S), 64(XREF 1K), 64(XREF 1S), 64(XREF 1K), 64(XREF 1S), 64(XREF 1K), 64(XREF 1S), 64(XREF 1K), 64(XREF 1S), 64(XREF 1K)
    64(XREF 1S), 64(XREF 1K)
    ^PSDRUG("APC" 2(XREF 2S), 2(XREF 2K), 64(XREF 2S), 64(XREF 2K), 2(XREF 2S), 2(XREF 2K), 64(XREF 2S), 64(XREF 2K), 2(XREF 2S), 2(XREF 2K)
    64(XREF 2S), 64(XREF 2K), 2(XREF 2S), 2(XREF 2K), 64(XREF 2S), 64(XREF 2K), 2(XREF 2S), 2(XREF 2K), 64(XREF 2S), 64(XREF 2K)
    2(XREF 2S), 2(XREF 2K), 64(XREF 2S), 64(XREF 2K)
    ^PSDRUG("APN" 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 3S), 64(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    64(XREF 3S), 64(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 3S), 64(XREF 3K), 20(XREF 1S), 20(XREF 1K)
    22(XREF 1S), 22(XREF 1K), 64(XREF 3S), 64(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 3S), 64(XREF 3K)
    20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 3S), 64(XREF 3K)
    ^PSDRUG("APR" 22(XREF 2S), 22(XREF 2K), 22(XREF 2S), 22(XREF 2K), 22(XREF 2S), 22(XREF 2K), 22(XREF 2S), 22(XREF 2K), 22(XREF 2S), 22(XREF 2K)
    22(XREF 2S), 22(XREF 2K)
    ^PSDRUG("AQ" 213(XREF 1S), 213(XREF 1K), 213(XREF 1S), 213(XREF 1K), 213(XREF 1S), 213(XREF 1K), 213(XREF 1S), 213(XREF 1K), 213(XREF 1S), 213(XREF 1K)
    213(XREF 1S), 213(XREF 1K)
    ^PSDRUG("AQ1" 27(XREF 1S), 27(XREF 1K), 27(XREF 1S), 27(XREF 1K), 27(XREF 1S), 27(XREF 1K), 27(XREF 1S), 27(XREF 1K), 27(XREF 1S), 27(XREF 1K)
    27(XREF 1S), 27(XREF 1K)
    ^PSDRUG("AQ2" 28(XREF 1S), 28(XREF 1K), 28(XREF 1S), 28(XREF 1K), 28(XREF 1S), 28(XREF 1K), 28(XREF 1S), 28(XREF 1K), 28(XREF 1S), 28(XREF 1K)
    28(XREF 1S), 28(XREF 1K)
    ^PSDRUG("ASP" 2.1(XREF 1S), 2.1(XREF 1K), 2.1(XREF 1S), 2.1(XREF 1K), 2.1(XREF 1S), 2.1(XREF 1K), 2.1(XREF 1S), 2.1(XREF 1K), 2.1(XREF 1S), 2.1(XREF 1K)
    2.1(XREF 1S), 2.1(XREF 1K)
    ^PSDRUG("AUDAP" .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S)
    ^PSDRUG("B" .01(XREF 1S), .01(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 1S), .01(XREF 1K)
    .01(XREF 1S), .01(XREF 1K)
    ^PSDRUG("IU" 63(XREF 1S), 63(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 1S), 63(XREF 1K)
    63(XREF 1S), 63(XREF 1K)
    ^PSDRUG("NDC" 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 1S), 31(XREF 1K)
    31(XREF 1S), 31(XREF 1K)
    ^PSDRUG("VAC" 2(XREF 1S), 2(XREF 1K), 25(XREF 1S), 25(XREF 1K), 2(XREF 1S), 2(XREF 1K), 25(XREF 1S), 25(XREF 1K), 2(XREF 1S), 2(XREF 1K)
    25(XREF 1S), 25(XREF 1K), 2(XREF 1S), 2(XREF 1K), 25(XREF 1S), 25(XREF 1K), 2(XREF 1S), 2(XREF 1K), 25(XREF 1S), 25(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 25(XREF 1S), 25(XREF 1K)
    ^PSDRUG("VAPN" 21(XREF 1S), 21(XREF 1K), 21(XREF 1S), 21(XREF 1K), 21(XREF 1S), 21(XREF 1K), 21(XREF 1S), 21(XREF 1K), 21(XREF 1S), 21(XREF 1K)
    21(XREF 1S), 21(XREF 1K)
    ^PSDRUG("XATC" 212.2(XREF 1S), 212.2(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K)
    212.2(XREF 1S), 212.2(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("I" ID100+1, ID100+1, ID100+1, ID100+1, ID100+1, ID100+1
    ^("ND" ID25+1, 2+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 26OF9.2+1, ID25+1, 2+1, 20(XREF 1S)
    20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 26OF9.2+1, ID25+1, 2+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    , 26OF9.2+1, ID25+1, 2+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 26OF9.2+1, ID25+1, 2+1
    20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 26OF9.2+1, ID25+1, 2+1, 20(XREF 1S), 20(XREF 1K), 22(XREF 1S)
    22(XREF 1K), 26OF9.2+1
    ^(0 ID25+1, ID51+1, ID101+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4)
    , 8OF9.2+1, 25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 26OF9.3+1, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), ID25+1
    , ID51+1, ID101+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 8OF9.2+1
    25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 26OF9.3+1, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), ID25+1, ID51+1
    , ID101+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 8OF9.2+1, 25(XREF 2S)
    25(XREF 2K), 26OF9.2+1, 26OF9.3+1, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), ID25+1, ID51+1, ID101+1
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 8OF9.2+1, 25(XREF 2S), 25(XREF 2K)
    , 26OF9.2+1, 26OF9.3+1, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), ID25+1, ID51+1, ID101+1, .01(XREF 3n1.1)
    .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 8OF9.2+1, 25(XREF 2S), 25(XREF 2K), 26OF9.2+1
    , 26OF9.3+1, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), ID25+1, ID51+1, ID101+1, .01(XREF 3n1.1), .01(XREF 3n1.2)
    .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 8OF9.2+1, 25(XREF 2S), 25(XREF 2K), 26OF9.2+1, 26OF9.3+1
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    ^(2 ID102+1, ID102+1, ID102+1, ID102+1, ID102+1, ID102+1
    ^(20 .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S)
    ^(6 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S), 13(XREF 30S)
    ^(660 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1n1.4), 13(XREF 1K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1
    ^(660.1 18+1, 18+1, 18+1, 18+1, 18+1, 18+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 17.1+1*, 100+1*, 17.1+1*, 100+1*, 17.1+1*, 100+1*, 17.1+1*, 100+1*, 17.1+1*, 100+1*
    , 17.1+1*, 100+1*
    %I ID25+1*!, ID25+1*!, ID25+1*!, ID25+1*!, ID25+1*!, ID25+1*!
    >> C ID25+1*, ID25+1*, ID25+1*, ID25+1*, ID25+1*, ID25+1*
    >> D0 .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1
    , 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2)
    .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K)
    , 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1, 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1
    , 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2)
    .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K)
    , 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1, 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1
    , 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2)
    .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K)
    , 18+1, 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.2+1, 26OF9.3+1*, 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S)
    2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1K)
    13(XREF 2S), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 17.1(XREF 1S), 17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1
    17.5(XREF 1S), 17.5(XREF 1K), 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 28(XREF 1K)
    31(XREF 1S), 31(XREF 1K), 51(XREF 1S), 51(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K)
    64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 100(XREF 1S), 100(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K)
    .01(XREF 4S), .01(XREF 4K), 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K)
    , 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1K), 15(XREF 2S), 17.1(XREF 1S), 17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.5(XREF 1S), 17.5(XREF 1K), 20(XREF 1S)
    20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S)
    25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 28(XREF 1K), 31(XREF 1S), 31(XREF 1K), 51(XREF 1S)
    51(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S)
    64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 212.2(XREF 1S)
    212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), 2+1
    , 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K)
    3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 17.1(XREF 1S)
    17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.5(XREF 1S), 17.5(XREF 1K), 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K)
    21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 28(XREF 1K), 31(XREF 1S), 31(XREF 1K), 51(XREF 1S), 51(XREF 1K), 63(XREF 1S), 63(XREF 1K)
    63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K)
    64(XREF 5S), 64(XREF 5K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K)
    , 901+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K)
    2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 13(XREF 1S)
    13(XREF 1K), 13(XREF 2S), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 17.1(XREF 1S), 17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1
    , 17.4DEL17.4+1, 17.5(XREF 1S), 17.5(XREF 1K), 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22(XREF 1S)
    22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 27(XREF 1S), 27(XREF 1K), 28(XREF 1S)
    28(XREF 1K), 31(XREF 1S), 31(XREF 1K), 51(XREF 1S), 51(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S)
    64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 100(XREF 1S)
    100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, .01(XREF 1S), .01(XREF 1K)
    .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S)
    2(XREF 3K), 2.1+1, 2.1(XREF 1S), 2.1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 30S)
    15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 17.1(XREF 1S), 17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.5(XREF 1S), 17.5(XREF 1K)
    20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K)
    25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 28(XREF 1K), 31(XREF 1S), 31(XREF 1K)
    51(XREF 1S), 51(XREF 1K), 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K)
    64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K)
    , 2+1, 2DEL2+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1, 2.1(XREF 1S)
    2.1(XREF 1K), 3(XREF 1S), 3(XREF 1K), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S)
    17.1(XREF 1S), 17.1(XREF 1K), 17.2DEL17.2+1, 17.3DEL17.3+1, 17.4DEL17.4+1, 17.5(XREF 1S), 17.5(XREF 1K), 20(XREF 1S), 20(XREF 1K), 20(XREF 2S)
    20(XREF 2K), 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 28(XREF 1K), 31(XREF 1S), 31(XREF 1K), 51(XREF 1S), 51(XREF 1K), 63(XREF 1S)
    63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S)
    64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 100(XREF 1S), 100(XREF 1K), 100(XREF 3S), 100(XREF 3K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S)
    213(XREF 1K), 901+1
    >> DI 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S)
    13(XREF 2S), 15(XREF 2S)
    DIC ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, ID25+1, 2+1*, 2(HELP )
    5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*
    , 62.05+1!*, ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, ID25+1, 2+1*
    2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP )
    , 62.02+1!*, 62.05+1!*
    DIC("S" 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*, 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*, 62.02+1*, 62.02SCR+1*
    , 62.05+1*, 62.05SCR+1*, 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*, 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*
    , 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*
    DIC(0 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 2+1*, 2(HELP )
    5(HELP ), 8(HELP ), 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 2+1*, 2(HELP ), 5(HELP ), 8(HELP )
    , 2+1*, 2(HELP ), 5(HELP ), 8(HELP )
    >> DIE 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 5(HELP ), 8(HELP )
    , 62.02+1, 62.05+1, 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 5(HELP ), 8(HELP ), 62.02+1, 62.05+1
    5(HELP ), 8(HELP ), 62.02+1, 62.05+1
    >> DIG 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1)
    64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    >> DIH 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1)
    64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1n1.4), 15(XREF 1K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    >> DIU 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1)
    64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    >> DIU(0 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K)
    51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    DIV 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4S)
    64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4S), 64(XREF 4n1.1)
    64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K)
    64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S)
    15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1)
    64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    DIV(0 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S)
    15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S)
    13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1n1.4), 15(XREF 1K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1)
    DT .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K)
    DUZ 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S), 13(XREF 2S), 15(XREF 2S)
    13(XREF 2S), 15(XREF 2S)
    ND 2.1+1~*, 2.1+1~*, 2.1+1~*, 2.1+1~*, 2.1+1~*, 2.1+1~*
    >> PSGINITF .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S)
    >> PSGS0XT 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1
    >> PSGS0Y 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1, 62.04+1
    >> PSI .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K)
    PSJ 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 5S)
    64(XREF 5n1.1), 64(XREF 5K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 4S), 64(XREF 4n1.1)
    64(XREF 4K), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K)
    64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K)
    PSJ1 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1)
    64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1)
    64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1)
    64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    PSJ2 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1)
    64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1)
    64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1)
    64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    PSJ3 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1)
    64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1)
    64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1)
    64(XREF 5K), 64(XREF 5n2.1), 64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    64(XREF 4S), 64(XREF 4n1.1), 64(XREF 4K), 64(XREF 4n2.1), 64(XREF 5S), 64(XREF 5n1.1), 64(XREF 5K), 64(XREF 5n2.1)
    PSSCROSS 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K)
    51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    PSSTEST 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K)
    100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K)
    51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    3(XREF 1S), 3(XREF 1K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K)
    SIG 5+1!, 5+1!, 5+1!, 5+1!, 5+1!, 5+1!
    TMP 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S)
    U ID25+1, ID100+1, ID101+1, ID102+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3)
    .01(XREF 3n2.4), 1+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, ID25+1, ID100+1, ID101+1
    , ID102+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 8OF9.2+1
    13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1
    25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, ID25+1, ID100+1, ID101+1, ID102+1, .01(XREF 3n1.1), .01(XREF 3n1.2)
    .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1
    , 26OF9.3+1, ID25+1, ID100+1, ID101+1, ID102+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2)
    .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, ID25+1, ID100+1
    , ID101+1, ID102+1, .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1
    , 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K)
    , 18+1, 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, ID25+1, ID100+1, ID101+1, ID102+1, .01(XREF 3n1.1)
    .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 1+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1n1.4), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 18+1, 25(XREF 2S), 25(XREF 2K)
    , 26+1, 26OF9.3+1
    X .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3)
    .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1*, 2+1!*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S)
    2(XREF 3K), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 3+1!, 3(HELP ), 4+1!, 5+1!, 6+1!, 8+1!
    , 8OF9.2+1!, 8.1+1!, 11+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 2K), 13(XREF 30S)
    , 14+1!, 14.5+1!, 14.5DEL550+1~*, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 2K), 16+1!
    , 17+1!, 17.1+1*!, 17.1(XREF 1S), 17.1(XREF 1K), 17.3+1!, 17.5+1!, 17.5(XREF 1S), 18+1*, 20(XREF 1S), 20(XREF 1K)
    20(XREF 2S), 20(XREF 2K), 21+1!, 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S)
    25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.3+1*, 27+1!, 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 31+1!
    31(XREF 1S), 31(XREF 1K), 40+1!, 50+1!, 62.01+1!, 62.02+1*!, 62.04+1!, 62.05+1*!, 63+1!, 63(XREF 1S)
    63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S)
    64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 83+1!, 100+1*!, 100(XREF 1S), 101+1!, 102+1!, 212.1+1!, 212.2+1!
    212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 2S), 215+1!, 300+1!, 302+1!, 400+1!, 901+1!, 905+1!
    , 623003+1!, 623008+1!, .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4)
    .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1*, 2+1!*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S)
    2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 3+1!, 3(HELP ), 4+1!, 5+1!
    , 6+1!, 8+1!, 8OF9.2+1!, 8.1+1!, 11+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    13(XREF 2K), 13(XREF 30S), 14+1!, 14.5+1!, 14.5DEL550+1~*, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K)
    15(XREF 2K), 16+1!, 17+1!, 17.1+1*!, 17.1(XREF 1S), 17.1(XREF 1K), 17.3+1!, 17.5+1!, 17.5(XREF 1S), 18+1*
    20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21+1!, 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S)
    22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.3+1*, 27+1!, 27(XREF 1S), 27(XREF 1K)
    28(XREF 1S), 31+1!, 31(XREF 1S), 31(XREF 1K), 40+1!, 50+1!, 62.01+1!, 62.02+1*!, 62.04+1!, 62.05+1*!
    , 63+1!, 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S)
    64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 83+1!, 100+1*!, 100(XREF 1S), 101+1!, 102+1!
    , 212.1+1!, 212.2+1!, 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 2S), 215+1!, 300+1!, 302+1!, 400+1!
    , 901+1!, 905+1!, 623003+1!, 623008+1!, .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2)
    .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1*, 2+1!*, 2(XREF 1S)
    2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 3+1!, 3(HELP )
    , 4+1!, 5+1!, 6+1!, 8+1!, 8OF9.2+1!, 8.1+1!, 11+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1n1.4), 13(XREF 1K), 13(XREF 2K), 13(XREF 30S), 14+1!, 14.5+1!, 14.5DEL550+1~*, 15+1!, 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 2K), 16+1!, 17+1!, 17.1+1*!, 17.1(XREF 1S), 17.1(XREF 1K), 17.3+1!, 17.5+1!
    17.5(XREF 1S), 18+1*, 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21+1!, 21(XREF 1S), 21(XREF 1K), 22(XREF 1S)
    22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.3+1*, 27+1!
    27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 31+1!, 31(XREF 1S), 31(XREF 1K), 40+1!, 50+1!, 62.01+1!, 62.02+1*!
    , 62.04+1!, 62.05+1*!, 63+1!, 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S)
    64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 83+1!, 100+1*!, 100(XREF 1S)
    , 101+1!, 102+1!, 212.1+1!, 212.2+1!, 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 2S), 215+1!, 300+1!
    , 302+1!, 400+1!, 901+1!, 905+1!, 623003+1!, 623008+1!, .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K)
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1*
    , 2+1!*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K)
    , 3+1!, 3(HELP ), 4+1!, 5+1!, 6+1!, 8+1!, 8OF9.2+1!, 8.1+1!, 11+1!, 13+1*!
    13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 2K), 13(XREF 30S), 14+1!, 14.5+1!, 14.5DEL550+1~*, 15+1!
    15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 2K), 16+1!, 17+1!, 17.1+1*!, 17.1(XREF 1S), 17.1(XREF 1K)
    , 17.3+1!, 17.5+1!, 17.5(XREF 1S), 18+1*, 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K), 21+1!, 21(XREF 1S)
    21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26+1*
    , 26OF9.3+1*, 27+1!, 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 31+1!, 31(XREF 1S), 31(XREF 1K), 40+1!, 50+1!
    , 62.01+1!, 62.02+1*!, 62.04+1!, 62.05+1*!, 63+1!, 63(XREF 1S), 63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S)
    64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 83+1!
    , 100+1*!, 100(XREF 1S), 101+1!, 102+1!, 212.1+1!, 212.2+1!, 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 2S)
    , 215+1!, 300+1!, 302+1!, 400+1!, 901+1!, 905+1!, 623003+1!, 623008+1!, .001+1!, .01(XREF 1S)
    .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), .01(XREF 4S)
    .01(XREF 4K), 1+1*, 2+1!*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2.1+1!
    2.1(XREF 1S), 2.1(XREF 1K), 3+1!, 3(HELP ), 4+1!, 5+1!, 6+1!, 8+1!, 8OF9.2+1!, 8.1+1!
    , 11+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 2K), 13(XREF 30S), 14+1!, 14.5+1!
    , 14.5DEL550+1~*, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 2K), 16+1!, 17+1!, 17.1+1*!
    17.1(XREF 1S), 17.1(XREF 1K), 17.3+1!, 17.5+1!, 17.5(XREF 1S), 18+1*, 20(XREF 1S), 20(XREF 1K), 20(XREF 2S), 20(XREF 2K)
    , 21+1!, 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S), 25(XREF 1K), 25(XREF 2S)
    25(XREF 2K), 26+1*, 26OF9.3+1*, 27+1!, 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 31+1!, 31(XREF 1S), 31(XREF 1K)
    , 40+1!, 50+1!, 62.01+1!, 62.02+1*!, 62.04+1!, 62.05+1*!, 63+1!, 63(XREF 1S), 63(XREF 1K), 63(XREF 2S)
    63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S), 64(XREF 4K), 64(XREF 5S)
    64(XREF 5K), 83+1!, 100+1*!, 100(XREF 1S), 101+1!, 102+1!, 212.1+1!, 212.2+1!, 212.2(XREF 1S), 212.2(XREF 1K)
    213(XREF 1S), 213(XREF 2S), 215+1!, 300+1!, 302+1!, 400+1!, 901+1!, 905+1!, 623003+1!, 623008+1!
    , .001+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3)
    .01(XREF 3n2.4), .01(XREF 4S), .01(XREF 4K), 1+1*, 2+1!*, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S)
    2(XREF 3K), 2.1+1!, 2.1(XREF 1S), 2.1(XREF 1K), 3+1!, 3(HELP ), 4+1!, 5+1!, 6+1!, 8+1!
    , 8OF9.2+1!, 8.1+1!, 11+1!, 13+1*!, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 2K), 13(XREF 30S)
    , 14+1!, 14.5+1!, 14.5DEL550+1~*, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 2K), 16+1!
    , 17+1!, 17.1+1*!, 17.1(XREF 1S), 17.1(XREF 1K), 17.3+1!, 17.5+1!, 17.5(XREF 1S), 18+1*, 20(XREF 1S), 20(XREF 1K)
    20(XREF 2S), 20(XREF 2K), 21+1!, 21(XREF 1S), 21(XREF 1K), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 2K), 25(XREF 1S)
    25(XREF 1K), 25(XREF 2S), 25(XREF 2K), 26+1*, 26OF9.3+1*, 27+1!, 27(XREF 1S), 27(XREF 1K), 28(XREF 1S), 31+1!
    31(XREF 1S), 31(XREF 1K), 40+1!, 50+1!, 62.01+1!, 62.02+1*!, 62.04+1!, 62.05+1*!, 63+1!, 63(XREF 1S)
    63(XREF 1K), 63(XREF 2S), 63(XREF 2K), 64(XREF 1S), 64(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 64(XREF 4S)
    64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 83+1!, 100+1*!, 100(XREF 1S), 101+1!, 102+1!, 212.1+1!, 212.2+1!
    212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 2S), 215+1!, 300+1!, 302+1!, 400+1!, 901+1!, 905+1!
    , 623003+1!, 623008+1!
    X(1 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 2S), 64(XREF 2K)
    64(XREF 3S), 64(XREF 3K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 20(XREF 1S), 20(XREF 1K)
    22(XREF 1S), 22(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K)
    20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K), 2(XREF 2S), 2(XREF 2K)
    2(XREF 3S), 2(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 2S), 64(XREF 2K), 64(XREF 3S), 64(XREF 3K)
    2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 64(XREF 2S), 64(XREF 2K)
    64(XREF 3S), 64(XREF 3K)
    X(2 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 20(XREF 1S), 20(XREF 1K)
    22(XREF 1S), 22(XREF 1K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K), 20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    20(XREF 1S), 20(XREF 1K), 22(XREF 1S), 22(XREF 1K)
    >> XMB(1 .01(XREF 3n1.1), .01(XREF 3n1.1), .01(XREF 3n1.1), .01(XREF 3n1.1), .01(XREF 3n1.1), .01(XREF 3n1.1)
    >> XMB(2 .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 3n1.2), .01(XREF 3n2.2)
    .01(XREF 3n1.2), .01(XREF 3n2.2)
    >> XMB(3 .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3), .01(XREF 3n1.3), .01(XREF 3n2.3)
    .01(XREF 3n1.3), .01(XREF 3n2.3)
    >> XMB(4 .01(XREF 3n1.4), .01(XREF 3n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4), .01(XREF 3n1.4), .01(XREF 3n2.4)
    .01(XREF 3n1.4), .01(XREF 3n2.4)
    Y ID25+1*, 2+1, 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 17.1+1, 22OT+1, 25(XREF 2S)
    25(XREF 2K), 62.02+1, 62.05+1, 100+1, ID25+1*, 2+1, 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1K), 17.1+1, 22OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1, ID25+1*, 2+1
    13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 17.1+1, 22OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1
    , 62.05+1, 100+1, ID25+1*, 2+1, 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 17.1+1
    , 22OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1, ID25+1*, 2+1, 13(XREF 1S), 13(XREF 1K)
    13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 17.1+1, 22OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1
    , ID25+1*, 2+1, 13(XREF 1S), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1K), 17.1+1, 22OT+1, 25(XREF 2S)
    25(XREF 2K), 62.02+1, 62.05+1, 100+1
    Y(0 .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 15(XREF 1S), 22OT+1*
    Y(1 .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K)
    13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4)
    .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K)
    63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2)
    .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1K), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3)
    .01(XREF 3n2.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 63(XREF 2S), 63(XREF 2K)
    .01(XREF 3n1.1), .01(XREF 3n1.2), .01(XREF 3n1.3), .01(XREF 3n1.4), .01(XREF 3n2.2), .01(XREF 3n2.3), .01(XREF 3n2.4), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K)
    13(XREF 30S), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 63(XREF 2S), 63(XREF 2K)
    Y(18 18+1*, 18+1*, 18+1*, 18+1*, 18+1*, 18+1*
    Y(2 .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.2), .01(XREF 3n2.2)
    .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K)
    13(XREF 1n1.1), 15(XREF 1n1.1), 63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1)
    63(XREF 2S), 63(XREF 2K), .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 63(XREF 2S), 63(XREF 2K)
    .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 63(XREF 2S), 63(XREF 2K)
    Y(3 13(XREF 1n1.1), 15(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1)
    13(XREF 1n1.1), 15(XREF 1n1.1)
    Y(50 26+1, 26OF9.2+1*, 26OF9.3+1, 26+1, 26OF9.2+1*, 26OF9.3+1, 26+1, 26OF9.2+1*, 26OF9.3+1, 26+1
    , 26OF9.2+1*, 26OF9.3+1, 26+1, 26OF9.2+1*, 26OF9.3+1, 26+1, 26OF9.2+1*, 26OF9.3+1
    Z0 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!
    , 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*
    Z1 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!
    , 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*, 5+1!, 8+1!, 8OF9.2+1*
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All