| [613] | 1 | GECSPAT8 ;WIRMFO/SAB-ADD DATA FOR FIXED ASSETS CODE SHEETS ;25 Apr 96
|
|---|
| 2 | ;;2.0;GEC;**8**;MAR 14, 1995
|
|---|
| 3 | N GECDOM,GECFDA,GECIEN,GECWP
|
|---|
| 4 | S GECDOM="Q-FAM.VA.GOV"
|
|---|
| 5 | ;S GECDOM="Q-FMD.VA.GOV" ; for test sites of patch EN*7*29
|
|---|
| 6 | I '$$FIND1^DIC(4.2,"","X",GECDOM,"B") D Q
|
|---|
| 7 | . W $C(7),!,"Domain ",GECDOM," not found. No action taken."
|
|---|
| 8 | . W !," MailMan patch XM*DBA*92 must be installed prior to running"
|
|---|
| 9 | . W !," routine GECSPAT8. The MailMan patch establishes domain "
|
|---|
| 10 | . W !," ",GECDOM," which is required by this routine. Please rerun"
|
|---|
| 11 | . W !," this routine (D ^GECSPAT8) after installing patch XM*DBA*92."
|
|---|
| 12 | W !!,"Updating GENERIC CODE SHEET BATCH TYPE (#2101.1)..."
|
|---|
| 13 | K GECFDA,GECIEN,GECWP
|
|---|
| 14 | S GECWP(1,0)="This batch type contains the required information for"
|
|---|
| 15 | S GECWP(2,0)="Fixed Assets transmissions."
|
|---|
| 16 | S GECFDA(2101.1,"?+1,",.01)="FIXED ASSETS"
|
|---|
| 17 | S GECFDA(2101.1,"?+1,",.5)="GECWP"
|
|---|
| 18 | S GECFDA(2101.1,"?+1,",3)="FMS"
|
|---|
| 19 | S GECFDA(2101.12,"?+2,?+1,",.01)="XXX"
|
|---|
| 20 | S GECFDA(2101.12,"?+2,?+1,",1)=GECDOM
|
|---|
| 21 | S GECFDA(2101.12,"?+2,?+1,",2)="YES"
|
|---|
| 22 | D UPDATE^DIE("E","GECFDA","GECIEN"),MSG^DIALOG()
|
|---|
| 23 | W !!,"Updating GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT (#2101.2)..."
|
|---|
| 24 | K GECFDA,GECIEN,GECWP
|
|---|
| 25 | S GECFDA(2101.2,"?+1,",.01)="FA:FMS"
|
|---|
| 26 | S GECFDA(2101.2,"?+1,",.7)="FIXED ASSETS"
|
|---|
| 27 | S GECFDA(2101.2,"?+1,",1)="YES"
|
|---|
| 28 | S GECFDA(2101.2,"?+1,",2)="FIXED ASSETS ACQUISITION"
|
|---|
| 29 | S GECFDA(2101.2,"?+2,",.01)="FB:FMS"
|
|---|
| 30 | S GECFDA(2101.2,"?+2,",.7)="FIXED ASSETS"
|
|---|
| 31 | S GECFDA(2101.2,"?+2,",1)="YES"
|
|---|
| 32 | S GECFDA(2101.2,"?+2,",2)="FIXED ASSETS BETTERMENT"
|
|---|
| 33 | S GECFDA(2101.2,"?+3,",.01)="FC:FMS"
|
|---|
| 34 | S GECFDA(2101.2,"?+3,",.7)="FIXED ASSETS"
|
|---|
| 35 | S GECFDA(2101.2,"?+3,",1)="YES"
|
|---|
| 36 | S GECFDA(2101.2,"?+3,",2)="FIXED ASSETS CHANGE"
|
|---|
| 37 | S GECFDA(2101.2,"?+4,",.01)="FD:FMS"
|
|---|
| 38 | S GECFDA(2101.2,"?+4,",.7)="FIXED ASSETS"
|
|---|
| 39 | S GECFDA(2101.2,"?+4,",1)="YES"
|
|---|
| 40 | S GECFDA(2101.2,"?+4,",2)="FIXED ASSETS DISPOSITION"
|
|---|
| 41 | S GECFDA(2101.2,"?+5,",.01)="FR:FMS"
|
|---|
| 42 | S GECFDA(2101.2,"?+5,",.7)="FIXED ASSETS"
|
|---|
| 43 | S GECFDA(2101.2,"?+5,",1)="YES"
|
|---|
| 44 | S GECFDA(2101.2,"?+5,",2)="FIXED ASSETS TRANSFER"
|
|---|
| 45 | D UPDATE^DIE("E","GECFDA","GECIEN") D MSG^DIALOG()
|
|---|
| 46 | W !!,"Process completed. Routine GECSPAT8 can be deleted now."
|
|---|
| 47 | Q
|
|---|
| 48 | ;GECSPAT8
|
|---|
