| 1 | DGPTPXRM ;SLC/PKR - Routines for Clinical Reminder index. ;09/30/2004
|
|---|
| 2 | ;;5.3;Registration;**478**;Aug 13, 1993
|
|---|
| 3 | ;===========================================================
|
|---|
| 4 | PTF(DAS,DATA) ;Return data for a PTF entry
|
|---|
| 5 | N D0,TEMP
|
|---|
| 6 | S D0=$P(DAS,";",1)
|
|---|
| 7 | S TEMP=^DGPT(D0,0)
|
|---|
| 8 | S DATA("ADMISSION DATE")=$P(TEMP,U,2)
|
|---|
| 9 | S DATA("FACILITY")=$P(TEMP,U,3)
|
|---|
| 10 | S DATA("FEE BASIS")=$P(TEMP,U,4)
|
|---|
| 11 | I $D(^DGPT(D0,70)) D
|
|---|
| 12 | . S TEMP=$G(^DGPT(D0,70))
|
|---|
| 13 | . S DATA("DISCHARGE DATE")=$P(TEMP,U,1)
|
|---|
| 14 | . S DATA("DISCHARGE SPECIALITY")=$P(TEMP,U,2)
|
|---|
| 15 | . S DATA("DISCHARGE STATUS")=$P(TEMP,U,14)
|
|---|
| 16 | . S DATA("DISCHARGE PROVIDER")=$P(TEMP,U,15)
|
|---|
| 17 | I DAS["M" D
|
|---|
| 18 | . N D1
|
|---|
| 19 | . S D1=$P(DAS,";",3)
|
|---|
| 20 | . S TEMP=^DGPT(D0,"M",D1,0)
|
|---|
| 21 | . S DATA("MOVEMENT RECORD")=$P(TEMP,U,1)
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
