DGYPREG2 ;ALB/REW - POST INIT CONVERSION/REPORTING ;2-APR-93
;;5.3;Registration;;Aug 13, 1993
HEAD(REP) ;
Q:'$G(REP)
N DGTAG,DGTXT,DGX1
S DGTAG="HD"_REP
F DGXM=1:1 S DGTXT=$P($T(HEAD1+DGXM),";;",2) Q:DGTXT']"" D
.S @DGROOT@(DGXM,0)=" "_DGTXT
F DGX1=1:1 S DGTXT=$P($T(@DGTAG+DGX1),";;",2) Q:DGTXT']"" D
.S DGXM=DGXM+1
.S @DGROOT@(DGXM,0)=" "_DGTXT
Q
PRHEAD1 ;
F DGXM=1:1 S DGTXT=$P($T(HEAD1+DGXM^DGYPREG2),";;",2) Q:DGTXT']"" D
.W !?5,DGTXT
Q
HEAD1 ;
;; NOTE:
;;
;;A) Last Activity Date is the last date a patient had one
;; of the following:
;;
;; 1) Registration
;; 2) Scheduled clinic appointment (can be in future)
;; 3) Scheduled Admission (can be in future)
;; 4) Patient Movement
;; 5) Inhouse Patient status
;;
;;B) Active Patients have a Last Activity Date within a year
;; of today.
;;
HD1 ;
;;C) Convertible fields start with a valid station number
;;
HD2 ;
;;C) Convertible fields have exactly 1 non-zero entry in the
;; following fields:
;;
;; AMOUNT OF AID & ATTENDANCE
;; AMOUNT OF HOUSEBOUND
;; AMOUNT OF VA DISABILITY
;; AMOUNT OF VA PENSION
;;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYPREG2 1225 printed Nov 22, 2024@18:10:30 Page 2
DGYPREG2 ;ALB/REW - POST INIT CONVERSION/REPORTING ;2-APR-93
+1 ;;5.3;Registration;;Aug 13, 1993
HEAD(REP) ;
+1 if '$GET(REP)
QUIT
+2 NEW DGTAG,DGTXT,DGX1
+3 SET DGTAG="HD"_REP
+4 FOR DGXM=1:1
SET DGTXT=$PIECE($TEXT(HEAD1+DGXM),";;",2)
if DGTXT']""
QUIT
Begin DoDot:1
+5 SET @DGROOT@(DGXM,0)=" "_DGTXT
End DoDot:1
+6 FOR DGX1=1:1
SET DGTXT=$PIECE($TEXT(@DGTAG+DGX1),";;",2)
if DGTXT']""
QUIT
Begin DoDot:1
+7 SET DGXM=DGXM+1
+8 SET @DGROOT@(DGXM,0)=" "_DGTXT
End DoDot:1
+9 QUIT
PRHEAD1 ;
+1 FOR DGXM=1:1
SET DGTXT=$PIECE($TEXT(HEAD1+DGXM^DGYPREG2),";;",2)
if DGTXT']""
QUIT
Begin DoDot:1
+2 WRITE !?5,DGTXT
End DoDot:1
+3 QUIT
HEAD1 ;
+1 ;; NOTE:
+2 ;;
+3 ;;A) Last Activity Date is the last date a patient had one
+4 ;; of the following:
+5 ;;
+6 ;; 1) Registration
+7 ;; 2) Scheduled clinic appointment (can be in future)
+8 ;; 3) Scheduled Admission (can be in future)
+9 ;; 4) Patient Movement
+10 ;; 5) Inhouse Patient status
+11 ;;
+12 ;;B) Active Patients have a Last Activity Date within a year
+13 ;; of today.
+14 ;;
HD1 ;
+1 ;;C) Convertible fields start with a valid station number
+2 ;;
HD2 ;
+1 ;;C) Convertible fields have exactly 1 non-zero entry in the
+2 ;; following fields:
+3 ;;
+4 ;; AMOUNT OF AID & ATTENDANCE
+5 ;; AMOUNT OF HOUSEBOUND
+6 ;; AMOUNT OF VA DISABILITY
+7 ;; AMOUNT OF VA PENSION
+8 ;;
