STANDARD DATA DICTIONARY #45.85 -- CENSUS WORKFILE FILE                                                           6/27/25    PAGE 1
STORED IN ^DG(45.85,  *** NO DATA STORED YET ***   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                        (VERSION 5.3)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file is a work file of patients who were inpatients as of 11:59pm on acensus date.  File entries are created by the Regenerate
Census Workfile option of the Census module.  
 
The file is used to produce the Census Status Report.  Without this workfile, it would be necessary to search all admissions in
order to compile this report.  This file eliminates that processing.  


              DD ACCESS: @
              RD ACCESS: d
              WR ACCESS: D
             DEL ACCESS: @
           LAYGO ACCESS: @
IDENTIFIED BY: CENSUS DATE (#.04)

CROSS
REFERENCED BY: CENSUS DATE(ACENSUS), NAME(B), PTF NUMBER(PTF)



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

              DESCRIPTION:
                                This field contains the name of the inpatient.  

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


45.85,.02     ADMISSION DATE         0;2 DATE

              INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
              DESCRIPTION:
                                This field contains the admission date and time associated with this workfile entry.  


45.85,.03     ADMISSION ENTRY        0;3 POINTER TO PATIENT MOVEMENT FILE (#405)

              LAST EDITED:      OCT 19, 1990 
              DESCRIPTION:      This field contains the internal entry number to the patient's admission multiple.  This number
                                represent the admission entry that caused this workfile entry to be created.  


45.85,.04     CENSUS DATE            0;4 POINTER TO PTF CENSUS DATE FILE (#45.86)

              LAST EDITED:      APR 12, 1990 
              DESCRIPTION:      This field contains the CENSUS DATE that the workfile entry is associated.  
                                 
                                Note that an admission can be associated with more than one census record but each workfile entry
                                is associated with only one census record.  
                                 
                                As an example, a patient who was a continuous inpatient from 8/1/91 to 11/1/92 would have census
                                records for the 9/30/91 and 9/30/92 censuses. This admission would have two workfile entries.  

              CROSS-REFERENCE:  45.85^ACENSUS 
                                1)= S ^DG(45.85,"ACENSUS",$E(X,1,30),DA)=""
                                2)= K ^DG(45.85,"ACENSUS",$E(X,1,30),DA)


45.85,.05     DISCHARGE DATE         0;5 DATE

              INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
              DESCRIPTION:
                                This field contains the discharge date and time associated with this workfile entry.  


45.85,.06     WARD ON CENSUS DATE    0;6 POINTER TO WARD LOCATION FILE (#42)

              DESCRIPTION:
                                This field contains the ward that the patient was on as of 11:59 of the CENSUS DATE.  


45.85,.12     PTF NUMBER             0;12 POINTER TO PTF FILE (#45)

              INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,11)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
              LAST EDITED:      MAY 18, 1990 
              DESCRIPTION:
                                This field contains the PTF record that is assoicated with this workfile entry.  

              SCREEN:           S DIC("S")="I $P(^(0),U,11)=1"
              EXPLANATION:      Only PTF records allowed.
              CROSS-REFERENCE:  45.85^PTF 
                                1)= S ^DG(45.85,"PTF",$E(X,1,30),DA)=""
                                2)= K ^DG(45.85,"PTF",$E(X,1,30),DA)


45.85,101     CENSUS STATUS           ;  COMPUTED

              MUMPS CODE:       D STATUS^DGPTCO1
              ALGORITHM:        D STATUS^DGPTCO1
              DESCRIPTION:      This computed field will display/print the census status associated with the admission and CENSUS
                                DATE for this workfile entry.  
                                 
                                Possible statuses are:   Open 
                                                         Closed 
                                                         Released 
                                                         Transmitted 


45.85,103     CENSUS RECORD NUMBER    ;  COMPUTED

              MUMPS CODE:       D CREC^DGPTCO1
              ALGORITHM:        D CREC^DGPTCO1
              LAST EDITED:      MAY 15, 1990 
              DESCRIPTION:      This computed field displays/prints the census record number associated with the admission and
                                CENSUS DATE for this workfile entry.  



      FILES POINTED TO                      FIELDS

PATIENT (#2)                      NAME (#.01)

PATIENT MOVEMENT (#405)           ADMISSION ENTRY (#.03)

PTF (#45)                         PTF NUMBER (#.12)

PTF CENSUS DATE (#45.86)          CENSUS DATE (#.04)

WARD LOCATION (#42)               WARD ON CENSUS DATE (#.06)



INPUT TEMPLATE(S):
DGPT STUFF ENTRY              SEP 26, 1990@11:23  USER #0    

PRINT TEMPLATE(S):
DGPT FEE BASIS                MAR 23, 2005@15:14  USER #0                                            FEE BASIS CENSUS WORKFILE LIST
DGPT WORKFILE                 MAY 18, 1990@10:43  USER #0                                                      CENSUS WORKFILE LIST

SORT TEMPLATE(S):
DGPT FEE BASIS                MAR 24, 2005@16:55  USER #0    
SORT BY: @CENSUS DATE:NUMBER//    (User is asked range)
  WITHIN CENSUS DATE:NUMBER, SORT BY: PTF NUMBER://
  PTF FIELD: FEE BASIS// (FEE BASIS equals 1 (FEE BASIS))
    WITHIN FEE BASIS, SORT BY: @CENSUS STATUS//    (User is asked range)
      WITHIN CENSUS STATUS, SORT BY: NAME// (NAME not null)

DGPT WORKFILE                 JUN 27, 1990@15:04  USER #0    
SORT BY: @INTERNAL(CENSUS DATE)//    (User is asked range)
  WITHIN INTERNAL(CENSUS DATE), SORT BY: #WARD:DIVISION;"DIVISION: "//
    WITHIN WARD:DIVISION, SORT BY: CENSUS STATUS;S2//    (User is asked range)
      WITHIN CENSUS STATUS, SORT BY: #WARD ON CENSUS DATE//
        WITHIN WARD ON CENSUS DATE, SORT BY: NAME//


FORM(S)/BLOCK(S):