
| Name | Value |
|---|---|
| NAME | PTF PROCEDURE 4 |
| PARENT FILE | PTF |
| DICTIONARY NUMBER |
|
| DIR(0) | PO^80.1:AEMNQZ |
| DIR(?) | Enter the fourth procedure for the patient's current episode of care. |
| 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) |