source: WorldVistAEHR/trunk/r/GENERIC_CODE_SHEET-GEC/GECSPAT8.m@ 1261

Last change on this file since 1261 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1GECSPAT8 ;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
Note: See TracBrowser for help on using the repository browser.