Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 9000001.51

Package: IHS Patient

PATIENT(#9000001)-->9000001.51

Sub-Field: 9000001.51


Information

Parent File Name Number Package
PATIENT(#9000001) PREVIOUS COMMUNITY 9000001.51 IHS Patient

Details

Field # Name Loc Type Details
.01 DATE MOVED 0;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:DTX) X D:$G(X) PAT5101^AUPNPED S:$D(X) DINUM=X
  • LAST EDITED:  MAR 26, 2004
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1890 AND TODAY
  • DESCRIPTION:  The input transform forces the "DATE MOVED" field to be used as the subscript. This allows the computed field "CURRENT COMMUNITY" to get the latest community of residence regardless of the sequence entered. The CURRENT
    RESIDENCE field will also be triggered by activity of this multiple.
  • DELETE TEST:  1,0)= I '$D(^XUSEC("AGZMGR",DUZ))
    SOURCE OF DATA:   014/PADTAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000001.51^AAVABDW25^MUMPS
    1)= D SET^AUPNDWXR(DA(1),"DEMO")
    2)= D KILL^AUPNDWXR(DA(1),"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.
.02 DATE ADDED TO FILE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JUL 22, 1991
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1890 AND TODAY
  • DESCRIPTION:  Generated when a community is added to this subfile.
    A date between 1960 and today.
    SOURCE OF DATA:   014/PADTAD
    UNEDITABLE





.03
COMMUNITY OF RESIDENCE
0;3
POINTER TO COMMUNITY FILE (#9999999.05) 

************************REQUIRED FIELD************************
COMMUNITY(#9999999.05)
  • LAST EDITED:  MAR 26, 2004
    SOURCE OF DATA:   014/PAPRADCO
  • CROSS-REFERENCE:  9000001^AI^MUMPS
    1)= D S^AUPNPCTR
    2)= D K^AUPNPCTR
  • CROSS-REFERENCE:  9000001.51^AAVABDW26^MUMPS
    1)= D SET^AUPNDWXR(DA(1),"DEMO")
    2)= D KILL^AUPNDWXR(DA(1),"DEMO")
    Populates AUPNDWAF for the Data Warehouse export.  See routine AUPNDWXR for documentation.







    



Info | 
Details | 
All