source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBY5PT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1IBY5PT ;ALB/NLR - Post-init for Patch IB*2*6 ; 05-MAY-94
2 ;;Version 2.0 ; INTEGRATED BILLING ;**6**; 21-MAR-94
3 ;
4 D POP ; Add the IVM Center domain to file #350.9
5 D ADD ; Add the new option to the Mgmt reports menu
6 D ^IBY5ONIT ; Install the IBCN NEW INSURANCE EVENTS protocol
7 Q
8 ;
9POP ; Add the IVM Center domain to file #350.9
10 W !!,">>> Updating the IVM Center domain in the IB SITE PARAMETERS (#350.9) file..."
11 S $P(^IBE(350.9,1,4),"^",7)="G.IVM REPORTS@IVM.VA.GOV"
12 Q
13 ;
14ADD ; Add the option IVM Billing Activity Report to the Mgmt reports menu
15 S (IBUY,Y)=$O(^DIC(19,"B","IB OUTPUT MANAGEMENT REPORTS",0)) Q:Y=""
16 S X=$O(^DIC(19,"B","IB OUTPUT IVM BILLING ACTIVITY",0)) Q:X=""
17 W !!,"<<< Adding IB OUTPUT IVM BILLING ACTIVITY option to IB OUTPUT MANAGEMENT",!," REPORTS menu..."
18 I '$D(^DIC(19,+Y,10,0)) S ^DIC(19,+Y,10,0)="^19.01IP^0^0"
19 S (DA,D0)=+Y,DIC="^DIC(19,"_+Y_",10,",DIC(0)="L",DA(1)=+Y,DLAYGO=19.01,X="IB OUTPUT IVM BILLING ACTIVITY" D ^DIC
20 S DA=+Y,DIE="^DIC(19,"_DA(1)_",10,",DR="2///^S X=""IVM""" D ^DIE
21 K DIC,DIE,DA,IBUY,DR,X,Y
22 Q
Note: See TracBrowser for help on using the repository browser.