Routine: GECSUSEL

Information

GECSUSEL ;WISC/RFJ-utility selection ;01 Nov 93

Name	Comments	DBIA/ICR reference
CODESHET(BATCH)	; select an existing code sheet ; batch = only select code sheets for batch
BATTYPE(DEFAULT,DONTASK)	; select batch type parameters ; default set to batch default in lookup, if set to '- GECO' it ; will ask to select a batch name containing '- GECO' ; dontask set to lookup on batch without asking ; return gecs("batch")=batch name ; gecs("batda")=batch da number ; gecs("sysid")=system identidier (ams, etc)
BATNOFMS	; select batch except for fms
BATCHECK	; check selected batch and set up variables ; y=selected batch; y(0)=data for selected batch
TRANTYPE(DEFAULT,DONTASK)	; ask transaction type-segment ; default set to segment default in lookup ; dontask set to lookup on segment without asking ; gecs("batda")=batch da (from file 2101.1) ; gecs("sysid")=system id (AMS) ; return gecs("tt")=segment name ; gecs("ttda")=segment da number ; gecs("edit")=edit template name ; gecsflag=1 to exit application
TTCHECK	; check selected transaction type and set up variables ; y=selected entry; y(0)=data for selected entry
BATCHSEL(GECSDICS)	; select batch number from file 2101.3 ; gecsdics=screen

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"BATCH ",BATCH," CANNOT BE FOUND IN FILE 2101.1." Line Location: CODESHET+3
Function Call: WRITE	Prompt: !!,$S($D(^XUSEC("GECS SUPER EDITOR",+$G(DUZ))):"-- You can select all code sheets created for this batch type --",1:"-- You may only select code sheets which you have created --") Line Location: CODESHET+4
Function Call: WRITE	Prompt: !,"Batch Type: ",GECS("BATCH") Line Location: BATTYPE+17
Function Call: WRITE	Prompt: !,"Batch Type: ",GECS("BATCH") Line Location: BATTYPE+25
Function Call: WRITE	Prompt: !,"* FMS DOCUMENTS CANNOT BE SELECTED *" Line Location: BATNOFMS+5
Function Call: WRITE	Prompt: !,"SYSTEM ID FOR BATCH TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED." Line Location: BATCHECK+2
Function Call: WRITE	Prompt: !,"THE BATCH TYPE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED." Line Location: TTCHECK+3
Function Call: WRITE	Prompt: !,"THE INPUT TEMPLATE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," IS MISSING." Line Location: TTCHECK+4