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 |  Fields |  All
Print Page as PDF
Global: ^APSAMDF

Package: IHS Changes To Pharmacy

Global: ^APSAMDF


Information

FileMan FileNo FileMan Filename Package
9009037 AWP MED-TRANSACTION IHS Changes To Pharmacy

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
IHS Changes To Pharmacy 8 APSAPPIM    APSAPPIP    APSAWP11    APSAWP2    APSEPPIP    APSPPPIO    APSQAWP    APSQDAWP
Pharmacy Point of Sale 3 ABSPOS9    ABSPOSQP    ABSPOSQQ    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS Changes To Pharmacy 1 APSAWP11    
Pharmacy Barcode Scan 1 BPBSUPD    

Fields, Total: 15

Field # Name Loc Type Details
.01 NDC-UPC-HRI 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<10) X
  • LAST EDITED:  NOV 26, 1997
  • HELP-PROMPT:  Answer must be 10-11 characters in length.
  • DESCRIPTION:  
    NDCs, UPCs, and HRIs are 10 or 11 digit codes used to identify drug products.
  • TECHNICAL DESCR:  
    This field is used to cross-reference with the NDC contained in the drug file (file 50).
  • CROSS-REFERENCE:  9009037^B^MUMPS
    1)= S ^APSAMDF("B",X,DA)=""
    2)= K ^APSAMDF("B",X,DA)
.02 BENCHMARK PRICE EFFECTIVE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 10, 2011
  • DESCRIPTION:  
    Represents the effective date of the price (the price of the AWP)
  • TECHNICAL DESCR:  
    The value will be updating field 9999999.33 of file 50 (^PSDRUG) via the AWP update process.
.03 BENCHMARK PRICE PER DISP UNIT 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    The AWP unit price which represents the price an of an individual unit as defined by the package size unit of measure
  • TECHNICAL DESCR:  
    The value in this field will be updating field 9999999.32 of file 50 (^PSDRUG) via the AWP update process.
  • CROSS-REFERENCE:  ^^TRIGGER^9009037^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSAMDF(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9009037,.03,1,2,1.1) X ^DD(9009037,.03,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^APSAMDF(D0,1)):^(1),1:"") S X=DIV*$P(Y(1),U,3)
    1.4)= S DIH=$S($D(^APSAMDF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9009037,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03*#103
    DELETE VALUE)= NO EFFECT
    FIELD)= AWP PER ORDER UNIT
.04 BENCHMARK PRICE PER ORDER UNIT 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 10, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    Also known as the AWP package price which represents the price of the entire package and can be calculated by multiplying the AWP unit price by the total package quantity (DISP UNITS PER ORDER).
  • TECHNICAL DESCR:  
    This field will be handled to update field 9999999.31 of file 50  via the AWP update process.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the BENCHMARK PRICE PER DISP UNIT field of the AWP MED-TRANSACTION File
    TRIGGERED by the DISP UNITS PER ORDER field of the AWP MED-TRANSACTION File
101 PACKAGE SIZE 1;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 16, 1997
  • HELP-PROMPT:  Type a Number between 0 and 999999, 3 Decimal Digits
  • DESCRIPTION:  
    The package size multiplied by the package quantity equals the Total Package Quantity (Disp Units per Order)
  • TECHNICAL DESCR:  
    This field is a trigger cross-reference for the updating of field 103 (DISP UNITS PER ORDER).
  • CROSS-REFERENCE:  ^^TRIGGER^9009037^103
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSAMDF(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009037,101,1,1,1.1) X ^DD(9009037,101,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^APSAMDF(D0,1)):^(1),1:"") S X=DIV*$P(Y(1),U,2)
    1.4)= S DIH=$S($D(^APSAMDF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=9009037,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #101*#102
    DELETE VALUE)= NO EFFECT
    FIELD)= DISP UNITS PER ORDER
102 PACKAGE QUANTITY 1;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 16, 1997
  • HELP-PROMPT:  Type a Number between 0 and 99999, 0 Decimal Digits
  • DESCRIPTION:  
    The package quantity multiplied with the package size equals the Total Package Quantity (Disp Units per Order)
  • TECHNICAL DESCR:  
    This field is a trigger cross-reference for updating field 103 (DISP UNITS PER ORDER).
  • CROSS-REFERENCE:  ^^TRIGGER^9009037^103
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSAMDF(D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009037,102,1,1,1.1) X ^DD(9009037,102,1,1,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^APSAMDF(D0,1)):^(1),1:"") S X=$P(Y(1),U,1)*DIV
    1.4)= S DIH=$S($D(^APSAMDF(DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=9009037,DIG=103 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #101*#102
    DELETE VALUE)= NO EFFECT
    FIELD)= DISP UNITS PER ORDER
103 DISP UNITS PER ORDER 1;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."4N.N) X
  • LAST EDITED:  APR 16, 1997
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 3 Decimal Digits
  • DESCRIPTION:  
    This is also known as the Total Package Quantity.  This field is calculated by multiplying the package size (field 101) by the package quantity (field 102).
  • TECHNICAL DESCR:  
    The field will be handled to update field 15 of file 50 via the AWP update process.
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the PACKAGE SIZE field of the AWP MED-TRANSACTION File
    TRIGGERED by the PACKAGE QUANTITY field of the AWP MED-TRANSACTION File
  • CROSS-REFERENCE:  ^^TRIGGER^9009037^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSAMDF(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9009037,103,1,2,1.1) X ^DD(9009037,103,1,2,1.4)
    1.1)= S X=DIV S Y(1)=$S($D(^APSAMDF(D0,0)):^(0),1:"") S X=$P(Y(1),U,3)*DIV
    1.4)= S DIH=$S($D(^APSAMDF(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9009037,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= #.03*#103
    DELETE VALUE)= NO EFFECT
    FIELD)= AWP PER ORDER UNIT
201 DRUG NAME 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  NOV 24, 1997
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This field will contain the Medi-Span drug name.
  • TECHNICAL DESCR:  
    Use this field for a name match only if necessary.
202 NEW NDC-UPC-HRI 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>11!($L(X)<10) X
  • LAST EDITED:  APR 17, 1997
  • HELP-PROMPT:  Answer must be 10-11 characters in length.
203 ID NUMBER FORMAT CODE 2;3 SET
  • '1' FOR 4-4-2 for NDC;
  • '2' FOR 5-3-2 for NDC;
  • '3' FOR 5-4-1 for NDC;
  • '4' FOR 4-6 for HRI;
  • '5' FOR 5-5 for UPC or HRI;
  • '6' FOR 5-5-5 for NDC;

  • LAST EDITED:  APR 16, 1997
  • DESCRIPTION:  
    Identifies the format of the NDC-UPC-HRI.
  • TECHNICAL DESCR:  
    Use the ID number format code with the NDC, UPC, or HRI to determine 1) where to place dashes when formatting for display; 2) how to convert from the 10 to 11-digit format; 3) how to convert from the 11 to 10-digit format.
204 ITEM STATUS FLAG 2;4 SET
  • 'A' FOR Active;
  • 'I' FOR Inactive;
  • 'O' FOR Override;
  • 'Z' FOR Inactive > 24 months;

  • LAST EDITED:  APR 16, 1997
  • DESCRIPTION:  Distinguishes between active, inactive, overridden or reinstated drug products. The "O"verride status is used when a manufacturer reuses and old NDC-UPC-HRI for a different drug product. If the drug product does not
    exist in the end-user's drug files or patient profiles, then the "O" status should be treated as a added drug product.  However, if the end-user already has information on this NDC, the information needs to be reviewed
    before changing any field to determine its impact.
205 MANUFACTURER 2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  MAR 14, 2001
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
206 GENERIC PRODUCT IDENTIFIER 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>14!($L(X)<1) X
  • LAST EDITED:  MAR 14, 2001
  • HELP-PROMPT:  Answer must be 1-14 characters in length.
403 AAC PER DISPENSE UNIT 4;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 01, 2002
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    THIS IS THE ACTUAL ACQUISTION COST PER DISPENSE UNIT
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the AAC PER ORDER UNIT field of the AWP MED-TRANSACTION File
404 AAC PER ORDER UNIT 4;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."7N.N) X
  • LAST EDITED:  NOV 01, 2002
  • HELP-PROMPT:  Type a Number between 0 and 9999999, 6 Decimal Digits
  • DESCRIPTION:  
    THIS IS THE ACTUAL ACQUISTION COST PER ORDER UNIT
  • CROSS-REFERENCE:  ^^TRIGGER^9009037^403
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^APSAMDF(DA,1)),U,3)]"" I X S X=DIV S Y(1)=$S($D(^APSAMDF(D0,4)):^(4),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9009037,404,1,1,1.1) X ^DD(9009037,404,1,1,1.4)
    1.1)= S X=DIV S X=$FN($P(^APSAMDF(DA,4),U,4)/$P(^(1),U,3),"","6")
    1.4)= S DIH=$S($D(^APSAMDF(DIV(0),4)):^(4),1:""),DIV=X S $P(^(4),U,3)=DIV,DIH=9009037,DIG=403 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APSAMDF(D0,4)):^(4),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(9009037,404,1,1,2.4)
    2.4)= S DIH=$S($D(^APSAMDF(DIV(0),4)):^(4),1:""),DIV=X S $P(^(4),U,3)=DIV,DIH=9009037,DIG=403 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    3)= DO NOT DELETE
    CREATE CONDITION)= I $P($G(^APSAMDF(DA,1)),U,3)]""
    CREATE VALUE)= S X=$FN($P(^APSAMDF(DA,4),U,4)/$P(^(1),U,3),"","6")
    DELETE VALUE)= @
    FIELD)= #403
    THIS TRIGGER SETS FIELD 403 FROM 404/103
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All