Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GECSUSEL

GECSUSEL.m

Go to the documentation of this file.
  1. GECSUSEL ;WISC/RFJ-utility selection ;01 Nov 93
  1. ;;2.0;GCS;**2**;MAR 14, 1995
  1. Q
  1. ;
  1. ;
  1. CODESHET(BATCH) ; select an existing code sheet
  1. ; batch = only select code sheets for batch
  1. N %,%Y,DIC,GECSBADA,GECSSUPR,X,Y
  1. I $L(BATCH) S GECSBADA=+$O(^GECS(2101.1,"B",BATCH,0)) I 'GECSBADA W !,"BATCH ",BATCH," CANNOT BE FOUND IN FILE 2101.1." Q 0
  1. W !!,$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 --")
  1. I $D(^XUSEC("GECS SUPER EDITOR",DUZ)) S GECSSUPR=1
  1. S DIC("S")="I $P(^(0),U,4)=""""!($P(^(0),U,4)="_DUZ_")!($G(GECSSUPR))"
  1. I $G(GECSBADA) S DIC("S")=DIC("S")_",$P(^(0),U,3)="_GECSBADA
  1. S DIC="^GECS(2100,",DIC(0)="QEAM",DIC("A")="Select CODE SHEET ID Number: " D ^DIC
  1. I Y'>0 Q 0
  1. Q +Y
  1. ;
  1. ;
  1. BATTYPE(DEFAULT,DONTASK) ; select batch type parameters
  1. ; default set to batch default in lookup, if set to '- GECO' it
  1. ; will ask to select a batch name containing '- GECO'
  1. ; dontask set to lookup on batch without asking
  1. ; return gecs("batch")=batch name
  1. ; gecs("batda")=batch da number
  1. ; gecs("sysid")=system identidier (ams, etc)
  1. N %,%Y,DIC,X,Y
  1. ;
  1. K GECS("BATCH"),GECS("BATDA"),GECS("SYSID")
  1. S DIC="^GECS(2101.1,"
  1. ;
  1. ; default is set (not null), lookup batch type, do not ask
  1. I $G(DONTASK),$L(DEFAULT),DEFAULT'="- GECO" D Q
  1. . S DIC(0)="MNZ",X=DEFAULT D ^DIC I Y'>0 Q
  1. . D BATCHECK
  1. . I '$G(GECS("BATDA")) K GECS("BATDA"),GECS("BATCH"),GECS("SYSID") Q
  1. . W !,"Batch Type: ",GECS("BATCH")
  1. ;
  1. ; ask batch type
  1. I DEFAULT="- GECO" S DIC("S")="I $P(^(0),U)[""- GECO""",DEFAULT=""
  1. I $L(DEFAULT) S DIC("B")=DEFAULT
  1. S DIC(0)="AEQMZ" D ^DIC I Y'>0 Q
  1. D BATCHECK
  1. I '$G(GECS("BATDA")) K GECS("BATDA"),GECS("BATCH"),GECS("SYSID") Q
  1. W !,"Batch Type: ",GECS("BATCH")
  1. Q
  1. ;
  1. ;
  1. BATNOFMS ; select batch except for fms
  1. N DONTASK
  1. K GECS("BATCH"),GECS("BATDA"),GECS("SYSID")
  1. I $L($G(GECSSYS)) S DONTASK=1
  1. F W ! D BATTYPE($G(GECSSYS),$G(DONTASK)) Q:'$G(GECS("BATDA")) D Q:$G(GECS("BATDA"))
  1. . I GECS("SYSID")="FMS" W !,"*** FMS DOCUMENTS CANNOT BE SELECTED ***" K GECS("BATDA")
  1. I '$G(GECS("BATDA")) K GECS("BATCH"),GECS("BATDA"),GECS("SYSID")
  1. Q
  1. ;
  1. ;
  1. BATCHECK ; check selected batch and set up variables
  1. ; y=selected batch; y(0)=data for selected batch
  1. I $P(Y(0),"^",4)="" W !,"SYSTEM ID FOR BATCH TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED." Q
  1. S GECS("BATDA")=+Y,GECS("BATCH")=$P(Y,"^",2),GECS("SYSID")=$P(Y(0),"^",4)
  1. Q
  1. ;
  1. ;
  1. TRANTYPE(DEFAULT,DONTASK) ; ask transaction type-segment
  1. ; default set to segment default in lookup
  1. ; dontask set to lookup on segment without asking
  1. ; gecs("batda")=batch da (from file 2101.1)
  1. ; gecs("sysid")=system id (AMS)
  1. ; return gecs("tt")=segment name
  1. ; gecs("ttda")=segment da number
  1. ; gecs("edit")=edit template name
  1. ; gecsflag=1 to exit application
  1. N %,%Y,DIC,X,Y
  1. ;
  1. K GECS("TT"),GECS("TTDA"),GECS("EDIT"),GECSFLAG
  1. S DIC="^GECS(2101.2,",DIC("S")="I $P(^(0),U,4)="_GECS("BATDA")
  1. ;
  1. ; segment defined, look it up and quit
  1. I $G(DONTASK),$L(DEFAULT) D Q
  1. . S DIC(0)="MNZ",X=DEFAULT D ^DIC I Y'>0 S GECSFLAG=1 Q
  1. . D TTCHECK
  1. . I '$G(GECS("SEGDA")) S GECSFLAG=1
  1. ;
  1. ; ask for segment entry
  1. I $L($G(SEGMENT)),$G(GECS("SYSID"))="AMS" S DIC("B")=DEFAULT
  1. S DIC(0)="AEQMZ" D ^DIC I Y'>0 S GECSFLAG=1 Q
  1. D TTCHECK
  1. Q
  1. ;
  1. ;
  1. TTCHECK ; check selected transaction type and set up variables
  1. ; y=selected entry; y(0)=data for selected entry
  1. I $P(Y(0),"^",3)=""!($P(Y(0),"^",5)'="Y") W !,"THIS TRANSACTION TYPE ",$P(Y,"^",2)," IS NOT YET ",$S($P(Y(0),"^",5)'="Y":"ACTIVATED",1:"AVAILABLE") Q
  1. I $P(Y(0),"^",4)="" W !,"THE BATCH TYPE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," HAS NOT BEEN ENTERED." Q
  1. I $P(Y(0),"^",2)="" W !,"THE INPUT TEMPLATE FOR THIS TRANSACTION TYPE ",$P(Y,"^",2)," IS MISSING." Q
  1. S GECS("TTDA")=+Y,GECS("TT")=$P(Y,"^",2),GECS("EDIT")=$P(Y(0),"^",3)
  1. Q
  1. ;
  1. ;
  1. BATCHSEL(GECSDICS) ; select batch number from file 2101.3
  1. ; gecsdics=screen
  1. N %,%Y,DIC,X,Y
  1. S DIC="^GECS(2101.3,",DIC(0)="QEAM",DIC("A")="Select BATCH NUMBER: "
  1. I GECSDICS'="" S DIC("S")=GECSDICS
  1. W ! D ^DIC I Y'>0 Q 0
  1. Q +Y