Name | Value |
---|---|
NAME | PTF TYPE OF DISPOSITION |
PARENT FILE | PTF |
DICTIONARY NUMBER |
|
DIR(0) | SO^1:REGULAR;2:NBC/WHILE ASIH;3:EXPIRATION 6 MONTH LIMIT;4:IRREGULAR;5:TRANSFER;6:DEATH WITH AUTOPSY;7:DEATH WITHOUT AUTOPSY; |
DIR(?) | Enter the type of disposition for this patient for this episode of care. |
DIR(?,#) | Choose from: 1 REGULAR 2 NBC/WHILE ASIH 3 EXPIRATION 6 MONTH LIMIT 4 IRREGULAR 5 TRANSFER 6 DEATH WITH AUTOPSY 7 DEATH WITHOUT AUTOPSY |
DIR OUTPUT TRANSFORM | S:$D(Y(0))#2 Y=$P(Y(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) |