Routine: HBHXMNT1

HBHXMNT1 ;VAMC(IRMS)/MJT-HBHC maintenance routine:  reindexes "AD" cross-ref on ^HBHC(631, locates & deletes records in ^HBHC(634 w/pseudo SSNs, calls HBHXMNT2 to produce report(s) of patients w/pseudo SSN ;9403

 ;;1.0;HOSPITAL BASED HOME CARE;**2**;NOV 01, 1993

 W @IOF,"Beginning Post-Initialization Process",!!!,"-  Reindexing ""AD"", Admission Date (#17) field, cross-reference, in HBHC",!,"Patient (#631) file, to clean up possible dangling cross-reference."

 K DA,DIK,^HBHC(631,"AD") S DIK="^HBHC(631,",DIK(1)="17" D ENALL^DIK

 W !!,"""AD"" reindexing complete."

 W !!!,"-  Locating patient records in HBHC Patient (#631) & HBHC Visit (#632) files",!,"that have a pseudo social security number (SSN).  These are invalid for HBHC"

 W !,"purposes.  This routine also locates & deletes any records in the HBHC",!,"Transmit (#634) file containing pseudo SSNs.  Two reports of Patient Names are"

 W !,"printed listing those patients that must be resolved.  See Patch Narrative",!,"for detailed resolution instructions." H 3

 S HBHCDFN=0 F  S HBHCDFN=$O(^HBHC(634,HBHCDFN)) Q:HBHCDFN'>0  D PROCESS

EXIT ; Exit module

 K DA,DIK,HBHCDATA,HBHCDFN,HBHCFORM,HBHCINFO,HBHCPOS

 W !!,"Please select a PRINTER for device.  HBHC will need these Pseudo SSN Reports",!,"to resolve the invalid SSNs."

 D ^HBHXMNT2

PROCESS ; Process record

 S HBHCINFO=^HBHC(634,HBHCDFN,0),HBHCFORM=$E(HBHCINFO)

 S HBHCPOS=$S(HBHCFORM=3:80,HBHCFORM=5:38,HBHCFORM=6:44,1:34)

 S HBHCDATA=$E(HBHCINFO,HBHCPOS)

 I HBHCDATA="P" K DA,DIK S DIK="^HBHC(634,",DA=HBHCDFN D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HHBHXMNT1   1564     printed  Mar 13, 2025@21:03:53                                                                                                                                                                                                    Page 2

HBHXMNT1  ;VAMC(IRMS)/MJT-HBHC maintenance routine:  reindexes "AD" cross-ref on ^HBHC(631, locates & deletes records in ^HBHC(634 w/pseudo SSNs, calls HBHXMNT2 to produce report(s) of patients w/pseudo SSN ;9403

 +1       ;;1.0;HOSPITAL BASED HOME CARE;**2**;NOV 01, 1993

 +2        WRITE @IOF,"Beginning Post-Initialization Process",!!!,"-  Reindexing ""AD"", Admission Date (#17) field, cross-reference, in HBHC",!,"Patient (#631) file, to clean up possible dangling cross-reference."

 +3        KILL DA,DIK,^HBHC(631,"AD")

           SET DIK="^HBHC(631,"

           SET DIK(1)="17"

           DO ENALL^DIK

 +4        WRITE !!,"""AD"" reindexing complete."

 +5        WRITE !!!,"-  Locating patient records in HBHC Patient (#631) & HBHC Visit (#632) files",!,"that have a pseudo social security number (SSN).  These are invalid for HBHC"

 +6        WRITE !,"purposes.  This routine also locates & deletes any records in the HBHC",!,"Transmit (#634) file containing pseudo SSNs.  Two reports of Patient Names are"

 +7        WRITE !,"printed listing those patients that must be resolved.  See Patch Narrative",!,"for detailed resolution instructions."

           HANG 3

 +8        SET HBHCDFN=0

FOR

               SET HBHCDFN=$ORDER(^HBHC(634,HBHCDFN))

               if HBHCDFN'>0

                   QUIT

               DO PROCESS

EXIT      ; Exit module

 +1        KILL DA,DIK,HBHCDATA,HBHCDFN,HBHCFORM,HBHCINFO,HBHCPOS

 +2        WRITE !!,"Please select a PRINTER for device.  HBHC will need these Pseudo SSN Reports",!,"to resolve the invalid SSNs."

 +3        DO ^HBHXMNT2

 +4        QUIT

PROCESS   ; Process record

 +1        SET HBHCINFO=^HBHC(634,HBHCDFN,0)

           SET HBHCFORM=$EXTRACT(HBHCINFO)

 +2        SET HBHCPOS=$SELECT(HBHCFORM=3:80,HBHCFORM=5:38,HBHCFORM=6:44,1:34)

 +3        SET HBHCDATA=$EXTRACT(HBHCINFO,HBHCPOS)

 +4        IF HBHCDATA="P"

               KILL DA,DIK

               SET DIK="^HBHC(634,"

               SET DA=HBHCDFN

               DO ^DIK

 +5        QUIT

HBHXMNT1.m