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 Dec 13, 2024@01:41:02 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