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 Dec 13, 2024@01:56:16 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
