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 |  All
Print Page as PDF
Global: ^VEXHRX0(19080.1

Package: IHS Pharmacy Auto Refill System

Global: ^VEXHRX0(19080.1


Information

FileMan FileNo FileMan Filename Package
90350.1 BEX REFILL TRANSACTION IHS Pharmacy Auto Refill System

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
IHS Pharmacy Auto Refill System 10 BEXRDAT    BEXRDOW    BEXREXC    BEXRHOR    BEXRPAT    BEXRREJ    BEXRRPH    BEXRSRT
BEXRX    BEXRX7    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS Pharmacy Auto Refill System 3 BEX80    BEXRX    BEXRX7    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Pharmacy Data Management 1 DRUG(#50)[11]    
Registration 1 VA PATIENT(#2)[.01]    
Utility Tables 1 LOCATION(#9999999.06)[10]    

Fields, Total: 12

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

  • LAST EDITED:  SEP 09, 1994
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  19080.1^B
    1)= S ^VEXHRX0(19080.1,"B",$E(X,1,30),DA)=""
    2)= K ^VEXHRX0(19080.1,"B",$E(X,1,30),DA)
.02 HRCN COMPUTED

  • MUMPS CODE:  S X1=$P($G(^VEXHRX0(19080.1,D0,0)),U),X=$$HRN^AUPNPAT(X1,DUZ(2))
    9.2 = S Y(19080.1,.02,1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(19080.1,.02,1),U,1),0)):"",1:$P(^(0),U,1))
  • ALGORITHM:  VEX HRN
  • LAST EDITED:  SEP 13, 2002
1 DATE/TIME 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 30, 2004
    UNEDITABLE
  • CROSS-REFERENCE:  19080.1^C
    1)= S ^VEXHRX0(19080.1,"C",$E(X,1,30),DA)=""
    2)= K ^VEXHRX0(19080.1,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  19080.1^AC^MUMPS
    1)= S BEXCR=$$CR^BEXRX(DA)
    2)= Q
2 PRESCRIPTION NUMBER 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<7) X
  • LAST EDITED:  JUL 30, 2003
  • HELP-PROMPT:  Answer must be 7-8 characters in length.
    UNEDITABLE
  • CROSS-REFERENCE:  19080.1^D
    1)= S ^VEXHRX0(19080.1,"D",$E(X,1,30),DA)=""
    2)= K ^VEXHRX0(19080.1,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90350.1^8
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$DRG^BEX80(X) S DIH=$G(^VEXHRX0(19080.1,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90350.1,DIG=8
    D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEXHRX0(19080.1,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$DRG^BEX80(X) S DIH=$G(^VEXHRX0(19080.1,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90350.1,DIG=8
    D ^DICR
    CREATE VALUE)= S X=$$DRG^BEX80(X)
    DELETE VALUE)= S X=$$DRG^BEX80(X)
    FIELD)= DRUG
3 TYPE 0;4 SET
  • 'R' FOR REFILL;
  • 'S' FOR STATUS;
  • 'P' FOR PHARMACY;
  • 'I' FOR RX INFO;

  • LAST EDITED:  JUL 20, 1995
    UNEDITABLE
  • CROSS-REFERENCE:  19080.1^E
    1)= S ^VEXHRX0(19080.1,"E",$E(X,1,30),DA)=""
    2)= K ^VEXHRX0(19080.1,"E",$E(X,1,30),DA)
4 RESULT 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 21, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
    UNEDITABLE
5 RENEWAL FLAG 0;6 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 21, 1994
    UNEDITABLE
8 DRUG NAME 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 18, 2002
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PRESCRIPTION NUMBER field of the BEX REFILL TRANSACTION File
9 CHART REQUESTED? 0;9 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  SEP 30, 2002
10 SITE 0;10 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  APR 24, 2007
11 MEDICATION NAME 0;11 POINTER TO DRUG FILE (#50) DRUG(#50)

  • LAST EDITED:  APR 24, 2007
12 MAIL/WINDOW 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUL 25, 2011
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All