PTF ICD 4 (58) DATA ELEMENT (743.4)
Name
Value
NAME
PTF ICD 4
PARENT FILE
PTF
DICTIONARY NUMBER
45
FIELD NUMBER: 79.18
DD LEVEL: 1
DIR(0)
PO^80:AEMNQZ
DIR(?)
Enter the patient's fourth ICD diagnosis.
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)
