| 1 | SD53P496 ;ALB/ESW - SD*5.3*496 POST INIT; Oct 04, 2006 ; 10/23/06 5:40pm ; 4/16/07 5:27pm
|
|---|
| 2 | ;;5.3;SCHEDULING;**496**;AUG 13, 1993;Build 11
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;Clean ^GMR(123,"F" cross-reference, used to search by patient to
|
|---|
| 5 | ;get REQUEST/CONSULTATION ien, through verification that each cross-
|
|---|
| 6 | ;reference entry has its corresponding REQUEST/CONSULTATION entry pointed to.
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | POST ;
|
|---|
| 10 | N SDA
|
|---|
| 11 | S SDA(1)="",SDA(2)=" SD*5.3*496 Post-Install .....",SDA(3)="" D ATADDQ
|
|---|
| 12 | S SDA(1)=" >> Verifying if )'^GMR(123,""F"",SDPT,SDIN)' have corresponding"
|
|---|
| 13 | S SDA(2)=" '0' entries in the REQUEST/CONSULTATION file (# 123), and remove them if not."
|
|---|
| 14 | N SDPT,SDIN,DA,SDREF,CNT S CNT=0
|
|---|
| 15 | S SDPT="" F S SDPT=$O(^GMR(123,"F",SDPT)) Q:SDPT'>0 D
|
|---|
| 16 | .S SDIN="" F S SDIN=$O(^GMR(123,"F",SDPT,SDIN)) Q:SDIN="" D
|
|---|
| 17 | ..I $G(^GMR(123,SDIN,0))="" S CNT=CNT+1 D S SDREF=^GMR(123,"F",SDPT,SDIN) K ^(SDIN),SDREF
|
|---|
| 18 | ...N SDA
|
|---|
| 19 | ...S SDA(1)="Entry "_SDIN_" - Patient DFN= "_SDPT_" does not have '0' node"
|
|---|
| 20 | ...S SDA(2)=" ""F"" - cross-reference deleted."
|
|---|
| 21 | ...D ATADDQ
|
|---|
| 22 | I 'CNT N SDA S SDA(1)=" No bad ""F"" cross-references identified"
|
|---|
| 23 | E N SDA S SDA(1)=" "_CNT_" 'hanging' ""F"""_" cross-references identified"
|
|---|
| 24 | S SDA(2)=" SD*5.3*496 Post-Install finished."
|
|---|
| 25 | D ATADDQ
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | ATADDQ D MES^XPDUTL(.SDA) K SDA
|
|---|
| 29 | Q
|
|---|
