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

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1DGYPREG2 ;ALB/REW - POST INIT CONVERSION/REPORTING ;2-APR-93
2 ;;5.3;Registration;;Aug 13, 1993
3HEAD(REP) ;
4 Q:'$G(REP)
5 N DGTAG,DGTXT,DGX1
6 S DGTAG="HD"_REP
7 F DGXM=1:1 S DGTXT=$P($T(HEAD1+DGXM),";;",2) Q:DGTXT']"" D
8 .S @DGROOT@(DGXM,0)=" "_DGTXT
9 F DGX1=1:1 S DGTXT=$P($T(@DGTAG+DGX1),";;",2) Q:DGTXT']"" D
10 .S DGXM=DGXM+1
11 .S @DGROOT@(DGXM,0)=" "_DGTXT
12 Q
13PRHEAD1 ;
14 F DGXM=1:1 S DGTXT=$P($T(HEAD1+DGXM^DGYPREG2),";;",2) Q:DGTXT']"" D
15 .W !?5,DGTXT
16 Q
17HEAD1 ;
18 ;; NOTE:
19 ;;
20 ;;A) Last Activity Date is the last date a patient had one
21 ;; of the following:
22 ;;
23 ;; 1) Registration
24 ;; 2) Scheduled clinic appointment (can be in future)
25 ;; 3) Scheduled Admission (can be in future)
26 ;; 4) Patient Movement
27 ;; 5) Inhouse Patient status
28 ;;
29 ;;B) Active Patients have a Last Activity Date within a year
30 ;; of today.
31 ;;
32HD1 ;
33 ;;C) Convertible fields start with a valid station number
34 ;;
35HD2 ;
36 ;;C) Convertible fields have exactly 1 non-zero entry in the
37 ;; following fields:
38 ;;
39 ;; AMOUNT OF AID & ATTENDANCE
40 ;; AMOUNT OF HOUSEBOUND
41 ;; AMOUNT OF VA DISABILITY
42 ;; AMOUNT OF VA PENSION
43 ;;
Note: See TracBrowser for help on using the repository browser.