Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^PSRX

Package: Outpatient Pharmacy

Global: ^PSRX


Information

FileMan FileNo FileMan Filename Package
52 PRESCRIPTION Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 588

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

Accessed By FileMan Db Calls, Total: 215

Package Total Routines
Outpatient Pharmacy 168 PSO160P1    PSO480P    PSO5241    PSO52API    PSO52CLR    PSO583PI    PSO7P289    PSOARCDE
PSOARCF4    PSOARCS2    PSOARCSV    PSOASAP    PSOASAP0    PSOATRFC    PSOATRFV    PSOBAIR2
PSOBBC    PSOBING1    PSOBORP3    PSOBPSR1    PSOBPSU1    PSOBPSU2    PSOBPSU4    PSOBPSUT
PSOCIDC9    PSOCLADD    PSOCLO1    PSOCMOP    PSOCMOPB    PSOCMOPR    PSOCPA    PSOCPB
PSOCPC    PSOCPD    PSOCPF1    PSOCPTRH    PSOCPTRI    PSOCPVW    PSOCSRL    PSODAWUT
PSODIAG    PSODIR2    PSODIR4    PSODISP    PSODISP1    PSODLKP    PSODOSUT    PSODRG
PSOERHL0    PSOERUT2    PSOERUT4    PSOERX1F    PSOERX1G    PSOERXA6    PSOERXO1    PSOERXOF
PSOERXU3    PSOERXU6    PSOERXU7    PSOERXUT    PSOERXUX    PSOERXX1    PSOERXX4    PSOEXDT
PSOFDAMG    PSOFDAUT    PSOFIXDT    PSOHLD    PSOHLDA    PSOHLDIS    PSOHLDS4    PSOHLNE2
PSOHLNE3    PSOHLNE4    PSOHLSN2    PSOLLLH    PSOMPHRC    PSON52    PSONDCUT    PSONDCV
PSONEW    PSONRXN    PSOORAL2    PSOORCPY    PSOORED6    PSOORED7    PSOOREDT    PSOORUT1
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    PSORLST2    PSORN52A    PSORN52C
PSORN52D    PSORPTS    PSORREF    PSORREF0    PSORRPA1    PSORWRAP    PSORXDL    PSORXED
PSORXED1    PSORXEDT    PSORXL1    PSORXPA1    PSORXPR1    PSORXRP1    PSORXRP2    PSORXVW1
PSORXVW2    PSOSPML2    PSOSPML4    PSOSPML5    PSOSPML6    PSOSPML7    PSOSPML8    PSOSPMU1
PSOSPMU2    PSOSPMU3    PSOSPMUT    PSOSPMV    PSOSUCHG    PSOSULB2    PSOSULBL    PSOSUPAT
PSOSUPOE    PSOSUPRX    PSOTALK    PSOTEXP1    PSOTPRP1    PSOTRI    PSOUTIL    PSOUTL
PSOUTLA1    PSOUTLA2    PSOVDF2    PSOVDF3    PSOVER    PSOVER1    PSOVER2    PSOVEXR1
CMOP 9 PSXBPSMS    PSXBPSRP    PSXBPSUT    PSXEDIT    PSXERR    PSXNEW    PSXRPPL2    PSXRTRAN
PSXVND    
E Claims Management Engine 8 BPSOPR3    BPSPRRX7    BPSRPC02    BPSRPT1    BPSRPT6    BPSSCRL1    BPSUTIL    BPSVRX3
Mental Health 7 YSCLDIS    YSCLHLGT    YSCLHLOP    YSCLHLPR    YSCLSRV3    YSCLTEST    YSCLTST6    
Integrated Billing 6 IBJTEP    IBJTPE    IBNCPBB    IBNCPDPE    IBNCPRR    IBOHLS1    
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    

Pointed To By FileMan Files, Total: 28

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)[.013]    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.439.545.145.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)]    

Pointer To FileMan Files, Total: 16

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.439.545.145.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)[416233838.138.284104109#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: 131

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

  • 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 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.
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 PSO*7*433 and Computerized Patient Record System (CPRS) Patch OR*3*378 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, Total: 4

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

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

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

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

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

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

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

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

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

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

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

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

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

    ICR #6149
  • VA Point of Service
  • 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

    External References

    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

    Global Variables Directly Accessed

    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)

    Naked Globals

    Name Field # of Occurrence
    ^("D" ID108+1
    ^("IB" 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 11(XREF 1S), 11(XREF 1K), 22(XREF 3S), 22(XREF 3K), 31(XREF 2S), 31(XREF 2K)
    ^("PS" 109(XREF 1K)
    ^(0 ID6+1, .01DEL52+1, 2(XREF 2S), 2(XREF 2K), 6(XREF 2S), 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

    Local Variables

    Legend:

    >> 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
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All