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

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

initial load of WorldVistAEHR

File size: 891 bytes
RevLine 
[613]1IBY254PO ;ALB/TMK - IB*2*254 POST-INSTALL ;21-NOV-2003
2 ;;2.0;INTEGRATED BILLING;**254**;21-MAR-94
3 ;
4EN 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.")
17END D BMES^XPDUTL("Post-install complete.")
18 Q
19 ;
Note: See TracBrowser for help on using the repository browser.