PURPOSE OF VISIT (30) DATA ELEMENT (743.4)
Name
Value
NAME
PURPOSE OF VISIT
PARENT FILE
PATIENT
DICTIONARY NUMBER
2
FIELD NUMBER: 1900
DD LEVEL: 1
2.98
FIELD NUMBER: 9
DD LEVEL: 2
DIR(0)
SOB^1:C&P;2:10-10;3:SCHEDULED VISIT;4:UNSCHED. VISIT;
DIR(?)
Enter the purpose of this atient's visit.
DIR OUTPUT TRANSFORM
S:$D(Y(0))#2 Y=$P(Y(0),"^")
CODE TO CREATE DATA POINTERS
S QAMDTPT(1)=QAMDFN,QAMDTPT(2)=+$O(^DPT(QAMDFN,"S",QAMEVENT-.0000001))
