IBY323PR ;ALB/OEC - IB*2*323 PRE-INSTALL ; 3/1/06 9:23am
;;2.0;INTEGRATED BILLING;**323**;21-MAR-94
;
DELENT ; Delete entries in file 364.7 to be included in build
;
D BMES^XPDUTL("Deleting entries in file 364.7 included in build IB*2.0*323...")
;
S DIK="^IBA(364.7,",DA=472 D ^DIK
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY323PR 304 printed Nov 22, 2024@17:43:44 Page 2
IBY323PR ;ALB/OEC - IB*2*323 PRE-INSTALL ; 3/1/06 9:23am
+1 ;;2.0;INTEGRATED BILLING;**323**;21-MAR-94
+2 ;
DELENT ; Delete entries in file 364.7 to be included in build
+1 ;
+2 DO BMES^XPDUTL("Deleting entries in file 364.7 included in build IB*2.0*323...")
+3 ;
+4 SET DIK="^IBA(364.7,"
SET DA=472
DO ^DIK
+5 QUIT
+6 ;