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 |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PS(52.91

Package: Outpatient Pharmacy

Global: ^PS(52.91


Information

FileMan FileNo FileMan Filename Package
52.91 TPB ELIGIBILITY Outpatient Pharmacy

Description

Directly Accessed By Routines, Total: 21

Package Total Routines
Outpatient Pharmacy 21 PSO145PS    PSO146PS    PSO160DR    PSO227PO    PSO5291    PSOAUTOC    PSOBBC    PSOCAN3
PSOORUT2    PSOPTPST    PSORXEDT    PSOTPCAN    PSOTPCEE    PSOTPCL    PSOTPCLP    PSOTPCLR
PSOTPCRP    PSOTPCRX    PSOTPINA    PSOTPPOS    PSOTPRP1    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Outpatient Pharmacy 12 PSO146PS    PSO160DR    PSO227PO    PSOP222    PSOTPCAN    PSOTPCEE    PSOTPCLP    PSOTPCLR
PSOTPCRX    PSOTPINA    PSOTPPOS    PSOTPRP1    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 INSTITUTION(#4)[7]    
Registration 1 PATIENT(#2)[.01]    

Fields, Total: 12

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DINUM=X
  • LAST EDITED:  AUG 07, 2003
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    This is the patient IEN who is eligible for this new service.
  • DELETE TEST:  1,0)= I 1 D EN^DDIOL("Patient entries CANNOT be deleted.")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52.91^B
    1)= S ^PS(52.91,"B",$E(X,1,30),DA)=""
    2)= K ^PS(52.91,"B",$E(X,1,30),DA)
1 DATE PHARMACY BENEFIT BEGAN 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 06, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  This is the date the entry was made into the file during extraction either from the EWL or from the Schedule Appointment set by the post-install routine. Manual entry to this file is also allowed for eligible patient, and
    it will be set to the current date.
  • TECHNICAL DESCR:  
    Not editable.
  • RECORD INDEXES:  AX (#254)
2 INACTIVATION OF BENEFIT DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^PS(52.91,DA,0)),X<$P(^(0),U,2) D EN^DDIOL("INACTIVATION DATE CANNOT BE BEFORE DATE PHARMACY BENEFIT BEGAN","","$C(7),!?5") K X
  • LAST EDITED:  AUG 29, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  This date can be set manually when the patient is no longer eligible for this benefit; or when the Non-VA prescriptions are either Discontinued or Expired; or set automatically due to a Date of Death entered in the Patient
    file (#2).
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  52.91^AD^MUMPS
    1)= D RXPAT^PSOTPCAN
    2)= Q
    This cross reference sets the RX Patient status in the PHARMACY PATIENT file (#55) to null if this date entered is not a future date, and the RX Patient Status is equal to "NON-VA". It sets the global: ^PS(55,DA,"PS")="".
  • RECORD INDEXES:  AX (#254)
3 INACTIVATION REASON CODE 0;4 SET
  • '1' FOR SEEN BY VA PROVIDER;
  • '2' FOR NO/SHOW/CANCELLATION;
  • '3' FOR PATIENT ENDED;
  • '4' FOR NON-FORMULARY RX NOT ACCEPTED;
  • '5' FOR PATIENT EXPIRED;
  • '6' FOR ALL RX'S INACTIVE;
  • '7' FOR EXCLUSION;
  • '8' FOR PATIENT REFUSED APPT;
  • '9' FOR PATIENT UNREACHABLE;
  • '10' FOR PROGRAM ENDED;

  • LAST EDITED:  NOV 16, 2005
  • DESCRIPTION:  
    This field contains a code representing the reason for inactivating a patient for this benefit. EXCLUSION code 7, is hidden and not user selectable. It is used by the post-install routine during initial extraction.
  • SCREEN:  S DIC("S")="I Y'=7"
  • EXPLANATION:  Only these codes are allowed for manual entry.
  • RECORD INDEXES:  AX (#254)
4 DESIRED APPOINTMENT DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X I $D(X),$D(^PS(52.91,DA,0)),X<$P(^(0),U,2) D EN^DDIOL("DESIRED APPOINTMENT DATE CANNOT BE BEFORE DATE PHARMACY BENEFIT BEGAN","","$C(7),!?5") K X
  • LAST EDITED:  AUG 06, 2003
  • HELP-PROMPT:  Enter the desired date for the appointment.
  • DESCRIPTION:  
    Set by the EWL/Scheduling extract and is obtained from Scheduling file.
  • TECHNICAL DESCR:  Set by the EWL, DESIRED DATE OF APPOINTMENT field (#22) of the SD WAIT LIST file (#409.3), piece 16 of the 0 node; or from Scheduling, the DESIRED APPOINTMENT DATE field (#27) of the APPOINTMENT subfile (#1900) of the
    PATIENT file (#2), piece 1 of the 1 node. If there is more than one desired appointment in Scheduling then the one that is closest to the date the extract was run is used.
    Not editable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • RECORD INDEXES:  AX (#254)
5 WAIT TYPE 0;6 SET
  • 'E' FOR EWL;
  • 'M' FOR MANUAL;
  • 'S' FOR SCHEDULED APPOINTMENT;
  • 'X' FOR SCHEDULED APPOINTMENT & EWL;

  • LAST EDITED:  AUG 17, 2003
  • HELP-PROMPT:  Select one Wait List Type.
  • DESCRIPTION:  
    The type of wait the patient is assigned.
  • TECHNICAL DESCR:  
    "M" is set for manual entry. Not editable.
  • RECORD INDEXES:  AX (#254)
6 STATION NUMBER 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X
  • LAST EDITED:  AUG 06, 2003
  • HELP-PROMPT:  Answer must be 3-7 characters in length
  • DESCRIPTION:  
    7 digit STATION NUMBER. First 3 digit station number plus any modifiers.
  • TECHNICAL DESCR:  
    An attempt to obtain the clinic from the Patient file (#2) will be performed in order to auto-populate the Station Number. Can be entered manually. It's a required field.
  • RECORD INDEXES:  AX (#254)
7 INSTITUTION 0;8 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • LAST EDITED:  AUG 07, 2003
  • DESCRIPTION:  
    Is set by the EWL/Scheduling extract and is obtained from the Institution File (#4, field .01)
  • TECHNICAL DESCR:  
    During manual entry, if this field is found null (due to timeout), then the record will be marked as inactive and the INACTIVATION REASON CODE will be set 3 (Patient Ended).
  • FIELD INDEX:  AC (#253) MUMPS IR ACTION
    Short Descr: Sets the "AC" x-ref.
    Set Logic: S ^PS(52.91,"AC",$E(X,1,30),DA)="" S:$$PATCH^XPDUTL("PSO*7.0*146") ^PS(52.91,"AX",DT,DA)="" Q
    Kill Logic: K ^PS(52.91,"AC",$E(X,1,30),DA) S:$$PATCH^XPDUTL("PSO*7.0*146") ^PS(52.91,"AX",DT,DA)="" Q
    X(1): INSTITUTION (52.91,7) (Subscr 1) (forwards)
8 EXCLUSION REASON 0;9 SET
  • '1' FOR ACTIVE RX;
  • '2' FOR ACTUAL APPT. < 30 DAYS FROM DATE APPT. MADE;
  • '3' FOR BOTH;

  • LAST EDITED:  AUG 17, 2003
  • DESCRIPTION:  
    Exclusion reason codes.
  • RECORD INDEXES:  AX (#254)
9 PRIMARY CARE SCHEDULE APT DATE 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 21, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    This is the date that a primary care appointment was scheduled. This field is populated only by the post-install routine during initial extraction.
  • RECORD INDEXES:  AX (#254)
10 RX # 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  AUG 07, 2003
  • HELP-PROMPT:  Answer must be 1-15 characters in length
  • DESCRIPTION:  
    Rx# if found during the extraction that made the patient flagged as excluded for this service.
11 DATE LETTER PRINTED 0;12 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  AUG 07, 2003
  • HELP-PROMPT:  (No range limit on date)
  • DESCRIPTION:  
    Date the letter was printed.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #4223
  • Scheduling
  • Direct read access to the 0 node.
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All