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 |  Found Entries |  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: 1571

Package Total Routines
IHS GPRA Information System 327 BGP0C12    BGP0CON1    BGP0CU    BGP0CU1    BGP0CU2    BGP0CU4    BGP0D22    BGP0D51
BGP0D52    BGP0D711    BGP0D72    BGP0D721    BGP0D722    BGP0D731    BGP0D732    BGP0D74
BGP0D75    BGP0D81    BGP0D82    BGP0D83    BGP0D84    BGP0D861    BGP0D863    BGP0D864
BGP0DHE2    BGP0DMT    BGP0EL4    BGP0EO11    BGP0POS1    BGP0UTL2    BGP1C12    BGP1CON1
BGP1CU    BGP1CU1    BGP1CU2    BGP1CU4    BGP1D21    BGP1D22    BGP1D51    BGP1D52
BGP1D711    BGP1D72    BGP1D721    BGP1D722    BGP1D723    BGP1D724    BGP1D731    BGP1D732
BGP1D74    BGP1D75    BGP1D81    BGP1D82    BGP1D83    BGP1D84    BGP1D861    BGP1D863
BGP1D864    BGP1DHE2    BGP1DMT    BGP1EL4    BGP1EO11    BGP1POS1    BGP1UTL2    BGP2C12
BGP2CON1    BGP2CU    BGP2CU1    BGP2CU2    BGP2CU4    BGP2D21    BGP2D22    BGP2D51
BGP2D52    BGP2D711    BGP2D72    BGP2D721    BGP2D722    BGP2D723    BGP2D724    BGP2D731
BGP2D732    BGP2D74    BGP2D75    BGP2D81    BGP2D82    BGP2D83    BGP2D84    BGP2D861
BGP2D863    BGP2D864    BGP2DHE2    BGP2DMT    BGP2EL4    BGP2EO11    BGP2POS1    BGP2UTL2
BGP3C12    BGP3CON1    BGP3CU    BGP3CU1    BGP3CU2    BGP3CU4    BGP3D21    BGP3D22
BGP3D51    BGP3D52    BGP3D711    BGP3D72    BGP3D721    BGP3D722    BGP3D723    BGP3D724
BGP3D731    BGP3D732    BGP3D74    BGP3D75    BGP3D81    BGP3D82    BGP3D83    BGP3D84
BGP3D861    BGP3D863    BGP3D864    BGP3D91    BGP3DMT    BGP3EL4    BGP3POS1    BGP3UTL2
BGP4CON1    BGP4CU    BGP4CU1    BGP4D21    BGP4D22    BGP4D51    BGP4D52    BGP4D711
BGP4D72    BGP4D721    BGP4D722    BGP4D723    BGP4D724    BGP4D731    BGP4D732    BGP4D74
BGP4D75    BGP4D81    BGP4D82    BGP4D83    BGP4D84    BGP4D861    BGP4D863    BGP4D864
BGP4D89    BGP4D91    BGP4DMT    BGP4EL4    BGP4POS1    BGP4UTL2    BGP5C1    BGP5C12
BGP5CON1    BGP5CU    BGP5CU1    BGP5D21    BGP5D22    BGP5D51    BGP5D52    BGP5D711
BGP5D72    BGP5D721    BGP5D722    BGP5D723    BGP5D724    BGP5D731    BGP5D732    BGP5D74
BGP5D75    BGP5D81    BGP5D82    BGP5D83    BGP5D84    BGP5D861    BGP5D863    BGP5D864
BGP5D89    BGP5D91    BGP5DMT    BGP5EL4    BGP5POS1    BGP5UTL2    BGP6C1    BGP6C12
BGP6CON1    BGP6CU    BGP6CU1    BGP6D21    BGP6D214    BGP6D22    BGP6D51    BGP6D52
BGP6D711    BGP6D721    BGP6D722    BGP6D723    BGP6D724    BGP6D731    BGP6D732    BGP6D74
BGP6D75    BGP6D81    BGP6D82    BGP6D83    BGP6D84    BGP6D861    BGP6D863    BGP6D864
BGP6D89    BGP6D91    BGP6DMT    BGP6DPA4    BGP6EL4    BGP6POS1    BGP6UTL2    BGP7C1
BGP7C12    BGP7CON1    BGP7CU    BGP7CU1    BGP7D21    BGP7D214    BGP7D22    BGP7D51
BGP7D52    BGP7D711    BGP7D721    BGP7D722    BGP7D723    BGP7D724    BGP7D731    BGP7D732
BGP7D74    BGP7D75    BGP7D81    BGP7D82    BGP7D83    BGP7D84    BGP7D861    BGP7D863
BGP7D864    BGP7D89    BGP7D91    BGP7DMT    BGP7DPA4    BGP7POS1    BGP7UTL2    BGP8C12
BGP8CON1    BGP8CU    BGP8CU1    BGP8CU2    BGP8CU4    BGP8D21    BGP8D214    BGP8D22
BGP8D51    BGP8D52    BGP8D711    BGP8D721    BGP8D722    BGP8D723    BGP8D724    BGP8D731
BGP8D732    BGP8D74    BGP8D75    BGP8D81    BGP8D82    BGP8D83    BGP8D84    BGP8D861
BGP8D863    BGP8D864    BGP8D89    BGP8D91    BGP8DHE2    BGP8DMT    BGP8DPA4    BGP8EO11
BGP8P181    BGP8POS    BGP8POS1    BGP8UTL2    BGP9C12    BGP9CON1    BGP9CU    BGP9CU1
BGP9CU2    BGP9CU4    BGP9D22    BGP9D51    BGP9D52    BGP9D711    BGP9D72    BGP9D721
BGP9D722    BGP9D731    BGP9D732    BGP9D74    BGP9D75    BGP9D81    BGP9D82    BGP9D83
BGP9D84    BGP9D861    BGP9D863    BGP9D864    BGP9DHE2    BGP9DMT    BGP9EL4    BGP9EO11
BGP9POS1    BGP9UTL2    BGPMUG05    BGPMUUT2    BGPMUUT4    BGPMUUT8    BGPPOST1    
Outpatient Pharmacy 193 ACTIVITY LOG    DRUG TEXT ENTRY    FORMULARY ALTERNATIVE    OUTPATIENT SITE    PSOARCCV    PSOBAIR2    PSOBAIRP    PSOCLOLS
PSOCMOPB    PSOCMOPT    PSOCOST    PSOCPBK2    PSOCPBK4    PSOCPE    PSOCST12    PSOCST2
PSOCST3    PSOCST5    PSOCSTM    PSODIR1    PSODISP    PSOEXRST    PSOFTDR    PSOHCSUM
PSOHLDS2    PSOHLDS3    PSOHLNE3    PSOHLUP    PSOHLUP1    PSOLBL    PSOLBL2    PSOLBL4
PSOLBLD    PSOLBLN    PSOMHV1    PSOORED5    PSOORED6    PSOOREDT    PSOORRL    PSOP
PSOPOLY    PSOR52    PSORXCLE    PSORXI    PSORXL    PSOSPSIG    PSOSUCLE    ^PSRX
PSORXVW    PSOVRPT    ^PS(52.5    ATC CANISTER    COMPOUND INGREDIENT ID    DRUG    DUE STUDY NAME    IFCAP ITEM NUMBER
LOCAL POSSIBLE DOSAGE    MEDICAID BILLING STATUS    NDC BY OUTPATIENT SITE    POSSIBLE DOSAGES    PRESCRIPTION PROFILE    PSO283PI    PSO293PI    PSO52EX
PSOAMIS0    PSOARX    PSOATRF    PSOATRF1    PSOATRFC    PSOAUTOC    PSOBGMG3    PSOBINGO
PSOBUILD    PSOCAN1    PSOCAN2    PSOCAN4    PSOCMOP    PSOCMOPC    PSOCP    PSOCPBA2
PSOCPIBC    PSOCPTRI    PSOCSRL    PSOCST10    PSOCSTD    PSODACT    PSODGDG1    PSODGDGI
PSODISPS    PSODRDU1    PSODRDU2    PSODRDUP    PSODRG    PSODRGN    PSOEXBCH    PSOEXDT
PSOHDR    PSOHELP    PSOHELP1    PSOHLDIS    PSOHLDS1    PSOHLEXC    PSOHLNE1    PSOHLNE2
PSOHLNEW    PSOHLSG1    PSOHLSG2    PSOHLSG3    PSOHLSN1    PSOHLSNC    PSOLAB    PSOLLL1
PSOLLL8    PSOLLLI    PSOMGCM1    PSOMGCOM    PSONDCUT    PSONEW2    PSONEWG    PSONFI
PSONGR    PSONRXN    PSOORAPI    PSOORCPY    PSOORDER    PSOORDRG    PSOORFI1    PSOORFI6
PSOORFIN    PSOORNE2    PSOORNE3    PSOORNE4    PSOORNE5    PSOORNEW    PSOORNW1    PSOORNW2
PSOORRDI    PSOORRL1    PSOORRL3    PSOORRLN    PSOORRLO    PSOORRNW    PSOP1    PSOP2
PSOPOST    PSOPOST4    PSOPOST5    PSOPRF    PSOPRFSS    PSOPST68    PSOQ0496    PSOQMCAL
PSORDS    PSOREF    PSOREF0    PSOREF1    PSOREF2    PSORELD1    PSORENW    PSORENW0
PSORENW3    PSORENW4    PSORESK    PSORPTS1    PSORXDL    PSORXED    PSORXED1    PSORXLAB
PSORXPA1    PSORXPR    PSORXRP2    PSORXRPT    PSOSD    PSOSD0    PSOSD3    PSOSIG
PSOSIGDS    PSOSIGMX    PSOSUINV    PSOSULB1    PSOSULOG    PSOSUTL    PSOTALK    PSOTEXP1
PSOTPCRX    PSOUTIL    PSOUTLA    PSOUTLA1    PSOVDF1    PSOVDF2    PSOVDF3    PSOVER1
PSOVER2    
Controlled Substances 140 PSDACT1    PSDADJ    PSDADJC    PSDADJD    PSDADJI    PSDADJIN    PSDADJN    PSDADJN1
PSDADJR    PSDAMIS1    PSDAMIS2    PSDBAL    PSDBALI    PSDBAN    PSDBAN1    PSDCORP1
PSDCORP2    PSDCORP3    PSDCOSD    PSDCOSH    PSDCOSM    PSDCOSN    PSDCOSV    PSDCPO
PSDCRP    PSDCSI    PSDCSL    PSDDFP    PSDDSOR2    PSDDWK    PSDEA    PSDEA41
PSDEM1    PSDEM2    PSDEM4    PSDERCP    PSDERD    PSDERP    PSDEST    PSDESTP
PSDEVO    PSDEVOR    PSDEXGS    PSDEXP    PSDFILM    PSDFND    PSDFT    PSDFT1
PSDGSH1    PSDGSL1    PSDGSPU    PSDGSRV    PSDGSRV1    PSDHRPT    PSDIPOST    PSDLBL0
PSDLBL1    PSDLBL5    PSDLBLR0    PSDLBLR2    PSDLSTK1    PSDLSTK2    PSDMAPU    PSDNBT
PSDNCGS    PSDNDES    PSDNMBA    PSDNMPR    PSDNMRP    PSDNMSP    PSDNMWE    PSDNRGO
PSDNRGS    PSDNSCG    PSDNSCL    PSDNSTK    PSDNTF    PSDNTFPC    PSDNTR    PSDNTT
PSDNTTPC    PSDNU1    PSDNU2    PSDOPT    PSDOPT0    PSDOPTI    PSDOPTN    PSDOPTS
PSDOPTY    PSDORD    PSDORD1    PSDORN    PSDORNC    PSDORNV    PSDORP    PSDORSN
PSDORST    PSDORV    PSDPAT1    PSDPDR1    PSDPDU1    PSDPGS1    PSDPLOG1    PSDPMFG
PSDPND    PSDPSI    PSDPSTK    PSDPUGS    PSDPWK1    PSDRDR1    PSDREC1    PSDREC2
PSDREC3    PSDREC4    PSDREPD    PSDREPV    PSDREV    PSDREVC    PSDREVD    PSDRF
PSDRF4    PSDRFM    PSDRFR    PSDRFS    PSDRFV    PSDRFW    PSDRFZ    PSDRLOG1
PSDRPGS1    PSDRPGS2    PSDRPT    PSDRSI    PSDRWK    PSDSTK    PSDTRA1    PSDTRN1
PSDTRV    PSDTRVR1    PSDUP2    PSDUP3    
Pharmacy Data Management 129 PSS127PI    PSS50A1    PSS50AQM    PSS50B1    PSS50B2    PSS50C    PSS50CMP    PSS50D
PSS50DAT    PSS50DOS    PSS50E    PSS50F    PSSCLINR    PSSCLOZ    PSSDEE1    PSSDIN
PSSDOSRP    PSSDSPOP    PSSGIU    PSSHUIDG    PSSLOOK    PSSNDCUT    PSSP130    PSSPKIPR
PSSPOIKA    PSSPOIM    PSSPOST    PSSPRE    PSSQOC    PSSSOLI1    PSSUTLA1    PSSVIDRG
^PS(52.6    ^PS(52.7    PSS147PO    PSS50    PSS50ATC    PSS50C1    PSS50F1    PSS50LAB
PSS50NDF    PSS50TMP    PSS50WS    PSS70UTL    PSSADDIT    PSSAUTL    PSSBPSUT    PSSCHPRE
PSSCHPST    PSSCLDRG    PSSCOMMN    PSSCPRS    PSSCPRS1    PSSCREAT    PSSCSPD    PSSDACS
PSSDDUT    PSSDDUT2    PSSDEE    PSSDELOI    PSSDENT    PSSDGUPD    PSSDOS    PSSDOSCR
PSSDOSCX    PSSDOSED    PSSDOSER    PSSDOSLZ    PSSDTR    PSSFILED    PSSGMI    PSSHLU
PSSLAB    PSSLDALL    PSSLDEDT    PSSLDOSE    PSSMARK    PSSMSTR    PSSNCPDP    PSSNFI
PSSOICT1    PSSOIDOS    PSSOPKI    PSSOPKI1    PSSORPH    PSSORPH1    PSSORPHZ    PSSORUTE
PSSORUTL    PSSORUTZ    PSSOUTSC    PSSP134    PSSPKIPI    PSSPNSRP    PSSPOI    PSSPOIC
PSSPOID1    PSSPOID2    PSSPOIDT    PSSPOIM1    PSSPOIM2    PSSPOIM3    PSSPOIMN    PSSPOIMO
PSSPOST2    PSSPOST5    PSSPOST6    PSSPRUTL    PSSQORD    PSSREF    PSSREMCH    PSSSEE
PSSSPD    PSSSYN    PSSTRENG    PSSUNMSI    PSSUTIL    PSSUTIL1    PSSUTLAZ    PSSUTLPR
PSSUTLPZ    PSSVX61    PSSVX64    PSSWRNA    PSSWRNB    PSSWRNC    PSSWRNE    PSSXREF
^PSDRUG    
Inpatient Medications 91 ACTIVITY LOG    ATC CANISTER    COMPOUND INGREDIENT ID    DRUG TEXT ENTRY    DUE STUDY NAME    FORMULARY ALTERNATIVE    IFCAP ITEM NUMBER    IV DRUG
LOCAL POSSIBLE DOSAGE    MEDICAID BILLING STATUS    NDC BY OUTPATIENT SITE    OUTPATIENT SITE    POSSIBLE DOSAGES    PRESCRIPTION PROFILE    PSGAMSA    PSGCAP0
PSGDCC    PSGDCT1    PSGDS0    PSGEUD    PSGFILD3    PSGFILED    PSGIU    PSGMI
PSGOE1    PSGOE2    PSGOE7    PSGOE92    PSGOEEW    PSGOEF    PSGOEF1    PSGOERS
PSGOES    PSGORVW    PSGPEN    PSGPLF    PSGPLR    PSGPLXR    PSGPRVR    PSGSICHK
PSGTAP0    PSGTAP1    PSGTCTD    PSIVCHK1    PSIVDCR    PSIVDRG    PSIVOPT    PSIVPCR
PSIVST2    PSIVWCR    PSIVWRP    PSIVXREF    PSJ0050    PSJ0077    PSJ0078    PSJADT2
PSJBCMA    PSJBCMA1    PSJDCHK    PSJDIN    PSJEEU0    PSJFTR    PSJHL10    PSJHL3
PSJHL9    PSJHLV    PSJIPST1    PSJIPST2    PSJIPST3    PSJLIFN    PSJLMGUD    PSJLMPRU
PSJLMUDE    PSJLMUT1    PSJLMUTL    PSJOEEW    PSJORAPI    PSJORPOE    PSJORRE1    PSJORREN
PSJORUT2    PSJORUTL    PSJPATMR    PSJPDV    PSJPR0    PSJPRE4P    PSJPXRM1    PSJRXI
PSJSFRQ    PSJUTL    PSJUTL1    
Drug Accountability 83 PSA COMPARISON REPORT    PSAAOP    PSABRKU6    PSABRKU9    PSACON    PSACON2    PSACONW    PSACREDO
PSADAI    PSADJ    PSADJI    PSADJR    PSADRI    PSADRU    PSADRUG    PSADRUGP
PSAENTO    PSAGIP1    PSAHELP    PSAHIS    PSAHIS1    PSALEVRP    PSALFA    PSALFM
PSALFS    PSALNA    PSALND    PSALNM    PSALOCO    PSALOG1    PSAMON    PSANAC
PSANDF    PSAOP    PSAOP2    PSAORDP1    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    
Diabetes Registry 82 BDM20P10    BDM20P11    BDM20P12    BDM20P2    BDM20P3    BDM20P4    BDM20P5    BDM20P6
BDM20P7    BDM20P8    BDM20P9    BDMD016    BDMD0PS    BDMD116    BDMD1PS    BDMD206
BDMD216    BDMD316    BDMD411    BDMD416    BDMD418    BDMD4DU    BDMD4PS    BDMD516
BDMD616    BDMD716    BDMD816    BDMD8PS    BDMD916    BDMD996    BDMD9PS    BDMDA11
BDMDA16    BDMDADU    BDMDAPS    BDMDB11    BDMDB16    BDMDBDU    BDMDBPS    BDMDC11
BDMDC16    BDMDCDU    BDMDCPS    BDMDD11    BDMDD16    BDMDDDU    BDMDDPS    BDMDE16
BDMDE18    BDMDE1B    BDMDE1D    BDMDEDU    BDMDEPS    BDMDF16    BDMDF18    BDMDF1B
BDMDF1D    BDMDFDU    BDMDFPS    BDMDG16    BDMDG18    BDMDG1B    BDMDG1D    BDMDGDU
BDMDGPS    BDMEDMU2    BDMFTAX3    BDMP016    BDMP116    BDMP416    BDMP516    BDMP616
BDMP716    BDMP816    BDMP916    BDMPA16    BDMPB16    BDMPC16    BDMS9B5    BDMSMU1
BDMTAPI    BDMVRL1    
IHS Changes To Pharmacy 79 APSAWP11    APSGIOU    APSPAUTO    APSPCTR    APSPDR4    APSPDRX    APSPDSC1    APSPDUR1
APSPEC20    APSPEC21    APSPEC22    APSPEDIS    APSPERRY    APSPES4    APSPESR2    APSPFNC2
APSPFNC6    APSPHLP    APSPLBL    APSPLBL2    APSPLIS    APSPLOC    APSPMED    APSPOST5
APSPPPIO    APSPRRTS    APSPRT    APSPSLBL    APSPT16    APSPTDD    APSQAWP    APSQCK1
APSQCNDC    APSQFAS2    APSQFAS4    APSQLAB    APSQMAN    APSQPMI    ^APSPQA(32.4    APSAPPIM
APSAPPIP    APSAWP2    APSEPPIM    APSEPPIP    APSPCDI    APSPCP1    APSPCP2    APSPCSM
APSPDDUE    APSPDIEN    APSPDR3    APSPDUE    APSPDUR    APSPEC16    APSPEC17    APSPEC18
APSPEC19    APSPELRX    APSPES1    APSPFNC3    APSPMAN    APSPMAN1    APSPMED3    APSPMULT
APSPNDCR    APSPORXE    APSPOST6    APSPPCC1    APSPRCUI    APSPRESK    APSPRXN    APSQDAWP
APSQDGDG    APSQDI1    APSQDISP    APSQDRG    APSQFUTI    APSQNF    APSQSHOW    
IHS Uniform Data System 63 BUD0ENV    BUD0UTL2    BUD0UTXL    BUD1ENV    BUD1RP6U    BUD1UTL2    BUD1UTXL    BUD2ENV
BUD2RP6M    BUD2RP6O    BUD2RP6U    BUD2UTL2    BUD2UTXL    BUD8ENV    BUD8UTXL    BUD9ENV
BUD9UTXL    BUDAENV    BUDARP6M    BUDARP6O    BUDARP6U    BUDAUTL2    BUDAUTXL    BUDBENV
BUDBRP6M    BUDBRP6O    BUDBRP6Q    BUDBRP6U    BUDBUTL2    BUDBUTXL    BUDCENV    BUDCRP6M
BUDCRP6O    BUDCRP6Q    BUDCRP6U    BUDCUTL2    BUDCUTXL    BUDDENV    BUDDRP6M    BUDDRP6O
BUDDRP6Q    BUDDRP6R    BUDDRP6U    BUDDUTL2    BUDDUTXL    BUDEENV    BUDERP6M    BUDERP6O
BUDERP6Q    BUDERP6R    BUDERP6U    BUDERP6W    BUDEUTL2    BUDEUTXL    BUDHENV    BUDHRP6M
BUDHRP6O    BUDHRP6Q    BUDHRP6R    BUDHRP6U    BUDHRP6W    BUDHUTL2    BUDHUTXL    
Auto Replenishment Ward Stock 54 ACTIVITY LOG    ATC CANISTER    COMPOUND INGREDIENT ID    DRUG TEXT ENTRY    DUE STUDY NAME    FORMULARY ALTERNATIVE    IFCAP ITEM NUMBER    LOCAL POSSIBLE DOSAGE
MEDICAID BILLING STATUS    NDC BY OUTPATIENT SITE    OUTPATIENT SITE    POSSIBLE DOSAGES    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    
National Drug File 54 ACTIVITY LOG    ATC CANISTER    COMPOUND INGREDIENT ID    DRUG TEXT ENTRY    DUE STUDY NAME    FORMULARY ALTERNATIVE    IFCAP ITEM NUMBER    LOCAL POSSIBLE DOSAGE
MEDICAID BILLING STATUS    NDC BY OUTPATIENT SITE    OUTPATIENT SITE    POSSIBLE DOSAGES    PSN4P69P    PSN4POST    PSN5ND    PSNAPIS
PSNCOMP    PSNDATA    PSNDEA    PSNDRUG    PSNEXC    PSNGPN    PSNHELP    PSNHELP1
PSNHFRM    PSNHFRM1    PSNHIT    PSNJP54    PSNLDG    PSNLOOK    PSNMCLS    PSNMRG
PSNNDC    PSNNDC1    PSNOCLS    PSNODDI1    PSNONDF    PSNOP54    PSNOUT    PSNPCH27
PSNPFN    PSNPPIO    PSNPPIP    PSNPSS    PSNPST    PSNQA    PSNRPT2    PSNRPT3
PSNSTCK    PSNSTCL    PSNSUPLY    PSNVER    PSNVFY    PSNVIEW    
Patient Care Component 30 APCDAMED    APCDDMU2    APCDEGP3    APCHAAP2    APCHPMH3    APCHPST2    APCHPWH3    APCHPWH7
APCHPWHM    APCHPWHX    APCHS7    APCHS71    APCHS72    APCHS73    APCHS74    APCHS77
APCHS78    APCHS7C    APCHS7N    APCHS7O    APCHS7R    APCHS9B5    APCHS9M1    APCHS9M2
APCHS9M3    APCHS9M4    APCHS9M5    APCHSAS1    APCHSMU1    BJPC2ENV    
CMOP 22 PSXBLD    PSXBLD1    PSXCMOP    PSXCMOP0    PSXCMOP1    PSXCOSTU    PSXCSHI    PSXCSMON
PSXCSUTL    PSXDENT    PSXEDIT    PSXEDRG    PSXEDUTL    PSXLBL1    PSXMISC1    PSXNOCMP
PSXOCMOP    PSXREF    PSXRTN1    PSXUTL    PSXVND    PSXVPN    
Health Summary Components 20 BHSAAP2    BHSAPRO    BHSAST1    BHSDM5    BHSMBN    BHSMED    BHSMEDAL    BHSMEDCS
BHSMEDG    BHSMEDH    BHSMEDI    BHSMEDR    BHSMEDSF    BHSMSUP    BHSMSUP1    BHSPMH1
BHSPMH1A    BHSPMH3    BHSPOS    BHSPSO7A    
Third Party Billing 20 ABMDE8D    ABMDE8DA    ABMDE8X2    ABMDEMLB    ABMDES24    ABMDES4    ABMDESMR    ABMDF24
ABMDFAWP    ABMDRDR    ABMDRPX    ABMDTDR    ABMDTFED    ABMDTMS    ABMDVST5    ABMDVST9
ABMEHGR2    ABMERGR2    ABMFECNV    ABMPSAPI    
Patient Care Component Reports 19 APCL3024    APCLD206    APCLD216    APCLD316    APCLD516    APCLD616    APCLD716    APCLD816
APCLD8PS    APCLD996    APCLP516    APCLP616    APCLP716    APCLP816    APCLPP21    APCLSIL4
APCLSILA    APCLTAX1    APCLTAX3    
Pharmacy Point of Sale 19 ABSPES01    ABSPES02    ABSPOS57    ABSPOS6B    ABSPOS9    ABSPOSBF    ABSPOSBM    ABSPOSCD
ABSPOSEX    ABSPOSFD    ABSPOSFP    ABSPOSI1    ABSPOSIF    ABSPOSIV    ABSPOSN3    ABSPOSPE
ABSPOSQ    ABSPOSQP    ABSPOSQQ    
Medicine 17 MCAROC1    MCAROEP    MCAROG    MCAROGA    MCAROGE    MCAROGM    MCAROH2    MCAROK
MCAROP    MCAROPE    MCAROT    MCARPROC    MCARSUP    MCOBRHA    MCPARC    MCPOS04A
MCPSOP    
Patient Care Component Table Maintiance 11 APCM11E2    APCM11E4    APCM13E2    APCM13E4    APCM14E2    APCM14E3    APCM24E7    APCM24EB
APCM25E7    APCM25EB    APCM2AEB    
Integrated Billing 10 IBCD4    IBCF331    IBCF4    IBCSC5    IBCSC5A    IBCSC5C    IBTOBI    IBTRED
IBTRKR3    IBTRKR31    
Barcode Medication Administration 5 PSBIHS2    PSBIHS3    PSBIHS4    PSBIHS6    PSBRPCMO    
IHS Mods To Text Integration Utilities 5 BTIULO1    BTIULO10    BTIULO15    BTIUMED3    BTIUPCC2    
Local Area Programs 5 AZAXCADU    AZEXP    AZFMCM    AZQ2RXP    AZQ2RXP1    
Patient Chart 5 BPCLALL    BPCPC    BPCRXSIG    BPCSC    BPCSC1    
iCare 5 BQI2POST    BQITAXX5    BQITRUTL    BQITUIX    BQIUTB3    
IHS Omnicell Pyxis Interface 4 BOPCP    BOPEXCP    BOPSD    BOPUVER    
Order Entry Results Reporting 4 OCXOZ0F    OCXOZ14    ORKPS    ORQQAL    
IHS HIV Management System 3 BKMIXX4    BKMIXX5    BKMQQCR4    
IHS Pharmacy Auto Refill System 3 BEX80    BEXRPAT    BEXRUTL    
Lab Service 3 LRBLPE1    LRBLPH    LREPIPH    
Phoenix Devel Center 3 AZX2RXP    AZX2RXP1    AZXEL11    
Asthma Tracking System 2 BATSUM    BATVSUM    
IHS Electronic Health Record 2 BEHORXFN    BEHORXRT    
Mental Health Social Services 2 AMHLEMD    AMHSC1    
Pharmacy Barcode Scan 2 BPBSUPD    BPBSUPD1    
Third Party Tracking 2 ABPVRX02    ABPVRX03    
Clinical Scheduling for Windows 1 BSDX41G    
Comprehensive Diabetes Management 1 BCDMFLDS    
Data Warehouse Export System 1 BDWUTIL1    
GUI Objects 1 BGORX    
IHS Mods To Patient Care Encounter 1 BPXRMAL1    
IHS Support HL7 Interfaces 1 BHLP03I    
PCC Medical Query 1 AMQQTX    
PCC New Encounter Form 1 VENPCC1H    
Patient Care Component Data Transmission 1 APCPDR2    
Patient Care Component Surveillance 1 APCSSILI    
Portland Private Insurance package 1 AZP3EDT    
Quality Assurance 1 AQAOEDTP    
Taxonomy 1 ATXAPI    

Accessed By FileMan Db Calls, Total: 241

Package Total Routines
Pharmacy Data Management 47 PSS127PI    PSS50A    PSS50A1    PSS50ATC    PSS50B    PSS50B1    PSS50B2    PSS50C
PSS50C1    PSS50CMP    PSS50D    PSS50DAT    PSS50E    PSS50F    PSS50F1    PSS50LAB
PSS50NDF    PSS50P7    PSS50WS    PSS52P6B    PSS70UTL    PSSBPSUT    PSSCLOZ    PSSCREAT
PSSCSPD    PSSDEE    PSSDEE1    PSSDELOI    PSSDOS    PSSDOSED    PSSDOSER    PSSFILED
PSSGIU    PSSLAB    PSSLOOK    PSSMARK    PSSNDCUT    PSSP130    PSSPOI    PSSPOIM2
PSSPOIMN    PSSPOST    PSSSEE    PSSWRNA    PSSWRNE    PSSXREF    PSSXRF1    
IHS Changes To Pharmacy 45 APSAWP2    APSGIOU    APSPAUTO    APSPCSM    APSPDIEN    APSPDIR    APSPDUE    APSPDUED
APSPEC13    APSPEC14    APSPEC16    APSPEC17    APSPEC18    APSPEC19    APSPEC20    APSPEC21
APSPEC22    APSPELRX    APSPERRY    APSPES1    APSPES2    APSPES4    APSPESR1    APSPESR2
APSPFNC1    APSPFNC6    APSPFUNC    APSPMAN    APSPMAN1    APSPMULT    APSPNDCR    APSPORXA
APSPOST5    APSPOST6    APSPOST7    APSPRCUI    APSPRIS    APSPRRTS    APSPRXN    APSPTDD
APSPTDD1    APSQAWP    APSQDRG    APSQFAS4    APSQMAN    
Outpatient Pharmacy 35 PSO283P1    PSO293P1    PSOBKDE1    PSOBKDED    PSOBPSUT    PSOCAN2    PSOCMOPR    PSOCOST
PSOCSTX    PSODIR1    PSODISP1    PSODRG    PSODRGN    PSOEXDT    PSOHLDS1    PSOHLNE3
PSON52    PSONDCUT    PSONVAR1    PSONVAVW    PSOORDRG    PSOORED6    PSOORNW1    PSOORNW2
PSOPMP0    PSOREJP0    PSORELD1    PSORESK1    PSORN52    PSORPTS    PSORXRP2    PSORXRPT
PSOSUINV    PSOSULB1    PSOTPRP1    
Drug Accountability 19 PSAAOP    PSABRKU9    PSACON    PSAGIP1    PSANDF    PSAPROC7    PSAPROC8    PSAREC
PSAREC1    PSATI    PSAUP8    PSAUTL6    PSAVER2    PSAVER6    PSAVER7    PSAVERA
PSAVERA2    PSAVERA3    PSAVINC    
IHS Uniform Data System 11 BUD0UTXL    BUD1UTXL    BUD2UTXL    BUD8UTXL    BUD9UTXL    BUDAUTXL    BUDBUTXL    BUDCUTXL
BUDDUTXL    BUDEUTXL    BUDHUTXL    
Barcode Medication Administration 10 PSBIHS2    PSBMLLKU    PSBMLTS    PSBOBL    PSBOBZ    PSBOMT    PSBRPC2    PSBRPCMO
PSBUTL    PSBZVSD    
IHS GPRA Information System 10 BGP4D81    BGP4POS1    BGP5D81    BGP5POS1    BGP6D81    BGP6POS1    BGP7D81    BGP7POS1
BGP8D81    BGP8POS1    
National Drug File 10 PSNDEX    PSNDRUG    PSNFRMLY    PSNLDG    PSNODDI    PSNPSS    PSNRPT    PSNSTCL
PSNVER    PSNVIEW    
Health Summary Components 8 BHSMBN    BHSMED    BHSMEDAL    BHSMEDCS    BHSMEDG    BHSMEDH    BHSMEDI    BHSMEDSF
Third Party Billing 6 ABMDE8D    ABMDEOK1    ABMDTDR    ABMDTINQ    ABMRSTI1    ABMRSTI3    
Auto Replenishment Ward Stock 5 PSGWBGIN    PSGWCL    PSGWSC    PSGWTOT    PSGWVW    
Controlled Substances 5 PSDIPOST    PSDREC1    PSDREC2    PSDREC3    PSDREC4    
IHS Electronic Health Record 5 BEHOARCV    BEHORXCV    BEHORXF1    BEHORXFN    BEHORXRT    
Inpatient Medications 5 PSGDCC    PSGFILD3    PSGFILED    PSGOE7    PSGSICHK    
CMOP 4 PSXCMOP1    PSXCSUTL    PSXEDRG    PSXRPPL2    
Order Entry Results Reporting 4 ORCSEND1    ORQ21    ORQQAL    ORWDPS2    
IHS Pharmacy Auto Refill System 2 BEXREXC    BEXRQUE    
Pharmacy Barcode Scan 2 BPBSUPD    BPBSUPD1    
IHS HIV Management System 1 BKMIXX1    
IHS Mods To Patient Care Encounter 1 BPXRMDRG    
IHS Omnicell Pyxis Interface 1 BOPROC    
IHS Support HL7 Interfaces 1 BHLBPS1    
Integrated Billing 1 IBCSC5A    
Mental Health Social Services 1 AMHLEOD    
Radiology Nuclear Medicine 1 RAPSAPI    
iCare 1 BQIRMD    

Pointed To By FileMan Files, Total: 67

Package Total FileMan Files
IHS Changes To Pharmacy 7 APSP DUE REVIEW(#9009032)[.03]    APSP PREPACK LABELS(#9009031.1)[.01]    APSP INTERVENTION(#9009032.4)[.05]    APSP REFILL REQUESTS(#9009033.91)[1.8]    DRUG PICK(#9009035.3)[2]    NON FORMULARY REQUESTS(#9009035.1)[3]    APSS DRUG(#9009033.2)[.01]    
Outpatient Pharmacy 6 DUE QUESTIONNAIRE(#50.073)[#50.07301(.01)]    DUE ANSWER SHEET(#50.0731)[2]    PENDING OUTPATIENT ORDERS(#52.41)[11]    OUTPATIENT SITE(#59)[.52]    DRUG COST(#50.9)[#50.9002(.01)#50.9003(.01)#50.9007(.01)]
PRESCRIPTION(#52)[6]    
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)]    
Pharmacy Data Management 5 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)#50.0999999936(.01)]    
Barcode Medication Administration 4 BCMA MISSING DOSE REQUEST(#53.68)[.13]    BCMA UNABLE TO SCAN LOG(#53.77)[#53.771(.01)]    BCMA MEDICATION VARIANCE LOG(#53.78)[.07]    BCMA MEDICATION LOG(#53.79)[#53.795(.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)]    
Radiology Nuclear Medicine 4 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]    
Auto Replenishment Ward Stock 3 PHARMACY AOU STOCK(#58.1)[#58.11(.01)]    PHARMACY BACKORDER(#58.3)[.01]    AR/WS STATS FILE(#58.5)[#58.52(.01)]    
Controlled Substances 3 CS WORKSHEET(#58.85)[3]    CS DESTRUCTION(#58.86)[119]    CS CORRECTION LOG(#58.87)[4]    
Drug Accountability 3 DRUG ACCOUNTABILITY STATS(#58.8)[#58.8001(.01)]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[4]    DRUG ACCOUNTABILITY ORDER(#58.811)[#58.81125(1)]    
Medicine 3 MEDICATION(#695)[.01]    ENDOSCOPY/CONSULT(#699)[#699.74(.01)]    GENERALIZED PROCEDURE/CONSULT(#699.5)[#699.53(.01)]    
Third Party Billing 3 3P BILL(#9002274.4)[#9002274.4023(.01)]    3P CLAIM DATA(#9002274.3)[#9002274.3023(.01)]    3P FEE TABLE(#9002274.01)[#9002274.0125(.01)]    
IHS Omnicell Pyxis Interface 2 BOP RECEIVE DRUG(#90355.2)[.01]    BOP RECEIVE EXCEPTION(#90355.4)[.11]    
IHS Patient 2 IHS HL7 SUPPLY INTERFACE(#9000021)[1.03]    V MEDICATION(#9000010.14)[.01]    
Patient Care Component 2 PCC DATA ENTRY DM UPDATE(#9001002.2)[#9001002.214(.01)]    HEALTH SUMMARY FLOWSHEET(#9001020)[#9001020.15(.01)]    
Adverse Reaction Tracking 1 PATIENT ALLERGIES(#120.8)[1]    
Diabetes Registry 1 DMS DATA ENTRY DM UPDATE(#9003203.2)[#9003203.214(.01)]    
GUI Objects 1 BGO WEB LINKS(#90362.21)[#90362.2111(.01)]    
IHS Pharmacy Auto Refill System 1 BEX REFILL TRANSACTION(#90350.1)[11]    
Integrated Billing 1 IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.04]    
Order Entry Results Reporting 1 ORDER STATISTICS(#100.1)[.01]    
PCE Patient Care Encounter 1 REMINDER ORDER CHECK ITEMS GROUP(#801)[#801.015(.01)]    
Pharmacy Point of Sale 1 ABSP DATA INPUT(#9002313.51)[#9002313.512(1.03)]    
Quality Assurance 1 QI OCC DRUG(#9002166.6)[.01]    
Surgery 1 SURGERY(#130)[#130.33(.01)#130.47(.01)#130.48(.01)]
Uncategorized 1 DIABETES REGISTER CRSU(#1964000)[#1964000.013(.01)#1964000.21(.01)]    

Pointer To FileMan Files, Total: 25

Package Total FileMan Files
National Drug File 8 VA DRUG CLASS(#50.605)[25]    DRUG UNITS(#50.607)[902#50.0999999936(2)]    PACKAGE TYPE(#50.608)[24]    PACKAGE SIZE(#50.609)[23]    MEDICATION ROUTES(#51.2)[62.02]    DRUG MANUFACTURER(#55.95)[9999999.24]    VA GENERIC(#50.6)[20]    VA PRODUCT(#50.68)[22]    
Pharmacy Data Management 6 DRUG ELECTROLYTES(#50.4)[#50.04(.01)]    PHARMACY ORDERABLE ITEM(#50.7)[2.1]    MEDICATION INSTRUCTION(#51)[200.8]    DOSE UNITS(#51.24)[#50.0904(4)]    DRUG TEXT(#51.7)[#50.037(.01)]    DRUG(#50)[62.05905#50.065(.01)#50.0999999936(.01)]    
IHS Changes To Pharmacy 2 APSP DUE STUDY(#9009032.1)[#50.999999911(.01)]    APSP NCPDP CONTROL CODES(#9009033.7)[9999999.145]    
Inpatient Medications 2 PRIMARY DRUG(#50.3)[64]    WARD GROUP(#57.5)[#50.0212(.01)]    
Kernel 2 STATE(#5)[#50.999999921(.01)]    NEW PERSON(#200)[#50.0214(2)]    
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)[9999999.03#50.032(.01)#50.999999941(.01)]
IFCAP 1 ITEM MASTER(#441)[#50.0441(.01)]    

Fields, Total: 116

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.
.01 GENERIC NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D ^PSSGENM
  • LAST EDITED:  FEB 18, 2012
  • HELP-PROMPT:  Answer must be 1-50 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",$$UP^XLFSTR($E(X,1,50)),DA)=""
    2)= K ^PSDRUG("B",$$UP^XLFSTR($E(X,1,50)),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).
  • CROSS-REFERENCE:  50^BCAP^MUMPS
    1)= S ^PSDRUG("BCAP",$$UP^XLFSTR($E(X,1,50)),DA)=""
    2)= K ^PSDRUG("BCAP",$$UP^XLFSTR($E(X,1,50)),DA)
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:  MAY 13, 2008
  • 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:$P(^PSDRUG(DA,"ND"),"^",2)="" ^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. The kill logic is only executed if the entry is not matched to NDF. 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 (#112)
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 (#112)
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).
  • CROSS-REFERENCE:  ^^TRIGGER^50^9999999.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,8)=DIV,DIH=50,DIG=9999999.08 D ^DICR
    2)= Q
    CREATE VALUE)= ""
    DELETE VALUE)= NO EFFECT
    FIELD)= EXT
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 =
    9.4 = S Y=$O(^PS(51,"B",Z1,0)) Q:'Y  S Z1=$P(^PS(51,Y,0),U,2) Q:'$D(^(9))  S Y=$P(X," ",Z0-1),Y=$E(Y,$L(Y)) S:Y>1 Z1=^(9)
  • 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:  APR 07, 2006
  • 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) 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)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))
    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) S DIU=X K Y S X=DIV S X="" X ^DD(50,13,1,1,2.4)
    2.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#13/#15,1,4)
    DELETE VALUE)= @
    FIELD)= #16
  • CROSS-REFERENCE:  ^^TRIGGER^50^9999999.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,13,1,2,1.1) X ^DD(50,13,1,2,1.4)
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    1.4)= S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,2)=DIV,DIH=50,DIG=9999999.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,9999999)):^(9999999),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,13,1,2,2.1) X ^DD(50,13,1,2,2.4)
    2.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=%
    2.4)= S DIH=$G(^PSDRUG(DIV(0),9999999)),DIV=X S $P(^(9999999),U,2)=DIV,DIH=50,DIG=9999999.02 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= #9999999.02
    This trigger will set the Last Price Update field to the current date/time when the PRICE PER ORDER UNIT field value is changed.
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
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the dispense unit for this drug.
  • GROUP:  PS
15 DISPENSE UNITS PER ORDER UNIT 660;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<.0001)!(X?.E1"."5N.N) X
  • LAST EDITED:  JUN 24, 2005
  • HELP-PROMPT:  Type a Number between .0001 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) 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)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))
    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) S DIU=X K Y S X=DIV S X="" X ^DD(50,15,1,1,2.4)
    2.4)= S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#13/#15,1,4)
    DELETE VALUE)= @
    FIELD)= #16
  • CROSS-REFERENCE:  ^^TRIGGER^50^9999999.32
    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,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,15,1,2,1.1) X ^DD(50,15,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,1),X=$S(DIV:X/DIV,1:"*******"),Y(2)=X S X=1,Y(3)=X S X=3,X=$J(Y(2),Y(3),X)
    1.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(50,15,1,2,2.4)
    2.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#9999999.31/#15,1,3)
    DELETE VALUE)= @
    FIELD)= AWP PER DISP UNIT
    This cross reference updates the AWP PER DISP UNIT field.
16 PRICE PER DISPENSE UNIT 660;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1".".6N)!(X>9999999)!(X<0) X
  • LAST EDITED:  JAN 14, 2004
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    This is the price per dispense unit for this drug.
    WRITE AUTHORITY:  @
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    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:  SEP 19, 1998
  • 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.
23 PACKAGE SIZE ND;4 POINTER TO PACKAGE SIZE FILE (#50.609) PACKAGE SIZE(#50.609)

  • OUTPUT TRANSFORM:  S PSNSFG=1 D PACKAGE^PSNOUT K PSNSFG
  • 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)

  • OUTPUT TRANSFORM:  D PACKAGE^PSNOUT
  • 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:  ^
30 ELECTROLYTES 6;0 POINTER Multiple #50.04 50.04

  • DESCRIPTION:  This subfile is part of the 'hyperalimentation' iv type. You need to specify the electrolyte constituents of an iv additive. The TPN label program will come to this sub-file to obtain the electrolytes and their amounts.
    The amounts available form within the various additives that occurr in a TPN order will be added together and printed on the TPN lasbelbel.  EXAMPLE:  !)  10ml's of KCL (2mEq/1.0ml) will add 20 mEq of POTASSSIUM and 20 mEq
    of SODIUM to the TPN label.
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
  • LAST EDITED:  MAY 04, 2005
  • HELP-PROMPT:  Answer with dashes in correct NDC format ( e.g., 4-4-2, 5-3-2, 5-4-1, or 5-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)
  • CROSS-REFERENCE:  50^AG^MUMPS
    1)= Q:$D(DIU(0))  S APSQDEL=0 D SINGLE^APSQAWP
    2)= Q:$D(DIU(0))  S APSQDEL=1 D SINGLE^APSQAWP
    3)= USED TO DELETE THE AWP PRICING INFO IF NDC DELETED
  • CROSS-REFERENCE:  50^ZNDC^MUMPS
    1)= D XREF^APSPMDD S ^PSDRUG("ZNDC",X,DA)=""
    2)= D XREF^APSPMDD K ^PSDRUG("ZNDC",X,DA)
    3)= DO NOT DELETE
  • CROSS-REFERENCE:  50^D
    1)= S ^PSDRUG("D",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("D",$E(X,1,30),DA)
    3)= USED FOR LOOKUPS
  • CROSS-REFERENCE:  50^LKU^MUMPS
    1)= D SETLKU^APSQUTL
    2)= D KILLKU^APSQUTL
    3)= USED TO LOOKUP 10 DIGIT NDC NUMBERS
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
    TRIGGERED by the QTY PER CONTAINER field of the APSP PREPACK LOG File
    TRIGGERED by the NUMBER OF PREPACKS field of the APSP PREPACK LOG File
    TRIGGERED by the SUBTRACT FROM INVENTORY field of the APSP PREPACK LOG File
    TRIGGERED by the SUBTRACT FROM INVENTORY field of the APSP PREPACK LOG File
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," ")>2)!($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:  JUN 26, 1997
  • 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
81 DAW CODE EPH;1 NUMBER

  • INPUT TRANSFORM:  D INPUT^PSSDAWUT
  • LAST EDITED:  MAR 06, 2013
  • HELP-PROMPT:  Dispensed As Written code. This value will display as the default value for the SUBSTITUTION field during prescription processing.
  • DESCRIPTION:  
    Dispensed As Written code. This value will display as the default value for the SUBSTITUTION field during prescription processing.
  • 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.999)!(X<.001)!(X?.E1"."4N.N) X D NCPDPQM^PSSDDUT2
  • LAST EDITED:  MAY 18, 2007
  • HELP-PROMPT:  Type a Number between 0.001 and 99999.999, 3 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
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
200 IV DRUG IV;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 22, 1985
  • CROSS-REFERENCE:  50^AV1^MUMPS
    1)= I X,$D(^PSDRUG(DA,4)),$P(^(4),U,1)]"" S ^PSDRUG("IV1",$P(^PSDRUG(DA,4),U,1),DA)=""
    2)= I $D(^PSDRUG(DA,4)),$P(^(4),U,1)]"" K ^PSDRUG("IV1",$P(^PSDRUG(DA,4),U,1),DA)
200.1 IV DRUG UNITS IV;2 SET
************************REQUIRED FIELD************************
  • '1' FOR ML;
  • '2' FOR LITER;
  • '3' FOR MCG;
  • '4' FOR MG;
  • '5' FOR GM;
  • '6' FOR UNITS;
  • '7' FOR IU;
  • '8' FOR MEQ;
  • '9' FOR MMOL;

  • LAST EDITED:  APR 29, 1985
  • DESCRIPTION:  The strength of a drug is defined as a number of units (ie 3 GMS - GMS being the unit). Select the unit that you wish to use when this drug is dispensed. NOTE!! ALTHOUGH THIS FIELD ISN'T USED IN VERSION 1.01 OF THE IV
    PACKAGE, YOU SHOULD ENTER DATA IN IT NOW.  IT WILL BE USED IN A FUTURE RELEASE OF THE PACKAGE AND ENTERING DATA NOW WILL KEEP YOU FROM HAVING TO DO IT IN THE FUTURE.
200.3 NUMBER OF DAYS FOR IV ORDER 5;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>31)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 31
200.8 USUAL IV SCHEDULE 5;8 POINTER TO MEDICATION INSTRUCTION FILE (#51) MEDICATION INSTRUCTION(#51)

  • LAST EDITED:  MAR 25, 1985
  • CROSS-REFERENCE:  ^^TRIGGER^50^200.9
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,5)):^(5),1:"") S X=$P(Y(1),U,9) S DIU=X K Y X ^DD(50,200.8,1,1,1.1) X ^DD(50,200.8,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(51,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(51,D0,1)):^(1),1:"") S X=$P(Y(101),U,1) S D0=Y(1)
    1.4)= S DIH=$S($D(^PSDRUG(DIV(0),5)):^(5),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(5)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=200.9 D ^DICR:$N(^DD(DIH,DIG,1,
    0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,5)):^(5),1:"") S X=$P(Y(1),U,9) S DIU=X K Y S X=DIV S X="" X ^DD(50,200.8,1,1,2.4)
    2.4)= S DIH=$S($D(^PSDRUG(DIV(0),5)):^(5),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(5)=$P(DIH,U,1,8)_U_DIV_$S(%]"":U_%,1:""),DIH=50,DIG=200.9 D ^DICR:$N(^DD(DIH,DIG,1,
    0))>0
    CREATE VALUE)= USUAL IV SIG:DEFAULT ADMIN TIMES
    DELETE VALUE)= @
    FIELD)= ADMIN TIMES
200.9 ADMIN TIMES 5;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>62!($L(X)<1) X I $D(X)'[0 D EN^PSIVSP
  • LAST EDITED:  MAR 25, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-62 CHARACTERS IN LENGTH
  • NOTES:  TRIGGERED by the USUAL IV SCHEDULE field of the DRUG File
201 PRIMARY SOLUTION PS;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 22, 1985
  • CROSS-REFERENCE:  50^AD^MUMPS
    1)= Q
    2)= K ^PSDRUG(DA,"PS")
  • CROSS-REFERENCE:  50^AV2^MUMPS
    1)= I X,$D(^PSDRUG(DA,7)),$P(^(7),U,1)]"" S ^PSDRUG("IV2",$P(^PSDRUG(DA,7),U,1),DA)=""
    2)= I $D(^PSDRUG(DA,7)),$P(^(7),U,1)]"" K ^PSDRUG("IV2",$P(^PSDRUG(DA,7),U,1),DA)
201.1 SOLUTION PRINT NAME {LINE 1} 7;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<1) X
  • LAST EDITED:  APR 20, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-24 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the name that will appear on the iv label, iv profiles, etc.  It is also the name that is used during the lookup of a PRIMARY SOLUTION during order entry.
  • CROSS-REFERENCE:  50^IV2^MUMPS
    1)= S ^PSDRUG("IV2",X,DA)=""
    2)= K ^PSDRUG("IV2",X,DA)
201.2 SOLUTION PRINT NAME {LINE 2} 7;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>24!($L(X)<1) X
  • LAST EDITED:  MAR 25, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-24 CHARACTERS IN LENGTH
201.3 VOLUME 7;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 25, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 3000
  • DESCRIPTION:  
    This is a numeric field.  The IV package code will attach 'ml' when appropriate.  ** You won't be able to enter 'ml' here. **
  • CROSS-REFERENCE:  50^AF^MUMPS
    1)= Q
    2)= W !!,*7,"WARNING: If IV orders already exist for this solution, then",!,"they will be using this new value to determine # of doses",!,"to make for the next Manufacturing time."
204 PRINT NAME FOR IV 4;1 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<1) X
  • LAST EDITED:  APR 20, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-25 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is name that is used whenever an iv additive is identified.  It is the name that appears on iv labels, profiles, etc.  It is the name that is used during lookup of iv additives for order entry.
  • CROSS-REFERENCE:  50^IV1^MUMPS
    1)= S ^PSDRUG("IV1",X,DA)=""
    2)= K ^PSDRUG("IV1",X,DA)
205 SPECIAL HANDLING 5;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1)!(X'?.UN) X D EDIT^PSIVSH
  • LAST EDITED:  MAR 25, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter a code or codes that will control the processing of this order.
  • EXECUTABLE HELP:  D ^PSIVSH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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
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.
9999999.01 IHS STOCK NUMBER 9999999;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 30, 1989
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
9999999.02 LAST PRICE UPDATE 9999999;2 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 30, 1989
  • NOTES:  TRIGGERED by the PRICE PER ORDER UNIT field of the DRUG File
9999999.03 DIVISION 9999999;3 POINTER TO OUTPATIENT SITE FILE (#59) OUTPATIENT SITE(#59)

  • LAST EDITED:  MAR 22, 1993
  • CROSS-REFERENCE:  50^ZDIV
    1)= S ^PSDRUG("ZDIV",$E(X,1,30),DA)=""
    2)= K ^PSDRUG("ZDIV",$E(X,1,30),DA)
    3)= No deletion allowed
9999999.04 LOCAL DRUG NUMBER 9999999;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 30, 1993
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
9999999.05 DISPENSING LOCATION 9999999;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 20, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
9999999.06 STORAGE LOCATION 9999999;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 20, 1993
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
9999999.07 RESTRICT BY PAT ELIGIBILITY 9999999;7 SET
  • '0' FOR ELIGIBLE PATIENTS ONLY;
  • '1' FOR INELIGIBLE PATIENTS ONLY;

  • LAST EDITED:  OCT 18, 2010
  • HELP-PROMPT:  This field is used to screen patients by eligiblity status
  • DESCRIPTION:  
    This field is used to screen patients by Eligibility Status.  Do not enter information in this field if this Drug can be used for all patients regardless of Eligibility Status.
9999999.08 EXTEND PRESCRIPTION EXPIRATION 9999999;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<366)!(X?.E1"."1.N) X D:$D(X) EXTEXP^APSPHLP
  • LAST EDITED:  APR 21, 2011
  • HELP-PROMPT:  Type a number between 366 and 9999.
  • DESCRIPTION:  This is the number of days for extended prescription expiration date for this drug. For example, expiration date of 3 years would be 1095. If blank, the standard prescription expiration date formula will be honored.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the DEA, SPECIAL HDLG field of the DRUG File
9999999.11 DUE STUDY NAME 999999911;0 POINTER Multiple #50.999999911 50.999999911

  • DESCRIPTION:  This field is a pointer to the APSP DUE STUDY file and is used to enter the names of DUE studies associated with this drug. Whenever this drug is selected to fill a prescription during the filling process, a DUE entry
    will be created and you will be asked to answer the DUE Study Criteria questions.  You may enter more than one DUE Study for this drug.
9999999.145 DISPENSE UNIT NCPDP CODE 9999999.145;1 POINTER TO APSP NCPDP CONTROL CODES FILE (#9009033.7) APSP NCPDP CONTROL CODES(#9009033.7)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""Q"",'$P(^(0),U,5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 24, 2013
  • HELP-PROMPT:  NCPDP code corresponding to the DISPENSE UNIT field.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""Q"",'$P(^(0),U,5)"
  • EXPLANATION:  ACTIVE QUANTITY QUALIFIER CODES ONLY
9999999.21 MEDICAID BILLING STATUS 999999921;0 POINTER Multiple #50.999999921 50.999999921
9999999.24 MANUFACTURER 999999924;1 POINTER TO DRUG MANUFACTURER FILE (#55.95) DRUG MANUFACTURER(#55.95)

  • LAST EDITED:  DEC 12, 1994
  • HELP-PROMPT:  SELECT A DRUG MANUFACTURER FOR THIS DRUG
9999999.25 LOT # 999999924;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  DEC 12, 1994
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
9999999.26 MFG EXPIRATION DATE 999999924;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 23, 1995
  • HELP-PROMPT:  ENTER THE MANUFACTURERS EXPIRATION DATE
9999999.27 RXCUI 999999924;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 02, 2013
  • HELP-PROMPT:  RXNorm code, 7-digits, from Apelon query
9999999.31 BENCHMARK PRICE PER ORDER UNIT 999999931;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."6N.N) X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 5 Decimal Digits
  • DESCRIPTION:  
    This is also known as the Average Wholesale Price (AWP) Package Price.  The package price respresents the price of the entire package.
  • TECHNICAL DESCR:  
    The AWP package price or AWP per order unit can be calculated by: Package Price = Unit price * (package size * package qty)
  • CROSS-REFERENCE:  ^^TRIGGER^50^9999999.32
    1)= X ^DD(50,9999999.31,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(50,9999999.31,1,1,1.1) X ^DD(50,9999999.31,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)=X S X=1,Y(3)=X S X=3,X=$J(Y(2),Y(3),X)
    1.3)= 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
    1.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,999999931)):^(999999931),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(50,9999999.31,1,1,2.4)
    2.4)= S DIH=$S($D(^PSDRUG(DIV(0),999999931)):^(999999931),1:""),DIV=X S $P(^(999999931),U,2)=DIV,DIH=50,DIG=9999999.32 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE CONDITION)= #15>0
    CREATE VALUE)= $J(#9999999.31/#15,1,3)
    DELETE VALUE)= @
    FIELD)= AWP PER DISP UNIT
    This cross reference updates the AWP PER DISP UNIT field.
9999999.32 BENCHMARK PRICE PER DISP UNIT 999999931;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    Also known as the AWP Unit Price.  The unit price represents the price of an individual unit as defined by the Package Size Unit of Measure
  • TECHNICAL DESCR:  
    The AWP Unit price is calculated as: AWP unit price = AWP Package Price/Total Package Qty
  • NOTES:  TRIGGERED by the DISPENSE UNITS PER ORDER UNIT field of the DRUG File
    TRIGGERED by the BENCHMARK PRICE PER ORDER UNIT field of the DRUG File
9999999.33 BENCHMARK PRICE EFFECTIVE DATE 999999931;3 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Enter the date the Average Wholesale Price became effective.
  • DESCRIPTION:  
    The date the Average Wholesale Price became effective
9999999.35 COMPOUNDING PRODUCT 999999935;1 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 08, 2012
  • HELP-PROMPT:  Enter 1 to indicate the product is a compouded product.
  • DESCRIPTION:  
    This field indicates the product is a compounded product. If the field equals 1 it is a compounded product.
9999999.352 LONG NAME 999999935;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>105!($L(X)<3) X
  • LAST EDITED:  JUL 17, 2012
  • HELP-PROMPT:  Answer must be 3-105 characters in length.
  • DESCRIPTION:  
    This is the long drug name for this product.
9999999.353 ERX 999999935;3 SET
  • '0' FOR AVAILABLE;
  • '1' FOR NOT AVAILABLE;
  • '2' FOR FOR ERX ONLY;

  • LAST EDITED:  MAR 25, 2016
  • DESCRIPTION:  
    0 = the product is available for e-prescribing 1 = it is not available for e-prescribing 2 = only available for e-prescribing
9999999.41 OUTPATIENT SITE 9999999.41;0 POINTER Multiple #50.999999941 50.999999941
999999936 COMPOUND INGREDIENT ID 999999936;0 POINTER Multiple #50.0999999936 50.0999999936

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, 9999999.02+1, 9999999.26+1, 9999999.33+1, 17.1+1, 100+1, 9999999.02+1, 9999999.26+1, 9999999.33+1
    , 17.1+1, 100+1, 9999999.02+1, 9999999.26+1, 9999999.33+1, 17.1+1, 100+1, 9999999.02+1, 9999999.26+1, 9999999.33+1
    NOW^%DTC 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1)
    EXTEXP^APSPHLP 9999999.08+1, 9999999.08+1, 9999999.08+1, 9999999.08+1
    XREF^APSPMDD 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K)
    SINGLE^APSQAWP 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K)
    KILLKU^APSQUTL 31(XREF 5K), 31(XREF 5K), 31(XREF 5K), 31(XREF 5K)
    SETLKU^APSQUTL 31(XREF 5S), 31(XREF 5S), 31(XREF 5S), 31(XREF 5S)
    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
    ^DIC 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1, 2+1, 2(HELP ), 5(HELP )
    8(HELP ), 62.02+1, 62.05+1, 9999999.145+1, 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1
    , 9999999.145+1, 2+1, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1
    ^DICR 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S)
    13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4)
    13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4)
    13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    Y^DIQ ID25+1, ID25+1, ID25+1, ID25+1
    ^PSIVSH 205(HELP ), 205(HELP ), 205(HELP ), 205(HELP )
    EDIT^PSIVSH 205+1, 205+1, 205+1, 205+1
    EN^PSIVSP 200.9+1, 200.9+1, 200.9+1, 200.9+1
    $$PSJDF^PSNAPIS 2.1+1, 2.1+1, 2.1+1, 2.1+1
    FORM^PSNOUT 22OT+1, 22OT+1, 22OT+1, 22OT+1
    PACKAGE^PSNOUT 23OT+1, 24OT+1, 23OT+1, 24OT+1, 23OT+1, 24OT+1, 23OT+1, 24OT+1
    HLP^PSSDAWUT 81(HELP ), 81(HELP ), 81(HELP ), 81(HELP )
    INPUT^PSSDAWUT 81+1, 81+1, 81+1, 81+1
    SCH^PSSDDUT 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 )
    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
    DEA^PSSDDUT2 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP )
    DEATBL^PSSDDUT2 3(HELP ), 3(HELP ), 3(HELP ), 3(HELP )
    DRUGW^PSSDDUT2 8+1, 8+1, 8+1, 8+1
    EDIT^PSSDDUT2 3+1, 3+1, 3+1, 3+1
    NCPDPQM^PSSDDUT2 83+1, 83+1, 83+1, 83+1
    P^PSSDDUT2 17(HELP ), 17(HELP ), 17(HELP ), 17(HELP )
    SIG^PSSDDUT2 5+1, 5+1, 5+1, 5+1
    KILLS^PSSDOSED 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)
    ^PSSGENM .01+1, .01+1, .01+1, .01+1
    EN^PSSNCPDP 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)
    SET1^PSSPOID1 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)
    VALID^PSSWRNE 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)
    $$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)
    $$UP^XLFSTR .01(XREF 1S), .01(XREF 1K), .01(XREF 6S), .01(XREF 6K), .01(XREF 1S), .01(XREF 1K), .01(XREF 6S), .01(XREF 6K), .01(XREF 1S), .01(XREF 1K)
    .01(XREF 6S), .01(XREF 6K), .01(XREF 1S), .01(XREF 1K), .01(XREF 6S), .01(XREF 6K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S)
    ^DD( 13(XREF 1n1.4), 13(XREF 1n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    13(XREF 1n1.4), 13(XREF 1n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    13(XREF 1n1.4), 13(XREF 1n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    13(XREF 1n1.4), 13(XREF 1n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    ^DD(50 .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K)
    25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 200.8(XREF 1S), 200.8(XREF 1K)
    9999999.31(XREF 1S), 9999999.31(XREF 1K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K)
    15(XREF 2S), 15(XREF 2K), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K)
    200.8(XREF 1S), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K)
    15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 64(XREF 4S), 64(XREF 4K)
    64(XREF 5S), 64(XREF 5K), 200.8(XREF 1S), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1K), .01(XREF 3n1.2), .01(XREF 3n2.2), 13(XREF 1S), 13(XREF 1K)
    13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1
    64(XREF 4S), 64(XREF 4K), 64(XREF 5S), 64(XREF 5K), 200.8(XREF 1S), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1K)
    ^DD(50.605 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)
    ^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)
    ^DIC(51 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1)
    ^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)
    ^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
    ^PS(50.7 - [#50.7] 2.1+1, 2.1+1, 2.1+1, 2.1+1
    ^PS(51 - [#51] 5OF9.4+1, 5OF9.4+1, 5OF9.4+1, 5OF9.4+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)
    ^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)
    ^PS(54 - [#54] 8OF9.2+1, 8OF9.2+1, 8OF9.2+1, 8OF9.2+1
    ^PS(59 - [#59] IDWRITE+1, IDWRITE+1, IDWRITE+1, IDWRITE+1
    ^PS(59.7 - [#59.7] .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4)
    13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4)
    15(XREF 2K), 15(XREF 2n2.4), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K)
    200.8(XREF 1n2.4), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 901+1, 905+1, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4)
    9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4)
    13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S)
    15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S)
    200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 901+1, 905+1, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K)
    15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 200(XREF 1S)
    200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 901+1, 905+1
    9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), .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), 3(XREF 2S), 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K)
    , 901+1, 905+1, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^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)
    ^PSDRUG("AUDAP" .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)
    ^PSDRUG("BCAP" .01(XREF 6S), .01(XREF 6K), .01(XREF 6S), .01(XREF 6K), .01(XREF 6S), .01(XREF 6K), .01(XREF 6S), .01(XREF 6K)
    ^PSDRUG("D" 31(XREF 4S), 31(XREF 4K), 31(XREF 4S), 31(XREF 4K), 31(XREF 4S), 31(XREF 4K), 31(XREF 4S), 31(XREF 4K)
    ^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)
    ^PSDRUG("IV1" 200(XREF 1S), 200(XREF 1K), 204(XREF 1S), 204(XREF 1K), 200(XREF 1S), 200(XREF 1K), 204(XREF 1S), 204(XREF 1K), 200(XREF 1S), 200(XREF 1K)
    204(XREF 1S), 204(XREF 1K), 200(XREF 1S), 200(XREF 1K), 204(XREF 1S), 204(XREF 1K)
    ^PSDRUG("IV2" 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S), 201.1(XREF 1K), 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S), 201.1(XREF 1K), 201(XREF 2S), 201(XREF 2K)
    201.1(XREF 1S), 201.1(XREF 1K), 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S), 201.1(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)
    ^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)
    ^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)
    ^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)
    ^PSDRUG("ZDIV" 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.03(XREF 1S), 9999999.03(XREF 1K)
    ^PSDRUG("ZNDC" 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K), 31(XREF 3S), 31(XREF 3K)

    Naked Globals

    Name Field # of Occurrence
    ^("I" 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
    ^(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)
    ^(1 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1)
    ^(2 ID102+1, IDWRITE+1, ID102+1, IDWRITE+1, ID102+1, IDWRITE+1, ID102+1, IDWRITE+1
    ^(20 .01(XREF 3S), .01(XREF 3S), .01(XREF 3S), .01(XREF 3S)
    ^(4 200(XREF 1S), 200(XREF 1K), 200(XREF 1S), 200(XREF 1K), 200(XREF 1S), 200(XREF 1K), 200(XREF 1S), 200(XREF 1K)
    ^(5 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 200.8(XREF 1S), 200.8(XREF 1n1.4)
    200.8(XREF 1K), 200.8(XREF 1n2.4), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    ^(660 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4)
    , 18+1, 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 18+1, 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K)
    13(XREF 1n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 18+1, 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 18+1
    9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3)
    ^(660.1 ID50+1, 18+1, ID50+1, 18+1, ID50+1, 18+1, ID50+1, 18+1
    ^(7 201(XREF 2S), 201(XREF 2K), 201(XREF 2S), 201(XREF 2K), 201(XREF 2S), 201(XREF 2K), 201(XREF 2S), 201(XREF 2K)
    ^(9 5OF9.4+1, 5OF9.4+1, 5OF9.4+1, 5OF9.4+1
    ^(9999999 IDWRITE+1, 3(XREF 2S), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), IDWRITE+1, 3(XREF 2S), 13(XREF 2S), 13(XREF 2n1.4)
    13(XREF 2K), 13(XREF 2n2.4), IDWRITE+1, 3(XREF 2S), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), IDWRITE+1, 3(XREF 2S)
    13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4)
    ^(999999931 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 15(XREF 2S)
    15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1)
    15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4)
    15(XREF 2K), 15(XREF 2n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.1), 13(XREF 2n2.1), 15(XREF 1n1.4), 15(XREF 1n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 13(XREF 1n1.4), 13(XREF 1n2.4)
    13(XREF 2n1.1), 13(XREF 2n2.1), 15(XREF 1n1.4), 15(XREF 1n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.1), 13(XREF 2n2.1)
    15(XREF 1n1.4), 15(XREF 1n2.4), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.1), 13(XREF 2n2.1), 15(XREF 1n1.4), 15(XREF 1n2.4)
    200.8(XREF 1n1.4), 200.8(XREF 1n2.4)
    >> %DT 17.1+1*, 100+1*, 9999999.02+1*, 9999999.26+1*, 9999999.33+1*, 17.1+1*, 100+1*, 9999999.02+1*, 9999999.26+1*, 9999999.33+1*
    , 17.1+1*, 100+1*, 9999999.02+1*, 9999999.26+1*, 9999999.33+1*, 17.1+1*, 100+1*, 9999999.02+1*, 9999999.26+1*, 9999999.33+1*
    %H 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1), 13(XREF 2n1.1), 13(XREF 2n2.1)
    %I ID25+1*!, 13(XREF 2n1.1), 13(XREF 2n2.1), ID25+1*!, 13(XREF 2n1.1), 13(XREF 2n2.1), ID25+1*!, 13(XREF 2n1.1), 13(XREF 2n2.1), ID25+1*!
    13(XREF 2n1.1), 13(XREF 2n2.1)
    >> APSQDEL 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K), 31(XREF 2S), 31(XREF 2K)
    >> C 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, 3(XREF 2S), 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K)
    , 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)
    200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .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, 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S)
    13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K)
    9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .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, 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3)
    9999999.31(XREF 1K), .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, 3(XREF 2S)
    13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1)
    15(XREF 2K), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K)
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S), .01(XREF 6K), 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)
    3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 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), 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), 31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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), 200(XREF 1S), 200(XREF 1K)
    200.8(XREF 1S), 200.8(XREF 1K), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S), 201.1(XREF 1K), 204(XREF 1S), 204(XREF 1K), 212.2(XREF 1S)
    212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .01(XREF 1S), .01(XREF 1K)
    .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S), .01(XREF 6K), 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), 3(XREF 2S), 13(XREF 1S)
    13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 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), 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), 31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1K)
    201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S), 201.1(XREF 1K), 204(XREF 1S), 204(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S)
    213(XREF 1K), 901+1, 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S)
    .01(XREF 4K), .01(XREF 6S), .01(XREF 6K), 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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S)
    13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 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)
    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)
    31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1K), 201(XREF 1K), 201(XREF 2S)
    201(XREF 2K), 201.1(XREF 1S), 201.1(XREF 1K), 204(XREF 1S), 204(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1
    9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .01(XREF 1S), .01(XREF 1K), .01(XREF 2K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S)
    .01(XREF 6K), 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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S)
    15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 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), 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), 31(XREF 3S), 31(XREF 3K)
    31(XREF 4S), 31(XREF 4K), 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), 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1K), 201(XREF 1K), 201(XREF 2S), 201(XREF 2K), 201.1(XREF 1S)
    201.1(XREF 1K), 204(XREF 1S), 204(XREF 1K), 212.2(XREF 1S), 212.2(XREF 1K), 213(XREF 1S), 213(XREF 1K), 901+1, 9999999.03(XREF 1S), 9999999.03(XREF 1K)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1K)
    DIC ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, 9999999.145+1!*, ID25+1, 2+1*
    2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*, 62.05+1!*, 9999999.145+1!*, ID25+1, 2+1*, 2(HELP ), 5(HELP )
    8(HELP ), 62.02+1!*, 62.05+1!*, 9999999.145+1!*, ID25+1, 2+1*, 2(HELP ), 5(HELP ), 8(HELP ), 62.02+1!*
    , 62.05+1!*, 9999999.145+1!*
    DIC("S" 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*, 9999999.145+1*, 9999999.145SCR+1*, 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*
    , 9999999.145+1*, 9999999.145SCR+1*, 62.02+1*, 62.02SCR+1*, 62.05+1*, 62.05SCR+1*, 9999999.145+1*, 9999999.145SCR+1*, 62.02+1*, 62.02SCR+1*
    , 62.05+1*, 62.05SCR+1*, 9999999.145+1*, 9999999.145SCR+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 )
    >> DIE 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1, 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1
    5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1, 5(HELP ), 8(HELP ), 62.02+1, 62.05+1, 9999999.145+1
    >> DIG 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S)
    13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4)
    13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4)
    13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    >> DIH 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S)
    13(XREF 1n1.4), 13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4)
    13(XREF 1n2.4), 13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1n1.4), 13(XREF 1n2.4)
    13(XREF 2n1.4), 13(XREF 2n2.4), 15(XREF 1n1.4), 15(XREF 1n2.4), 15(XREF 2n1.4), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1)
    64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1n1.4), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1n2.4)
    >> DIU 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1S)
    9999999.31(XREF 1K), 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    9999999.31(XREF 1S), 9999999.31(XREF 1K), 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S)
    15(XREF 2K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K)
    200.8(XREF 1n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1K), 3(XREF 2S), 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K)
    15(XREF 2S), 15(XREF 2K), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4)
    200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1K)
    >> DIU(0 3(XREF 1S), 3(XREF 1K), 31(XREF 2S), 31(XREF 2K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K)
    31(XREF 2S), 31(XREF 2K), 51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 31(XREF 2S), 31(XREF 2K)
    51(XREF 1S), 51(XREF 1K), 100(XREF 3S), 100(XREF 3K), 3(XREF 1S), 3(XREF 1K), 31(XREF 2S), 31(XREF 2K), 51(XREF 1S), 51(XREF 1K)
    100(XREF 3S), 100(XREF 3K)
    DIV 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K)
    13(XREF 2n2.1), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4)
    15(XREF 2K), 15(XREF 2n2.4), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3)
    9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S)
    13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4)
    15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1)
    200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 3(XREF 2S)
    13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1)
    13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K)
    15(XREF 2n2.4), 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), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4)
    9999999.31(XREF 1K), 9999999.31(XREF 1n2.4)
    DIV(0 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1)
    64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K)
    9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4)
    15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 25(XREF 2S), 25(XREF 2K)
    64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4)
    9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K)
    13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 25(XREF 2S)
    25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 9999999.31(XREF 1n1.3)
    9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4)
    13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4)
    25(XREF 2S), 25(XREF 2K), 64(XREF 4n1.1), 64(XREF 4n2.1), 64(XREF 5n1.1), 64(XREF 5n2.1), 200.8(XREF 1S), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4)
    DT .01(XREF 2K), .01(XREF 2K), .01(XREF 2K), .01(XREF 2K)
    ND 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)
    >> PSGS0XT 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
    >> PSI .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)
    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)
    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)
    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)
    PSNSFG 23OT+1*!, 23OT+1*!, 23OT+1*!, 23OT+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)
    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)
    SIG 5+1!, 5+1!, 5+1!, 5+1!
    TMP 213(XREF 2S), 213(XREF 2S), 213(XREF 2S), 213(XREF 2S)
    U ID25+1, ID50+1, ID100+1, ID101+1, ID102+1, IDWRITE+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, 3(XREF 2S), 5OF9.4+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4)
    13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K)
    15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1
    , 26OF9.3+1, 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 2S), 201(XREF 2K)
    9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), ID25+1, ID50+1, ID100+1, ID101+1
    , ID102+1, IDWRITE+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
    3(XREF 2S), 5OF9.4+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4)
    13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4)
    15(XREF 2K), 15(XREF 2n2.4), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S)
    200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 2S), 201(XREF 2K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4)
    9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), ID25+1, ID50+1, ID100+1, ID101+1, ID102+1, IDWRITE+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, 3(XREF 2S), 5OF9.4+1, 8OF9.2+1, 13(XREF 1S)
    13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4), 13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1)
    15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 18+1, 25(XREF 2S)
    25(XREF 2K), 26+1, 26OF9.3+1, 200(XREF 1S), 200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    201(XREF 2S), 201(XREF 2K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), ID25+1, ID50+1
    , ID100+1, ID101+1, ID102+1, IDWRITE+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, 3(XREF 2S), 5OF9.4+1, 8OF9.2+1, 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1n1.4), 13(XREF 1K), 13(XREF 1n2.4)
    13(XREF 2S), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.4), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S)
    15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 18+1, 25(XREF 2S), 25(XREF 2K), 26+1, 26OF9.3+1, 200(XREF 1S)
    200(XREF 1K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 201(XREF 2S), 201(XREF 2K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4)
    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), .01(XREF 6S), .01(XREF 6K), 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 ), 3(XREF 2S), 4+1!
    , 5+1!, 5OF9.4+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 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4), 14+1!
    , 14.5+1!, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4)
    15(XREF 2K), 15(XREF 2n2.4), 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)
    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), 31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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!, 200(XREF 1S), 200.3+1!, 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4)
    , 200.9+1!, 201(XREF 2S), 201.1+1!, 201.1(XREF 1S), 201.1(XREF 1K), 201.2+1!, 201.3+1!, 204+1!, 204(XREF 1S), 204(XREF 1K)
    , 205+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!, 9999999.01+1!, 9999999.02+1*!, 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.04+1!
    , 9999999.05+1!, 9999999.06+1!, 9999999.08+1!, 9999999.145+1*!, 9999999.25+1!, 9999999.26+1*!, 9999999.27+1!, 9999999.31+1!, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 9999999.32+1!, 9999999.33+1*!, 9999999.352+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)
    .01(XREF 6S), .01(XREF 6K), 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 ), 3(XREF 2S), 4+1!, 5+1!, 5OF9.4+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 1n2.4)
    13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4), 14+1!, 14.5+1!, 15+1!, 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 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)
    31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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!
    200(XREF 1S), 200.3+1!, 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 200.9+1!, 201(XREF 2S), 201.1+1!
    201.1(XREF 1S), 201.1(XREF 1K), 201.2+1!, 201.3+1!, 204+1!, 204(XREF 1S), 204(XREF 1K), 205+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!, 9999999.01+1!, 9999999.02+1*!, 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.04+1!, 9999999.05+1!, 9999999.06+1!, 9999999.08+1!
    , 9999999.145+1*!, 9999999.25+1!, 9999999.26+1*!, 9999999.27+1!, 9999999.31+1!, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K)
    9999999.31(XREF 1n2.4), 9999999.32+1!, 9999999.33+1*!, 9999999.352+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), .01(XREF 6S), .01(XREF 6K), 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 ), 3(XREF 2S), 4+1!, 5+1!, 5OF9.4+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 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4)
    13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4), 14+1!, 14.5+1!, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K)
    15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 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), 31(XREF 3S), 31(XREF 3K), 31(XREF 4S)
    31(XREF 4K), 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!, 200(XREF 1S), 200.3+1!, 200.8(XREF 1S)
    200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K), 200.8(XREF 1n2.4), 200.9+1!, 201(XREF 2S), 201.1+1!, 201.1(XREF 1S), 201.1(XREF 1K), 201.2+1!
    , 201.3+1!, 204+1!, 204(XREF 1S), 204(XREF 1K), 205+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!, 9999999.01+1!
    , 9999999.02+1*!, 9999999.03(XREF 1S), 9999999.03(XREF 1K), 9999999.04+1!, 9999999.05+1!, 9999999.06+1!, 9999999.08+1!, 9999999.145+1*!, 9999999.25+1!, 9999999.26+1*!
    , 9999999.27+1!, 9999999.31+1!, 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 9999999.32+1!, 9999999.33+1*!
    , 9999999.352+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), .01(XREF 6S), .01(XREF 6K), 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 ), 3(XREF 2S)
    , 4+1!, 5+1!, 5OF9.4+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 1n2.4), 13(XREF 2S), 13(XREF 2n1.1), 13(XREF 2n1.4), 13(XREF 2K), 13(XREF 2n2.1), 13(XREF 2n2.4)
    , 14+1!, 14.5+1!, 15+1!, 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1n1.4), 15(XREF 1K), 15(XREF 1n2.4), 15(XREF 2S), 15(XREF 2n1.1)
    15(XREF 2n1.4), 15(XREF 2K), 15(XREF 2n2.4), 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), 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), 31(XREF 3S), 31(XREF 3K), 31(XREF 4S), 31(XREF 4K), 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!, 200(XREF 1S), 200.3+1!, 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1n1.4), 200.8(XREF 1K)
    200.8(XREF 1n2.4), 200.9+1!, 201(XREF 2S), 201.1+1!, 201.1(XREF 1S), 201.1(XREF 1K), 201.2+1!, 201.3+1!, 204+1!, 204(XREF 1S)
    204(XREF 1K), 205+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!, 9999999.01+1!, 9999999.02+1*!, 9999999.03(XREF 1S), 9999999.03(XREF 1K)
    , 9999999.04+1!, 9999999.05+1!, 9999999.06+1!, 9999999.08+1!, 9999999.145+1*!, 9999999.25+1!, 9999999.26+1*!, 9999999.27+1!, 9999999.31+1!, 9999999.31(XREF 1S)
    9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1n1.4), 9999999.31(XREF 1K), 9999999.31(XREF 1n2.4), 9999999.32+1!, 9999999.33+1*!, 9999999.352+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)
    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)
    >> XMB(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)
    >> 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)
    >> 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)
    Y ID25+1*, 2+1, 3(XREF 2S), 5OF9.4+1*, 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K)
    15(XREF 2S), 15(XREF 2K), 17.1+1, 22OT+1, 23OT+1, 24OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1
    , 100+1, 200.8(XREF 1S), 200.8(XREF 1K), 9999999.02+1, 9999999.145+1, 9999999.26+1, 9999999.31(XREF 1S), 9999999.31(XREF 1K), 9999999.33+1, ID25+1*
    , 2+1, 3(XREF 2S), 5OF9.4+1*, 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S)
    15(XREF 2K), 17.1+1, 22OT+1, 23OT+1, 24OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1
    200.8(XREF 1S), 200.8(XREF 1K), 9999999.02+1, 9999999.145+1, 9999999.26+1, 9999999.31(XREF 1S), 9999999.31(XREF 1K), 9999999.33+1, ID25+1*, 2+1
    3(XREF 2S), 5OF9.4+1*, 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K)
    , 17.1+1, 22OT+1, 23OT+1, 24OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1, 200.8(XREF 1S)
    200.8(XREF 1K), 9999999.02+1, 9999999.145+1, 9999999.26+1, 9999999.31(XREF 1S), 9999999.31(XREF 1K), 9999999.33+1, ID25+1*, 2+1, 3(XREF 2S)
    , 5OF9.4+1*, 13(XREF 1S), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1K), 15(XREF 2S), 15(XREF 2K), 17.1+1
    , 22OT+1, 23OT+1, 24OT+1, 25(XREF 2S), 25(XREF 2K), 62.02+1, 62.05+1, 100+1, 200.8(XREF 1S), 200.8(XREF 1K)
    , 9999999.02+1, 9999999.145+1, 9999999.26+1, 9999999.31(XREF 1S), 9999999.31(XREF 1K), 9999999.33+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), 15(XREF 2S)
    , 22OT+1*, 23OT+1*, 24OT+1*, 9999999.31(XREF 1n1.3), .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), 15(XREF 2S), 22OT+1*, 23OT+1*, 24OT+1*, 9999999.31(XREF 1n1.3), .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), 15(XREF 2S), 22OT+1*, 23OT+1*
    , 24OT+1*, 9999999.31(XREF 1n1.3), .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), 15(XREF 2S), 22OT+1*, 23OT+1*, 24OT+1*, 9999999.31(XREF 1n1.3)
    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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1)
    13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 63(XREF 2S)
    63(XREF 2K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S)
    13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 63(XREF 2S), 63(XREF 2K), 200.8(XREF 1S)
    200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S)
    15(XREF 1n1.1), 15(XREF 1K), 15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 63(XREF 2S), 63(XREF 2K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K)
    9999999.31(XREF 1S), 9999999.31(XREF 1n1.1), 9999999.31(XREF 1n1.3), 9999999.31(XREF 1K), .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), 3(XREF 2S), 13(XREF 1S), 13(XREF 1n1.1), 13(XREF 1K), 13(XREF 2S), 13(XREF 2K), 15(XREF 1S), 15(XREF 1n1.1), 15(XREF 1K)
    15(XREF 2S), 15(XREF 2n1.1), 15(XREF 2K), 63(XREF 2S), 63(XREF 2K), 200.8(XREF 1S), 200.8(XREF 1n1.1), 200.8(XREF 1K), 9999999.31(XREF 1S), 9999999.31(XREF 1n1.1)
    9999999.31(XREF 1n1.3), 9999999.31(XREF 1K)
    Y(101 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1), 200.8(XREF 1n1.1)
    Y(18 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), 15(XREF 2n1.1), 63(XREF 2S), 63(XREF 2K), 9999999.31(XREF 1n1.1)
    .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 63(XREF 2S), 63(XREF 2K), 9999999.31(XREF 1n1.1)
    .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 63(XREF 2S), 63(XREF 2K), 9999999.31(XREF 1n1.1)
    .01(XREF 3n1.2), .01(XREF 3n2.2), .01(XREF 4S), .01(XREF 4K), 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 63(XREF 2S), 63(XREF 2K), 9999999.31(XREF 1n1.1)
    Y(3 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 9999999.31(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 9999999.31(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1)
    15(XREF 2n1.1), 9999999.31(XREF 1n1.1), 13(XREF 1n1.1), 15(XREF 1n1.1), 15(XREF 2n1.1), 9999999.31(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
    Z0 5+1!, 5OF9.4+1, 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+1, 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+1
    , 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+1, 8+1!, 8OF9.2+1*
    Z1 5+1!, 5OF9.4+1*, 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+1*, 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+1*
    , 8+1!, 8OF9.2+1*, 5+1!, 5OF9.4+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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All