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

Package: Outpatient Pharmacy

Global: ^PSRX


Information

FileMan FileNo FileMan Filename Package
52 PRESCRIPTION Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 536

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

Package Total Routines
Outpatient Pharmacy 140 PSO160P1    PSO480P    PSO5241    PSO52API    PSO52CLR    PSO7P289    PSOARCDE    PSOARCF4
PSOARCS2    PSOARCSV    PSOASAP    PSOASAP0    PSOATRFC    PSOBAIR2    PSOBBC    PSOBING1
PSOBORP3    PSOBPSR1    PSOBPSU1    PSOBPSU2    PSOBPSUT    PSOCIDC9    PSOCMOP    PSOCMOPB
PSOCMOPR    PSOCPA    PSOCPB    PSOCPC    PSOCPD    PSOCPF1    PSOCPTRH    PSOCPTRI
PSOCPVW    PSOCSRL    PSODAWUT    PSODIAG    PSODIR4    PSODISP    PSODISP1    PSODLKP
PSODOSUT    PSODRG    PSOERX1    PSOERXO1    PSOERXU3    PSOERXU6    PSOERXX1    PSOERXX4
PSOFDAMG    PSOFDAUT    PSOFIXDT    PSOHLD    PSOHLDA    PSOHLDIS    PSOHLDS4    PSOHLNE2
PSOHLNE3    PSOHLNE4    PSOHLSN2    PSOLLLH    PSOMPHRC    PSON52    PSONDCUT    PSONDCV
PSONRXN    PSOORAL2    PSOORCPY    PSOORED6    PSOORED7    PSOOREDT    PSOORUT1    PSOOTMRX
PSOPFSU0    PSOPFSU1    PSOPI136    PSOPMP0    PSOPMP1    PSOPROD1    PSOPROD2    PSOPXRM1
PSOPXRMI    PSOQUAP2    PSOR52    PSOREF    PSOREJP0    PSOREJP1    PSOREJP2    PSOREJP3
PSOREJP4    PSOREJU1    PSOREJU2    PSOREJU3    PSOREJU4    PSORENW    PSORENW4    PSORESK
PSORLST2    PSORN52A    PSORN52C    PSORN52D    PSORPTS    PSORREF    PSORREF0    PSORRPA1
PSORWRAP    PSORXDL    PSORXED    PSORXED1    PSORXEDT    PSORXL1    PSORXPR1    PSORXRP1
PSORXRP2    PSORXVW1    PSORXVW2    PSOSPML2    PSOSPML4    PSOSPML5    PSOSPML6    PSOSPMU1
PSOSPMU2    PSOSPMU3    PSOSPMUT    PSOSULB1    PSOSULBL    PSOSUPAT    PSOSUPOE    PSOSUPRX
PSOTALK    PSOTEXP1    PSOTPRP1    PSOTRI    PSOUTIL    PSOUTL    PSOUTLA1    PSOVDF2
PSOVDF3    PSOVER    PSOVER1    PSOVER2    
CMOP 9 PSXBPSMS    PSXBPSRP    PSXBPSUT    PSXEDIT    PSXERR    PSXNEW    PSXRPPL2    PSXRTRAN
PSXVND    
Integrated Billing 6 IBJTEP    IBJTPE    IBNCPBB    IBNCPDPE    IBNCPRR    IBOHLS1    
E Claims Management Engine 5 BPSOPR3    BPSRPT1    BPSRPT6    BPSSCRL1    BPSVRX3    
Controlled Substances 4 PSDDSOR1    PSDNMWE    PSDOPTX    PSDSUBOX    
Mental Health 2 YSCLSRV3    YSCLTEST    
Pharmacy Benefits Management 2 PSUOP2    PSUOP3    
DSS Extracts 1 ECXOPRX    
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: 27

Package Total FileMan Files
Outpatient Pharmacy 11 DUE ANSWER SHEET(#50.0731)[3]    PATIENT NOTIFICATION (Rx READY)(#52.11)[#52.1112(.01)]    RX VERIFY(#52.4)[.013]    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: 17

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]    
Kernel 2 INSTITUTION(#4)[#52.1(91)#52.2(91)]    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)]    
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)]    
Registration 1 PATIENT(#2)[2]    
Scheduling 1 HOSPITAL LOCATION(#44)[5]    

Fields, Total: 124

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 0;11 SET
************************REQUIRED FIELD************************
  • 'M' FOR MAIL;
  • 'W' FOR WINDOW;

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

  • INPUT TRANSFORM:  K:$L(X)>75!($L(X)<1) X
  • LAST EDITED:  JUL 22, 1997
  • HELP-PROMPT:  ANSWER MUST BE 1-75 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Any additional comments.
  • TECHNICAL DESCR:  
    Free Text.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
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>9999)!(X<0)!(X?.E1"."5N.N) X
  • LAST EDITED:  OCT 04, 2000
  • HELP-PROMPT:  Type a Number between 0 and 9999, 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).
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.
33 SEVERITY DRI;1 FREE TEXT

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  • LAST EDITED:  MAY 02, 1995
  • HELP-PROMPT:  If patient understood counseling received enter 'Yes'.
  • DESCRIPTION:  
    This field indicates whether or not the patient understood the counseling on the prescription, if the patient was counseled.
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.
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
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.
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.
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.

ICR, Total: 4

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    STATUS (100).
    Access: Read w/Fileman

    REMARKS (12).
    Access: Read w/Fileman

    NDC (27).
    Access: Read w/Fileman

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

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

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

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

    External References

    Name Field # of Occurrence
    ^%DT 21+1, 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("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)
    >> 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*!, 301+1!, 302+1!, 303+1*!, 304+1!
    , 521011+1*
    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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All