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 |  Found Entries |  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: 23

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    
Scheduling 2 SDPBE    SDPHARM    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
Outpatient Pharmacy 11 PSO146PS    PSO160DR    PSO227PO    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 VA PATIENT(#2)[.01]    

Fields, Total: 12

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO VA PATIENT FILE (#2)
************************REQUIRED FIELD************************
VA 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 (#157)
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 (#157)
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 (#157)
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 (#157)





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 (#157)





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 (#157)





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 (#156)    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 (#157)





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 (#157)





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 | 
Found Entries | 
All