| $$B |
Returns the file root of the "B" cross-reference. The
$$B^PSN50P41 API will accomplish this task.
Format: S X=$$B^PSN50P41
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
$$B |
Output |
$$B = "^PS(50.416, "B")" the file root of the "B"
cross-reference on the DRUG INGREDIENTS file (#50.416)
|
|
ZERO(PSNIEN,PSNFT,PSNFL,LIST) |
Format: D ZERO^PSN50P41(PSNIEN,PSNFT,PSNFL,LIST)
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNIEN |
Input |
PSNIEN = IEN of entry in DRUG INGREDIENTS file
(#50.416) [optional]
|
PSNFT |
Input |
PSNFT = the NAME field (#.01) of the DRUG INGREDIENTS
file (#50.416) (a value of "??" may be used) [optional]
|
PSNFL |
Input |
PSNFL = Inactive date: A null value will return all
entries (entry of a FileMan format date (ex: 3030917) will return active
entries after this date) [optional]
|
LIST |
Input |
LIST = array defined by the calling application
[required]
|
~TMP |
Output |
^TMP($J,LIST,0)=Total entries returning or -1^NO DATA
FOUND
^TMP($J,LIST,PSNIEN,.01)=NAME(50.416,.01)
^TMP($J,LIST,PSNIEN,2)=PRIMARY INGREDIENT(50.416,2)^NAME(50.416,.01) (The
PRIMARY INGREDIENT field (#2) stores the IEN of the DRUG INGREDIENTS file
(#50.416) that point to other entry in this file)
^TMP($J,LIST,PSNIEN,3)=INACTIVATION DATE(50.416,3)^External format (ex: SEP
12,1999)
^TMP($J,LIST,"B",NAME,PSNIEN)= ""
|
|
NAME(PSNFT,LIST) |
Returns fields in the zero node in the DRUG
INGREDIENTS file (#50.416) in the array defined by the calling application.
The "P cross-reference in the format of ^PS(50.416,"P
,NAME(50.416,.01),IEN(50.416)) will be used.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNFT |
Input |
NAME field (#.01) of the DRUG INGREDIENTS file
(#50.416) (a value of "??" may be used) [required]
|
LIST |
Input |
defined by the calling application [required]
|
~TMP |
Output |
^TMP($J,LIST,0) = Total entries returned or -1^NO
DATA FOUND
^TMP($J,LIST,PSNIEN,.01) = NAME (50.416,.01)
^TMP($J,LIST,PSNIEN,2) = PRIMARY INGREDIENT (50.416,2)^NAME (50.416,.01) (The
PRIMARY INGREDIENT field (#2) stores the IEN of the DRUG INGREDIENTS file
(#50.416) that point to other entry in this file)
^TMP($J,LIST,"P",NAME,PSNIEN) = ""
Where:
PSNIEN is IEN of entry in the DRUG INGREDIENTS file (#50.416)
|
|
