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 | Global Variables Directly Accessed | Local Variables | 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

This file contains information on drugs that have been matched, or for which a match was attempted to the National Drug File.

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)[7, 9]

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`

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSNTRAN("END"	10(XREF 1S), 10(XREF 1K), 11(XREF 1S), 11(XREF 1K), 12(XREF 1S), 12(XREF 1K)
^PSTRAN("B"	.01(XREF 1S), .01(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K)
X	.001+1!, .01(XREF 1S), .01(XREF 1K), 2+1!, 8+1!, 10+1!, 10(XREF 1S), 11+1!, 11(XREF 1S), 12+1! , 12(XREF 1S)

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Global Variables Directly Accessed | Local Variables | All