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: ^PSRX

Package: Outpatient Pharmacy

Global: ^PSRX


Information

FileMan FileNo FileMan Filename Package
52 PRESCRIPTION Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 765

Package Total Routines
Outpatient Pharmacy 358 CMOP EVENT    COMMENTS    ICD DIAGNOSIS    PARTIAL DATE    PRESCRIPTION PROFILE    PSO283PI    PSO293PI    PSO52EX
PSO7P274    PSOARCDE    PSOARCF4    PSOARCS2    PSOARCSV    PSOARX    PSOARX1    PSOAUTOC
PSOB    PSOBAIR2    PSOBBC    PSOBGMG3    PSOBING1    PSOBINGO    PSOBKDED    PSOBPSU1
PSOBSET1    PSOCAN    PSOCIDC1    PSOCIDC2    PSOCIDC3    PSOCIDC7    PSOCIDC8    PSOCIDC9
PSOCLOLS    PSOCP    PSOCPBK1    PSOCPBK2    PSOCPBK4    PSOCPIB    PSOCPVW    PSOCSTD
PSOCSTM    PSODAWUT    PSODISP    PSODLKP    PSODRDU2    PSODRGN    PSODSPL    PSOELPS2
PSOELPST    PSOEXDT    PSOEXRST    PSOFUNC    PSOHDR    PSOHELP    PSOHELP1    PSOHELP3
PSOHLDA    PSOHLDC    PSOHLUP    PSOLBL    PSOLBLN2    PSOLLLHN    PSONEWG    PSOORCPY
PSOORRL1    PSOORRL3    PSOORRLN    PSOORRLO    PSOP    PSOPI136    PSOPMP0    PSOPMP1
PSOPOST    PSOPXRM1    PSOPXRMI    PSOPXRMU    PSOQ0496    PSOQUAP    PSOQUAP2    PSOR52
PSOREF0    PSOREF1    PSOREF2    PSOREJP0    PSOREJP1    PSOREJP2    PSOREJP3    PSOREJP4
PSORELD1    PSORELDT    PSORENW4    PSORESUS    PSORFL    PSORN52    PSORPTS1    PSORX1
PSORXCLE    PSORXED1    PSORXEDT    PSORXI    PSORXL    PSORXLAB    PSORXPA1    PSORXPR1
PSORXRP1    PSORXRP2    PSORXRPT    PSORXVW    PSOSD0    PSOSD2    PSOSIGNO    PSOSURST
PSOTALK1    PSOTPCUL    PSOTRLBL    PSOVDF1    ^PSOARC    ^PSRX    PSOSDP    PSOSUPOE
PSOSUPRX    PSOUTLA1    PSOXZA1    PSOXZA10    PSOXZA11    PSOXZA12    PSOXZA13    PSOXZA14
PSOXZA2    PSOXZA3    PSOXZA4    PSOXZA5    PSOXZA6    PSOXZA7    PSOXZA8    REFILL
^PS(52.5    PSO52AP1    PSO52API    PSO52B    PSO52CLR    PSO55FX2    PSO55FX3    PSO7P289
PSOAMIS0    PSOARCCO    PSOARCCV    PSOARCF5    PSOARCTG    PSOATRD    PSOATRF    PSOATRF1
PSOATRFC    PSOATRPP    PSOATRR    PSOBAI    PSOBAIRP    PSOBMST    PSOBPSR1    PSOBPSU2
PSOBPSUT    PSOBSET    PSOBUILD    PSOCAN1    PSOCAN2    PSOCAN3    PSOCAN4    PSOCMOP
PSOCMOPA    PSOCMOPB    PSOCMOPC    PSOCMOPR    PSOCMOPT    PSOCOPAY    PSOCP1    PSOCPA
PSOCPB    PSOCPBA2    PSOCPBAK    PSOCPC    PSOCPD    PSOCPDUP    PSOCPE    PSOCPIB3
PSOCPIB5    PSOCPIBC    PSOCPIBF    PSOCPTRH    PSOCPTRI    PSOCSRL    PSOCST10    PSODACT
PSODGDG1    PSODGDG2    PSODGDGI    PSODIAG    PSODIR1    PSODIR2    PSODISP1    PSODISP2
PSODISPS    PSODRDUP    PSOEXBCH    PSOFTDR    PSOHCSUM    PSOHLD    PSOHLDI1    PSOHLDIS
PSOHLDS    PSOHLDS1    PSOHLDS2    PSOHLDS3    PSOHLDS4    PSOHLEXP    PSOHLNE1    PSOHLNE2
PSOHLNE3    PSOHLNE4    PSOHLNEW    PSOHLSG    PSOHLSG1    PSOHLSG2    PSOHLSG3    PSOHLSG5
PSOHLSN    PSOHLSN1    PSOHLSN2    PSOHLSN3    PSOHLUP1    PSOLBL1    PSOLBL2    PSOLBL3
PSOLBL4    PSOLBLD    PSOLBLD1    PSOLBLN    PSOLBLS    PSOLLL1    PSOLLL5    PSOLLL7
PSOLLL8    PSOLLL9    PSOLLLH    PSOLLLI    PSOLMLST    PSOMAUEX    PSOMGCM1    PSOMGCOM
PSOMHV1    PSON52    PSONDCUT    PSONDCV    PSONEW    PSONEW2    PSOORAL1    PSOORAL2
PSOORAPI    PSOORDER    PSOORDRG    PSOORED1    PSOORED2    PSOORED3    PSOORED5    PSOORED6
PSOORED7    PSOOREDT    PSOORFI2    PSOORFI6    PSOORFIN    PSOORNE1    PSOORNE2    PSOORNE3
PSOORNE4    PSOORNE5    PSOORNE6    PSOORNW1    PSOORRDI    PSOORRL    PSOORRNW    PSOORUT1
PSOORUTL    PSOP1    PSOP2    PSOPATLK    PSOPFSU0    PSOPFSU1    PSOPKIV1    PSOPOLY
PSOPOS10    PSOPOS12    PSOPOS13    PSOPOST1    PSOPOST2    PSOPOST4    PSOPOST6    PSOPOST7
PSOPOST8    PSOPRA    PSOPRF    PSOPRFSS    PSOPRI    PSOQ0076    PSOQMCAL    PSORDS
PSOREF    PSOREJU1    PSOREJU2    PSOREJU3    PSOREJU4    PSOREJUT    PSORENW    PSORENW0
PSORENW1    PSORENW3    PSORESK    PSORESK1    PSORMRXD    PSORN52A    PSORN52C    PSORN52D
PSORXDL    PSORXED    PSORXL1    PSORXPR    PSORXVW1    PSORXVW2    PSOSD    PSOSPSIG
PSOSTART    PSOSUBCH    PSOSUCH1    PSOSUCHG    PSOSUCLE    PSOSUDEL    PSOSUDP1    PSOSUDPR
PSOSULB1    PSOSULBL    PSOSULOG    PSOSUPAT    PSOSUSRP    PSOSUTL    PSOTALK    PSOTEXP1
PSOTPCAN    PSOTPCRX    PSOTPRP1    PSOTPRX1    PSOUTIL    PSOUTL    PSOUTLA    PSOVER
PSOVER1    PSOVER2    PSOVERC    PSOVRPT    PSOXZA9    REJECT INFO    
IHS Changes To Pharmacy 79 APSAPPIM    APSDALV    APSDALVN    APSDALVR    APSEPPIM    APSP61P    APSPAD2    APSPAUTO
APSPCAN    APSPCDI    APSPCDI1    APSPCP1    APSPCP2    APSPCSM    APSPCSM1    APSPCTR
APSPDR3    APSPDRX    APSPDSC1    APSPDUR    APSPEC04    APSPEC08    APSPEC14    APSPEC16
APSPEC17    APSPEC18    APSPEC19    APSPEC20    APSPEC21    APSPEC22    APSPELRX    APSPES1
APSPES2    APSPES3    APSPES4    APSPESR2    APSPFNC1    APSPFNC3    APSPFNC6    APSPFUNC
APSPHLD    APSPLBL    APSPLBL1    APSPLBL2    APSPMAN    APSPMAN1    APSPMAN2    APSPMED
APSPMED3    APSPMULT    APSPNE4    APSPNUM    APSPPCC    APSPPCC1    APSPPCCU    APSPPOSH
APSPQ1    APSPRESK    APSPRIS    APSPRRTS    APSPRV    APSPRXD    APSPRXV    APSPSLBL
APSPSOB    APSPSWKL    APSPT08    APSPT081    APSPTDD    APSPVST    APSPVST1    APSQCK1
APSQDGDG    APSQDRDU    APSQFAS    APSQMAN    APSQNF    APSQPMI    APSQSIGN    
Pharmacy Point of Sale 43 ABSPER20    ABSPES01    ABSPFUNC    ABSPOS    ABSPOS25    ABSPOS28    ABSPOS31    ABSPOS32
ABSPOS33    ABSPOS34    ABSPOS35    ABSPOS57    ABSPOS6B    ABSPOS6C    ABSPOSB3    ABSPOSBB
ABSPOSBF    ABSPOSBM    ABSPOSCD    ABSPOSEX    ABSPOSFD    ABSPOSFP    ABSPOSI1    ABSPOSIB
ABSPOSID    ABSPOSIF    ABSPOSII    ABSPOSIV    ABSPOSM    ABSPOSM1    ABSPOSN2    ABSPOSN3
ABSPOSO    ABSPOSPE    ABSPOSQ    ABSPOSQA    ABSPOSQB    ABSPOSQC    ABSPOSQP    ABSPOSQS
ABSPOSR3    ABSPOSR9    ABSPOSRX    
IHS GPRA Information System 33 BGP0CU    BGP1CU    BGP1D81    BGP2CU    BGP2D81    BGP3CU    BGP3D81    BGP4CU
BGP4D81    BGP4D89    BGP5C1    BGP5CU    BGP5D81    BGP5D89    BGP6C1    BGP6CU
BGP6D81    BGP6D89    BGP7C1    BGP7CU    BGP7D81    BGP7D89    BGP8CU    BGP8D36
BGP8D39    BGP8D51    BGP8D52    BGP8D81    BGP8D89    BGP8PC12    BGP9CU    BGPMUUT4
BGPMUUT8    
IHS Uniform Data System 29 BUD1RP6U    BUD2RP6M    BUD2RP6O    BUD2RP6U    BUDARP6M    BUDARP6O    BUDARP6U    BUDBRP6M
BUDBRP6O    BUDBRP6Q    BUDBRP6U    BUDCRP6M    BUDCRP6O    BUDCRP6Q    BUDCRP6U    BUDDRP6M
BUDDRP6O    BUDDRP6Q    BUDDRP6U    BUDERP6M    BUDERP6O    BUDERP6Q    BUDERP6U    BUDERP6W
BUDHRP6M    BUDHRP6O    BUDHRP6Q    BUDHRP6U    BUDHRP6W    
CMOP 26 PSXBLD    PSXBLD1    PSXBPSMS    PSXBPSRP    PSXEDIT    PSXEDUTL    PSXERR    PSXMISC1
PSXNEW    PSXOPUTL    PSXRACT    PSXRCVRY    PSXREF    PSXRESUB    PSXRPPL    PSXRPPL1
PSXRPPL2    PSXRSTAT    PSXRTRA1    PSXRTRAN    PSXRXU    PSXSRP    PSXSRST    PSXTNRPT
PSXVIEW    PSXVND    
Patient Care Component 23 APCDAMED    APCHAAP2    APCHPMH3    APCHPST2    APCHPWH3    APCHPWHM    APCHPWHX    APCHS7
APCHS73    APCHS74    APCHS77    APCHS78    APCHS7C    APCHS7N    APCHS7O    APCHS7R
APCHS9M1    APCHS9M2    APCHS9M3    APCHS9M4    APCHS9M5    APCHSAS1    APCHSTP1    
Patient Care Component Table Maintiance 20 APCM11E1    APCM11E2    APCM11E4    APCM13E1    APCM13E2    APCM13E4    APCM14E1    APCM14E2
APCM14E3    APCM24E1    APCM24E2    APCM24E7    APCM24EB    APCM25E1    APCM25E2    APCM25E7
APCM25EB    APCM2AE1    APCM2AE2    APCM2AEB    
Controlled Substances 19 PSDACT1    PSDDSOR    PSDDSOR1    PSDDSOR2    PSDNMPR    PSDNMRP    PSDNMSP    PSDNMWE
PSDOPT    PSDOPT0    PSDOPT1    PSDOPT2    PSDOPTI    PSDOPTN    PSDOPTS    PSDOPTX
PSDOPTY    PSDOPTZ    PSDPND    
Health Summary Components 16 BHSAAP2    BHSAPRO    BHSAST1    BHSMBN    BHSMED    BHSMEDAL    BHSMEDCS    BHSMEDH
BHSMEDI    BHSMEDR    BHSMSUP    BHSMSUP1    BHSPMH1    BHSPMH1A    BHSPMH3    BHSPOS
IHS Mods To Text Integration Utilities 12 BTIULMED    BTIULO1    BTIULO15    BTIULO19    BTIUMED2    BTIUMED3    BTIUMED4    BTIUMED5
BTIUMED6    BTIUMED7    BTIUMED8    BTIUMED9    
Integrated Billing 11 IBAERR    IBCD4    IBCSC5C    IBCU81    IBCU82    IBOCHK    IBPF1    IBTOBI
IBTRED    IBTRKR3    IBTRKR31    
Local Area Programs 8 AZAXCAD    AZAXCADB    AZAXCADU    AZAXCADZ    AZAXDPM2    AZFMCM    AZQ2RXP    AZQ2RXP1
Third Party Billing 7 ABMDE8D    ABMDE8DA    ABMDEAD3    ABMDESMR    ABMDVST5    ABMERGR2    ABMRSTI1    
IHS Pharmacy Auto Refill System 5 BEX80    BEXRQUE    BEXRUTL    BEXRX    BEXRX7    
Pharmacy Data Management 5 PSS0052    PSSJXR21    PSSLOCK    PSSORUTE    PSSREF    
Diabetes Registry 4 BDMDE18    BDMDF18    BDMDG18    BDMVRL2    
Inpatient Medications 4 PRESCRIPTION PROFILE    PSJORUT2    PSJXR514    PSJXR53    
Patient Care Component Reports 4 APCLOS5    APCLPS1    APCLRX91    APCLTONI    
Drug Accountability 3 PSAOP    PSAOP2    PSAOP4    
IHS Electronic Health Record 3 BEHORXF1    BEHORXFN    BEHORXRT    
Patient Chart 3 BPCPC    BPCSC    BPCSC1    
Asthma Tracking System 2 BATSUM    BATVSUM    
Clinical Reminders 2 PXRMDOUT    PXRMISE    
Lab Service 2 LRBLPE1    LRBLPH    
Order Entry Results Reporting 2 ORCACT0    ORY299    
Pharmacy Benefits Management 2 PSUOP1    PSUOP2    
Phoenix Devel Center 2 AZX2RXP    AZX2RXP1    
Third Party Tracking 2 ABPVRX02    ABPVRX03    
Clinical Scheduling for Windows 1 BSDX41G    
Comprehensive Diabetes Management 1 BCDMFLDS    
GUI Objects 1 BGORX    
IHS HIV Management System 1 BKMQQCR4    
Medicine 1 MCPSOP    
Mental Health Social Services 1 AMHSC1    
National Drug File 1 PSNOP54    
PCC New Encounter Form 1 VENPCC1H    
Portland Private Insurance package 1 AZP3EDT    
Scriptpro Interface 1 APSSSPRO    

Accessed By FileMan Db Calls, Total: 207

Package Total Routines
Outpatient Pharmacy 99 PSO160P1    PSO52CLR    PSO7P289    PSOARCDE    PSOARCF4    PSOARCS2    PSOARCSV    PSOATRFC
PSOBAIR2    PSOBING1    PSOBPSR1    PSOBPSU1    PSOBPSU2    PSOBPSUT    PSOCIDC9    PSOCMOP
PSOCMOPB    PSOCMOPR    PSOCPA    PSOCPB    PSOCPC    PSOCPD    PSOCPTRH    PSOCPTRI
PSOCPVW    PSOCSRL    PSODAWUT    PSODIAG    PSODISP    PSODISP1    PSODLKP    PSOHLD
PSOHLDA    PSOHLDIS    PSOHLNE2    PSOHLNE3    PSOHLNE4    PSOLLLH    PSON52    PSONDCUT
PSONDCV    PSONRXN    PSOORED6    PSOORED7    PSOOREDT    PSOORFI1    PSOORNE2    PSOORNE3
PSOORNE4    PSOORNEW    PSOPFSU0    PSOPFSU1    PSOPI136    PSOPMP0    PSOPMP1    PSOPOS12
PSOPXRMI    PSOQUAP    PSOQUAP2    PSOR52    PSOREF    PSOREJP0    PSOREJP1    PSOREJP2
PSOREJP3    PSOREJP4    PSOREJU1    PSOREJU2    PSOREJU3    PSORENW3    PSORENW4    PSORESK
PSORESK1    PSORN52A    PSORN52C    PSORN52D    PSORPTS    PSORXDL    PSORXED    PSORXED1
PSORXL1    PSORXPR    PSORXRP1    PSORXRP2    PSORXVW    PSORXVW1    PSORXVW2    PSOSULB1
PSOSULBL    PSOSUPAT    PSOSUPOE    PSOSUPRX    PSOTALK    PSOTEXP1    PSOTPRP1    PSOVDF2
PSOVDF3    PSOVER1    PSOVER2    
IHS Changes To Pharmacy 40 APSDALV    APSDALVN    APSDALVR    APSPAD2    APSPAUTO    APSPCDI    APSPCDI1    APSPCSM
APSPCSM1    APSPCTR    APSPCTR1    APSPDIR    APSPDUR    APSPEC14    APSPEC16    APSPELRX
APSPES1    APSPES2    APSPES3    APSPES4    APSPESR2    APSPFNC1    APSPFNC2    APSPFNC3
APSPFNC6    APSPFUNC    APSPHLD    APSPLBL    APSPMAN1    APSPPCC    APSPPCC1    APSPQ1
APSPRESK    APSPRIS    APSPRRTS    APSPRXD    APSPSWKL    APSPTDD    APSPVST1    APSQBRES
IHS Mods To Text Integration Utilities 12 BTIULMED    BTIULO19    BTIUMED1    BTIUMED2    BTIUMED3    BTIUMED4    BTIUMED5    BTIUMED6
BTIUMED7    BTIUMED8    BTIUMED9    BTIUPCC2    
CMOP 9 PSXBPSMS    PSXBPSRP    PSXBPSUT    PSXEDIT    PSXERR    PSXNEW    PSXRPPL2    PSXRTRAN
PSXVND    
Health Summary Components 7 BHSMBN    BHSMED    BHSMEDAL    BHSMEDCS    BHSMEDH    BHSMEDI    BHSMEDR    
Patient Care Component Table Maintiance 6 APCM14E3    APCM24E7    APCM24EB    APCM25E7    APCM25EB    APCM2AEB    
Third Party Billing 6 ABMDE8D    ABMDE8DA    ABMDEMLB    ABMEHGR2    ABMRSTI1    ABMRSTI3    
IHS Pharmacy Auto Refill System 5 BEXRDAT    BEXRHOR    BEXRQUE    BEXRSRT    BEXRX7    
Pharmacy Point of Sale 5 ABSPFUNC    ABSPOSBB    ABSPOSI1    ABSPOSII    ABSPOSIV    
IHS Electronic Health Record 4 BEHORXF1    BEHORXF2    BEHORXFN    BEHORXRT    
Order Entry Results Reporting 3 ORMPS1    ORMPS3    ORQ21    
Controlled Substances 2 PSDNMWE    PSDOPTX    
IHS HIV Management System 2 BKMQQCR4    BKMVSUP5    
Pharmacy Benefits Management 2 PSUOP2    PSUOP3    
Comprehensive Diabetes Management 1 BCDMFLDS    
GUI Objects 1 BGORX    
PCC New Encounter Form 1 VENPCC1H    
Patient Care Component 1 APCHPWHM    
iCare 1 BQICMUTL    

Pointed To By FileMan Files, Total: 28

Package Total FileMan Files
Outpatient Pharmacy 9 DUE ANSWER SHEET(#50.0731)[3]    PATIENT NOTIFICATION (Rx READY)(#52.11)[#52.1112(.01)]    RX VERIFY(#52.4)[.013]    RX SUSPENSE(#52.5)[.01]    PHARMACY EXTERNAL INTERFACE(#52.51)[.01]    CLOZAPINE PRESCRIPTION OVERRIDES(#52.52)[1]    PHARMACY PRINTED QUEUE(#52.9)[#52.9002(.01)]    PHARMACY ARCHIVE(#52.8)[.01]    PRESCRIPTION(#52)[39.439.5]    
Pharmacy Point of Sale 6 ABSP DUR/PPS(#9002313.473)[.03]    ABSP DIAGNOSIS CODE(#9002313.491)[.03]    ABSP DATA INPUT(#9002313.51)[#9002313.512(1.01)]    ABSP REPORT MASTER(#9002313.61)[.04]    ABSP TRANSACTION(#9002313.59)[1.11]    ABSP LOG OF TRANSACTIONS(#9002313.57)[1.11]    
CMOP 2 CMOP RX QUEUE(#550.1)[#550.1101(.01)]    CMOP TRANSMISSION(#550.2)[#550.215(.01)]    
Drug Accountability 2 DRUG ACCOUNTABILITY STATS(#58.8)[#58.800118(18)]    DRUG ACCOUNTABILITY TRANSACTION(#58.81)[60]    
IHS Changes To Pharmacy 2 APSP REFILL REQUESTS(#9009033.91)[.06]    NON FORMULARY REQUESTS(#9009035.1)[14]    
Integrated Billing 2 IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.05]    CLAIMS TRACKING(#356)[.08]    
Third Party Billing 2 3P BILL(#9002274.4)[#9002274.4023(.22)]    3P CLAIM DATA(#9002274.3)[#9002274.3023(.22)]    
IHS Omnicell Pyxis Interface 1 BOP TRANSFER TO DRUG(#90355.44)[.08]    
Pharmacy Data Management 1 PHARMACY PATIENT(#55)[#55.03(.01)]    
Portland Private Insurance package 1 AZP PRV INS BILLS(#2001060.01)[#2001060.1301(.01)]    

Pointer To FileMan Files, Total: 19

Package Total FileMan Files
Outpatient Pharmacy 3 RX PATIENT STATUS(#53)[3]    OUTPATIENT SITE(#59)[20#52.1(8)#52.2(.09)]
PRESCRIPTION(#52)[39.439.5]    
Integrated Billing 2 INTEGRATED BILLING ACTION(#350)[106#52.1(9)]    IB ACTION TYPE(#350.1)[105]    
Kernel 2 STATE(#5)[9999999.35]    NEW PERSON(#200)[416233838.138.284104109#52.0107(2)#52.032(3)#52.1(4)#52.1(6)#52.1(15)#52.1(19)#52.1(20)#52.1(84)#52.1(9999999.01)#52.2(.05)#52.2(.07)#52.2(6)#52.2(10)#52.2(11)#52.25(4)#52.25(11)#52.2551(1)#52.3(.03)]
National Drug File 2 DRUG UNITS(#50.607)[#52.0113(2)]    MEDICATION ROUTES(#51.2)[#52.0113(6)#52.037(.01)]    
Pharmacy Data Management 2 PHARMACY ORDERABLE ITEM(#50.7)[39.2]    DRUG(#50)[6]    
Pharmacy Point of Sale 2 ABSP DUR/PPS(#9002313.473)[9999999.13#52.1(9999999.13)]    ABSP DIAGNOSIS CODE(#9002313.491)[9999999.17#52.1(9999999.17)]    
CMOP 1 CMOP TRANSMISSION(#550.2)[#52.01(.01)]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#52.052311(.01)]    
IHS Changes To Pharmacy 1 APSP PHARMACY LIST(#9009033.9)[9999999.24]    
IHS Patient 1 V MEDICATION(#9000010.14)[9999999.11#52.1(9999999.11)]    
Registration 1 VA PATIENT(#2)[2]    
Scheduling 1 HOSPITAL LOCATION(#44)[5]    

Fields, Total: 148

Field # Name Loc Type Details
.01 RX # 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<1) X
  • LAST EDITED:  NOV 26, 1990
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999
  • DESCRIPTION:  
    This is the prescription number.
  • EXECUTABLE HELP:  D RXHLP^PSOHELP4
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("DELETE THROUGH PACKAGE ONLY!","","$C(7),!?5")
    52,0)= S X1=$S($D(^PSRX(D0,2)):$P(^(2),"^",6),1:0) S:'X1 RX0=^(0),J=D0 D ^PSOEXDT:'X1 I DT'>$P(^(2),U,6),$O(^PSRX(DA,1,0)) D EN^DDIOL("CANNOT DELETE PRESCRIPTIONS WITH REFILLS.","","$C(7),!?5")
  • GROUP:  PSO
  • CROSS-REFERENCE:  52^B
    1)= S ^PSRX("B",$E(X,1,30),DA)=""
    2)= K ^PSRX("B",$E(X,1,30),DA)
1 ISSUE DATE 0;13 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D CID^PSOUTL S X=Y K:Y<1 X
  • OUTPUT TRANSFORM:  I $G(^PSRX("AC",$E(X,1,30),DA))=""
  • LAST EDITED:  APR 25, 2003
  • DESCRIPTION:  
    Date when doctor wrote prescription.
  • TECHNICAL DESCR:  
    (Required) Date.
  • EXECUTABLE HELP:  D CIDH^PSOUTL
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^AC
    1)= S ^PSRX("AC",$E(X,1,30),DA)=""
    2)= K ^PSRX("AC",$E(X,1,30),DA)
    3)= Do Not Delete!
    This xref is used to index file by Issue Date.
  • FIELD INDEX:  APKI (#154) MUMPS IR SORTING ONLY
    Short Descr:  This indexes the issue date.
    Description:  This cross-reference is used only to index digitally signed CPRS placed orders by the issue date. It is primarily used to generate digitally signed prescriptions in the Digitally Signed Orders Report, which is made
    available in the Controlled Substance package, as part of the PKI project.
    Set Logic:  I +$P($G(^PSRX(DA,"PKI")),"^")=1 S ^PSRX("APKI",$E(X,1,30),DA)=""
    Kill Logic:  K ^PSRX("APKI",$E(X,1,30),DA)
    Whole Kill:  K ^PSRX("APKI")
    X(1):  ISSUE DATE  (52,1)  (Subscr 1)  (Len 30)  (forwards)
2 PATIENT 0;2 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA PATIENT(#2)

  • INPUT TRANSFORM:  I $D(X) D PAT^PSOHELP
  • LAST EDITED:  MAY 15, 2002
  • DESCRIPTION:  
    The patient receiving treatment.
  • TECHNICAL DESCR:  
    (Required) Pointer to Patient File (#2)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^C^MUMPS
    1)= S:$P($G(^PSRX(DA,0)),"^",11)="W"&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",X,$P(^PSRX(DA,2),"^",2),0,DA)=""
    2)= K:$P($G(^PSRX(DA,0)),"^",11)="W"&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",X,$P(^PSRX(DA,2),"^",2),0,DA)
    3)= Do Not Delete!
    This cross reference is used to index copay fills that have not been billed through the IB package. It sets the global ^PSRX("ACP",Patient,Fill Date,0,DA)="".
  • CROSS-REFERENCE:  52^ACP1^MUMPS
    1)= I +$G(^PSRX(DA,"IB")) F RFN=0:0 S RFN=$O(^PSRX(DA,1,RFN)) Q:'RFN  S:$P($G(^PSRX(DA,1,RFN,0)),"^")&($P($G(^(0)),"^",2)="W")&('$P($G(^(0)),"^",16))&('$P($G(^(0)),"^",18))&('$G(^("IB"))) ^PSRX("ACP",X,$P(^PSRX(DA,1,RFN,0)
    ,"^"),RFN,DA)=""
    2)= I +$G(^PSRX(DA,"IB")) F RFN=0:0 S RFN=$O(^PSRX(DA,1,RFN)) Q:'RFN  K:$P($G(^PSRX(DA,1,RFN,0)),"^")&('$P($G(^(0)),"^",16))&('$P($G(^(0)),"^",18))&($G(^("IB"))) ^PSRX("ACP",X,$P(^PSRX(DA,1,RFN,0),"^"),RFN,DA)
    3)= Do Not Delete!
    This xref is used to index copay refills that have not been billed through the IB package. It sets the global ^PSRX("ACP",Patient,Refill Date,Refill number,DA)="".
  • CROSS-REFERENCE:  52^APSOD^MUMPS
    1)= S:$G(PSODEATH) ^PSRX("APSOD",X,DA)=""
    2)= K:$G(PSODEATH) ^PSRX("APSOD",X,DA)
    3)= Do not delete.
    This xref will be set only when a Rx is discontinued because a date of death was entered. This xref will be set by the APSOD xref of the Date of death field in file #2. ^PSRX("APSOD",patient pointer,da) Set by routine
    PSOCAN3.
3 PATIENT STATUS 0;3 POINTER TO RX PATIENT STATUS FILE (#53)
************************REQUIRED FIELD************************
RX PATIENT STATUS(#53)

  • INPUT TRANSFORM:  D:$D(X) STATDAY^PSOUTLA
  • LAST EDITED:  AUG 25, 1994
  • DESCRIPTION:  
    This field is used to show the status of the patient at the time the medication was filled.
  • TECHNICAL DESCR:  
    Pointer to RX Patient Status File (#53).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 PROVIDER 0;4 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • LAST EDITED:  APR 05, 1996
  • HELP-PROMPT:  Enter the name of a Provider.
  • DESCRIPTION:  
    Doctor who wrote the prescription.
  • TECHNICAL DESCR:  
    (Required) Pointer to New Person File (#200)
  • SCREEN:  S DIC("S")="S X(1)=$G(^(""PS"")) I +X(1),$S('$P(X(1),""^"",4):1,1:$P(X(1),""^"",4)'
  • EXPLANATION:  Only valid providers are to be selected.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 CLINIC 0;5 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I '$P($G(^(""SL"")),""^"",5)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 29, 2001
  • DESCRIPTION:  
    Clinic where treatment was given and prescription was written.
  • TECHNICAL DESCR:  
    Pointer to Hospital Location File (#44)
  • SCREEN:  S DIC("S")="I '$P($G(^(""SL"")),""^"",5)"
  • EXPLANATION:  Only primary clinics are allowed.
  • EXECUTABLE HELP:  S DIC=44,DIC(0)="M",DIC("S")="I '$P($G(^(""SL"")),""^"",5)" D ^DIC
6 DRUG 0;6 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

  • INPUT TRANSFORM:  S DIC("S")="I $S('$D(^PSDRUG(Y,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),""^"",3)'[""O"":0,1:1)" I $D(X) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D INP526^PSOFUNC
  • LAST EDITED:  SEP 28, 1998
  • DESCRIPTION:  
    The actual medication.
  • TECHNICAL DESCR:  
    (Required) Pointer to Drug File (#50)
  • SCREEN:  S DIC("S")="I $S('$D(^PSDRUG(Y,""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),""^"",3)'[""O"":0,1:1)"
  • EXPLANATION:  inactive drugs and those not marked for outpatient are not allowed
  • GROUP:  PS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^ADL1^MUMPS
    1)= I X,$P(^PSRX(DA,2),"^",2) S ^PSRX("ADL",$P(^PSRX(DA,2),"^",2),X,DA)=""
    2)= I X,$P(^PSRX(DA,2),"^",2) K ^PSRX("ADL",$P(^PSRX(DA,2),"^",2),X,DA)
    3)= Please do not delete.
    This xref will be used to index Rxs by filldate and drug pointer. This xref will be used to find Rxs with drug whose price have changed in the Drug file (#50) and needs updating in this file.
    Cross reference will look like the following:
    ^PSRX("ADL",FILLDATE,DRUG POINTER,DA)=""
  • CROSS-REFERENCE:  52^AF^MUMPS
    1)= S:'$D(PSOPAR) PSOPAR=$S($D(^PS(59,$O(^PS(59,0)),1)):^(1),1:"") S P(7)=$P(^PSRX(DA,0),U,8),P(5)=$P(^PSRX(DA,0),U,6),P(2)=$P(^(0),U,3) D MAX^PSOHELP K P(2),P(7),P(5) S:$P(^PSRX(DA,0),U,9)="" $P(^(0),U,9)=MAX K MIN,MAX,RE
    F
    2)= Q
    3)= Do not delete.
    Determines maximum number of refill allowed. It sets piece 9 of ^PSRX(DA,0)= maximum number of refills allowed.
6.5 TRADE NAME TN;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>32!($L(X)<1)!'(X'?1." ")!(X?1N.N) X
  • LAST EDITED:  JUL 06, 1988
  • HELP-PROMPT:  ANSWER MUST BE 1-32 CHARACTERS IN LENGTH, MUST NOT BE BLANK, AND CONTAIN AT LEAST ONE NON-NUMERIC CHARACTER.
  • DESCRIPTION:  
    Free Text that, if it exists, will replace the DRUG name on the RX label.
7 QTY 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:(+X'>0)!(+X>99999999)!(X'?.8N.1".".3N)!($L(X)>11) X D:$D(X) QTY^PSOHELP
  • LAST EDITED:  AUG 03, 2012
  • DESCRIPTION:  
    This field is used to show the amount of medication that was dispensed.
  • TECHNICAL DESCR:  This field allows numeric entries only, both for CMOP prescriptions and non-CMOP prescriptions. It requires a number between .01 and 99999999, with a maximum of 2 fractional decimal places.
    NOTE: QTY values that were on file prior to patch PSO*7*29 (released 2/17/00) may contain alpha characters.
  • EXECUTABLE HELP:  D HELP^PSOHELP
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 DAYS SUPPLY 0;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X D:$G(X) DAYS^PSOHELP1
  • LAST EDITED:  OCT 17, 1995
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  
    Enter a whole number between 1 and 90.  The maximum upper limit is 90, but may be lower based on the maximum specified for this patient status.  This parameter is defined in the RX PATIENT STATUS file.
  • TECHNICAL DESCR:  
    Numeric.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • FIELD INDEX:  ACRO (#427) MUMPS IR ACTION
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical Reminders
    Index Technical Guide/Programmer's Manual.
    Set Logic:  D SKIDX^PSOPXRMU(.X,.DA,"O","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"O","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52,8)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52,31)  (Subscr 2)  (forwards)
  • FIELD INDEX:  ACRE (#430) MUMPS IR ACTION
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical Reminders
    Index Technical Guide/Programmer's Manual.
    Set Logic:  D ERX^PSOPXRMU(.X,.DA,"O","S")
    Kill Logic:  D ERX^PSOPXRMU(.X,.DA,"O","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52,8)  (Subscr 1)  (forwards)
    X(2):  FILL DATE  (52,22)  (Subscr 2)  (forwards)
9 # OF REFILLS 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  D REF^PSOHELP
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  Enter number of refills for this RX, if refillable.
  • DESCRIPTION:  
    The number of refills allowed per prescription.
  • TECHNICAL DESCR:  
    (Required) Number.
  • EXECUTABLE HELP:  S EXH=1 D MAX^PSOHELP K EXH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 SIG SIG;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X D:$D(X) SIG^PSOHELP D:$D(X) EN^DDIOL(" ("_$E(INS1,2,9999999)_")")
  • LAST EDITED:  AUG 22, 2001
  • HELP-PROMPT:  Enter medication instructions for this prescription.
  • DESCRIPTION:  
    Enter the medication instruction for this prescription. Entries should be no longer than 200 total characters, including spaces, with no one set of characters longer than 32 characters in length.
  • EXECUTABLE HELP:  S DIC=51,DIC(0)="Q",DIC("S")="I $P(^(0),""^"",4)<2" D ^DIC S DIC=52 K DIC("S")
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10.1 OERR SIG SIG;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 27, 1995
  • DESCRIPTION:  
    This field is used to determined if the original medication instructions was accepted.  This field for all Rxs entered prior v7 will be null or no.  This field is uneditable.
  • TECHNICAL DESCR:  
    set of codes.
    UNEDITABLE
10.2 SIG1 SIG1;0 Multiple #52.04 52.04
10.3 ORDER CONVERTED 0;19 SET
  • '1' FOR ORDER CONVERTED;
  • '2' FOR EXPIRATION TO CPRS;

  • LAST EDITED:  AUG 04, 1997
  • HELP-PROMPT:  This field is set automatically at conversion and order expiration.
  • DESCRIPTION:  
    This field is used to indicate V7 order conversion complete to OERR.  It's also used to indicate the updating of CPRS on expiration of the order.
10.6 COPIES 0;18 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 20, 1994
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    The number of copies made of the label for the prescription.
  • TECHNICAL DESCR:  
    Number.
11 MAIL/WINDOW 0;11 SET
************************REQUIRED FIELD************************
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;

  • LAST EDITED:  JUL 27, 1994
  • DESCRIPTION:  
    Indicates if the medication will be picked up or mailed to the patient.
  • TECHNICAL DESCR:  
    Set 'M' for Mail, 'W' for Window.
  • CROSS-REFERENCE:  52^ACP3^MUMPS
    1)= S:X="W"&($P(^PSRX(DA,0),"^",2))&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),$P(^(2),"^",2),0,DA)=""
    2)= K:X="W"&($P(^PSRX(DA,0),"^",2))&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),$P(^(2),"^",2),0,DA)
    3)= Do not Delete!
    This cross reference is used to update the ACP xref if the routing should changed. It sets the global ^PSRX("ACP",Patient,Fill Date,0,DA)="".
12 REMARKS 3;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<1) X
  • LAST EDITED:  JUL 22, 1997
  • HELP-PROMPT:  ANSWER MUST BE 1-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Any additional comments.
  • TECHNICAL DESCR:  
    Free Text.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
13 IHS CHART NUMBER COMPUTED

  • MUMPS CODE:  X ^DD(52,13,9.2) I $D(X),X,$D(^PSRX(X,0))#2 S X=$P(^(0),"^",2) I X,$D(^(2)) S PSZ=$P(^(2),"^",9) I PSZ,$D(^DIC(59,PSZ,0))#2 S PSZ=$P(^(0),"^",6) I PSZ,$D(^AUPNPAT(X,41,PSZ,0))#2 S X=$P(^(0),"^",2) S X=X
    9.2 = S X=$S('$D(D0):"",D0<0:"",1:D0)
  • ALGORITHM:  RX CHART NUMBER(NUMBER)
  • LAST EDITED:  NOV 06, 1985
16 ENTERED BY 0;16 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  FEB 15, 1995
  • HELP-PROMPT:  Enter the name of the person who requested the medication.
  • DESCRIPTION:  
    This field will show who requested the rx.
  • TECHNICAL DESCR:  
    Pointer to New Person file (#200).
  • GROUP:  PS
17 UNIT PRICE OF DRUG 0;17 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."7.N) X
  • LAST EDITED:  MAR 01, 2004
  • HELP-PROMPT:  Type a number between 0 and 9999, 6 Decimal Digits
  • DESCRIPTION:  
    Price per dispense unit.
  • TECHNICAL DESCR:  This is the price per dispense unit (per ML/MG etc.) that is calculated when entering the price per order unit, e.g. Price per order unit (bottle) =$0.49, dispense unit is ML & the bottle has 1000ML. Price per dispense
    unit = $(0.49/1000) = $0.00049 = $0.0005 (rounded to the 4th decimal).
20 DIVISION 2;9 POINTER TO OUTPATIENT SITE FILE (#59)
************************REQUIRED FIELD************************
OUTPATIENT SITE(#59)

  • LAST EDITED:  MAY 15, 1995
  • DESCRIPTION:  
    Tells which Outpatient Pharmacy Division filled the prescription.
  • TECHNICAL DESCR:  
    Pointer to Pharmacy Site File (#59)
  • CROSS-REFERENCE:  52^AP^MUMPS
    1)= D SAS^PSOSUTL
    2)= D KAS^PSOSUTL
    This is used to maintain the AS x-ref in Suspense. It sets piece 6 of ^PS(52.5,DA,0)=Division. For a non-CMOP prescription, it can also set the global ^PS(52.5,"AS",Print Date,Printed By,Division,Sequence,DA)="".  For a
    CMOP prescription it can set the global ^PS(52.5,"APR",Print Date,Printed By,Division,Sequence,DA)="".  For a CMOP prescription division edit it can set the global ^PS(52.5,"CMP",Cmop Activity,Rx CMOP
    Type,Division,Suspense Date,DFN,DA)="".
21 LOGIN DATE 2;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 14, 1993
  • DESCRIPTION:  
    The date the prescription was entered.
  • TECHNICAL DESCR:  
    (Required) Date/Time.
22 FILL DATE 2;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^PSRX(DA,0)),X<$P(^(0),U,13) D EN^DDIOL("FILL DATE CANNOT BE BEFORE ISSUE DATE","","!?5") K X
  • LAST EDITED:  SEP 28, 1998
  • DESCRIPTION:  
    The date the prescription was filled.
  • TECHNICAL DESCR:  
    Date.
  • EXECUTABLE HELP:  I $P($G(^PSRX(DA,2)),"^",6) S X=$P(^PSRX(DA,2),"^",6),%DT="X" D ^%DT X ^DD("DD") D EN^DDIOL("Fill Date must be less than or equal to "_Y,"","!") S %DT(0)=-$P(^PSRX(DA,2),"^",6)
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^AD^MUMPS
    1)= S ^PSRX("AD",X,DA,0)=""
    2)= K ^PSRX("AD",X,DA,0)
    This cross reference lists the fill date and the internal entry number.  It sets the global ^PSRX("AD",Fill Date,DA,0)="".
  • CROSS-REFERENCE:  52^AE^MUMPS
    1)= I '$O(^PSRX(DA,1,0)) S $P(^PSRX(DA,3),"^")=X
    2)= Q
    This xref is used to update last dispense date field (#101).  It sets piece 1 of ^PSRX(DA,3)=Fill date.
  • CROSS-REFERENCE:  52^ACP^MUMPS
    1)= S:$P($G(^PSRX(DA,0)),"^",2)&($P($G(^(0)),"^",11)="W")&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),X,0,DA)=""
    2)= K:$P($G(^PSRX(DA,0)),"^",2)&($P($G(^(0)),"^",11)="W")&('$P($G(^(2)),"^",13))&('$P($G(^(2)),"^",15))&('+$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),X,0,DA)
    3)= Do Not Delete!
    This cross reference is used to index copay fills that have not been billed through the IB package. It sets the global ^PSRX("ACP",Patient,Fill Date,0,DA)="".
  • CROSS-REFERENCE:  52^AR^MUMPS
    1)= D SUSFDS^PSOUTLA
    2)= D SUSFDK^PSOUTLA
    This cross reference is used to the the suspense date up to date if the Rx is in suspense. It sets piece 2 of ^PS(52.5,DA,0)=Fill Date, sets ^PS(52.5,"C",Fill Date,DA)="", and ^PS(52.5,"AC",Patient,Fill Date,DA)="".
  • CROSS-REFERENCE:  52^ADL^MUMPS
    1)= I X,$P(^PSRX(DA,0),"^",6) S ^PSRX("ADL",X,$P(^PSRX(DA,0),"^",6),DA)=""
    2)= I X,$P(^PSRX(DA,0),"^",6) K ^PSRX("ADL",X,$P(^PSRX(DA,0),"^",6),DA)
    3)= Please do not delete.
    This xref will be used to index Rxs by filldate and drug pointer. This xref will be used to find Rxs with drug whose price have changed in the Drug file (#50) and needs updating in this file.
    Cross reference will look like the following:
    ^PSRX("ADL",FILLDATE,DRUG POINTER,DA)=""
  • FIELD INDEX:  ACRE (#430) MUMPS IR ACTION
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical Reminders
    Index Technical Guide/Programmer's Manual.
    Set Logic:  D ERX^PSOPXRMU(.X,.DA,"O","S")
    Kill Logic:  D ERX^PSOPXRMU(.X,.DA,"O","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52,8)  (Subscr 1)  (forwards)
    X(2):  FILL DATE  (52,22)  (Subscr 2)  (forwards)
23 PHARMACIST 2;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 26, 1993
  • DESCRIPTION:  
    This field is used to identify the pharmacist that filled the medication request.
  • TECHNICAL DESCR:  
    (Required) Pointer to New Person File (#200).
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))"
  • EXPLANATION:  Only select a user with a pharmacist's key.
24 LOT # 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>55!($L(X)<1) X
  • LAST EDITED:  JUN 02, 2004
  • HELP-PROMPT:  Answer must be 1-55 characters in length.
  • DESCRIPTION:  
    The vendor code for this product.  It is required to be on the label if the medication is sent to a nursing home.
  • TECHNICAL DESCR:  
    Free Text.
25 DISPENSED DATE 2;5 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 30, 1992
  • HELP-PROMPT:  Enter date medication was dispensed.
  • DESCRIPTION:  
    This field will be used to show the actual date the medication was dispensed.
  • TECHNICAL DESCR:  
    date.
26 EXPIRATION DATE 2;6 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 10, 1995
  • HELP-PROMPT:  This date is the date on which the prescription is no longer fillable.
  • DESCRIPTION:  
    The date the medication expires.  This is required to be put on the labels of medication sent to a nursing home.
  • TECHNICAL DESCR:  
    Date.
  • CROSS-REFERENCE:  52^AG
    1)= S ^PSRX("AG",$E(X,1,30),DA)=""
    2)= K ^PSRX("AG",$E(X,1,30),DA)
    3)= DO NOT DELETE !
    This cross refrence is used to index the file by the Expiration Date of the RX.
  • CROSS-REFERENCE:  52^AI^MUMPS
    1)= S:$P($G(^PSRX(DA,"STA")),"^")'=12 ^PS(55,$P($G(^PSRX(DA,0)),"^",2),"P","A",X,DA)=""
    2)= K:$P($G(^PSRX(DA,"STA")),"^")'=12 ^PS(55,$P($G(^PSRX(DA,0)),"^",2),"P","A",X,DA)
    3)= DO NOT DELETE !
    This xref is used to keep the pharmacy patient file "P","A" xref in sync with the expiration date. It sets the global ^PS(55,Patient,"P","A",Expiration Date,DA)="".
26.1 CANCEL DATE 3;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:$P($G(^PSRX(DA,"STA")),U)'=12&($P($G(^PSRX(DA,"STA")),U)'=14) X
  • LAST EDITED:  DEC 08, 2004
  • HELP-PROMPT:  Enter the date this medication is no longer active for dispensing.
  • DESCRIPTION:  
    This date is used to indicate when the medication was cancelled.
  • TECHNICAL DESCR:  
    Date.  This field will only accept input if the status is cancelled.
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^AK^MUMPS
    1)= I $P($G(^PSRX(DA,"STA")),"^")=12!($P($G(^PSRX(DA,"STA")),U)=14) S ^PS(55,+$P(^PSRX(DA,0),"^",2),"P","A",X,DA)="" K ^PS(55,+$P(^PSRX(DA,0),"^",2),"P","A",$P($G(^PSRX(DA,2)),"^",6),DA)
    2)= S ^PS(55,$P(^PSRX(DA,0),"^",2),"P","A",$P(^PSRX(DA,2),"^",6),DA)="" K ^PS(55,$P(^PSRX(DA,0),"^",2),"P","A",X,DA)
    3)= DO NOT DELETE !
    This xref is used to update the "P","A" xref in file 55 when prescriptions are cancelled, or the cancel date is edited using fileman. It sets the global ^PS(55,Patient,"P","A",Cancel Date,DA)="".
27 NDC 2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>13!($L(X)<5)!'(X?5N1"-"4N1"-"2N) X
  • LAST EDITED:  JAN 28, 2004
  • HELP-PROMPT:  Answer must be in NNNNN-NNNN-NN format.
  • DESCRIPTION:  
    This field is used for the National Drug Code.
28 MANUFACTURER 2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<5) X
  • LAST EDITED:  APR 14, 1992
  • HELP-PROMPT:  Answer must be 5-50 characters in length.
  • DESCRIPTION:  
    This field is used to enter the manufacturer of the drug issued.
29 DRUG EXPIRATION DATE 2;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter date the medication expires in the package/bottle from the manufacturer.
  • DESCRIPTION:  
    This date is used to show the expiration date of the medication.  The date reflects the manufacturer's expiration date, not the date the Rx can no longer be filled.
  • TECHNICAL DESCR:  
    date
  • GROUP:  PSO
30 GENERIC PROVIDER 2;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>35!($L(X)<3) X
  • LAST EDITED:  APR 14, 1992
  • HELP-PROMPT:  Answer must be 3-35 characters in length.
  • DESCRIPTION:  
    This field is used to to show a generic provider.  A generic provider is a provider of care to the patient outside of the VA.
  • TECHNICAL DESCR:  
    FREE TEXT.
31 RELEASED DATE/TIME 2;13 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 03, 1993
  • HELP-PROMPT:  Enter the date/time the medication was released.
  • DESCRIPTION:  This field is used to show the actual date and time the medication was released for inventory purposes and copay billing if applicable.
  • TECHNICAL DESCR:  
    date.
  • CROSS-REFERENCE:  52^AL^MUMPS
    1)= S ^PSRX("AL",X,DA,0)=""
    2)= K ^PSRX("AL",X,DA,0)
    3)= This xref should not be deleted.  It is used by the Drug Accountability software(v2).
    This xref creates a 'AL' index for the release date. It sets the global ^PSRX("AL",Released Date/Time,DA,0)="".
  • CROSS-REFERENCE:  52^ACP2^MUMPS
    1)= K:$P(^PSRX(DA,0),"^",2)&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",15))&($G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),$P(^(2),"^",2),0,DA)
    2)= S:$P(^PSRX(DA,0),"^",2)&($P(^(0),"^",11)="W")&($P($G(^(2)),"^",2))&('$P($G(^(2)),"^",15))&(+$G(^("IB"))) ^PSRX("ACP",$P(^PSRX(DA,0),"^",2),$P(^(2),"^",2),0,DA)=""
    3)= Do Not Delete!
    This cross reference is used to remove the 'ACP' xref once a Rx is released.  It can set the global ^PSRX("ACP",Patient,Fill Date,0,DA)="".
  • CROSS-REFERENCE:  52^ZAL^MUMPS
    1)= S ^PSRX("ZAL",+X,DA,"1","N")=""
    2)= K ^PSRX("ZAL",X,DA,"1","N")
    Release date/time xref used for daily rx report.
  • FIELD INDEX:  ACRO (#427) MUMPS IR ACTION
    Short Descr:  Clinical Reminders index.
    Description:  This cross-reference builds two indexes, one for finding all patients with a particular drug and one for finding all the drugs a patient has. The indexes are stored in the Clinical Reminders index global as:
    ^PXRMINDX(52,"IP",DRUG,DFN,START DATE,STOP DATE,DAS)
    ^PXRMINDX(52,"PI",DFN,DRUG,START DATE,STOP DATE,DAS) respectively. START DATE is the RELEASE DATE and STOP DATE is calculated by adding the DAYS SUPPLY to the RELEASE DATE.  For all the details, see the Clinical Reminders
    Index Technical Guide/Programmer's Manual.
    Set Logic:  D SKIDX^PSOPXRMU(.X,.DA,"O","S")
    Kill Logic:  D SKIDX^PSOPXRMU(.X,.DA,"O","K")
    Whole Kill:  Q
    X(1):  DAYS SUPPLY  (52,8)  (Subscr 1)  (forwards)
    X(2):  RELEASED DATE/TIME  (52,31)  (Subscr 2)  (forwards)
32 LABEL DATE/TIME L;0 DATE Multiple #52.032 52.032

  • LAST EDITED:  MAR 05, 1992
  • HELP-PROMPT:  Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient.
  • DESCRIPTION:  
    This sub-file is used to indicate when labels are printed for this prescription.
32.1 RETURNED TO STOCK 2;15 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 08, 1993
  • HELP-PROMPT:  Enter date/time when and if medication was returned to inventory due to not being picked up or mailed to the patient.
  • DESCRIPTION:  
    This field is used to show when and if the medication was returned to stock because the patient did not pick up the meds or it was not mailed.
  • CROSS-REFERENCE:  52^AJ^MUMPS
    1)= S ^PSRX("AJ",X,DA,0)=""
    2)= K ^PSRX("AJ",X,DA,0)
    3)= This xref should not be deleted. It is used by the Drug Accountability software (v2).
    The xref creates a 'AJ' index for the returned to stock date. It sets the global ^PSRX("AJ",Return to Stock,DA,0)="".
32.2 REPRINT 2;14 SET
  • '1' FOR REPRINTED;

  • LAST EDITED:  NOV 23, 1994
  • HELP-PROMPT:  Not set directly by Fileman
  • DESCRIPTION:  
    This field is used to determined if the original fill was reprinted after being returned to stock.  If fill was returned to stock and reprinted this fill will be re-released.
  • TECHNICAL DESCR:  
    set of codes.
32.3 BINGO WAIT TIME 2;16 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 27, 1997
  • HELP-PROMPT:  Type a Number between 1 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    This field reflects, in minutes, the total wait time for bingo board purposes.
33 SEVERITY DRI;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1)!('$G(PSODI)) X
  • LAST EDITED:  APR 05, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  This field is used to store the significant drug interactions encountered by technicians during new/renew order entry. The data will be stored in the form of a string, i.e., 23,43,201. Each number will represent the
    drug/drug interaction found in file #56.  Data is not added directly by FileMan.
  • TECHNICAL DESCR:  
    free text.
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
34 AFFECTED MEDICATION DRI;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>120!($L(X)<1)!('$G(PSODI)) X
  • LAST EDITED:  APR 05, 1993
  • HELP-PROMPT:  Answer must be 1-120 characters in length.
  • DESCRIPTION:  
    This field is used to store the active medication pointer values that is considered to be drug interactions.
  • TECHNICAL DESCR:  
    free text
  • GROUP:  PSO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
34.1 DRUG ALLERGY INDICATION 3;6 SET
  • '1' FOR YES;

  • LAST EDITED:  DEC 13, 1995
  • HELP-PROMPT:  This data is not entered directly with FileMan.
  • DESCRIPTION:  
    This field is used to indicate if a drug allergy event occured.
34.11 DRUG ALLERGY INGREDIENTS DAI;0 Multiple #52.03 52.03

  • DESCRIPTION:  
    This sub-file is used to store drug ingredients of a possible drug allergy and/or an adverse reaction to the medication dispensed in a Rx.
  • TECHNICAL DESCR:  
    sub-file/multiple
35 METHOD OF PICK-UP MP;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2) X
  • LAST EDITED:  OCT 22, 1984
  • HELP-PROMPT:  ANSWER MUST BE 2-60 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter any special instructions that should appear on mailing address portion of the label, specifing where, or when the RX(s) should be picked up.
36 ARCHIVED ARC;1 SET
  • '1' FOR ARCHIVED;

  • LAST EDITED:  AUG 28, 1997
  • HELP-PROMPT:  This field should only be set if the Rx has been archived in Pharmacy.
  • DESCRIPTION:  This field is used to indicate if the Rx has been archived. Once the Rx is marked to be archived and then actually saved to the archived device should this field be populated. This will later be used to determine if the
    Rx can be purged.
37 MEDICATION ROUTES MEDR;0 POINTER Multiple #52.037 52.037

  • DESCRIPTION:  
    This subfile contains possible medication routes from OERR, from the Medication Instructions (SIG) or both.
  • TECHNICAL DESCR:  
    pointer
  • GROUP:  PSO
37.1 SCHEDULES SCH;0 Multiple #52.038 52.038

  • DESCRIPTION:  
    This sub-file contains possible schedules from OERR, Medication Instructions or both.
  • TECHNICAL DESCR:  
    free text.
38 FINISHING PERSON OR1;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 18, 1997
  • HELP-PROMPT:  Data not entered directly with FM.
  • DESCRIPTION:  
    This field is used to indicate the person who finished the order in Pharmacy.
  • TECHNICAL DESCR:  
    poniter.
38.1 FILLING PERSON OR1;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Data not entered directly with FM.
  • DESCRIPTION:  
    The name of the pharmacist who scanned the barcode before filling the medication request.
  • TECHNICAL DESCR:  
    pointer
38.2 CHECKING PHARMACIST OR1;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Data not entered directly with FM.
  • DESCRIPTION:  
    The name of the pharmacist that checked the medication request.
  • TECHNICAL DESCR:  
    pointer
38.3 FINISH DATE/TIME OR1;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  FEB 05, 2007
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date/time prescription is finished.
  • TECHNICAL DESCR:  
    Date/time prescription is finished.
  • CROSS-REFERENCE:  52^AFDT
    1)= S ^PSRX("AFDT",$E(X,1,30),DA)=""
    2)= K ^PSRX("AFDT",$E(X,1,30),DA)
39 PROVIDER COMMENTS PRC;0 WORD-PROCESSING #52.039

  • DESCRIPTION:  
    This field stores any provider comments that are passed to Pharmacy from CPRS.
39.1 PHARMACY INSTRUCTIONS PI;0 WORD-PROCESSING #52.02

  • DESCRIPTION:  
    This field contains Pharmacy Instructions passed to Pharmacy from CPRS.
39.2 PHARMACY ORDERABLE ITEM OR1;1 POINTER TO PHARMACY ORDERABLE ITEM FILE (#50.7) PHARMACY ORDERABLE ITEM(#50.7)

  • LAST EDITED:  MAY 15, 1995
  • HELP-PROMPT:  This data should not be entered by using File Manager.
  • DESCRIPTION:  This is the Pharmacy Orderable Item associated with the drug. This data should not be entered by using File Manager. If the Rx does not have a Pharmacy Orderable Item entered check the drug for the RX. If the drug is
    missing an orderable item match the drug not the Rx.  Only matching the Rx will cause problems when renewing the Rx.
  • TECHNICAL DESCR:  
    pointer.
39.3 PLACER ORDER # OR1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 17, 1996
  • HELP-PROMPT:  Type a Number between 1 and 9999999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is the CPRS entry number for this order.
  • CROSS-REFERENCE:  52^APL
    1)= S ^PSRX("APL",$E(X,1,30),DA)=""
    2)= K ^PSRX("APL",$E(X,1,30),DA)
    3)= Do Not Delete!
    This xref is used to index the Rx by oerr's placer number.  this is the pointer to oerr's orders file.
39.4 PREVIOUS ORDER # OR1;3 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  JUL 28, 1996
  • DESCRIPTION:  
    This field is used to indicate rx number renewed from
  • CROSS-REFERENCE:  52^AO
    1)= S ^PSRX("AO",$E(X,1,30),DA)=""
    2)= K ^PSRX("AO",$E(X,1,30),DA)
    3)= Do not delete
39.5 FORWARD ORDER # OR1;4 POINTER TO PRESCRIPTION FILE (#52) PRESCRIPTION(#52)

  • LAST EDITED:  JUL 28, 1996
  • DESCRIPTION:  
    This field is used to stored the pointer to the rx that was renewed.
  • CROSS-REFERENCE:  52^AQ
    1)= S ^PSRX("AQ",$E(X,1,30),DA)=""
    2)= K ^PSRX("AQ",$E(X,1,30),DA)
    3)= do not delete.
40 ACTIVITY LOG A;0 DATE Multiple #52.3 52.3

  • LAST EDITED:  MAR 24, 1993
  • DESCRIPTION:  
    Activity Log.
  • TECHNICAL DESCR:  
    Date.  Multiple #52.3 (Add new entry without asking).
    WRITE AUTHORITY:  ^
41 WAS THE PATIENT COUNSELED PC;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 02, 1995
  • HELP-PROMPT:  If patient was counseled about this Rx enter Yes.
  • DESCRIPTION:  
    This field indicates whether or not the patient received counseling about the prescription.
42 WAS COUNSELING UNDERSTOOD PC;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 02, 1995
  • HELP-PROMPT:  If patient understood counseling received enter 'Yes'.
  • DESCRIPTION:  
    This field indicates whether or not the patient understood the counseling on the prescription, if the patient was counseled.
52 REFILL 1;0 DATE Multiple #52.1 52.1

  • OUTPUT TRANSFORM:  
  • LAST EDITED:  OCT 11, 1991
  • DESCRIPTION:  
    This is the date the prescription is refilled.
  • TECHNICAL DESCR:  
    Date Multiple #52.1 (Add new entry without asking).
    SOURCE OF DATA:   VAF 10-2577
52.25 REJECT INFO REJ;0 Multiple #52.25 52.25
60 PARTIAL DATE P;0 DATE Multiple #52.2 52.2

  • DESCRIPTION:  
    This sub-file is used to store data on partial prescriptions filled.
  • TECHNICAL DESCR:  
    DATE.
81 DAW CODE EPH;1 FREE TEXT

  • INPUT TRANSFORM:  D INPUT^PSSDAWUT
  • LAST EDITED:  JUN 27, 2005
  • DESCRIPTION:  
    Dispensed As Written code. This information is used for electronic claim transmission to third party payers (insurance companies).
  • EXECUTABLE HELP:  D HLP^PSSDAWUT
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
82 RE-TRANSMIT FLAG EPH;2 SET
  • '1' FOR YES;

  • LAST EDITED:  OCT 19, 2005
  • DESCRIPTION:  
    This field is used to indicate that a claim should be electronically re-transmitted to the 3rd party insurance. It will be primarily used by CMOP and local mail prescriptions.
83 DATE NDC VALIDATED EPH;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 2008
  • HELP-PROMPT:  Enter the date and time that the prescription was validated.
  • DESCRIPTION:  
    This field contains the date and time that the NDC was validated prior to release of the prescription fill.
  • TECHNICAL DESCR:  
    This field is set by the NDC Validation [PSO NDC VALIDATE] option when the NDC on the prescription matches the NDC on the stock bottle.
    UNEDITABLE
84 NDC VALIDATED BY EPH;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  DEC 03, 2007
  • HELP-PROMPT:  Enter the User's ID who validated the NDC.
  • DESCRIPTION:  
    This field will contain the user ID of the person who validated the NDC prior to release of the prescription fill.
  • TECHNICAL DESCR:  
    This field is set by the NDC Validation [PSO NDC VALIDATE] option when the NDC on the prescription matches the NDC on the stock bottle.
    UNEDITABLE
85 BILLING ELIGIBILITY INDICATOR EPH;5 SET
  • 'T' FOR TRICARE;
  • 'V' FOR VETERAN;
  • 'C' FOR CHAMPVA;

  • LAST EDITED:  FEB 25, 2008
  • HELP-PROMPT:  Enter T for Tricare , V for Veteran, or C for CHAMPVA.
  • DESCRIPTION:  
    This field is set when a prescription is third party insurance billable and will contain T for Tricare, V for Veteran or C for CHAMPVA.
  • TECHNICAL DESCR:  
    This field contains the billing eligibility flag passed from ECME upon submission of a claim for the fill.
86 EPHARMACY SUSPENSE HOLD DATE EPH;6 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  MAY 07, 2008
  • HELP-PROMPT:  Enter the date the prescription can be removed from suspense hold.
  • DESCRIPTION:  
    This field is defined when a host reject error is received as a result of an ePharmacy claims submission.  The prescription fill will be held on suspense until the next day.
  • TECHNICAL DESCR:  This field is defined with a date/time of 24 hours from the date/time the original RX was rejected with either a M6, M8, NN, or 99 host reject error code. This allows the software to resubmit a claim the following day to
    attempt a successful acceptance.
99 HOLD REASON H;1 SET
************************REQUIRED FIELD************************
  • '1' FOR INSUFFICIENT QTY IN STOCK;
  • '2' FOR DRUG-DRUG INTERACTION;
  • '3' FOR PATIENT REACTION;
  • '4' FOR PHYSICIAN TO BE CONTACTED;
  • '5' FOR ALLERGY REACTIONS;
  • '6' FOR DRUG REACTION;
  • '7' FOR BAD ADDRESS;
  • '8' FOR PER PATIENT REQUEST;
  • '99' FOR OTHER--SEE COMMENTS;
  • '80' FOR RFTS;
  • '81' FOR RFTS-INS;
  • '82' FOR REFP;

  • LAST EDITED:  MAY 27, 2010
  • HELP-PROMPT:  Enter reason medication is placed in a 'Hold' status.
  • DESCRIPTION:  
    This field tells why the prescription was put on hold.
  • TECHNICAL DESCR:  
    Enter reason medication is being placed in a 'Hold' status.
  • CROSS-REFERENCE:  52^AH
    1)= S ^PSRX("AH",$E(X,1,30),DA)=""
    2)= K ^PSRX("AH",$E(X,1,30),DA)
99.1 HOLD COMMENTS H;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<10) X
  • LAST EDITED:  MAY 06, 1992
  • HELP-PROMPT:  Enter brief comments on why medication was placed on 'Hold'. Answer must be 10-100 characters in length.
  • DESCRIPTION:  
    This field is used to enter brief comments on why the medication was placed on 'Hold' status.
  • TECHNICAL DESCR:  
    Free text.
  • GROUP:  PSO
99.2 HOLD DATE H;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 13, 1992
  • HELP-PROMPT:  Enter date that medication was placed in a 'Hold' status.
  • DESCRIPTION:  
    This field is used to indicate the date that a prescription was placed on hold.
100 STATUS STA;1 SET
************************REQUIRED FIELD************************
  • '0' FOR ACTIVE;
  • '1' FOR NON-VERIFIED;
  • '2' FOR REFILL;
  • '3' FOR HOLD;
  • '4' FOR DRUG INTERACTIONS;
  • '5' FOR SUSPENDED;
  • '10' FOR DONE;
  • '11' FOR EXPIRED;
  • '12' FOR DISCONTINUED;
  • '13' FOR DELETED;
  • '14' FOR DISCONTINUED BY PROVIDER;
  • '15' FOR DISCONTINUED (EDIT);
  • '16' FOR PROVIDER HOLD;

  • LAST EDITED:  NOV 04, 1997
  • DESCRIPTION:  
    This field represents the current status of the prescription.
  • TECHNICAL DESCR:  
    set of codes.
101 LAST DISPENSED DATE 3;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 05, 1992
  • HELP-PROMPT:  Enter date that he presciption was last filled.
  • DESCRIPTION:  
    This field contains the last fill date.
  • TECHNICAL DESCR:  
    Date.
102 NEXT POSSIBLE FILL 3;2 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 20, 1992
  • DESCRIPTION:  
    This field contains the next possible fill date.
  • TECHNICAL DESCR:  
    Date.
102.1 PRIOR FILL DATE 3;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 25, 1993
  • HELP-PROMPT:  Data is not entered through file manager.
  • DESCRIPTION:  
    This field is used to indicate the last date the prescription was filled.  The dates in this field will be the date of the last renew from a previous rx, and any subsequent fills.
  • TECHNICAL DESCR:  
    date.
  • GROUP:  PSO
102.2 PENDING NEXT POSSIBLE FILLDATE 3;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 27, 1996
  • DESCRIPTION:  
    This field is to contain the next possible filldate if the Rx was discontinued prior to the original label printing.  If the Rx is reinstated this date will be restored to field 102 (next possbile filldate).
103 NEW DRUG DRG;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 14, 1985
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used to enter a new drug.
104 VERIFYING PHARMACIST 2;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 26, 1993
  • HELP-PROMPT:  Enter name of pharmacist that is verifing the prescription.
  • DESCRIPTION:  
    This field is used to show the pharmacist that verified the prescription
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PSORPH"",Y))"
  • EXPLANATION:  Only valid verifying pharmacist are to be selected.
    UNEDITABLE
105 COPAY TRANSACTION TYPE IB;1 POINTER TO IB ACTION TYPE FILE (#350.1) IB ACTION TYPE(#350.1)

  • LAST EDITED:  APR 17, 1991
  • DESCRIPTION:  
    This field contains the internal entry number of the pointer to the IB Action Type file (#350.1).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
    UNEDITABLE
106 IB NUMBER IB;2 POINTER TO INTEGRATED BILLING ACTION FILE (#350) INTEGRATED BILLING ACTION(#350)

  • LAST EDITED:  APR 17, 1991
  • DESCRIPTION:  
    This field contains the internal entry number of the pointer to the Integrated Billing Action file (#350).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
    UNEDITABLE
106.5 COPAY TYPE AUDIT IB;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  DEC 11, 1996
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    This field serves as an audit of the original copay status. It is not changed or reset if the orignal status is changed.
    UNEDITABLE
106.6 COPAY EXCEEDING CAP IB;4 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  SEP 04, 2001
  • HELP-PROMPT:  This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS FILE (#354.71)
  • DESCRIPTION:  
    This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS file (#354.71).  There will only be data in this field if this Rx's copay exceeded the annual copay cap.
  • TECHNICAL DESCR:  
    This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS file (#354.71).  There will only be data in this field if this Rx's copay exceeded the annual copay cap.
107 COPAY ACTIVITY LOG COPAY;0 DATE Multiple #52.0107 52.0107

  • LAST EDITED:  JUL 16, 2001
  • HELP-PROMPT:  This is the CMOP batch number from the CMOP SYSTEM file.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
108 DELETION COMMENTS D;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<5) X
  • LAST EDITED:  NOV 15, 1990
  • HELP-PROMPT:  Answer must be 5-100 characters in length.
  • DESCRIPTION:  
    This field is used to enter comments on why a prescription was marked as deleted.
  • TECHNICAL DESCR:  
    required.
109 COSIGNING PHYSICIAN 3;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^(""PS"")),$P(^(""PS""),""^""),'$P(^(""PS""),""^"",7),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)'
  • LAST EDITED:  MAR 23, 1993
  • DESCRIPTION:  
    This field identifies the cosigning physician for prescriptions written by a provider for whom a counter signature is required, for example a nurse practitioner.
  • TECHNICAL DESCR:  
    pointer
  • SCREEN:  S DIC("S")="I $D(^(""PS"")),$P(^(""PS""),""^""),'$P(^(""PS""),""^"",7),$S('$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)'
  • EXPLANATION:  Select an active provider who does not require a cosigner.
  • CROSS-REFERENCE:  52^ANCO^MUMPS
    1)= K ^PSRX("ANCO",DA)
    2)= I $D(^VA(200,+$P(^PSRX(DA,0),"^",4),"PS")),$P(^("PS"),"^",7) S ^PSRX("ANCO",DA)=""
    3)= Do not delete.
    This cross reference lists the internal record number if the physician requires a cosigning physician. It sets the global ^PSRX("ANCO",DA)="".
110 TYPE OF RX TYPE;1 NUMBER

  • INPUT TRANSFORM:  K X
  • LAST EDITED:  JUN 10, 1992
  • HELP-PROMPT:  Data is not entered directly with FileMan.
  • DESCRIPTION:  
    This field is used to indicate if the rx dispensed is a partial or normal process rx.  If partial medication was dispensed this will be equal to the entry number else the field will be equal to zero.
  • TECHNICAL DESCR:  
    number
  • GROUP:  pso
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
111 POE RX POE;1 SET
  • '1' FOR YES;

  • LAST EDITED:  MAY 06, 2000
  • HELP-PROMPT:  This field will be set for all prescriptions, this includes prescriptions entered before installation of PSO*7*46.
  • DESCRIPTION:  This field shall be set whenever a new/renew prescription is entered after the Pharmacy Ordering Enhancements software for Outpatient Pharmacy has been installed. This field will set to 1 for all pre-POE Rxs during the
    install of PSO*7*46.
  • TECHNICAL DESCR:  
    set of codes.
112 ORIGINAL QTY 3;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<.01)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAY 06, 2000
  • HELP-PROMPT:  This field allows numeric entries only, both for CMOP Rxs and non-CMOP Rxs. It requires a number between .01 and 99999999, a maximum of 2 fractional decimals.
  • DESCRIPTION:  
    This field will hold the quantity that was filled for the original fill of the Rx.
  • TECHNICAL DESCR:  
    numeric.
113 MEDICATION INSTRUCTIONS 6;0 Multiple #52.0113 52.0113

  • LAST EDITED:  MAY 06, 2000
  • DESCRIPTION:  
    This sub-file will contain the dispense units per dosage ordered, dosage ordered, units, noun, duration and conjunction fields.
  • TECHNICAL DESCR:  
    sub-file.
114 PATIENT INSTRUCTIONS INS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  MAY 11, 2000
  • HELP-PROMPT:  Enter patient instructions. Answer must be 1-240 characters in length.
  • DESCRIPTION:  
    The text in this field shall be used for the Patient Instructions in the Outpatient Pharmacy package when entering orders, if the Dispense Drug selected is matched to a Pharmacy Orderable Item with patient instructions.
  • TECHNICAL DESCR:  
    free text.
114.1 OTHER PATIENT INSTRUCTIONS INSS;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  OCT 09, 2002
  • HELP-PROMPT:  Enter Other Patient Instructions. Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    This field will be used to store the Other Language Patient Instructions when added.
  • TECHNICAL DESCR:  
    free text.
  • GROUP:  PSO
115 EXPANDED PATIENT INSTRUCTIONS INS1;0 WORD-PROCESSING #52.0115
116 SERVICE CONNECTED IBQ;1 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 14, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is for a Service Connected condition.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, a pharmacist may be asked if the medication being prescribed is for a service connected condition. This field will store the pharmacist's response to this question. The value in this
    field will be used to evaluate whether or not a copay should be applied to the prescription. This value will also be used as a default should this question be raised again during the life of the prescription when a
    prescription fill is being released, or as the default for the question upon renewal of the prescription through CPRS or Outpatient Pharmacy.
117 MILITARY SEXUAL TRAUMA IBQ;2 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  AUG 14, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used for treatment of Military Sexual Trauma.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, if a veteran has been identified as having been treated for Military Sexual Trauma, the pharmacist may be asked to identify whether or not the medication prescribed is being used to
    treat a condition related to Military Sexual Trauma. This field will store the pharmacist's response to this question. The value in this field will be used to evaluate whether or not a copay should be applied to the
    prescription. This value will also be used as a default should this question be raised again during the life of the prescription when a prescription fill is being released, or as the default for the question upon renewal
    of the prescription through CPRS or Outpatient Pharmacy.
118 AGENT ORANGE EXPOSURE IBQ;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used for treatment of Vietnam-Era herbicide exposure.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, if a veteran has been identified as having been exposed to Agent Orange during Vietnam service, the pharmacist may be asked to identify whether or not the medication prescribed is
    being used to treat a condition due to this exposure. This field will store the pharmacist's response to this question. The value in this field will be used to evaluate whether or not a copay should be applied to the
    prescription. This value will also be used as a default should this question be raised again during the life of the prescription when a prescription fill is being released, or as the default for the question upon renewal
    of the prescription through CPRS or Outpatient Pharmacy.
119 IONIZING RADIATION EXPOSURE IBQ;4 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition due to ionizing radiation exposure during military service.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, if a veteran has been identified as having been exposed to ionizing radiation during military service, the pharmacist may be asked to identify whether or not the medication
    prescribed is being used to treat a condition due to this exposure. This field will store the pharmacist's response to this question. The value in this field will be used to evaluate whether or not a copay should be
    applied to the prescription. This value will also be used as a default should this question be raised again during the life of the prescription when a prescription fill is being released, or as the default for the question
    upon renewal of the prescription through CPRS or Outpatient Pharmacy.
120 SOUTHWEST ASIA CONDITIONS IBQ;5 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUN 27, 2006
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to service in Southwest Asia.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, if a veteran has been identified as having been exposed to Southwest Asia Conditions (formerly referred to as Environmental Contaminants), the pharmacist may be asked to identify
    whether or not the medication prescribed is being used to treat a condition due to this exposure. This field will store the pharmacist's response to this question. The value in this field will be used to evaluate whether
    or not a copay should be applied to the prescription.  This value will also be used as a default should this question be raised again during the life of the prescription when a prescription fill is being released, or as
    the default for the question upon renewal of the prescription through CPRS or Outpatient Pharmacy.
120.01 DDSTATUS DDSTA;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAY 13, 2002
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    This field will hold the status of the prescription at the time a date of death was entered.
  • TECHNICAL DESCR:  
    free text.
120.02 DATE OF DEATH HISTORY DDSTA;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>235!($L(X)<1) X
  • LAST EDITED:  MAY 13, 2002
  • HELP-PROMPT:  Answer must be 1-235 characters in length.
  • DESCRIPTION:  This field will be used to take a snapshot of the Rx at the time it was discontinued due to a date of death being entered for the patient. This data will be used to restore the Rx to the state before the date of death was
    entered.
  • TECHNICAL DESCR:  
    free text.
121 HEAD AND/OR NECK CANCER IBQ;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 23, 2001
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat Head and/or Neck Cancer due to nose or throat radium treatments while in the military.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, if a veteran has been identified as having been treated for Head and/or Neck Cancer due to nose or throat radium treatments while in the military, the pharmacist may be asked to
    identify whether or not the medication prescribed is being used to treat this condition. This field will store the pharmacist's response to this question. The value in this field will be used to evaluate whether or not a
    copay should be applied to the prescription. This value will also be used as a default should this question be raised again during the life of the prescription when a prescription fill is being released, or as the default
    for the question upon renewal of the prescription through CPRS or Outpatient Pharmacy.
122 COMBAT VETERAN IBQ;7 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 11, 2003
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to Combat Services.
  • DESCRIPTION:  During Outpatient Pharmacy order entry, a pharmacist may be asked if the medication being prescribed is for a condition related to Combat Services while in the military. This field will store the pharmacist's response to
    this question. The value in this field will be used to evaluate whether or not a copay should be applied to the prescription. This value will also be used as a default should this question be raised again during the life
    of the prescription.
122.01 PROJ 112/SHAD IBQ;8 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 17, 2006
  • HELP-PROMPT:  Enter 'Yes' if this prescription is being used to treat a condition related to PROJ 112/SHAD
  • DESCRIPTION:  During Outpatient Pharmacy order entry, a pharmacist may be asked if the medication being prescribed is for a condition related to PROJ 112/SHAD while in the military. This field will store the pharmacist's response to
    this question. The value in this field will be used to evaluate whether or not a copay should be applied to the prescription. This value will also be used as a default should this question be raised again during the life
    of the prescription.
123 EXTERNAL PLACER ORDER NUMBER EXT;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  AUG 05, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field represents the external system order number of this order. This field will only be populated if this order was originally received from an external system into Vista.
    UNEDITABLE
  • RECORD INDEXES:  D (#147)
124 EXTERNAL APPLICATION EXT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  AUG 05, 2002
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
  • DESCRIPTION:  
    This field represents the name of the external system from where the external order was received.
    UNEDITABLE
  • RECORD INDEXES:  D (#147)
125 PFSS ACCOUNT REFERENCE PFS;1 POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 12, 2005
  • DESCRIPTION:  
    This is a reference number to an external medical billing system Account Number for the purposes of uniquely identifying prescription charges for 1st or 3rd party billing.
  • TECHNICAL DESCR:  This field was introduced as part of the Patient Financial Services System (PFSS) project to implement a new COTS billing system. It requires that every prescription fill passed to the external billing system to attach a
    unique account/visit number. The IBB API GETACCT^IBBAPI provides this data and is stored during prescription order creation as part of the data.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
126 PFSS CHARGE ID PFS;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<90000000)!(X?.E1"."1.N) X
  • LAST EDITED:  MAY 18, 2005
  • HELP-PROMPT:  Type a number between 90000000 and 99999999, 0 Decimal Digits
  • DESCRIPTION:  
    This is another unique identifier required when prescription charge messages are passed to the external billing system.
  • TECHNICAL DESCR:  This field was introduced as part of the Patient Financial Services System (PFSS) project to implement a new COTS billing system. It requires that every prescription charge transaction passed to the external billing system
    to attach a unique charge identifier. The IBB API GETCHGID^IBBAPI provides this data.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
127 LAST DISPENSED DATE HOLDER 3;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 13, 2006
  • DESCRIPTION:  
    This field is a holder for the last dispensed date.
201 TPB RX TPB;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 16, 2003
  • HELP-PROMPT:  Enter 'Yes' is this prescription is part of the Transitional Pharmacy Benefit project.
  • DESCRIPTION:  
    If this field is set to 'Yes', that indicates that this prescription has been created as part of the Transitional Pharmacy Benefit project. This field is controlled by the software.
301 CLOZAPINE DOSAGE (MG/DAY) SAND;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>3000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 16, 1991
  • HELP-PROMPT:  Type a Number between 0 and 3000, 0 Decimal Digits
  • DESCRIPTION:  
    This is the total daily dosage of clozapine if this prescription is for the drug clozapine.  This is used only for clozapine.
302 WBC RESULTS SAND;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4.N) X
  • LAST EDITED:  JUL 18, 2006
  • HELP-PROMPT:  Type a number between 0 and 99999, 3 Decimal Digits
  • DESCRIPTION:  
    This is the results of the WBC test which was used to authorize the clozapine prescription. This will exist only for clozapine prescriptions.
  • TECHNICAL DESCR:  
    This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch YS*5.01*90 as Mental Health monitor the Clozapine patient.
303 DATE OF WBC TEST SAND;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 01, 1992
  • DESCRIPTION:  
    This is the date of the WBC test which authorized the clozapine prescription.  It is used only for clozapine prescriptions.
304 ANC RESULTS SAND;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."4.N) X
  • LAST EDITED:  JUL 18, 2006
  • HELP-PROMPT:  Type a number between 0 and 99999, 3 Decimal Digits
  • DESCRIPTION:  
    This is the results of the ANC test that was used to authorize the clozapine prescription. This will exist only for clozapine prescriptions.
  • TECHNICAL DESCR:  
    This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch YS*5.01*90 as Mental Health monitor the Clozapine patient.
310 SIGNATURE STATUS PKI;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  AUG 09, 2002
  • HELP-PROMPT:  Data not entered directly with file manager.
  • DESCRIPTION:  
    Digital Signature status indicator.
  • TECHNICAL DESCR:  
    This field will be used to indicate the digital signature status of an order. A value of '1' will indicate that the original order was digitally signed.
400 CMOP EVENT 4;0 POINTER Multiple #52.01 52.01

  • LAST EDITED:  JUN 16, 1994
  • TECHNICAL DESCR:  
    Pointer to the CMOP Transmission file #550.2.
401 LOT/EXP 5;0 Multiple #52.0401 52.0401
52311 ICD DIAGNOSIS ICD;0 POINTER Multiple #52.052311 52.052311

  • LAST EDITED:  APR 01, 2004
521011 HOSPITAL COVERAGE BOOLEAN COMPUTED

  • MUMPS CODE:  S X=$S('$D(^PSRX(D0,0)):0,$P(^PSRX(D0,0),"^",2)="":0,$D(^DPT($P(^PSRX(D0,0),"^",2),4)):$P(^(4),"^",5),1:0)
  • ALGORITHM:  S X=$S('$D(^PSRX(D0,0)):0,$P(^PSRX(D0,0),"^",2)="":0,$D(^DPT($P(^PSRX(D0,0),"^",2),4)):$P(^(4),"^",5),1:0)
  • LAST EDITED:  JUN 09, 1990
  • DESCRIPTION:  
    This field is used to compute hospital coverage from MAS.
9999999.01 LABEL EXPIRATION DATE 9999999;1 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:3300000X) X
  • LAST EDITED:  MAY 06, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN DT AND 2030
9999999.02 CHRONIC MEDICATION 9999999;2 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 10, 2008
  • HELP-PROMPT:  Enter a "Y" if you want this medication to appear on the Chronic Medication Profile.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52^CP^MUMPS
    1)= I X="Y",$P(^PSRX(DA,0),"^",15)'=12 S ^PS(55,+$P(^PSRX(DA,0),"^",2),"P","CP",DA)=""
    2)= K ^PS(55,+$P(^PSRX(DA,0),"^",2),"P","CP",DA)
9999999.03 ORDER FILL DATE 9999999;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 1993
9999999.04 ORDER REFILL DATE 9999999;4 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 1993
9999999.05 ORDER PARTIAL DATE 9999999;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 30, 1993
9999999.06 BENCHMARK UNIT PRICE OF DRUG 9999999;6 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
9999999.07 BILL STATUS 9999999;7 SET
  • '0' FOR MANUAL BILL;
  • '1' FOR AUTO BILL;

  • LAST EDITED:  OCT 03, 2000
9999999.08 PAY STATUS 9999999;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  SEP 14, 2000
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
9999999.09 PAY STATUS (COMPUTED) COMPUTED

  • MUMPS CODE:  S X=$$STATUS^APSQBRES(D0)
  • ALGORITHM:  S X=$$STATUS^APSQBRES(D0)
9999999.11 PCC LINK 999999911;1 POINTER TO V MEDICATION FILE (#9000010.14) V MEDICATION(#9000010.14)

  • LAST EDITED:  MAR 14, 1990
  • HELP-PROMPT:  The pharmacy link program sets this field, which should not be modified by users
  • CROSS-REFERENCE:  52^APCC
    1)= S ^PSRX("APCC",$E(X,1,30),DA)=""
    2)= K ^PSRX("APCC",$E(X,1,30),DA)
9999999.12 INSURER INFO 9999999;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 18, 2000
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
9999999.13 DUR/PPS POINTER 9999999;13 POINTER TO ABSP DUR/PPS FILE (#9002313.473) ABSP DUR/PPS(#9002313.473)

  • LAST EDITED:  DEC 10, 2002
  • HELP-PROMPT:  THIS IS THE DUR/PPS POINTER
9999999.14 TRIPLICATE SERIAL # 9999999;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<1) X
  • LAST EDITED:  DEC 10, 2002
  • HELP-PROMPT:  Answer with triplicate serial #-must be 1-12 characters in length.
9999999.15 PRICING OVERRIDE 9999999;15 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  MAY 13, 2005
  • DESCRIPTION:  
    This field points to the ABSP NCPCP 5.1 PRICING OVERRIDE file used by Point of Sale to populate needed fields within the pricing segment.
9999999.17 DIAGNOSIS CODE POINTER 9999999;17 POINTER TO ABSP DIAGNOSIS CODE FILE (#9002313.491) ABSP DIAGNOSIS CODE(#9002313.491)

  • LAST EDITED:  SEP 17, 2007
9999999.21 SIGN OR SYMPTOM 999999921;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>160!($L(X)<3)!'(X'?3" "&($E(X'=" "))) X
  • LAST EDITED:  MAR 02, 2011
  • HELP-PROMPT:  Answer must be 3-160 characters in length.
9999999.22 INDICATION CODE 999999921;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  SEP 26, 2007
  • HELP-PROMPT:  Clinical indication code.
9999999.23 AUTOFINISHED 999999921;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  OCT 25, 2007
9999999.24 ELECTRONIC PHARMACY 999999921;4 POINTER TO APSP PHARMACY LIST FILE (#9009033.9) APSP PHARMACY LIST(#9009033.9)

  • LAST EDITED:  OCT 02, 2007
9999999.25 SUBSTITUTION 999999921;5 SET
  • '0' FOR ALLOWED;
  • '1' FOR NOT ALLOWED;
  • '2' FOR ALLOWED-PATIENT;
  • '3' FOR ALLOWED-PHARMACIST;
  • '4' FOR ALLOWED-NOT IN STOCK;
  • '5' FOR ALLOWED-BDD AS GENERIC;
  • '7' FOR NOT ALLOWED-BDM BY LAW;
  • '8' FOR ALLOWED-GENERIC NOT AVAIL;

  • LAST EDITED:  MAR 06, 2008
  • HELP-PROMPT:  Enter substitution value
9999999.26 CASH DUE 999999921;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999.99)!(X<0) X
  • LAST EDITED:  DEC 09, 2008
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits
9999999.27 RXNORM CODE 999999921;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  NOV 20, 2012
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
9999999.28 DISCHARGE MEDICATION 999999921;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 04, 2013
9999999.31 PRV STREET ADDRESS 1 999999931;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Answer must be 2-50 characters in length
  • DESCRIPTION:  
    Holds the first line of the provider's street address at the time of precription creation.
9999999.32 PRV STREET ADDRESS 2 999999931;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Answer must be 2-50 characters in length
  • DESCRIPTION:  
    Holds the second line of the provider's street address at the time of precription creation.
9999999.33 PRV STREET ADDRESS 3 999999931;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
  • DESCRIPTION:  
    Holds the third line of the provider's street address at the time of precription creation.
9999999.34 PRV CITY 999999931;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Answer must be 2-30 characters in length
  • DESCRIPTION:  
    Holds the provider's city at the time of precription creation.
9999999.35 PRV STATE 999999931;5 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  APR 15, 2011
  • DESCRIPTION:  
    Holds the provider's state at the time of precription creation.
9999999.36 PRV ZIP CODE 999999931;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5)!'('(X?5N!(X?5N1"-"4N))) X
  • LAST EDITED:  APR 15, 2011
  • HELP-PROMPT:  Answer with ZIP CODE or ZIP+4
  • DESCRIPTION:  
    Holds the provider's zip code at the time of precription creation.
9999999.37 DEA_VA_USPHS 999999931;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<4) X
  • LAST EDITED:  MAY 17, 2011
  • HELP-PROMPT:  Answer must be 4-30 characters in length.
  • DESCRIPTION:  1. If provider DEA# exists in File 200 use that. 2. If no provider DEA# exists, use Facility DEA# from Institution file, VA# from File 200, and “USPHS” as such: Facility DEA# - VA# - USPHS (ie AU1234567 – BB1234 –
    USPHS)
9999999.38 PRIORITY 999999931;8 SET
  • 'S' FOR RUSH;
  • 'W' FOR WAITING;
  • 'T' FOR TELEPHONE;
  • 'R' FOR REFILL BY MAIL;
  • 'N' FOR NOT WAITING;

  • LAST EDITED:  SEP 27, 2011

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2678
  • Clinical Information Resource Network
  • RELEASED DATE/TIME (31).
    Access: Direct Global Read & w/Fileman

    SIG1 (.01).
    Access: Direct Global Read & w/Fileman

    REFILL (52).
    Access: Direct Global Read & w/Fileman

    REFILL DATE (.01).
    Access: Direct Global Read & w/Fileman

    QTY (1).
    Access: Direct Global Read & w/Fileman

    RETURNED TO STOCK (14).
    Access: Direct Global Read & w/Fileman

    PARTIAL DATE (.01).
    Access: Direct Global Read & w/Fileman

    QTY (.04).
    Access: Direct Global Read & w/Fileman

    RETURNED TO STOCK (5).
    Access: Direct Global Read & w/Fileman

    REASON (.02).
    Access: Direct Global Read & w/Fileman

    COMMENT (.05).
    Access: Direct Global Read & w/Fileman

    ICR #2905
  • Text Integration Utility
  • DRUG (6).
    Access: Direct Global Read & w/Fileman

    PHARMACY ORDERABLE ITEM (39.2).
    Access: Direct Global Read & w/Fileman

    ICR #6149
  • VA Point of Service
  • RX # (.01).
    Access: Read w/Fileman

    # OF REFILLS (9).
    Access: Read w/Fileman

    PLACER ORDER # (39.3).
    Access: Read w/Fileman

    PREVIOUS ORDER # (39.4).
    Access: Read w/Fileman

    FORWARD ORDER # (39.5).
    Access: Read w/Fileman

    STATUS (100).
    Access: Read w/Fileman

    REMARKS (12).
    Access: Read w/Fileman

    NDC (27).
    Access: Read w/Fileman

    RELEASED DATE/TIME (31).
    Access: Read w/Fileman

    ICR #6907
  • INTEGRATED BILLING
  • DAYS SUPPLY (8).
    Access: Read w/Fileman

    RELEASED DATE/TIME (31).
    Access: Read w/Fileman

    RELEASED DATE/TIME (17).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT 21+1, 22+1, 22(HELP ), 25+1, 26+1, 26.1+1, 29+1, 31+1, 32.1+1, 38.3+1
    , 83+1, 86+1, 99.2+1, 101+1, 102+1, 102.1+1, 102.2+1, 127+1, 303+1, 9999999.01+1
    , 9999999.03+1, 9999999.04+1, 9999999.05+1
    $$STATUS^APSQBRES 9999999.09+1
    EN^DDIOL .01DEL1+1, .01DEL52+1, 10+1, 22+1, 22(HELP )
    ^DIC 4+1, 5+1, 5(HELP ), 6+1, 10(HELP ), 23+1, 104+1, 109+1
    ^PSOEXDT .01DEL52+1
    INP526^PSOFUNC 6+1
    HELP^PSOHELP 7(HELP )
    MAX^PSOHELP 6(XREF 2S), 9(HELP )
    PAT^PSOHELP 2+1
    QTY^PSOHELP 7+1
    REF^PSOHELP 9+1
    SIG^PSOHELP 10+1
    DAYS^PSOHELP1 8+1
    RXHLP^PSOHELP4 .01(HELP )
    KAS^PSOSUTL 20(XREF 1K)
    SAS^PSOSUTL 20(XREF 1S)
    CID^PSOUTL 1+1
    CIDH^PSOUTL 1(HELP )
    STATDAY^PSOUTLA 3+1
    SUSFDK^PSOUTLA 22(XREF 4K)
    SUSFDS^PSOUTLA 22(XREF 4S)
    HLP^PSSDAWUT 81(HELP )
    INPUT^PSSDAWUT 81+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNPAT - [#9000001] 13+1
    ^DD("DD" 22(HELP )
    ^DD(52 13+1
    ^DIC(59 13+1
    ^DPT - [#2] 521011+1
    ^PS(55 - [#55] 26(XREF 2S), 26(XREF 2K), 26.1(XREF 1S), 26.1(XREF 1K), 9999999.02(XREF 1S), 9999999.02(XREF 1K)
    ^PS(59 - [#59] 6(XREF 2S)
    ^PSDRUG - [#50] ID6+1
    ^PSRX - [#52] ID6+1, .01DEL52+1, 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 11(XREF 1S)
    11(XREF 1K), 13+1, 22+1, 22(HELP ), 22(XREF 2S), 22(XREF 3S), 22(XREF 3K), 22(XREF 5S), 22(XREF 5K), 26(XREF 2S)
    26(XREF 2K), 26.1+1, 26.1(XREF 1S), 26.1(XREF 1K), 31(XREF 2S), 31(XREF 2K), 109(XREF 1K), 521011+1, 9999999.02(XREF 1S), 9999999.02(XREF 1K)
    ^PSRX("AC" 1OT+1, 1(XREF 1S), 1(XREF 1K)
    ^PSRX("ACP" 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K), 22(XREF 3S), 22(XREF 3K), 31(XREF 2S), 31(XREF 2K)
    ^PSRX("AD" 22(XREF 1S), 22(XREF 1K)
    ^PSRX("ADL" 6(XREF 1S), 6(XREF 1K), 22(XREF 5S), 22(XREF 5K)
    ^PSRX("AFDT" 38.3(XREF 1S), 38.3(XREF 1K)
    ^PSRX("AG" 26(XREF 1S), 26(XREF 1K)
    ^PSRX("AH" 99(XREF 1S), 99(XREF 1K)
    ^PSRX("AJ" 32.1(XREF 1S), 32.1(XREF 1K)
    ^PSRX("AL" 31(XREF 1S), 31(XREF 1K)
    ^PSRX("ANCO" 109(XREF 1S), 109(XREF 1K)
    ^PSRX("AO" 39.4(XREF 1S), 39.4(XREF 1K)
    ^PSRX("APCC" 9999999.11(XREF 1S), 9999999.11(XREF 1K)
    ^PSRX("APL" 39.3(XREF 1S), 39.3(XREF 1K)
    ^PSRX("APSOD" 2(XREF 3S), 2(XREF 3K)
    ^PSRX("AQ" 39.5(XREF 1S), 39.5(XREF 1K)
    ^PSRX("B" .01(XREF 1S), .01(XREF 1K)
    ^PSRX("ZAL" 31(XREF 3S), 31(XREF 3K)
    ^VA(200 - [#200] 109(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("D" ID108+1
    ^("IB" 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K), 22(XREF 3S), 22(XREF 3K), 31(XREF 2S), 31(XREF 2K)
    ^("PS" 109(XREF 1K)
    ^(0 ID6+1, .01DEL52+1, 2(XREF 2S), 2(XREF 2K), 6(XREF 2S), 13+1, 22+1, 22(XREF 3S), 22(XREF 3K), 31(XREF 2K)
    ^(1 6(XREF 2S)
    ^(2 ID27+1, .01DEL52+1, 2(XREF 1S), 2(XREF 1K), 11(XREF 1S), 11(XREF 1K), 13+1, 22(XREF 3S), 22(XREF 3K), 31(XREF 2S)
    31(XREF 2K)
    ^(4 521011+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 21+1*, 22+1*, 22(HELP ), 25+1*, 26+1*, 26.1+1*, 29+1*, 31+1*, 32.1+1*, 38.3+1*
    , 83+1*, 86+1*, 99.2+1*, 101+1*, 102+1*, 102.1+1*, 102.2+1*, 127+1*, 303+1*, 9999999.01+1*
    , 9999999.03+1*, 9999999.04+1*, 9999999.05+1*
    >> %DT(0 22(HELP )
    >> D0 .01DEL52+1, 13OF9.2+1, 521011+1, 9999999.09+1
    >> DA .01DEL52+1, .01(XREF 1S), .01(XREF 1K), 1OT+1, 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K)
    2(XREF 3S), 2(XREF 3K), 6(XREF 1S), 6(XREF 1K), 6(XREF 2S), 11(XREF 1S), 11(XREF 1K), 22+1, 22(HELP ), 22(XREF 1S)
    22(XREF 1K), 22(XREF 2S), 22(XREF 3S), 22(XREF 3K), 22(XREF 5S), 22(XREF 5K), 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K)
    , 26.1+1, 26.1(XREF 1S), 26.1(XREF 1K), 31(XREF 1S), 31(XREF 1K), 31(XREF 2S), 31(XREF 2K), 31(XREF 3S), 31(XREF 3K), 32.1(XREF 1S)
    32.1(XREF 1K), 38.3(XREF 1S), 38.3(XREF 1K), 39.3(XREF 1S), 39.3(XREF 1K), 39.4(XREF 1S), 39.4(XREF 1K), 39.5(XREF 1S), 39.5(XREF 1K), 99(XREF 1S)
    99(XREF 1K), 109(XREF 1S), 109(XREF 1K), 9999999.02(XREF 1S), 9999999.02(XREF 1K), 9999999.11(XREF 1S), 9999999.11(XREF 1K)
    DIC 4+1!*, 5+1!*, 5(HELP ), 6+1!*, 10(HELP ), 23+1!*, 104+1!*, 109+1!*
    DIC("S" 4+1*, 4SCR+1*, 5+1*, 5(HELP ), 5SCR+1*, 6+1*, 6SCR+1*, 10(HELP ), 23+1*, 23SCR+1*
    , 104+1*, 104SCR+1*, 109+1*, 109SCR+1*
    DIC(0 5(HELP ), 10(HELP )
    >> DIE 4+1, 5+1, 6+1, 23+1, 104+1, 109+1
    DT .01DEL52+1, 9999999.01+1
    EXH 9(HELP )
    >> INS1 10+1
    >> J .01DEL52+1*
    MAX 6(XREF 2S)
    MIN 6(XREF 2S)
    >> P(2 6(XREF 2S)
    >> P(5 6(XREF 2S)
    >> P(7 6(XREF 2S)
    >> PSODEATH 2(XREF 3S), 2(XREF 3K)
    >> PSODI 33+1, 34+1
    >> PSOPAR 6(XREF 2S)
    >> PSZ 13+1*
    REF 6(XREF 2S)
    >> RFN 2(XREF 2S), 2(XREF 2K)
    >> RX0 .01DEL52+1*
    U ID6+1, ID27+1, ID108+1, .01DEL52+1, 6(XREF 2S), 22+1, 26.1+1, 26.1(XREF 1S)
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1OT+1, 1(XREF 1S), 1(XREF 1K), 2+1, 2(XREF 1S), 2(XREF 1K)
    2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 3+1, 4+1*!, 5+1*!, 6+1*!, 6(XREF 1S), 6(XREF 1K)
    , 6.5+1!, 7+1!, 8+1!, 10+1!, 10.6+1!, 11(XREF 1S), 11(XREF 1K), 12+1!, 13+1*, 13OF9.2+1*
    , 17+1!, 21+1*!, 22+1*!, 22(HELP ), 22(XREF 1S), 22(XREF 1K), 22(XREF 2S), 22(XREF 3S), 22(XREF 3K), 22(XREF 5S)
    22(XREF 5K), 23+1*!, 24+1!, 25+1*!, 26+1*!, 26(XREF 1S), 26(XREF 1K), 26(XREF 2S), 26(XREF 2K), 26.1+1*!
    26.1(XREF 1S), 26.1(XREF 1K), 27+1!, 28+1!, 29+1*!, 30+1!, 31+1*!, 31(XREF 1S), 31(XREF 1K), 31(XREF 3S)
    31(XREF 3K), 32.1+1*!, 32.1(XREF 1S), 32.1(XREF 1K), 32.3+1!, 33+1!, 34+1!, 35+1!, 38.3+1*!, 38.3(XREF 1S)
    38.3(XREF 1K), 39.3+1!, 39.3(XREF 1S), 39.3(XREF 1K), 39.4(XREF 1S), 39.4(XREF 1K), 39.5(XREF 1S), 39.5(XREF 1K), 83+1*!, 86+1*!
    99(XREF 1S), 99(XREF 1K), 99.1+1!, 99.2+1*!, 101+1*!, 102+1*!, 102.1+1*!, 102.2+1*!, 103+1!, 104+1*!
    , 106.5+1!, 108+1!, 109+1*!, 110+1!, 112+1!, 114+1!, 114.1+1!, 120.01+1!, 120.02+1!, 123+1!
    , 124+1!, 125+1!, 126+1!, 127+1*!, 301+1!, 302+1!, 303+1*!, 304+1!, 521011+1*, 9999999.01+1*!
    9999999.02(XREF 1S), 9999999.03+1*!, 9999999.04+1*!, 9999999.05+1*!, 9999999.06+1!, 9999999.08+1!, 9999999.09+1*, 9999999.11(XREF 1S), 9999999.11(XREF 1K), 9999999.12+1!
    , 9999999.14+1!, 9999999.21+1!, 9999999.22+1!, 9999999.26+1*!, 9999999.27+1!, 9999999.31+1!, 9999999.32+1!, 9999999.33+1!, 9999999.34+1!, 9999999.36+1!
    , 9999999.37+1!
    X(1 4+1!
    >> X1 .01DEL52+1*
    >> Y ID6+1, 1+1, 4+1, 5+1, 6+1, 21+1, 22+1, 22(HELP ), 23+1, 25+1
    , 26+1, 26.1+1, 29+1, 31+1, 32.1+1, 38.3+1, 83+1, 86+1, 99.2+1, 101+1
    , 102+1, 102.1+1, 102.2+1, 104+1, 109+1, 127+1, 303+1, 9999999.01+1, 9999999.03+1, 9999999.04+1
    , 9999999.05+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