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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Global: ^PSNDF(50.67

Package: National Drug File

Global: ^PSNDF(50.67


Information

FileMan FileNo FileMan Filename Package
50.67 NDC/UPN National Drug File

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
National Drug File 16 PSN5067    ^PSNDF(50.67    PREVIOUS NDC    PREVIOUS UPN    PSN113P    PSN137P    PSN441P    PSN471P
PSNACT    PSNAPIS    PSNCOMP    PSNNDC    PSNNDC1    PSNUPN    PSNVCR2    PSNXREF
Outpatient Pharmacy 1 PSOERXA0    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
National Drug File 7 PSN137E    PSN5067    PSNACT    PSNAPIS    PSNCOMP    PSNPPSNK    PSNUPN    
Outpatient Pharmacy 1 PSOERXA0    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Integrated Billing 1 HEALTH CARE CLAIM RFAI (277)(#368)[#368.0121(.03)]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
National Drug File 4 PACKAGE TYPE(#50.608)[9]    PACKAGE SIZE(#50.609)[8]    DRUG MANUFACTURER(#55.95)[3]    VA PRODUCT(#50.68)[5]    

Fields, Total: 13

Field # Name Loc Type Details
.01 SEQUENCE NUMBER 0;1 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X S:$D(X) DINUM=X
  • LAST EDITED:  JUN 04, 1998
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1 NDC 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<12) X
  • LAST EDITED:  MAY 16, 1998
  • HELP-PROMPT:  Answer must be 12 characters in length.
  • DESCRIPTION:  
    This is the 12 character NDC (National Drug Code) for this item.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  50.67^NDC
    1)= S ^PSNDF(50.67,"NDC",$E(X,1,30),DA)=""
    2)= K ^PSNDF(50.67,"NDC",$E(X,1,30),DA)
    Regular cross reference for lookup.
2 UPN 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JUN 04, 1998
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    This is the UPN (Universal Product Number) for this item.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  50.67^UPN
    1)= S ^PSNDF(50.67,"UPN",$E(X,1,30),DA)=""
    2)= K ^PSNDF(50.67,"UPN",$E(X,1,30),DA)
    Regular cross reference for lookup.
3 MANUFACTURER 0;4 POINTER TO DRUG MANUFACTURER FILE (#55.95) DRUG MANUFACTURER(#55.95)

  • LAST EDITED:  JUN 16, 1999
  • DESCRIPTION:  
    This is the manufacturer of this item.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
4 TRADE NAME 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  MAY 20, 1998
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  
    This is the trade name of this item.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  50.67^T
    1)= S ^PSNDF(50.67,"T",X,DA)=""
    2)= K ^PSNDF(50.67,"T",X,DA)
5 VA PRODUCT NAME 0;6 POINTER TO VA PRODUCT FILE (#50.68) VA PRODUCT(#50.68)

  • LAST EDITED:  APR 28, 1998
  • DESCRIPTION:  
    This is the VA Product associated with this item.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
  • CROSS-REFERENCE:  50.67^ANDC^MUMPS
    1)= S ^PSNDF(50.68,"ANDC",X,DA)=""
    2)= K ^PSNDF(50.68,"ANDC",X,DA)
    This cross reference sets a cross reference in the VA PRODUCT file (#50.68).  In the form of: ^PSNDF(50.68,"ANDC",VA PRODUCT file DA,NDC/UPN file DA)
6 ROUTE OF ADMINISTRATION 1;0 Multiple #50.676 50.676
7 INACTIVATION DATE 0;7 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 1998
  • DESCRIPTION:  
    This is the date when this item was made inactive.
  • TECHNICAL DESCR:  
    This field will be triggered by an entry of an inactivation date for the corresponding VA product.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
8 PACKAGE SIZE 0;8 POINTER TO PACKAGE SIZE FILE (#50.609) PACKAGE SIZE(#50.609)

  • LAST EDITED:  APR 23, 1998
  • DESCRIPTION:  
    This is the package size.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
9 PACKAGE TYPE 0;9 POINTER TO PACKAGE TYPE FILE (#50.608) PACKAGE TYPE(#50.608)

  • LAST EDITED:  APR 23, 1998
  • DESCRIPTION:  
    This is the package type.
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
10 OTX/RX INDICATOR 0;10 SET
  • 'O' FOR Over the counter;
  • 'R' FOR Prescription;

  • LAST EDITED:  APR 23, 1998
  • AUDIT:  YES, ALWAYS
    DELETE AUTHORITY: ^
    WRITE AUTHORITY:  ^
11 PREVIOUS NDC 2;0 Multiple #50.6711 50.6711
12 PREVIOUS UPN 3;0 Multiple #50.6712 50.6712

External References

Name Field # of Occurrence
^%DT 7+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PSNDF(50.67 - [#50.67] 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K)
^PSNDF(50.68 - [#50.68] 5(XREF 1S), 5(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 7+1*
>> DA 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1S), 5(XREF 1K)
>> DINUM .01+1*
X .01+1!, 1+1!, 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K)
5(XREF 1S), 5(XREF 1K), 7+1*!
>> Y 7+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Local Variables |  All