| 1 | 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
|
|---|
| 2 | ;;1.0;HOSPITAL BASED HOME CARE;**2**;NOV 01, 1993
|
|---|
| 3 | 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."
|
|---|
| 4 | K DA,DIK,^HBHC(631,"AD") S DIK="^HBHC(631,",DIK(1)="17" D ENALL^DIK
|
|---|
| 5 | W !!,"""AD"" reindexing complete."
|
|---|
| 6 | 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"
|
|---|
| 7 | W !,"purposes. This routine also locates & deletes any records in the HBHC",!,"Transmit (#634) file containing pseudo SSNs. Two reports of Patient Names are"
|
|---|
| 8 | W !,"printed listing those patients that must be resolved. See Patch Narrative",!,"for detailed resolution instructions." H 3
|
|---|
| 9 | S HBHCDFN=0 F S HBHCDFN=$O(^HBHC(634,HBHCDFN)) Q:HBHCDFN'>0 D PROCESS
|
|---|
| 10 | EXIT ; Exit module
|
|---|
| 11 | K DA,DIK,HBHCDATA,HBHCDFN,HBHCFORM,HBHCINFO,HBHCPOS
|
|---|
| 12 | W !!,"Please select a PRINTER for device. HBHC will need these Pseudo SSN Reports",!,"to resolve the invalid SSNs."
|
|---|
| 13 | D ^HBHXMNT2
|
|---|
| 14 | Q
|
|---|
| 15 | PROCESS ; Process record
|
|---|
| 16 | S HBHCINFO=^HBHC(634,HBHCDFN,0),HBHCFORM=$E(HBHCINFO)
|
|---|
| 17 | S HBHCPOS=$S(HBHCFORM=3:80,HBHCFORM=5:38,HBHCFORM=6:44,1:34)
|
|---|
| 18 | S HBHCDATA=$E(HBHCINFO,HBHCPOS)
|
|---|
| 19 | I HBHCDATA="P" K DA,DIK S DIK="^HBHC(634,",DA=HBHCDFN D ^DIK
|
|---|
| 20 | Q
|
|---|
