Last change
on this file since 1726 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.2 KB
|
Rev | Line | |
---|
[613] | 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.