| [613] | 1 | IBY5PT ;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 | ;
|
|---|
| 9 | POP ; 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 | ;
|
|---|
| 14 | ADD ; 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
|
|---|
