Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.2 KB
|
Line | |
---|
1 | DGYPREG2 ;ALB/REW - POST INIT CONVERSION/REPORTING ;2-APR-93
|
---|
2 | ;;5.3;Registration;;Aug 13, 1993
|
---|
3 | HEAD(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
|
---|
13 | PRHEAD1 ;
|
---|
14 | F DGXM=1:1 S DGTXT=$P($T(HEAD1+DGXM^DGYPREG2),";;",2) Q:DGTXT']"" D
|
---|
15 | .W !?5,DGTXT
|
---|
16 | Q
|
---|
17 | HEAD1 ;
|
---|
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 | ;;
|
---|
32 | HD1 ;
|
---|
33 | ;;C) Convertible fields start with a valid station number
|
---|
34 | ;;
|
---|
35 | HD2 ;
|
---|
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.