IBY5PT.m

IBY5PT ;ALB/NLR - Post-init for Patch IB*2*6 ; 05-MAY-94

 ;;Version 2.0 ; INTEGRATED BILLING ;**6**; 21-MAR-94

 ;

 D POP ;        Add the IVM Center domain to file #350.9

 D ADD ;        Add the new option to the Mgmt reports menu

 D ^IBY5ONIT ;  Install the IBCN NEW INSURANCE EVENTS protocol

 Q

 ;

POP ; Add the IVM Center domain to file #350.9

 W !!,">>> Updating the IVM Center domain in the IB SITE PARAMETERS (#350.9) file..."

 S $P(^IBE(350.9,1,4),"^",7)="G.IVM REPORTS@IVM.DOMAIN.EXT"

 Q

 ;

ADD ; Add the option IVM Billing Activity Report to the Mgmt reports menu

 S (IBUY,Y)=$O(^DIC(19,"B","IB OUTPUT MANAGEMENT REPORTS",0)) Q:Y=""

 S X=$O(^DIC(19,"B","IB OUTPUT IVM BILLING ACTIVITY",0)) Q:X=""

 W !!,"<<< Adding IB OUTPUT IVM BILLING ACTIVITY option to IB OUTPUT MANAGEMENT",!,"    REPORTS menu..."

 I '$D(^DIC(19,+Y,10,0)) S ^DIC(19,+Y,10,0)="^19.01IP^0^0"

 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

 S DA=+Y,DIE="^DIC(19,"_DA(1)_",10,",DR="2///^S X=""IVM""" D ^DIE

 K DIC,DIE,DA,IBUY,DR,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBY5PT   1101     printed  Apr 09, 2024@21:29:25                                                                                                                                                                                                      Page 2

IBY5PT    ;ALB/NLR - Post-init for Patch IB*2*6 ; 05-MAY-94

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;**6**; 21-MAR-94

 +2       ;

 +3       ;        Add the IVM Center domain to file #350.9

           DO POP

 +4       ;        Add the new option to the Mgmt reports menu

           DO ADD

 +5       ;  Install the IBCN NEW INSURANCE EVENTS protocol

           DO ^IBY5ONIT

 +6        QUIT 

 +7       ;

POP       ; Add the IVM Center domain to file #350.9

 +1        WRITE !!,">>> Updating the IVM Center domain in the IB SITE PARAMETERS (#350.9) file..."

 +2        SET $PIECE(^IBE(350.9,1,4),"^",7)="G.IVM REPORTS@IVM.DOMAIN.EXT"

 +3        QUIT 

 +4       ;

ADD       ; Add the option IVM Billing Activity Report to the Mgmt reports menu

 +1        SET (IBUY,Y)=$ORDER(^DIC(19,"B","IB OUTPUT MANAGEMENT REPORTS",0))

           if Y=""

               QUIT 

 +2        SET X=$ORDER(^DIC(19,"B","IB OUTPUT IVM BILLING ACTIVITY",0))

           if X=""

               QUIT 

 +3        WRITE !!,"<<< Adding IB OUTPUT IVM BILLING ACTIVITY option to IB OUTPUT MANAGEMENT",!,"    REPORTS menu..."

 +4        IF '$DATA(^DIC(19,+Y,10,0))

               SET ^DIC(19,+Y,10,0)="^19.01IP^0^0"

 +5        SET (DA,D0)=+Y

           SET DIC="^DIC(19,"_+Y_",10,"

           SET DIC(0)="L"

           SET DA(1)=+Y

           SET DLAYGO=19.01

           SET X="IB OUTPUT IVM BILLING ACTIVITY"

           DO ^DIC

 +6        SET DA=+Y

           SET DIE="^DIC(19,"_DA(1)_",10,"

           SET DR="2///^S X=""IVM"""

           DO ^DIE

 +7        KILL DIC,DIE,DA,IBUY,DR,X,Y

 +8        QUIT