Print Page as PDF
INPATIENT MEDICATIONS XREF CLEAN UP ICR (1200)

INPATIENT MEDICATIONS XREF CLEAN UP    ICR (1200)

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
GLOBAL REFERENCE FIELD NUMBER
DD(55,0,'IX','AUDS',55.06,10)
FIELD NUMBER FIELD DESCRIPTION FIELD NAME
10

This is the date and time the order is to begin.  This package initially
assigns the START DATE/TIME to the closest administration time, the next
admininistration time, or NOW depending on the value of the DEFAULT START DATE
CALCULATION field in the INPATIENT WARD PARAMETERS. START DATE/TIME may not be
entered prior to 7 days from the order's LOGIN DATE.
START DATE/TIME
STATUS Retired
DURATION Next Version
ID DD(55,
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
INPATIENT MEDICATIONS Birmingham
GOOD ONLY FOR VERSION 4.5