[613] | 1 | IB20PT4 ;ALB/CPM - List Template Exporter ; 21-MAR-1994
|
---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
---|
| 3 | W !!,">>> Installing List Templates...",!
|
---|
| 4 | W !,"'IB CHARGES' List Template..."
|
---|
| 5 | S DA=$O(^SD(409.61,"B","IB CHARGES",0)),DIK="^SD(409.61," D ^DIK:DA
|
---|
| 6 | K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB CHARGES" D FILE^DICN S VALM=+Y
|
---|
| 7 | I VALM>0 D
|
---|
| 8 | .S ^SD(409.61,VALM,0)="IB CHARGES^1^1^80^5^14^1^1^Charge^IBACM1 MENU^Charges^1^32"
|
---|
| 9 | .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
|
---|
| 10 | .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACM"",$J)"
|
---|
| 11 | .S ^SD(409.61,VALM,"COL",0)="^409.621^7^7"
|
---|
| 12 | .S ^SD(409.61,VALM,"COL",1,0)="CHARGE^71^9^Charge"
|
---|
| 13 | .S ^SD(409.61,VALM,"COL",2,0)="FDATE^4^9^Bill From"
|
---|
| 14 | .S ^SD(409.61,VALM,"COL",3,0)="ENTRY^25^23^Charge Type"
|
---|
| 15 | .S ^SD(409.61,VALM,"COL",4,0)="STATUS^57^12^Status"
|
---|
| 16 | .S ^SD(409.61,VALM,"COL",5,0)="CHG#^1^3"
|
---|
| 17 | .S ^SD(409.61,VALM,"COL",6,0)="BILL#^49^6^Bill #"
|
---|
| 18 | .S ^SD(409.61,VALM,"COL",7,0)="TDATE^15^8^Bill To"
|
---|
| 19 | .S ^SD(409.61,VALM,"FNL")="D FNL^IBECEA"
|
---|
| 20 | .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA"
|
---|
| 21 | .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
|
---|
| 22 | .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA"
|
---|
| 23 | .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
|
---|
| 24 | .W "Filed."
|
---|
| 25 | ;
|
---|
| 26 | W !,"'IB EVENTS' List Template..."
|
---|
| 27 | S DA=$O(^SD(409.61,"B","IB EVENTS",0)),DIK="^SD(409.61," D ^DIK:DA
|
---|
| 28 | K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IB EVENTS" D FILE^DICN S VALM=+Y
|
---|
| 29 | I VALM>0 D
|
---|
| 30 | .S ^SD(409.61,VALM,0)="IB EVENTS^1^^80^5^14^1^1^Event^IBACME EVENT MENU^Update Events^1^^1"
|
---|
| 31 | .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
|
---|
| 32 | .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBACME"",$J)"
|
---|
| 33 | .S ^SD(409.61,VALM,"COL",0)="^409.621^5^5"
|
---|
| 34 | .S ^SD(409.61,VALM,"COL",1,0)="TYPE^4^18^Event Type"
|
---|
| 35 | .S ^SD(409.61,VALM,"COL",2,0)="WARD^24^20^Ward"
|
---|
| 36 | .S ^SD(409.61,VALM,"COL",3,0)="EDATE^48^10^Event Date"
|
---|
| 37 | .S ^SD(409.61,VALM,"COL",4,0)="STATUS^60^7^Status"
|
---|
| 38 | .S ^SD(409.61,VALM,"COL",5,0)="LCALC^69^10^Last Calc"
|
---|
| 39 | .S ^SD(409.61,VALM,"FNL")="D EXIT^IBECEA5"
|
---|
| 40 | .S ^SD(409.61,VALM,"HDR")="D HDR^IBECEA5"
|
---|
| 41 | .S ^SD(409.61,VALM,"HLP")="S X=""?"" D DISP^XQORM1 W !!"
|
---|
| 42 | .S ^SD(409.61,VALM,"INIT")="D INIT^IBECEA5"
|
---|
| 43 | .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
|
---|
| 44 | .W "Filed."
|
---|
| 45 | ;
|
---|
| 46 | W !,"'IBCNS ANNUAL BENEFITS' List Template..."
|
---|
| 47 | S DA=$O(^SD(409.61,"B","IBCNS ANNUAL BENEFITS",0)),DIK="^SD(409.61," D ^DIK:DA
|
---|
| 48 | K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS ANNUAL BENEFITS" D FILE^DICN S VALM=+Y
|
---|
| 49 | I VALM>0 D
|
---|
| 50 | .S ^SD(409.61,VALM,0)="IBCNS ANNUAL BENEFITS^1^^98^5^18^1^1^Annual Benefits^IBCNSA ANNUAL BENEFITS^Annual Benefits Editor^1^^1"
|
---|
| 51 | .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
|
---|
| 52 | .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSA"",$J)"
|
---|
| 53 | .S ^SD(409.61,VALM,"COL",0)="^409.621^^0"
|
---|
| 54 | .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSA K IBL"
|
---|
| 55 | .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Annual Benefits"")"
|
---|
| 56 | .S ^SD(409.61,VALM,"HLP")="D HELP^IBCNSA"
|
---|
| 57 | .S ^SD(409.61,VALM,"INIT")="S IBL=1 D INIT^IBCNSA"
|
---|
| 58 | .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
|
---|
| 59 | .W "Filed."
|
---|
| 60 | ;
|
---|
| 61 | W !,"'IBCNS BENEFITS USED BY DATE' List Template..."
|
---|
| 62 | S DA=$O(^SD(409.61,"B","IBCNS BENEFITS USED BY DATE",0)),DIK="^SD(409.61," D ^DIK:DA
|
---|
| 63 | K DO,DD S DIC(0)="L",DIC="^SD(409.61,",X="IBCNS BENEFITS USED BY DATE" D FILE^DICN S VALM=+Y
|
---|
| 64 | I VALM>0 D
|
---|
| 65 | .S ^SD(409.61,VALM,0)="IBCNS BENEFITS USED BY DATE^1^^98^5^18^1^1^Benefits Used by Date^IBCNSD BENEFITS USED BY DATE^Benefits Used By Date Editor^1^^1"
|
---|
| 66 | .S ^SD(409.61,VALM,1)="^VALM HIDDEN ACTIONS"
|
---|
| 67 | .S ^SD(409.61,VALM,"ARRAY")=" ^TMP(""IBCNSD"",$J)"
|
---|
| 68 | .S ^SD(409.61,VALM,"FNL")="D EXIT^IBCNSD"
|
---|
| 69 | .S ^SD(409.61,VALM,"HDR")="D HDR^IBCNSA(""Benefits Used"")"
|
---|
| 70 | .S ^SD(409.61,VALM,"HLP")=""
|
---|
| 71 | .S ^SD(409.61,VALM,"INIT")="D INIT^IBCNSD"
|
---|
| 72 | .S DA=VALM,DIK="^SD(409.61," D IX1^DIK K DA,DIK
|
---|
| 73 | .W "Filed."
|
---|
| 74 | ;
|
---|
| 75 | G ^IB20PT41
|
---|