Global: ^PSRX

FileMan FileNo	FileMan Filename	Package
52	PRESCRIPTION	Outpatient Pharmacy

Package	Total	Routines
Outpatient Pharmacy	450	COMMENTS ICD DIAGNOSIS PSO HOLD LIST PSO52B PSO616PI PSO7P274 PSO7P289 PSO7P448 PSOAMIS0 PSOARCCO PSOARCDE PSOARCF5 PSOATRF1 PSOATRPP PSOATRR PSOBAIR2 PSOBING1 PSOBPSUT PSOBSET PSOCAN2 PSOCAN3 PSOCAN4 PSOCIDC3 PSOCMOPA PSOCMOPB PSOCMOPR PSOCMOPT PSOCP PSOCP1 PSOCPBK4 PSODDPR7 PSODISP2 PSODOSCL PSOERXU6 PSOFUNC PSOHCSUM PSOHELP1 PSOHLSG1 PSOHLSN PSOHLSN3 PSOLBL3 PSOLLL7 PSOMGCOM PSOORRDI PSOORRL PSOORRLN PSOORRNW PSOOTMRX PSOPFSU0 PSOPMP0 PSOPOST8 PSOPROD2 PSOQUAP2 PSOREJP0 PSOREJP5 PSOREJU2 PSORESK PSORXDL PSORXEDT PSORXL PSORXLAB PSORXPR PSORXRP1 PSOSDP PSOSUDEL PSOSULB1 PSOSURST PSOTRI PSOVDF1 ^PSOARC CMOP EVENT NATIONAL DATA UTILITY CLEANUP PARTIAL DATE PSO DRUG WARNINGS PSO NARC LIST PSO PARK LIST PSO RX LIST PSO283PI PSO293PI PSO386P PSO427PS PSO480P PSO52AP1 PSO52API PSO52CLR PSO52EX PSO55FX2 PSO55FX3 PSO583PI PSO679P PSO744PI PSO7L529 PSO7P341 PSO7P385 PSO7P478 PSOARCCV PSOARCF4 PSOARCS2 PSOARCSV PSOARCTG PSOARX PSOARX1 PSOATRD PSOATRF PSOATRFC PSOATRFV PSOAUTOC PSOB PSOBAI PSOBAIRP PSOBBC PSOBGMG3 PSOBINGO PSOBKDED PSOBMST PSOBPSR1 PSOBPSU1 PSOBPSU2 PSOBPSU3 PSOBPSU4 PSOBSET1 PSOBUILD PSOCAN PSOCAN1 PSOCIDC1 PSOCIDC2 PSOCIDC7 PSOCIDC8 PSOCIDC9 PSOCLADD PSOCLOLS PSOCMOP PSOCMOPC PSOCOPAY PSOCPA PSOCPB PSOCPBA2 PSOCPBAK PSOCPBK1 PSOCPBK2 PSOCPBK3 PSOCPC PSOCPD PSOCPDUP PSOCPE PSOCPF1 PSOCPIB PSOCPIB3 PSOCPIB5 PSOCPIBC PSOCPIBF PSOCPTRH PSOCPTRI PSOCPVW PSOCSRL PSOCST10 PSOCSTD PSOCSTM PSODACT PSODAWUT PSODDPR2 PSODDPR3 PSODDPR4 PSODDPR5 PSODDPR8 PSODDPRE PSODGAL1 PSODGAL2 PSODGDG1 PSODGDG2 PSODGDGI PSODGDGP PSODIAG PSODIR1 PSODIR2 PSODISP PSODISP1 PSODISPS PSODLKP PSODOSUT PSODRDU2 PSODRDUP PSODRGN PSODSPL PSOELPS2 PSOELPST PSOERHL0 PSOERUT PSOERUT2 PSOERUT3 PSOERUT4 PSOERXO1 PSOERXOF PSOERXU3 PSOERXU7 PSOERXUX PSOERXX1 PSOERXX4 PSOEXBCH PSOEXDT PSOEXRST PSOFDAUT PSOFIXDT PSOFIXIB PSOFIXVS PSOFTDR PSOHDR PSOHELP PSOHELP3 PSOHLD PSOHLDA PSOHLDC PSOHLDI1 PSOHLDIS PSOHLDS PSOHLDS1 PSOHLDS2 PSOHLDS3 PSOHLDS4 PSOHLEXP PSOHLNE1 PSOHLNE2 PSOHLNE3 PSOHLNE4 PSOHLNEW PSOHLSG PSOHLSG2 PSOHLSG3 PSOHLSG5 PSOHLSN1 PSOHLSN2 PSOHLUP PSOHLUP1 PSOLBL PSOLBL1 PSOLBL2 PSOLBL4 PSOLBLD PSOLBLD1 PSOLBLN PSOLBLN2 PSOLBLS PSOLLL1 PSOLLL2 PSOLLL4 PSOLLL5 PSOLLL8 PSOLLL9 PSOLLLH PSOLLLHN PSOLLLI PSOLMLST PSOMAUEX PSOMGCM1 PSOMHV1 PSON52 PSONDCUT PSONDCV PSONEW2 PSONEWG PSONEWOA PSONEWOC PSOORAL PSOORAL1 PSOORAL2 PSOORAL3 PSOORAPI PSOORCPY PSOORDER PSOORDRG PSOORED1 PSOORED2 PSOORED3 PSOORED5 PSOORED6 PSOORED7 PSOOREDT PSOORFI2 PSOORFI6 PSOORFIN PSOORNE1 PSOORNE2 PSOORNE3 PSOORNE4 PSOORNE5 PSOORNE6 PSOORNEW PSOORNW1 PSOORRL1 PSOORRL3 PSOORRLO PSOORROC PSOORUT1 PSOORUTL PSOP PSOP1 PSOP2 PSOPATLK PSOPFSU1 PSOPI136 PSOPKIV1 PSOPMP1 PSOPOLY PSOPOS10 PSOPOS13 PSOPOST PSOPOST1 PSOPOST2 PSOPOST4 PSOPOST6 PSOPOST7 PSOPRA PSOPRF PSOPRFSS PSOPRI PSOPRK PSOPRKA PSOPXRM1 PSOPXRMI PSOPXRMU PSOQ0076 PSOQ0496 PSOQMCAL PSOR52 PSORDS PSOREF PSOREF0 PSOREF1 PSOREF2 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJP4 PSOREJU1 PSOREJU3 PSOREJU4 PSOREJUT PSORELD1 PSORELDT PSORENW PSORENW0 PSORENW1 PSORENW3 PSORENW4 PSORESK1 PSORESUS PSORFL PSORLLL4 PSORLST PSORLST2 PSORMRXD PSORN52 PSORN52A PSORN52C PSORN52D PSORPC01 PSORPTS1 PSORREF PSORREF0 PSORREF1 PSORRPA1 PSORWRAP PSORX1 PSORXCLE PSORXED PSORXED1 PSORXFIN PSORXI PSORXL1 PSORXPA1 PSORXPR1 PSORXRP2 PSORXRPT PSORXVW PSORXVW1 PSORXVW2 PSOSD PSOSD0 PSOSD2 PSOSIGNO PSOSPML0 PSOSPML7 PSOSPMU1 PSOSPMU2 PSOSPMU3 PSOSPSIG PSOSUBCH PSOSUCAT PSOSUCH1 PSOSUCHG PSOSUCLE PSOSUDP1 PSOSUDPR PSOSULB2 PSOSULBL PSOSULOG PSOSUPAT PSOSUPOE PSOSUPRX PSOSUSRP PSOSUTL PSOTALK PSOTALK1 PSOTEXP1 PSOTPCAN PSOTPCRX PSOTPCUL PSOTPRP1 PSOTPRX1 PSOTRLBL PSOUPAT PSOUTIL PSOUTL PSOUTLA PSOUTLA1 PSOUTLA2 PSOUTOR PSOVCCA PSOVER PSOVER1 PSOVER2 PSOVERC PSOVEXR1 PSOVEXRX PSOVRPT PSOXWRN PSOXZA1 PSOXZA10 PSOXZA11 PSOXZA12 PSOXZA13 PSOXZA14 PSOXZA15 PSOXZA16 PSOXZA17 PSOXZA18 PSOXZA2 PSOXZA3 PSOXZA4 PSOXZA5 PSOXZA6 PSOXZA7 PSOXZA8 ^PSRX PSOXZA9 REFILL REJECT INFO RETURN TO STOCK LOG SORT GROUP ^PS(52.5
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
Controlled Substances	20	PSDACT1 PSDDSOR PSDDSOR1 PSDDSOR2 PSDNMPR PSDNMRP PSDNMSP PSDNMWE PSDOPT PSDOPT0 PSDOPT1 PSDOPT2 PSDOPTI PSDOPTN PSDOPTS PSDOPTX PSDOPTY PSDOPTZ PSDPND PSDSUBOX
Pharmacy Data Management	7	PRESCRIPTION PROFILE PSS0052 PSSLOCK PSSORUTE PSSREF PSSUTLA1 ^APSPQA(32.5
Drug Accountability	4	PSAOP PSAOP2 PSAOP4 PSAOUT
Mental Health	4	YSCLHLOP YSCLHLPR YSCLSRV3 YSCLTST1
Integrated Billing	3	IB20P276 IB20P336 IBARXMI
Accounts Receivable	2	RCDMCR4B RCDMCR8C
E Claims Management Engine	2	BPSOSSG BPSRES
Inpatient Medications	2	PSJOCDI PSJORUT2
Kernel	2	COMPUTABLE FILE REFERENCES ^DIC(19
Lab Service	2	LRBLPE1 LRBLPH
My HealtheVet	2	MHV7B1R2 MHVPRNA
Order Entry Results Reporting	2	ORCK101 ORWORB
Pharmacy Benefits Management	2	PSUOP1 PSUOP2
VA FileMan	2	ITEM YEAR
Clinical Information Resource Network	1	RGVCCMR2
Clinical Monitoring System	1	QAMC24
Clinical Reminders	1	PXRMISE
DSS Extracts	1	ECXOPRX
Medicine	1	MCPSOP
Patient Data Exchange	1	VAQDBIP8
Vendor - Audiofax Inc	1	VEXRX

Package	Total	Routines
Outpatient Pharmacy	188	PSO160P1 PSO480P PSO5241 PSO52API PSO52CLR PSO583PI PSO744PI PSO7P289 PSOARCDE PSOARCF4 PSOARCS2 PSOARCSV PSOASAP PSOASAP0 PSOATRFC PSOATRFV PSOBAIR2 PSOBBC PSOBING1 PSOBORP3 PSOBPSR1 PSOBPSU1 PSOBPSU2 PSOBPSU4 PSOBPSUT PSOCIDC9 PSOCLADD PSOCLO1 PSOCMOP PSOCMOPB PSOCMOPC PSOCMOPR PSOCMOPT PSOCPA PSOCPB PSOCPC PSOCPD PSOCPF1 PSOCPTRH PSOCPTRI PSOCPVW PSOCSRL PSODAWUT PSODIAG PSODIR2 PSODIR4 PSODISP PSODISP1 PSODLKP PSODOSUT PSODRG PSOERHL0 PSOERSE2 PSOERUT PSOERUT2 PSOERUT3 PSOERUT4 PSOERUT5 PSOERUT6 PSOERX1F PSOERX1G PSOERXA6 PSOERXO1 PSOERXOF PSOERXU3 PSOERXU6 PSOERXU7 PSOERXUT PSOERXUX PSOERXX1 PSOERXX4 PSOEXDT PSOFDAMG PSOFDAUT PSOFIXDT PSOHLD PSOHLDA PSOHLDIS PSOHLDS1 PSOHLDS4 PSOHLNE2 PSOHLNE3 PSOHLNE4 PSOHLSN2 PSOLBL PSOLBLN PSOLLLH PSOLLLI PSOLMPAT PSOMPHRC PSON52 PSONDCUT PSONDCV PSONEW PSONRXN PSOORAL2 PSOORCPY PSOORED6 PSOORED7 PSOOREDT PSOORFI1 PSOORNE2 PSOORUT1 PSOORUT2 PSOOTMRX PSOPFSU0 PSOPFSU1 PSOPI136 PSOPMP0 PSOPMP1 PSOPRK PSOPRKA PSOPROD1 PSOPROD2 PSOPXRM1 PSOPXRMI PSOQUAP2 PSOR52 PSOREF PSOREJP0 PSOREJP1 PSOREJP2 PSOREJP3 PSOREJP4 PSOREJU1 PSOREJU2 PSOREJU3 PSOREJU4 PSOREJUT PSORENW PSORENW0 PSORENW4 PSORESK PSORESUS PSORLLLI PSORLST2 PSORN52A PSORN52C PSORN52D PSORPTS PSORREF PSORREF0 PSORRPA1 PSORWRAP PSORXDL PSORXED PSORXED1 PSORXEDT PSORXL1 PSORXPA1 PSORXPR1 PSORXRP1 PSORXRP2 PSORXVW PSORXVW1 PSORXVW2 PSOSPML2 PSOSPML4 PSOSPML5 PSOSPML6 PSOSPML7 PSOSPML8 PSOSPMU1 PSOSPMU2 PSOSPMU3 PSOSPMUT PSOSPMV PSOSUCHG PSOSULB2 PSOSULBL PSOSULOG PSOSUPAT PSOSUPOE PSOSUPRX PSOTALK PSOTEXP1 PSOTPRP1 PSOTRI PSOUTIL PSOUTL PSOUTLA1 PSOUTLA2 PSOVDF2 PSOVDF3 PSOVER PSOVER1 PSOVER2 PSOVEXR1
CMOP	11	PSXBLD PSXBPSMS PSXBPSRP PSXBPSUT PSXEDIT PSXERR PSXMISC1 PSXNEW PSXRPPL2 PSXRTRAN PSXVND
E Claims Management Engine	9	BPSOPR3 BPSOSIY BPSPRRX7 BPSRPC02 BPSRPT1 BPSRPT6 BPSSCRL1 BPSUTIL BPSVRX3
Integrated Billing	6	IBJTEP IBJTPE IBNCPBB IBNCPDPE IBNCPRR IBOHLS1
Mental Health	6	YSCLHLGT YSCLHLOP YSCLHLPR YSCLSRV3 YSCLTEST YSCLTST6
Controlled Substances	4	PSDDSOR1 PSDNMWE PSDOPTX PSDSUBOX
DSS Extracts	3	ECXAPHA ECXCBFK ECXOPRX
Pharmacy Benefits Management	2	PSUOP2 PSUOP3
Virtual Patient Record	2	VPREHL7 VPRSDAP
Adverse Reaction Tracking	1	GMRA66PI
My HealtheVet	1	MHVPRNA
National Health Information Network	1	NHINVPSO
Order Entry Results Reporting	1	ORAREN
Patient Assessment Documentation	1	NUPAOBJ
Patient Data Exchange	1	VAQDBIP2

Package	Total	FileMan Files
Outpatient Pharmacy	12	DUE ANSWER SHEET(#50.0731)[3] PATIENT NOTIFICATION (Rx READY)(#52.11)[#52.1112(.01)] RX VERIFY(#52.4)[.01, 3] PHARMACY TELEPHONE REFILLS(#52.444)[.01] ERX HOLDING QUEUE(#52.49)[.13] RX SUSPENSE(#52.5)[.01] PHARMACY EXTERNAL INTERFACE(#52.51)[.01] CLOZAPINE PRESCRIPTION OVERRIDES(#52.52)[1] PSO AUDIT LOG(#52.87)[1] PHARMACY PRINTED QUEUE(#52.9)[#52.9002(.01)] PHARMACY ARCHIVE(#52.8)[.01] PRESCRIPTION(#52)[39.4, 39.5, 45.1, 45.2]
E Claims Management Engine	4	BPS REQUESTS(#9002313.77)[1.13] BPS CLAIMS(#9002313.02)[#9002313.0201(.05)] BPS TRANSACTION(#9002313.59)[1.11] BPS LOG OF TRANSACTIONS(#9002313.57)[1.11]
Integrated Billing	3	IB BILL/CLAIMS PRESCRIPTION REFILL(#362.4)[.05] IB NCPDP EVENT LOG(#366.14)[#366.141(.201), #366.141(.212)] CLAIMS TRACKING(#356)[.08]
Auto Replenishment Ward Stock	2	SPMP STATE PARAMETERS(#58.41)[14] SPMP EXPORT BATCH(#58.42)[#58.42001(.01)]
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]
Order Entry Results Reporting	2	ORDER CHECK INSTANCES(#100.05)[#100.07(.01)] ORDER DEA ARCHIVE INFO(#101.52)[1]
Pharmacy Data Management	1	PHARMACY PATIENT(#55)[#55.03(.01)]

Package	Total	FileMan Files
Integrated Billing	4	INTEGRATED BILLING ACTION(#350)[106, #52.07(13), #52.1(9)] IB COPAY TRANSACTIONS(#354.71)[106.6, #52.07(14), #52.1(9.1)] PFSS ACCOUNT(#375)[125, #52.07(26), #52.1(21)] IB ACTION TYPE(#350.1)[105]
Outpatient Pharmacy	3	RX PATIENT STATUS(#53)[3] OUTPATIENT SITE(#59)[20, #52.07(12), #52.1(8), #52.2(.09)] PRESCRIPTION(#52)[39.4, 39.5, 45.1, 45.2]
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]
CMOP	1	CMOP TRANSMISSION(#550.2)[#52.01(.01)]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#52.052311(.01)]
Kernel	1	NEW PERSON(#200)[4, 16, 23, 38, 38.1, 38.2, 84, 104, 109, #52.0107(2), #52.032(3), #52.07(8), #52.07(10), #52.07(19), #52.07(24), #52.07(25), #52.07(30), #52.1(4), #52.1(6), #52.1(15), #52.1(19), #52.1(20), #52.1(84), #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)]
Registration	1	PATIENT(#2)[2]
Scheduling	1	HOSPITAL LOCATION(#44)[5]

Fields, Total: 132

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: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` 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 (#250) 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 PATIENT FILE (#2)	**********************REQUIRED FIELD********************** 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".".2N)!($L(X)>11) X D:$D(X) QTY^PSOHELP` LAST EDITED: `NOV 30, 2007` 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>365)!(X<1)!(X?.E1"."1N.N) X D:$G(X) DAYS^PSOHELP1` LAST EDITED: `MAR 18, 2015` HELP-PROMPT: `Type a Number between 1 and 365, 0 Decimal Digits` DESCRIPTION: `Enter a whole number between 1 and 365. The maximum upper limit is 365, but may be lower based on the maximum specified for the drug in this prescription. The maximum value for the drug can be found in the DRUG file (#50)` `or the VA PRODUCT file (#50.68) for drugs matched to NDF.` TECHNICAL DESCR: `Numeric.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` FIELD INDEX: `ACRO (#461) 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)`
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/PARK	0;11	SET	**********************REQUIRED FIELD********************** 'M' FOR MAIL; 'W' FOR WINDOW; 'P' FOR PARK; LAST EDITED: `APR 21, 2022` HELP-PROMPT: `Select MAIL or WINDOW to indicate how the medication will be dispensed to the patient. To update the medication profile, but not dispense the medication until the patient requests it, select PARK.` DESCRIPTION: `This field contains 'M' if the fill is to be mailed to the patient and 'W' if the fill is to be picked up at the pharmacy window and 'P' if the fill is on hold until requested.` TECHNICAL DESCR: `Set 'M' for Mail, 'W' for Window, 'P' for Park.` 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`
14	ADMINISTERED IN CLINIC	0;15	SET	'1' FOR YES; LAST EDITED: `JAN 16, 2013` HELP-PROMPT: `Indicate if the fill was administered in clinic.` DESCRIPTION: `This indicates if the medication was administered in a clinic instead of being dispensed to the patient.`
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>999999)!(X<0)!(X?.E1"."5N.N) X` LAST EDITED: `APR 23, 2020` HELP-PROMPT: `Type a Number between 0 and 999999, 4 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).` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
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: `D FLDTINTR^PSOUTLA("O")` LAST EDITED: `OCT 16, 2017` HELP-PROMPT: `Enter the fill date for the prescription.` DESCRIPTION: `The date the prescription was filled.` TECHNICAL DESCR: `Date.` EXECUTABLE HELP: `D FLDTHELP^PSOUTLA("O")` 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)=""`
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(^(0),"^",15)'=12 X` LAST EDITED: `AUG 10, 1995` 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 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` LAST EDITED: `APR 14, 1992` HELP-PROMPT: `Answer must be 5-13 characters in length.` 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)="".` FIELD INDEX: `ACRO (#461) 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` 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.`
32.4	ACTIVE DUTY OVERRIDE	2;17	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `AUG 27, 2020` HELP-PROMPT: `Enter YES or NO for Active Duty Override on the Rx original fill.` DESCRIPTION: `The field is used to store Active Duty Override if it exists for the Rx original fill.`
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.` LAST EDITED: `MAY 30, 1995`
39.1	PHARMACY INSTRUCTIONS	PI;0	WORD-PROCESSING #52.02	DESCRIPTION: `This field contains Pharmacy Instructions passed to Pharmacy from CPRS.` LAST EDITED: `MAY 30, 1995`
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.`
45.1	TITRATION DOSE RX	TIT;1	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#52) LAST EDITED: `SEP 12, 2012` HELP-PROMPT: `Enter the corresponding titration dose prescription number.` DESCRIPTION: `This is the Titration Dose Rx from which the corresponding Maintenance Dose Rx originated.`
45.2	MAINTENANCE DOSE RX	TIT;2	POINTER TO PRESCRIPTION FILE (#52)	PRESCRIPTION(#52) LAST EDITED: `SEP 12, 2012` HELP-PROMPT: `Enter the corresponding maintenance dose prescription.` DESCRIPTION: `This is the Maintenance Dose Rx that was created from the corresponding Titration Dose Rx.`
45.3	TITRATION RX FLAG	TIT;3	SET	'1' FOR YES; LAST EDITED: `SEP 12, 2012` HELP-PROMPT: `Indicate if the prescription is a Titration Dose Prescription.` DESCRIPTION: `This flag indicates whether the prescription is being dispensed as a Titration Dose. It is intended to identify a Titration Dose Rx without a corresponding Maintenance Dose Rx.`
52	REFILL	1;0	DATE Multiple #52.1	52.1 OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `MAY 26, 2017` 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.`
70	RETURN TO STOCK LOG	RTS;0	DATE Multiple #52.07	52.07 DESCRIPTION: `This sub-file contains a record for each fill returned to stock for the prescription.` TECHNICAL DESCR: `This sub-file was created with the intent of capturing ALL the fields from a prescription fill when they are returned to stock. The reason was because the entire fill record (Refills and Partial fills) gets deleted when` `the fill is returned to stock. Because we are required to report to the states on a regular basis information about controlled substance prescription fills dispense and returned to stock. By preserving the record before it` `gets deleted we are able to later transmit it to the states.`
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: `AUG 03, 2011` 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.`
94	BYPASS 3/4 DAY SUPPLY LOGIC	9;2	SET (BOOLEAN Data Type)	The setting of this field allows the user to indicate that the normal 3/4 day supply logic should be bypassed when this prescription is sent to CMOP. LAST EDITED: `OCT 29, 2020` HELP-PROMPT: `Enter 'Yes' if you wish the system to bypass the 3/4 day supply logic during the processing of CMOP prescriptions.` DESCRIPTION: `The setting of this field allows the user to indicate that the normal 3/4 day supply logic should be bypassed when this prescription is sent to CMOP.`
99	HOLD REASON	H;1	SET	**********************REQUIRED FIELD********************** '1' FOR INSUFFICIENT QTY IN STOCK; '2' FOR DRUG-DRUG INTERACTION; '4' FOR PROVIDER TO BE CONTACTED; '6' FOR ADVERSE DRUG REACTION; '7' FOR BAD ADDRESS; '8' FOR PER PATIENT REQUEST; '9' FOR CONSULT/PRIOR APPROVAL NEEDED; '98' FOR OTHER/TECH (NON-CLINICAL); '99' FOR OTHER/RPH (CLINICAL); LAST EDITED: `MAY 31, 2012` 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.`
100.1	DISCONTINUE TYPE	7;1	SET	'1' FOR HOSPITAL ADMISSION; '2' FOR EDITED BY PROVIDER; LAST EDITED: `MAY 10, 2007` HELP-PROMPT: `Data should not be entered directly with FileMan.` DESCRIPTION: `This field is used to distinguish what type of external discontinue action occurred.` TECHNICAL DESCR: `set of codes.`
100.2	MAIL EXEMPTION	7;2	SET	'0' FOR REGULAR MAIL; '1' FOR CERTIFIED MAIL; '2' FOR DO NOT MAIL; '3' FOR LOCAL - REGULAR; '4' FOR LOCAL - CERTIFIED; LAST EDITED: `APR 26, 2024` HELP-PROMPT: `Choose the Mail Exemption for patient's Rx.` DESCRIPTION: `This field is used to: A) Determine whether this patient's Rx is to be sent to the CMOP, or retained for local distribution. If 2-4 are selected, this Rx will not be transmitted to the CMOP. B) Select what the mail` `priority is. The CMOP choices are limited to (0) REGULAR and (1) CERTIFIED. Local mail may be designated (3) LOCAL - REGULAR or (4) LOCAL - CERTIFIED. The 'DO NOT MAIL' code (2) may be used to ensure that the patient's Rx` `is not mailed.`
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 IB COPAY TRANSACTIONS FILE (#354.71)	IB COPAY TRANSACTIONS(#354.71) 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`
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	LAST EDITED: `FEB 08, 2001` DESCRIPTION: `This field will store the expanded patient instructions that are stored in the patient instruction field (#114) or the expanded patient instructions from CPRS.` TECHNICAL DESCR: `wp`
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 (#175)`
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 (#175)`
125	PFSS ACCOUNT REFERENCE	PFS;1	POINTER TO PFSS ACCOUNT FILE (#375)	PFSS ACCOUNT(#375) 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.`
128	INDICATION FOR USE	IND;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` `MAXIMUM LENGTH: 40` LAST EDITED: `JUL 09, 2020` HELP-PROMPT: `Enter the Indication For Use. Answer must be 3-40 characters in length.` DESCRIPTION: `This field contains the Indication For Use that is chosen when the medication is ordered.`
129	INDICATION FOR USE FLAG	IND;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `FEB 10, 2020` HELP-PROMPT: `Enter 1 to include the indication for use in the SIG, 0 to not include.` DESCRIPTION: `This field will indicate whether to include the Indication For Use in the SIG or not. 1 - to include in the SIG, 0 - not to include.`
130	OTHER INDICATION FOR USE	IND;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<3) X` `MAXIMUM LENGTH: 40` LAST EDITED: `NOV 25, 2019` HELP-PROMPT: `Enter the Other Language Indication For Use. Answer must be 3-40 characters in length.` DESCRIPTION: `This field contains the Other Language Indication For Use that is chosen when the medication is ordered.`
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.`
311	BACKDOOR SIGNATURE STATUS	PKI;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `SEP 18, 2012` HELP-PROMPT: `Was the order entered via backdoor?` DESCRIPTION: `This field indicates whether a controlled substance order, schedule (I-V), was not digitally signed but entered via backdoor.`
312	ERX SIGNATURE STATUS	PKI;3	SET (BOOLEAN Data Type)	eRx Digital Signature status indicator. LAST EDITED: `OCT 25, 2021` HELP-PROMPT: `Indicate whether the eRx was digitally signed or not.` DESCRIPTION: `eRx Digital Signature status indicator.` TECHNICAL DESCR: `This field will be used to indicate whether the eRx prescription was digitally signed or not.`
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
725	NATIONAL DATA UTILITY CLEANUP	NDUC;0	DATE Multiple #52.0725	52.0725 DESCRIPTION: `This NATIONAL DATA UTILITY CLEANUP multiple is defined to store modifications to a prescription for Dosage and SIG as a result of a background clean-up utility. It can be used by other projects in the future.` `For its first use, Outpatient Pharmacy patch PSO7433 and Computerized Patient Record System (CPRS) Patch OR3378 addresses reported problems where the Drug Name and/or the date in VA FileMan format can mistakenly appear` `in the Dosage and Sig fields of an entry in PRESCRIPTION file (#52). The NATIONAL DATA UTILITY CLEANUP fields will only be defined when corrections to the Dosage and Sig fields are completed or attempted. For those` `prescriptions where a correction was unsuccessful, an error or comment will be stored in COMMENTS field (#5).` TECHNICAL DESCR: `In Pharmacy the invalid data will first be removed from the appropriate Dosage fields, and after that the Sig will be rebuilt. The old and new values will be stored in the associated fields within NATIONAL DATA UTILITY` `CLEANUP fields.`
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.`
521012	PARK	PARK;1	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `MAR 10, 2015` HELP-PROMPT: `Enter YES if prescription is to be parked until requested.` DESCRIPTION: `This field indicates whether the prescription is to be parked until requested.` CROSS-REFERENCE: `52^APARK` `1)= S ^PSRX("APARK",$E(X,1,30),DA)=""` `2)= K ^PSRX("APARK",$E(X,1,30),DA)` `This cross reference stores the IENs of prescriptions that have been parked. It is used to produce the Active/Park Prescriptions report.`

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 Order Entry Results Reporting	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)
^DPT - [#2]	521011+1
^PS(55 - [#55]	26(XREF 2S), 26(XREF 2K), 26.1(XREF 1S), 26.1(XREF 1K)
^PS(59 - [#59]	6(XREF 2S)
^PSDRUG - [#50]	ID6+1
^PSRX - [#52]	ID6+1, IXAPKISL+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), 22(XREF 2S), 22(XREF 3S), 22(XREF 3K), 22(XREF 5S), 22(XREF 5K), 26(XREF 2S), 26(XREF 2K), 26.1(XREF 1S) , 26.1(XREF 1K), 31(XREF 2S), 31(XREF 2K), 109(XREF 1K), 521011+1
^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("APARK"	521012(XREF 1S), 521012(XREF 1K)
^PSRX("APKI"	IXAPKISL+1*, IXAPKIKL+1!, IXAPKIKEIC+1!
^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("ARTS"	IXARTSSL+1*, IXARTSKL+1!, IXARTSKEIC+1!
^PSRX("B"	.01(XREF 1S), .01(XREF 1K)
^PSRX("CLSDAT"	IXCLSDATSL+1*, IXCLSDATKL+1!, IXCLSDATKEIC+1!
^PSRX("D"	IXDSL+1*, IXDKL+1!, IXDKEIC+1!
^PSRX("NDUC"	IXNDUCSL+1*, IXNDUCKL+1!, IXNDUCKEIC+1!
^PSRX("REJDAT"	IXREJDATSL+1*, IXREJDATKL+1!, IXREJDATKEIC+1!
^PSRX("REJSTS"	IXREJSTSSL+1*, IXREJSTSKL+1!, IXREJSTSKEIC+1!
^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), 22(XREF 3S), 22(XREF 3K), 26.1+1, 31(XREF 2K)
^(1	6(XREF 2S)
^(2	.01DEL52+1, 2(XREF 1S), 2(XREF 1K), 11(XREF 1S), 11(XREF 1K), 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, 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*
>> D0	.01DEL52+1, 521011+1
>> DA	IXACROSL+1, IXACROKL+1, IXACRPSL+1, IXACRPKL+1, IXACRRSL+1, IXACRRKL+1, IXAPKISL+1, IXAPKIKL+1, IXARTSSL+1, IXARTSKL+1 , IXCLSDATSL+1, IXCLSDATKL+1, IXDSL+1, IXDKL+1, IXNDUCSL+1, IXNDUCKL+1, IXREJDATSL+1, IXREJDATKL+1, IXREJSTSSL+1, IXREJSTSKL+1 , .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(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(XREF 1S), 26.1(XREF 1K) , 31(XREF 1S), 31(XREF 1K), 31(XREF 2S), 31(XREF 2K), 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), 521012(XREF 1S), 521012(XREF 1K)
>> DA(1	IXARTSSL+1, IXARTSKL+1, IXCLSDATSL+1, IXCLSDATKL+1, IXNDUCSL+1, IXNDUCKL+1, IXREJDATSL+1, IXREJDATKL+1, IXREJSTSSL+1, IXREJSTSKL+1
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
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)
REF	6(XREF 2S)
>> RFN	2(XREF 2S), 2(XREF 2K)
>> RX0	.01DEL52+1*
U	ID6+1, ID108+1, .01DEL52+1, 6(XREF 2S)
X	IXACROSL+1, IXACROKL+1, IXACRPSL+1, IXACRPKL+1, IXACRRSL+1, IXACRRKL+1, IXAPKISL+1, IXAPKIKL+1, IXARTSSL+1, IXARTSKL+1 , IXCLSDATSL+1, IXCLSDATKL+1, IXNDUCSL+1, IXNDUCKL+1, IXREJDATSL+1, IXREJDATKL+1, IXREJSTSSL+1, IXREJSTSKL+1, .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!, 17+1!, 21+1!, 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), 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!, 128+1!, 130+1!, 301+1!, 302+1! , 303+1!, 304+1!, 521011+1*, 521012(XREF 1S), 521012(XREF 1K)
X(1	IXDSL+1, IXDKL+1, 4+1!
X(2	IXDSL+1, IXDKL+1
>> X1	.01DEL52+1*
>> Y	ID6+1, 1+1, 4+1, 5+1, 6+1, 21+1, 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

Customize PDF page

Package: Outpatient Pharmacy

Global: ^PSRX

Information

Description

Directly Accessed By Routines, Total: 593

Accessed By FileMan Db Calls, Total: 237

Pointed To By FileMan Files, Total: 28

Pointer To FileMan Files, Total: 16

Fields, Total: 132

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^%DT	21+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, 127+1, 303+1
EN^DDIOL	.01DEL1+1, .01DEL52+1, 10+1
^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 )
SKIDX^PSOPXRMU	IXACROSL+1, IXACROKL+1, IXACRPSL+1, IXACRPKL+1, IXACRRSL+1, IXACRRKL+1
KAS^PSOSUTL	20(XREF 1K)
SAS^PSOSUTL	20(XREF 1S)
CID^PSOUTL	1+1
CIDH^PSOUTL	1(HELP )
FLDTHELP^PSOUTLA	22(HELP )
FLDTINTR^PSOUTLA	22+1
STATDAY^PSOUTLA	3+1
SUSFDK^PSOUTLA	22(XREF 4K)
SUSFDS^PSOUTLA	22(XREF 4S)
HLP^PSSDAWUT	81(HELP )
INPUT^PSSDAWUT	81+1