STANDARD DATA DICTIONARY #440.2 -- DIRECT DELIVERY PATIENTS FILE                                                  9/29/25    PAGE 1
STORED IN ^PRC(440.2,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                       (VERSION 5.1)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the name and address of those patients who received deliveries of goods directly from a vendor.  This address 
could be a Nursing Home Care address or another vendor address.  


IDENTIFIED BY: STREET ADDR.1 (#1)[R], STREET ADDR.2 (#2), STREET ADDR.3 (#3), CITY (#4)[R], STATE (#5)[R], ZIP CODE (#6)[R]

POINTED TO BY: DIRECT DELIVERY PATIENT field (#5.3) of the PROCUREMENT & ACCOUNTING TRANSACTIONS File (#442) 
               DIRECT DELIVERY PATIENT field (#5.3) of the AMENDMENTS File (#443.6) 
               

CROSS
REFERENCED BY: NAME(B)



440.2,.01     NAME                   0;1 POINTER TO PATIENT FILE (#2) (Required)

              INPUT TRANSFORM:  S DINUM=X I $D(PRCH("PO")) S DIC("DR")="[PRCHPT]"
              LAST EDITED:      DEC 11, 1985 
              DESCRIPTION:
                                This is the name of the patient.  

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

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


440.2,1       STREET ADDR.1          0;2 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>24!($L(X)<3) X
              LAST EDITED:      OCT 15, 1985 
              HELP-PROMPT:      ANSWER MUST BE 3-24 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the patient street address 1.  


440.2,2       STREET ADDR.2          0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>24!($L(X)<3) X
              LAST EDITED:      OCT 15, 1985 
              HELP-PROMPT:      ANSWER MUST BE 3-24 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the patient address 2.  


440.2,3       STREET ADDR.3          0;4 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>24!($L(X)<3) X
              LAST EDITED:      OCT 15, 1985 
              HELP-PROMPT:      ANSWER MUST BE 3-24 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the patient street address 3.  


440.2,4       CITY                   0;5 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
              LAST EDITED:      OCT 15, 1985 
              HELP-PROMPT:      ANSWER MUST BE 3-15 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the city of the patient address.  


440.2,5       STATE                  0;6 POINTER TO STATE FILE (#5) (Required)

              LAST EDITED:      OCT 15, 1985 
              DESCRIPTION:
                                 This is the state of the patient address.  


440.2,6       ZIP CODE               0;7 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>10!($L(X)<5) X
              LAST EDITED:      OCT 15, 1985 
              HELP-PROMPT:      ANSWER MUST BE 5-10 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                This is the zip code of the patient address.  


440.2,99      DFN#                   99;1 NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      DEC 03, 1985 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999 
              DESCRIPTION:
                                This is the DFN# number.  



      FILES POINTED TO                      FIELDS

PATIENT (#2)                      NAME (#.01)

STATE (#5)                        STATE (#5)



INPUT TEMPLATE(S):
PRCHPT                        NOV 05, 1985        USER #0    

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):