24 lines
727 B
Mathematica
24 lines
727 B
Mathematica
DGPTPXRM ;SLC/PKR - Routines for Clinical Reminder index. ;09/30/2004
|
|
;;5.3;Registration;**478**;Aug 13, 1993
|
|
;===========================================================
|
|
PTF(DAS,DATA) ;Return data for a PTF entry
|
|
N D0,TEMP
|
|
S D0=$P(DAS,";",1)
|
|
S TEMP=^DGPT(D0,0)
|
|
S DATA("ADMISSION DATE")=$P(TEMP,U,2)
|
|
S DATA("FACILITY")=$P(TEMP,U,3)
|
|
S DATA("FEE BASIS")=$P(TEMP,U,4)
|
|
I $D(^DGPT(D0,70)) D
|
|
. S TEMP=$G(^DGPT(D0,70))
|
|
. S DATA("DISCHARGE DATE")=$P(TEMP,U,1)
|
|
. S DATA("DISCHARGE SPECIALITY")=$P(TEMP,U,2)
|
|
. S DATA("DISCHARGE STATUS")=$P(TEMP,U,14)
|
|
. S DATA("DISCHARGE PROVIDER")=$P(TEMP,U,15)
|
|
I DAS["M" D
|
|
. N D1
|
|
. S D1=$P(DAS,";",3)
|
|
. S TEMP=^DGPT(D0,"M",D1,0)
|
|
. S DATA("MOVEMENT RECORD")=$P(TEMP,U,1)
|
|
Q
|
|
;
|