IB20P350.m

IB20P350 ;ALB/RRA - IB*2.0*350 PRE INIT: IB FORM FIELD CONTENT FILE (#364.7) ; 5/25/06

 ;;2.0;INTEGRATED BILLING;**350**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 Q

EN ;UPDATES IB FORM FIELD CONTENT FILE (#364.7) IEN #137 TO ALLOW LEADING DOUBLE COLONS

 ;TO PASS THROUGH THE OUTPUT FORMATTER WHEN TRANSMITTING

 D BMES^XPDUTL("Updating the IB FORM FIELD CONTENT file (#364.7) internal entry number 137...")

 S DR="1////S IBXSAVE(""CI3-2"")=IBXDATA S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA,,""/-:"") I $$WNRBILL^IBEFUNC(IBXIEN) S IBXDATA="""""

 S DIE="^IBA(364.7,",DA=137 D ^DIE

 K DIE,DR,DA

 D BMES^XPDUTL("Update Complete")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IB20P350   670     printed  Dec 13, 2024@02:02:17                                                                                                                                                                                                     Page 2

IB20P350  ;ALB/RRA - IB*2.0*350 PRE INIT: IB FORM FIELD CONTENT FILE (#364.7) ; 5/25/06

 +1       ;;2.0;INTEGRATED BILLING;**350**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        QUIT 

EN        ;UPDATES IB FORM FIELD CONTENT FILE (#364.7) IEN #137 TO ALLOW LEADING DOUBLE COLONS

 +1       ;TO PASS THROUGH THE OUTPUT FORMATTER WHEN TRANSMITTING

 +2        DO BMES^XPDUTL("Updating the IB FORM FIELD CONTENT file (#364.7) internal entry number 137...")

 +3        SET DR="1////S IBXSAVE(""CI3-2"")=IBXDATA S IBXDATA=$$NOPUNCT^IBCEF(IBXDATA,,""/-:"") I $$WNRBILL^IBEFUNC(IBXIEN) S IBXDATA="""""

 +4        SET DIE="^IBA(364.7,"

           SET DA=137

           DO ^DIE

 +5        KILL DIE,DR,DA

 +6        DO BMES^XPDUTL("Update Complete")

 +7        QUIT