| 1 | GECSXBL1 ;WISC/RFJ-ask to mark code sheets for batching ;01 Nov 93
|
|---|
| 2 | ;;2.0;GCS;**2**;MAR 14, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | ASKTOBAT(GECSDA) ; ask to mark code sheet gecsda for batching
|
|---|
| 7 | ; if variable GECSAUTO="BATCH" then auto-mark for batch without asking
|
|---|
| 8 | ; if variable GECSAUTO="SAVE" then retain in file
|
|---|
| 9 | N %,GECSFLAG,X,Y
|
|---|
| 10 | ;
|
|---|
| 11 | ; retain in file
|
|---|
| 12 | I $G(GECSAUTO)="SAVE" Q
|
|---|
| 13 | ;
|
|---|
| 14 | ; automatically mark for batching without asking
|
|---|
| 15 | I $G(GECSAUTO)="BATCH" S %=$$MARKBAT^GECSMUT1(GECSDA) Q
|
|---|
| 16 | ;
|
|---|
| 17 | ; ask to mark for batching
|
|---|
| 18 | F D Q:$G(GECSFLAG)
|
|---|
| 19 | . S DIR(0)="S^1:"_$S(GECS("SYSID")="FMS":"Transmit FMS Document",1:"Mark the Code Sheet For Batching")
|
|---|
| 20 | . S DIR(0)=DIR(0)_";2:Edit the Code Sheet;3:Delete the Code Sheet;4:Retain the Code Sheet in the File for Editing Later;5:Print the Code Sheet;"
|
|---|
| 21 | . S DIR("A")="CODE SHEET ACTION",DIR("B")=$S(GECS("SYSID")="FMS":4,1:1) D ^DIR K DIR
|
|---|
| 22 | . ;
|
|---|
| 23 | . I Y=4!$D(DTOUT)!($D(DUOUT)) W !,"CODE SHEET HAS BEEN RETAINED IN THE FILE FOR EDITING LATER!" D RETAIN^GECSUSTA(GECSDA) S GECSFLAG=1 Q
|
|---|
| 24 | . ; fms code sheets, transmit using stack file
|
|---|
| 25 | . I Y=1,GECS("SYSID")="FMS" D TRANSMIT^GECSUFMS S GECSFLAG=1 Q
|
|---|
| 26 | . ;
|
|---|
| 27 | . I Y=1 S %=$$MARKBAT^GECSMUT1(GECSDA) S:% GECSFLAG=1 Q
|
|---|
| 28 | . I Y=2 S %=$$CSEDIT^GECSEDIT,%=$$MAPDATA^GECSXBLD(GECS("CSDA")) S:'% GECSFLAG=1 Q
|
|---|
| 29 | . I Y=3 D Q
|
|---|
| 30 | . . D DELASK^GECSUTIL(GECSDA)
|
|---|
| 31 | . . I '$D(^GECS(2100,GECSDA)) K GECS("CSDA"),GECS("CSNAME") S GECSFLAG=1
|
|---|
| 32 | . I Y=5 D
|
|---|
| 33 | . . S %ZIS="Q" D ^%ZIS I POP Q
|
|---|
| 34 | . . I '$D(IO("Q")) U IO D PRINT^GECSUTIL(GECSDA) D ^%ZISC Q
|
|---|
| 35 | . . I $D(IO("Q")) K IO("Q") S ZTRTN="PRINTDQ^GECSUTIL",ZTDESC="Print Generic Code Sheet",ZTSAVE("GECSDA")="",ZTIO=IO_";"_IOST_";"_IOM_";"_IOSL D ^%ZTLOAD
|
|---|
| 36 | Q
|
|---|
