PTF DISCHARGE DATE (50) DATA ELEMENT (743.4)

Name	Value
NAME	PTF DISCHARGE DATE
PARENT FILE	PTF
DICTIONARY NUMBER	45 FIELD NUMBER: 70 DD LEVEL: 1
DIR(0)	DO^::EST
DIR(?)	Enter this patients PTF discharge date.
DIR OUTPUT TRANSFORM	X ^DD("DD")
CODE TO CREATE DATA POINTERS	S QA=+$O(^DGPM("ATID1",QAMDFN,9999999-QAMEVENT)),QA=+$O(^DGPM("ATID1",QAMDFN,QA,0)),QAMDTPT(1)=+$P($G(^DGPM(QA,0)),"^",16)