STANDARD DATA DICTIONARY #50.35 -- DRUG APPLICATION FILE                                                          9/29/25    PAGE 1
STORED IN ^PS(50.35,  (7 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                                       

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
  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!! 


              DD ACCESS: @

   APPLICATION GROUP(S): PS
IDENTIFIED BY: CODE (#.02)

CROSS
REFERENCED BY: NAME(B), CODE(C)



50.35,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X
              LAST EDITED:      AUG 19, 1991 
              HELP-PROMPT:      Enter the name of an application that will be using entries in the Primary Drug file. 
              DESCRIPTION:
                                  This is an application that may make use of the entries within the Primary Drug file.  

              TECHNICAL DESCR:    If an application (DHCP package) would like to use entries within the Primary Drug file, it must
                                first have an entry in this file.  

              GROUP:            PS
              CROSS-REFERENCE:  50.35^B 
                                1)= S ^PS(50.35,"B",$E(X,1,30),DA)=""
                                2)= K ^PS(50.35,"B",$E(X,1,30),DA)


50.35,.02     CODE                   0;2 FREE TEXT

              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. 
              DESCRIPTION:        This is the code for this application.  This code is stored with the drugs associated with this
                                application.  

              GROUP:            PS
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  50.35^C 
                                1)= S ^PS(50.35,"C",$E(X,1,30),DA)=""
                                2)= K ^PS(50.35,"C",$E(X,1,30),DA)
                                3)= USED FOR LOOK-UP.



INPUT TEMPLATE(S):

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):