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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  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: 22

Package Total Routines
Outpatient Pharmacy 22 PSO160DR    ^PS(52.91    PSO145PS    PSO146PS    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.

    External References

    Name Field # of Occurrence
    ^%DT 1+1, 2+1, 4+1, 9+1, 11+1
    EN^DDIOL .01DEL1+1, 2+1, 4+1
    RXPAT^PSOTPCAN 2(XREF 1S)
    $$PATCH^XPDUTL IXACSL+1, IXACKL+1, IXAXSL+1, IXAXKL+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^PS(52.91 - [#52.91] IXACSL+1*, IXACKL+1!*, IXAXSL+1*, IXAXKL+1*, .01(XREF 1S), .01(XREF 1K), 2+1, 4+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 2+1, 4+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 1+1*, 2+1*, 4+1*, 9+1*, 11+1*
    >> DA IXACSL+1, IXACKL+1, IXAXSL+1, IXAXKL+1, .01(XREF 1S), .01(XREF 1K), 2+1, 4+1
    >> DIC("S" 3SCR+1*
    >> DINUM .01+1*
    DT IXACSL+1, IXACKL+1, IXAXSL+1, IXAXKL+1
    I IXAXSCC+1~*, IXAXKCC+1~*
    U 2+1, 4+1
    X IXACSL+1, IXACKL+1, IXAXSCC+1*, IXAXKCC+1*, .01+1, .01(XREF 1S), .01(XREF 1K), 1+1*!, 2+1*!, 4+1*!
    , 6+1!, 9+1*!, 10+1!, 11+1*!
    >> X1( IXAXSCC+1, IXAXKCC+1
    >> X2( IXAXSCC+1, IXAXKCC+1
    >> Y 1+1, 2+1, 4+1, 9+1, 11+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All