DGYPREG2.m

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 ---DGYPREG2   1225     printed  Apr 09, 2024@21:45:57                                                                                                                                                                                                    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       ;;