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: ^PSNTRAN

Package: National Drug File

Global: ^PSNTRAN


Information

FileMan FileNo FileMan Filename Package
50.612 NATIONAL DRUG TRANSLATION National Drug File

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
National Drug File 16 PSNBLD    PSNCOMP    PSNDEA    PSNDRUG    PSNEXC    PSNHELP1    PSNHIT    PSNMRG
PSNNDC    PSNNDC1    PSNOUT    PSNPFN    PSNPPSNW    PSNSTCL    PSNVER    PSNVFY
CMOP 1 PSXCMOP1    
Pharmacy Data Management 1 PSSMARK    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
National Drug File 1 PSN50612    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
National Drug File 4 PACKAGE TYPE(#50.608)[6]    PACKAGE SIZE(#50.609)[4]    VA GENERIC(#50.6)[.01]    VA PRODUCT(#50.68)[1]    
Kernel 1 NEW PERSON(#200)[79]    

Fields, Total: 12

Field # Name Loc Type Details
.001 PSDRUG DA NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 21, 1986
  • HELP-PROMPT:  Type a whole number between 1 and 999999999.
  • DESCRIPTION:  
    Pointer to ^PSDRUG file (#50).
.01 PSNDF DA 0;1 POINTER TO VA GENERIC FILE (#50.6)
************************REQUIRED FIELD************************
VA GENERIC(#50.6)

  • LAST EDITED:  SEP 20, 1998
  • DESCRIPTION:  
    Pointer to ^PSNDF file (#50.6).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  50.612^B
    1)= S ^PSTRAN("B",$E(X,1,30),DA)=""
    2)= K ^PSTRAN("B",$E(X,1,30),DA)
1 VA PRODUCT NAME DA 0;2 POINTER TO VA PRODUCT FILE (#50.68) VA PRODUCT(#50.68)

  • LAST EDITED:  SEP 20, 1998
  • DESCRIPTION:  
    Pointer to VA PRODUCT file (#50.68).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
2 VA CLASS 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 21, 1986
  • HELP-PROMPT:  Type a whole number between 1 and 999.
  • DESCRIPTION:  
    Pointer to VA Drug Class file (#50.605).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
4 PACKAGE SIZE PTR 0;5 POINTER TO PACKAGE SIZE FILE (#50.609) PACKAGE SIZE(#50.609)

  • LAST EDITED:  DEC 08, 1987
  • DESCRIPTION:  
    Pointer to Package Size file (#50.609).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
6 PACKAGE TYPE PTR 0;7 POINTER TO PACKAGE TYPE FILE (#50.608) PACKAGE TYPE(#50.608)

  • LAST EDITED:  DEC 08, 1987
  • DESCRIPTION:  
    Pointer to Package Type file (#50.608).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
7 DUZ # 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 25, 1992
  • DESCRIPTION:  
    User number of person entering (matching) data.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
8 VERIFY FLAG 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  OCT 06, 1986
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Flag to indicate that the data has been verified.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
9 DUZ OF VERIFIER 0;10 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 25, 1992
  • DESCRIPTION:  
    User number of person doing the verifying.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
10 END END;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 23, 1987
  • HELP-PROMPT:  Type a whole number between 0 and 999999.
  • DESCRIPTION:  
    Stores internal number of file #50 in which the matching process concluded previously. This allows the user to start up where they left off in the matching process using option - (Match Local Drug File With National File).
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
    UNEDITABLE
  • CROSS-REFERENCE:  50.612^C^MUMPS
    1)= S $P(^PSNTRAN("END"),"^",1)=X
    2)= S $P(^PSNTRAN("END"),"^",1)=""
    This cross-reference stores the last entry matched in option "Match Local Drug File With National File". In the form of: ^PSNTRAN("END")=PSDRUG DA
11 LAST UNMATCHED DRUG CLASSED END;3 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  NOV 23, 1987
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Stores the name of the last unmatched drug classed by option - (Allow Unmatched Drugs To Be Classed). This allows the user to start up where they left off.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  50.612^D^MUMPS
    1)= S $P(^PSNTRAN("END"),"^",3)=X
    2)= S $P(^PSNTRAN("END"),"^",3)=""
    This cross-reference stores the name of the last entry classed by option "Allow Unmatched Drugs To Be Classed". In the form of: ^PSNTRAN("END")=^^PSDRUG DA
12 LAST SUPPLY ITEM RE-CLASSED END;5 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JUL 12, 1989
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • DESCRIPTION:  
    Stores the name of the last supply item re-classed by option - (Re-Class Supply Items). This allows the user to start up where they left off.
    DELETE AUTHORITY: ^
    WRITE AUTHORITY: ^
  • CROSS-REFERENCE:  50.612^E^MUMPS
    1)= S $P(^PSNTRAN("END"),"^",5)=X
    2)= S $P(^PSNTRAN("END"),"^",5)=""
    This cross-reference stores the name of the last entry classed by option "Re-Class Supply Items". In the form of: ^PSNTRAN("END")=^^^^PSDRUG DA
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields  | All