- 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
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSBPRE28 299 printed Feb 18, 2025@23:07:25 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