| 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
|
