source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTPXRM.m@ 1528

Last change on this file since 1528 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 727 bytes
Line 
1DGPTPXRM ;SLC/PKR - Routines for Clinical Reminder index. ;09/30/2004
2 ;;5.3;Registration;**478**;Aug 13, 1993
3 ;===========================================================
4PTF(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 ;
Note: See TracBrowser for help on using the repository browser.