source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBYJPT.m@ 1611

Last change on this file since 1611 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 2.5 KB
Line 
1IBYJPT ;ALB/ARH - PATCH IB*2*55 POST - INITIALIZATION ; 1-AUG-95
2 ;;Version 2.0 ; INTEGRATED BILLING ;**55**; 21-MAR-94
3 ;
4EN ; 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 ;
13RNB ; 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 ;
23FLAG ; 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 ;
40NBSTOP ; 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
Note: See TracBrowser for help on using the repository browser.