source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IB20P387.m@ 1610

IB20P387        ;DAY/RRA - DSS CLINIC STOP CODES IB*2.0*378 PRE-INIT ; 3/13/07 12:55pm
        ;;2.0;INTEGRATED BILLING;**387**;21-MAR-94;Build 3
        ;;Per VHA Directive 10-93-142, this routine should not be modified.
        ;
        Q
EN      ;
        N U
        S U="^"
        D START,UPDATE,FINISH
        Q
        ;
START   D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Starting")
        Q
        ;
FINISH  D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Complete")
        Q
        ;
        ;
UPDATE  ;update an old code
        N IB1,IBT,IBX,IBCODE,IBY
        D BMES^XPDUTL(" Updating Stop Code entries 695 and 696 in file 352.5")
        F IBX=1:1 S IBT=$P($T(OCODE+IBX),";",3) Q:'$L(IBT)  D
        . S IBCODE=+$P(IBT,U)
        . S IBY=3071001
        . S IB1=$O(^IBE(352.5,"AEFFDT",IBCODE,-IBY,0))
        . I 'IB1 D BMES^XPDUTL("No Stop Code Entry found for "_IBCODE_" with an efective date of 10/01/07") Q
        . S DIE="^IBE(352.5,",DA=IB1,DR=".05///1" D ^DIE K DA,DR,DIE
        . D BMES^XPDUTL("     "_IBCODE_" updated in file 352.5")
        Q
        ;
OCODE   ;;code^billable type^description^override flag
        ;;695
        ;;696
        ;
        Q