PTF DISCHARGE SPECIALTY (51) DATA ELEMENT (743.4)
Name
Value
NAME
PTF DISCHARGE SPECIALTY
PARENT FILE
PTF
DICTIONARY NUMBER
45
FIELD NUMBER: 71
DD LEVEL: 1
DIR(0)
PO^42.4:AEMNQZ
DIR(?)
Enter the bedsection this patient was discharged from.
DIR OUTPUT TRANSFORM
S:$D(Y(0,0))#2 Y=Y(0,0)
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)
