| 1 | IBYJPT ;ALB/ARH - PATCH IB*2*55 POST - INITIALIZATION ; 1-AUG-95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**55**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN ; Patch IB*2*55 post initialization.
|
|---|
| 5 | ;
|
|---|
| 6 | D RNB ; Add new reason not billable for non-billable clinics (356.8)
|
|---|
| 7 | D FLAG ; Set PROGRAM flag on existing stop and clinic entries (352.3,352.4)
|
|---|
| 8 | D NBSTOP ; Add entries for TP non-billable stops (352.3)
|
|---|
| 9 | D BMES^XPDUTL(" Post-Install Complete")
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | ;
|
|---|
| 13 | RNB ; Add to CLAIMS TRACKING NON-BILLABLE REASONS (356.8) a reason of NON-BILLABLE CLINIC
|
|---|
| 14 | N IBI,DINUM,DIC,Y
|
|---|
| 15 | I $D(^IBE(356.8,"B","NON-BILLABLE CLINIC")) D BMES^XPDUTL(" *** REASON NOT BILLABLE of 'NON-BILLABLE CLINIC' already exists in FILE #356.8, new entry NOT added.") Q
|
|---|
| 16 | D BMES^XPDUTL(" <<< Adding new REASON NOT BILLABLE of 'NON-BILLABLE CLINIC' to file #356.8")
|
|---|
| 17 | F IBI=19:1:999 I '$D(^IBE(356.8,IBI,0)) D Q
|
|---|
| 18 | . S DINUM=IBI I '$D(^IBE(356.8,DINUM,0)) K DD,DO S DIC="^IBE(356.8,",DIC(0)="L",X="NON-BILLABLE CLINIC" D FILE^DICN
|
|---|
| 19 | I $G(Y)<1 D BMES^XPDUTL(" **** Unable to add new entry to FILE #356.8, contact Field Support ****")
|
|---|
| 20 | K DIC,DINUM,Y,DD,DO
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | FLAG ; insert program flag into existing entries in the two files
|
|---|
| 24 | ;
|
|---|
| 25 | ; add flag to clinic stops (352.3)
|
|---|
| 26 | D BMES^XPDUTL(" <<< Updating entries in NON-BILLABLE CLINIC STOP CODES (#352.3) file ")
|
|---|
| 27 | N IBI,IBX,DIE,DA,DR
|
|---|
| 28 | S IBI=0 F S IBI=$O(^IBE(352.3,IBI)) Q:'IBI D
|
|---|
| 29 | . S IBX=$G(^IBE(352.3,IBI,0)) I +$P(IBX,U,4) Q
|
|---|
| 30 | . S DIE="^IBE(352.3,",DA=IBI,DR=".04////1" D ^DIE K DIE,DA,DR
|
|---|
| 31 | ;
|
|---|
| 32 | ; add flag to clinic (352.4)
|
|---|
| 33 | D BMES^XPDUTL(" <<< Updating entries in NON-BILLABLE CLINICS (#352.4) file ")
|
|---|
| 34 | K IBI,IBX,DIE,DA,DR
|
|---|
| 35 | S IBI=0 F S IBI=$O(^IBE(352.4,IBI)) Q:'IBI D
|
|---|
| 36 | . S IBX=$G(^IBE(352.4,IBI,0)) I +$P(IBX,U,4) Q
|
|---|
| 37 | . S DIE="^IBE(352.4,",DA=IBI,DR=".04////1" D ^DIE K DIE,DA,DR
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | NBSTOP ; add entries for Third Party Non-Billable Stop Codes to NON-BILLABLE CLINIC STOP CODES (#352.3) file
|
|---|
| 41 | ; Since the MT non-billable flag has been used as a TP non-billable flag, duplicating all MT entries
|
|---|
| 42 | ; that exist for TP will result in the no change in the function
|
|---|
| 43 | ;
|
|---|
| 44 | D BMES^XPDUTL(" <<< Adding TP Non-billable Stops to NON-BILLABLE CLINIC STOP CODES (#352.3) file ")
|
|---|
| 45 | N IBI,IBX,IBY,X
|
|---|
| 46 | S IBI=0 F S IBI=$O(^IBE(352.3,IBI)) Q:'IBI D
|
|---|
| 47 | . S IBX=$G(^IBE(352.3,IBI,0)) I $P(IBX,U,4)>1 Q
|
|---|
| 48 | . K DD,DO S IBY=$P($G(^DIC(40.7,+IBX,0)),U,1) I IBY="" Q
|
|---|
| 49 | . I $D(^IBE(352.3,"AIVDTT2",+IBX,-$P(IBX,U,2))) Q
|
|---|
| 50 | . S DIC="^IBE(352.3,",DIC(0)="L",X=+IBX D FILE^DICN I Y<1 D BMES^XPDUTL(" *** Could not add entry "_IBI) Q
|
|---|
| 51 | . S DIE="^IBE(352.3,",DA=+Y,DR=".02////"_$P(IBX,U,2)_";.04////2;.05////"_$P(IBX,U,3) D ^DIE K DIC,X,DIE,DA,DR
|
|---|
| 52 | Q
|
|---|
