IBY8POST ;ALB/AAS - UNBILLED AMOUNTS POST INT ;29-SEP-94
;;Version 2.0 ; INTEGRATED BILLING ;**19**; 21-MAR-94
;
;
% N X,Y,I,J,DA,DR,DIC,DIE,DINUM,IB,DIFROM,DLAYGO
D DT^DICRW
D FORM,MAILGRP,EDIT
W !!,"<<< Post init complete!"
G END
;
FORM ; -- add new entry to billing form table
N X,Y,I,J,DA,DIC,DLAYGO,DINUM,DO,DD,IB
S DA=$O(^IBE(353,"B","IB REPORTS",0)) G:DA FORMQ
W !!,"<<< Adding new entry to BILL FORM TYPE for IB REPORTS!"
K DO,DD S X="IB REPORTS",DIC="^IBE(353,",DIC(0)="L",DLAYGO=353
F IB=5:1:100 I '$D(^IBE(353,IB)) S DINUM=IB D FILE^DICN Q
FORMQ Q
;
MAILGRP ; -- Stuff in new mail group
N A,B,C,D,E,F
S A="IB UNBILLED AMOUNTS",B=0,C=.5,D=1,G=1
I $D(^XMB(3.8,"B",A)) Q
S E(DUZ)=""
S F(1)="This mail group will be automatically mailed the IB Unbilled Amounts"
S F(2)="report each month."
S X="XMBGRP" X ^%ZOSF("TEST") S IBT=$T
W !!,"<<< Adding mail group "_A,!
I IBT S X=$$MG^XMBGRP(A,B,C,D,.E,.F,G)
I 'IBT D
.S X=A
.;
.W !," You may add members at this time."
.S DIC="^XMB(3.8,",DIC(0)="FZMNL",DLAYGO=3.8
.S DIC("DR")="3///"_F(1)_F(2)_";4///"_$S(B=0:"PU",1:"PR")_";5///"_C_";10///0;7///"_$S(D>0:"y",1:"n")_";2"
.D FILE^DICN I Y<0 W !,"<<< Mail Group ("_X_") CREATION FAILED !!!" Q
Q
;
EDIT ; -- Edit new site parameters
Q:$P($G(^IBE(350.9,1,6)),"^",25)
W !!,"<<< Updating your IB Site Parameters"
S DA=1,DR="6.25///IB UNBILLED AMOUNTS;6.24///0",DIE="^IBE(350.9," D ^DIE
Q
;
END K DLAYGO
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY8POST 1490 printed Dec 13, 2024@02:35:35 Page 2
IBY8POST ;ALB/AAS - UNBILLED AMOUNTS POST INT ;29-SEP-94
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**19**; 21-MAR-94
+2 ;
+3 ;
% NEW X,Y,I,J,DA,DR,DIC,DIE,DINUM,IB,DIFROM,DLAYGO
+1 DO DT^DICRW
+2 DO FORM
DO MAILGRP
DO EDIT
+3 WRITE !!,"<<< Post init complete!"
+4 GOTO END
+5 ;
FORM ; -- add new entry to billing form table
+1 NEW X,Y,I,J,DA,DIC,DLAYGO,DINUM,DO,DD,IB
+2 SET DA=$ORDER(^IBE(353,"B","IB REPORTS",0))
if DA
GOTO FORMQ
+3 WRITE !!,"<<< Adding new entry to BILL FORM TYPE for IB REPORTS!"
+4 KILL DO,DD
SET X="IB REPORTS"
SET DIC="^IBE(353,"
SET DIC(0)="L"
SET DLAYGO=353
+5 FOR IB=5:1:100
IF '$DATA(^IBE(353,IB))
SET DINUM=IB
DO FILE^DICN
QUIT
FORMQ QUIT
+1 ;
MAILGRP ; -- Stuff in new mail group
+1 NEW A,B,C,D,E,F
+2 SET A="IB UNBILLED AMOUNTS"
SET B=0
SET C=.5
SET D=1
SET G=1
+3 IF $DATA(^XMB(3.8,"B",A))
QUIT
+4 SET E(DUZ)=""
+5 SET F(1)="This mail group will be automatically mailed the IB Unbilled Amounts"
+6 SET F(2)="report each month."
+7 SET X="XMBGRP"
XECUTE ^%ZOSF("TEST")
SET IBT=$TEST
+8 WRITE !!,"<<< Adding mail group "_A,!
+9 IF IBT
SET X=$$MG^XMBGRP(A,B,C,D,.E,.F,G)
+10 IF 'IBT
Begin DoDot:1
+11 SET X=A
+12 ;
+13 WRITE !," You may add members at this time."
+14 SET DIC="^XMB(3.8,"
SET DIC(0)="FZMNL"
SET DLAYGO=3.8
+15 SET DIC("DR")="3///"_F(1)_F(2)_";4///"_$SELECT(B=0:"PU",1:"PR")_";5///"_C_";10///0;7///"_$SELECT(D>0:"y",1:"n")_";2"
+16 DO FILE^DICN
IF Y<0
WRITE !,"<<< Mail Group ("_X_") CREATION FAILED !!!"
QUIT
End DoDot:1
+17 QUIT
+18 ;
EDIT ; -- Edit new site parameters
+1 if $PIECE($GET(^IBE(350.9,1,6)),"^",25)
QUIT
+2 WRITE !!,"<<< Updating your IB Site Parameters"
+3 SET DA=1
SET DR="6.25///IB UNBILLED AMOUNTS;6.24///0"
SET DIE="^IBE(350.9,"
DO ^DIE
+4 QUIT
+5 ;
END KILL DLAYGO
+1 QUIT
