Print Page as PDF
DBIA 3150 ICR (3150)

DBIA 3150    ICR (3150)

Name Value
NUMBER 3150
IA # 3150
FILE NUMBER 50.7
GLOBAL ROOT DD(50.7
DATE CREATED 2003/06/10
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
NAME DBIA 3150
GENERAL DESCRIPTION
The Pharmacy Data Management (PDM) application would
like to ask permission to create a new data dictionary global related to the
ORDERABLE ITEM file (# 50.7).  The new global will be used to set the INACTIVE
DATE field (#.04) as an identifier in the ORDERABLE ITEM file (# 50.7).

Here is an example of the new DD global and contents.

^DD(50.7,0,"ID",.04) = W "   ",$$FMTE^DILIBF($P(^(0),U,4),6)

The PSSP32 routine will contain the coding logic to set the new DD global.
The PSSP32 routine will only be used by PDM patch # 32 and KIDS will delete
the PSSP32 routine after the installation.

Here is a copy of the routine.

PSSP32 ;BIR/TTH-INACTIVE DATE FIELD IDENTIFIER ; 4-FEB-2000 14:17
;;1.0;PHARMACY DATA MANAGEMENT;**32**;9/30/97
;
ID     ;In the ORDERABLE ITEM file (#50.7), set the INACTIVE DATE field
(#.04) a s an identifier.
S ^DD(50.7,0,"ID",.04)="W ""   "",$$FMTE^DILIBF($P(^(0),U,4),6)"
Q
GLOBAL REFERENCE DD(50.7,0
STATUS Retired
DURATION Till Otherwise Agreed
ID DD(50.7
SUBSCRIBING PACKAGE
SUBSCRIBING PACKAGE ISC
PHARMACY DATA MANAGEMENT Birmingham