Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
977 bytes
|
Line | |
---|
1 | IB20P387 ;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
|
---|
6 | EN ;
|
---|
7 | N U
|
---|
8 | S U="^"
|
---|
9 | D START,UPDATE,FINISH
|
---|
10 | Q
|
---|
11 | ;
|
---|
12 | START D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Starting")
|
---|
13 | Q
|
---|
14 | ;
|
---|
15 | FINISH D BMES^XPDUTL("DSS Clinic Stop Codes, Post-Install Complete")
|
---|
16 | Q
|
---|
17 | ;
|
---|
18 | ;
|
---|
19 | UPDATE ;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 | ;
|
---|
31 | OCODE ;;code^billable type^description^override flag
|
---|
32 | ;;695
|
---|
33 | ;;696
|
---|
34 | ;
|
---|
35 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.