| 1 | IBY8POST ;ALB/AAS - UNBILLED AMOUNTS POST INT ;29-SEP-94
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**19**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | % N X,Y,I,J,DA,DR,DIC,DIE,DINUM,IB,DIFROM,DLAYGO
|
|---|
| 6 | D DT^DICRW
|
|---|
| 7 | D FORM,MAILGRP,EDIT
|
|---|
| 8 | W !!,"<<< Post init complete!"
|
|---|
| 9 | G END
|
|---|
| 10 | ;
|
|---|
| 11 | FORM ; -- add new entry to billing form table
|
|---|
| 12 | N X,Y,I,J,DA,DIC,DLAYGO,DINUM,DO,DD,IB
|
|---|
| 13 | S DA=$O(^IBE(353,"B","IB REPORTS",0)) G:DA FORMQ
|
|---|
| 14 | W !!,"<<< Adding new entry to BILL FORM TYPE for IB REPORTS!"
|
|---|
| 15 | K DO,DD S X="IB REPORTS",DIC="^IBE(353,",DIC(0)="L",DLAYGO=353
|
|---|
| 16 | F IB=5:1:100 I '$D(^IBE(353,IB)) S DINUM=IB D FILE^DICN Q
|
|---|
| 17 | FORMQ Q
|
|---|
| 18 | ;
|
|---|
| 19 | MAILGRP ; -- Stuff in new mail group
|
|---|
| 20 | N A,B,C,D,E,F
|
|---|
| 21 | S A="IB UNBILLED AMOUNTS",B=0,C=.5,D=1,G=1
|
|---|
| 22 | I $D(^XMB(3.8,"B",A)) Q
|
|---|
| 23 | S E(DUZ)=""
|
|---|
| 24 | S F(1)="This mail group will be automatically mailed the IB Unbilled Amounts"
|
|---|
| 25 | S F(2)="report each month."
|
|---|
| 26 | S X="XMBGRP" X ^%ZOSF("TEST") S IBT=$T
|
|---|
| 27 | W !!,"<<< Adding mail group "_A,!
|
|---|
| 28 | I IBT S X=$$MG^XMBGRP(A,B,C,D,.E,.F,G)
|
|---|
| 29 | I 'IBT D
|
|---|
| 30 | .S X=A
|
|---|
| 31 | .;
|
|---|
| 32 | .W !," You may add members at this time."
|
|---|
| 33 | .S DIC="^XMB(3.8,",DIC(0)="FZMNL",DLAYGO=3.8
|
|---|
| 34 | .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"
|
|---|
| 35 | .D FILE^DICN I Y<0 W !,"<<< Mail Group ("_X_") CREATION FAILED !!!" Q
|
|---|
| 36 | Q
|
|---|
| 37 | ;
|
|---|
| 38 | EDIT ; -- Edit new site parameters
|
|---|
| 39 | Q:$P($G(^IBE(350.9,1,6)),"^",25)
|
|---|
| 40 | W !!,"<<< Updating your IB Site Parameters"
|
|---|
| 41 | S DA=1,DR="6.25///IB UNBILLED AMOUNTS;6.24///0",DIE="^IBE(350.9," D ^DIE
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | END K DLAYGO
|
|---|
| 45 | Q
|
|---|
