| [613] | 1 | IBY254PO ;ALB/TMK - IB*2*254 POST-INSTALL ;21-NOV-2003
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**254**;21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | EN N X,Y,DIC,DIE,DR,DA,DO,DD,DINUM,IBDT
|
|---|
| 5 | I '$D(^IBE(351.71,"3031000",0)) D BMES^XPDUTL("NO DIAGNOSTIC MEASURE REPORTS FOUND FOR OCT 2003.") G END
|
|---|
| 6 | I $P($G(^IBE(351.71,3031000,0)),U,2)=3 D BMES^XPDUTL("DIAGNOSTIC MEASURES DATA ALREADY SENT FOR OCT 2003.") G END
|
|---|
| 7 | D BMES^XPDUTL("Setting status of UNBILLED REPORT for OCT 2003 to complete.")
|
|---|
| 8 | S DA(1)="3031000",DA=37
|
|---|
| 9 | I '$D(^IBE(351.71,DA(1),1,37,0)) D
|
|---|
| 10 | . K DO,DD
|
|---|
| 11 | . S DINUM=37,DIC="^IBE(351.71,"_DA(1)_",1,",X=37,DIC(0)="L" D FILE^DICN K DO,DD,DIC
|
|---|
| 12 | S DIE="^IBE(351.71,"_DA(1)_",1,",DR=".02////3" D ^DIE
|
|---|
| 13 | D BMES^XPDUTL("Step complete.")
|
|---|
| 14 | D BMES^XPDUTL("Transmitting diagnostic measure reports for OCT 2003.")
|
|---|
| 15 | S IBDT=3031000 I '$$CHK^IBJDE(IBDT) D COMP^IBJDE
|
|---|
| 16 | D BMES^XPDUTL("Step complete.")
|
|---|
| 17 | END D BMES^XPDUTL("Post-install complete.")
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
