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 ---[H[J[2J[HIBY5PT 1101 printed Dec 13, 2024@02:34:45 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
