Global: ^PSRX

FileMan FileNo	FileMan Filename	Package
52	PRESCRIPTION	Outpatient Pharmacy

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

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

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)[.01, 3] 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.4, 39.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)]

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.4, 39.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)[4, 16, 23, 38, 38.1, 38.2, 84, 104, 109, #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]

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 PSO729 (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 PSO746.` 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 PSO746. 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 YS5.0190 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 YS5.0190 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`

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

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 LINK	Subscribing Package(s)	Fields Referenced
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

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)

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

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

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PSRX

Information

Description

Directly Accessed By Routines, Total: 765

Accessed By FileMan Db Calls, Total: 207

Pointed To By FileMan Files, Total: 28

Pointer To FileMan Files, Total: 19

Fields, Total: 148

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

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