| IEN(PSNIEN,PSNFT,LIST) |
Format: D IEN^PSN50P65(PSNIEN,PSNFT,LIST)
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNIEN |
Input |
PSNIEN - IEN of entry in VA DRUG CLASS file (#50.605)
[optional]
|
PSNFT |
Input |
PSNFT - CODE field (#.01) of VA DRUG CLASS file
(#50.605) (a value of "??" may be used) [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)=CODE(50.605,.01)
^TMP($J,LIST,PSNIEN,1)=CLASSIFICATION(50.605,1)
^TMP($J,LIST,"B",CODE,PSNIEN)= ""
|
|
C(PSNIEN,PSNFT,LIST) |
Format: D C^PSN50P65(PSNIEN,PSNFT,LIST)
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNIEN |
Input |
PSNIEN = IEN of entry in VA DRUG CLASS file (#50.605)
[optional]
|
PSNFT |
Input |
PSNFT = the CLASSIFICATION field (#1) of the VA DRUG
CLASS file (#50.605) (a value of "??" may be used) [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)=CODE(50.605,.01)
^TMP($J,LIST,PSNIEN,1)=CLASSIFICATION(50.605,1)
^TMP($J,LIST,PSNIEN,2)=PARENT CLASS(50.605,2)^CODE (50.605,.01)
^TMP($J,LIST,PSNIEN,3)=TYPE(50.605,3)
^TMP($J,LIST,"C",CODE,PSNIEN)= ""
Note: The "C" cross-reference in the format of
^PS(50.605,"C",CLASSIFICATION(50.605,1),IEN(50.605)) will be used for the
lookup
|
|
$$ROOT(PSNC) |
Format: S X=$$ROOT^PSN50P65(PSNC)
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNC |
Input |
PSNC = If "1" the global root of the "C"
cross-reference is returned otherwise, the global root of the zero node is
returned
|
$$ROOT |
Output |
$$ROOT Where: $$ROOT = "^PS(50.605, ""C"")" if PSNC
is passed in as 1 $$ROOT = "^PS(50.605,") if PSNC is null
|
|
SSET |
Returns a subset of active child drug classes (plus
HA000) of the VA DRUG CLASS file (#50.605).
A drug class is considered a 'CHILD' if there is no data in the PARENT field
(#2). In order to be considered inactive, the CODE field (#.01) must contain
the word INACTIVE.
|
| VARIABLES |
TYPE |
VARIABLES DESCRIPTION |
PSNC |
Input |
Count (number wheel) used when populating the return
^TMP global.
|
PSNCNT |
Input |
Number of items to return at one time.
|
PSNI |
Input |
Starting location for the 'B' cross-reference.
|
DIR |
Input |
1 - Process 'B' cross-reference backwards. -1 - Process 'B' cross-reference
backwards.
|
SUB |
Input |
The subscript to use to return data in the ^TMP
global.
|
~TMP(SUB,$J,1,PSNC) |
Output |
^TMP(SUB,$J,1,PSNC)=IEN of the Drug Class ^ CODE
field (#.01) ^ CLASSIFICATION (#1)
|
|