This file contains applications and their one character codes. These codes are used by the APPLICATION field of the PRIMARY DRUG file. THESE CODES (OTHER THAN 'Z' OR 'z') MUST BE ASSIGNED BY THE BIRMINGHAM ISC!!
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X I $D(X) S X(1)=$O(^PS(53.35,"C",X,0)) I X(1) S X(2)=$P($G(^PS(50.35,X(1),0)),"^") S:X(2)="" X(2)=X(1) K X W !,"THIS CODE IS ALREADY USED BY ",X(2)
LAST EDITED: DEC 20, 1991
HELP-PROMPT: Answer must be 1 character in length.
This is the code for this application. This code is stored with the drugs associated with this application.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER