|
Last change
on this file since 1006 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.
