Name | Value | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|
NUMBER | 1200 | ||||||||||
IA # | 1200 | ||||||||||
FILE NUMBER | 55 | ||||||||||
GLOBAL ROOT | DD(55, | ||||||||||
DATE CREATED | 2003/06/10 | ||||||||||
CUSTODIAL PACKAGE | VA FILEMAN | ||||||||||
CUSTODIAL ISC | San Francisco | ||||||||||
USAGE | Private | ||||||||||
TYPE | File | ||||||||||
NAME | INPATIENT MEDICATIONS XREF CLEAN UP | ||||||||||
GENERAL DESCRIPTION | Inpatient Medications 4.5 exported the AUDS cross reference on the START DATE/TIME(#10) field of the UNIT DOSE(#55.06) multiple of the PHARMACY PATIENT(#55) file. This cross reference is not referenced by the Inpatient Medications software, and since this field is "hard set", the cross reference is never set. This causes problems with locally created sort templates on this field when running VA FILEMAN V21. To elminate this problem, a routine will be exported in PSJ*4.5*12 that will identify and delete this cross reference from the Data Dictionary. The routine to be used for this is listed below: PSJUTL2 ;B'ham ISC/MLM - REMOVE AUDS XREF FROM 55.06,10 ; 14 Apr 95 / 9:59AM ;;4.5; Inpatient Medications ;**12**;7 Oct 94 ; EN ; Entry point from programmer mode to delete the AUDS xref. ; W "This routine was exported as part of PSJ*4.5*12 to delete the AUDS",! W "cross reference from the PHARMACY PATIENT(#55) file.",!! N X,DIR S DIR(0)="Y",DIR("B")="NO",DIR("A")="Delete this cross reference?" S DIR("?")="Enter ""YES"" to continue with this process or ""NO"" to abort." D ^DIR Q:$D(DIRUT) F X=0:0 S X=$O(^DD(55.06,10,1,X)) Q:'X D .K:$G(^DD(55.06,10,1,X,0))="55^AUDS" ^DD(55.06,10,1,X) K ^DD(55,0,"IX","AUDS",55.06,10) W !!,"Done." Q Inpatient Medications requests a PRIVATE DBIA with VA FILEMAN to directly K ^DD(55.06,0,"IX","AUDS",55.06,10). |
||||||||||
GLOBAL REFERENCE |
|
||||||||||
STATUS | Retired | ||||||||||
DURATION | Next Version | ||||||||||
ID | DD(55, | ||||||||||
SUBSCRIBING PACKAGE |
|
||||||||||
GOOD ONLY FOR VERSION | 4.5 |