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