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

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

initial load of WorldVistAEHR

File size: 977 bytes
Line 
1IB20P387 ;DAY/RRA - DSS CLINIC STOP CODES IB*2.0*378 PRE-INIT ; 3/13/07 12:55pm
2 ;;2.0;INTEGRATED BILLING;**387**;21-MAR-94;Build 3
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 Q
6EN ;
7 N U
8 S U="^"
9 D START,UPDATE,FINISH
10 Q
11 ;
12START D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Starting")
13 Q
14 ;
15FINISH D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Complete")
16 Q
17 ;
18 ;
19UPDATE ;update an old code
20 N IB1,IBT,IBX,IBCODE,IBY
21 D BMES^XPDUTL(" Updating Stop Code entries 695 and 696 in file 352.5")
22 F IBX=1:1 S IBT=$P($T(OCODE+IBX),";",3) Q:'$L(IBT) D
23 . S IBCODE=+$P(IBT,U)
24 . S IBY=3071001
25 . S IB1=$O(^IBE(352.5,"AEFFDT",IBCODE,-IBY,0))
26 . I 'IB1 D BMES^XPDUTL("No Stop Code Entry found for "_IBCODE_" with an efective date of 10/01/07") Q
27 . S DIE="^IBE(352.5,",DA=IB1,DR=".05///1" D ^DIE K DA,DR,DIE
28 . D BMES^XPDUTL(" "_IBCODE_" updated in file 352.5")
29 Q
30 ;
31OCODE ;;code^billable type^description^override flag
32 ;;695
33 ;;696
34 ;
35 Q
Note: See TracBrowser for help on using the repository browser.