Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSBPRE28

PSBPRE28.m

Go to the documentation of this file.

PSBPRE28 ;BIRMINGHAM/DRF-BCMA MSF PRE-INSTALL ROUTINE ;Mar 2004

 ;;3.0;BAR CODE MED ADMIN;**28**;Mar 2004;Build 9

 ; PRE-Install per BCMA MSF (PSB*3.0*28)

PRE ; Delete field definition for .51 in File #53.69, BCMA Report Request.

 S DIK="^DD(53.69,",DA=.51,DA(1)=53.69

 D ^DIK

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSBPRE28   299     printed  Apr 09, 2024@20:44:38                                                                                                                                                                                                     Page 2

PSBPRE28  ;BIRMINGHAM/DRF-BCMA MSF PRE-INSTALL ROUTINE ;Mar 2004

 +1       ;;3.0;BAR CODE MED ADMIN;**28**;Mar 2004;Build 9

 +2       ;

 +3       ; PRE-Install per BCMA MSF (PSB*3.0*28)

 +4       ;

PRE       ; Delete field definition for .51 in File #53.69, BCMA Report Request.

 +1       ;

 +2        SET DIK="^DD(53.69,"

           SET DA=.51

           SET DA(1)=53.69

 +3        DO ^DIK

 +4        QUIT