- GECSXBL1 ;WISC/RFJ-ask to mark code sheets for batching ;01 Nov 93
- ;;2.0;GCS;**2,37**;MAR 14, 1995;Build 3
- Q
- ;
- ;
- ASKTOBAT(GECSDA) ; ask to mark code sheet gecsda for batching
- ; if variable GECSAUTO="BATCH" then auto-mark for batch without asking
- ; if variable GECSAUTO="SAVE" then retain in file
- N %,GECSFLAG,X,Y
- ;
- ; retain in file
- I $G(GECSAUTO)="SAVE" Q
- ;
- ; automatically mark for batching without asking
- I $G(GECSAUTO)="BATCH" S %=$$MARKBAT^GECSMUT1(GECSDA) Q
- ;
- ; ask to mark for batching
- F D Q:$G(GECSFLAG)
- . S DIR(0)="S^1:"_$S(GECS("SYSID")="FMS":"Transmit FMS Document",1:"Mark the Code Sheet For Batching")
- . 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;"
- . S DIR("A")="CODE SHEET ACTION",DIR("B")=$S(GECS("SYSID")="FMS":4,1:1) D ^DIR K DIR
- . ;
- . 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
- . ; fms code sheets, transmit using stack file
- . I Y=1,GECS("SYSID")="FMS" D TRANSMIT^GECSUFMS S GECSFLAG=1 Q
- . ;
- . I Y=1 S %=$$MARKBAT^GECSMUT1(GECSDA) S:% GECSFLAG=1 Q
- . I Y=2 S %=$$CSEDIT^GECSEDIT,%=$$MAPDATA^GECSXBLD(GECS("CSDA")) S:'% GECSFLAG=1 Q
- . I Y=3 D Q
- . . D DELASK^GECSUTIL(GECSDA)
- . . I '$D(^GECS(2100,GECSDA)) K GECS("CSDA"),GECS("CSNAME") S GECSFLAG=1
- . I Y=5 D
- . . S %ZIS="Q" D ^%ZIS I POP Q
- . . I '$D(IO("Q")) U IO D PRINT^GECSUTIL(GECSDA) D ^%ZISC Q
- . . I $D(IO("Q")) K IO("Q") S ZTRTN="PRINTDQ^GECSUTIL",ZTDESC="Print Generic Code Sheet",ZTSAVE("GECSDA")="",ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL D ^%ZTLOAD
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSXBL1 1747 printed Feb 18, 2025@23:23:06 Page 2
- GECSXBL1 ;WISC/RFJ-ask to mark code sheets for batching ;01 Nov 93
- +1 ;;2.0;GCS;**2,37**;MAR 14, 1995;Build 3
- +2 QUIT
- +3 ;
- +4 ;
- ASKTOBAT(GECSDA) ; ask to mark code sheet gecsda for batching
- +1 ; if variable GECSAUTO="BATCH" then auto-mark for batch without asking
- +2 ; if variable GECSAUTO="SAVE" then retain in file
- +3 NEW %,GECSFLAG,X,Y
- +4 ;
- +5 ; retain in file
- +6 IF $GET(GECSAUTO)="SAVE"
- QUIT
- +7 ;
- +8 ; automatically mark for batching without asking
- +9 IF $GET(GECSAUTO)="BATCH"
- SET %=$$MARKBAT^GECSMUT1(GECSDA)
- QUIT
- +10 ;
- +11 ; ask to mark for batching
- +12 FOR
- Begin DoDot:1
- +13 SET DIR(0)="S^1:"_$SELECT(GECS("SYSID")="FMS":"Transmit FMS Document",1:"Mark the Code Sheet For Batching")
- +14 SET 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;"
- +15 SET DIR("A")="CODE SHEET ACTION"
- SET DIR("B")=$SELECT(GECS("SYSID")="FMS":4,1:1)
- DO ^DIR
- KILL DIR
- +16 ;
- +17 IF Y=4!$DATA(DTOUT)!($DATA(DUOUT))
- WRITE !,"CODE SHEET HAS BEEN RETAINED IN THE FILE FOR EDITING LATER!"
- DO RETAIN^GECSUSTA(GECSDA)
- SET GECSFLAG=1
- QUIT
- +18 ; fms code sheets, transmit using stack file
- +19 IF Y=1
- IF GECS("SYSID")="FMS"
- DO TRANSMIT^GECSUFMS
- SET GECSFLAG=1
- QUIT
- +20 ;
- +21 IF Y=1
- SET %=$$MARKBAT^GECSMUT1(GECSDA)
- if %
- SET GECSFLAG=1
- QUIT
- +22 IF Y=2
- SET %=$$CSEDIT^GECSEDIT
- SET %=$$MAPDATA^GECSXBLD(GECS("CSDA"))
- if '%
- SET GECSFLAG=1
- QUIT
- +23 IF Y=3
- Begin DoDot:2
- +24 DO DELASK^GECSUTIL(GECSDA)
- +25 IF '$DATA(^GECS(2100,GECSDA))
- KILL GECS("CSDA"),GECS("CSNAME")
- SET GECSFLAG=1
- End DoDot:2
- QUIT
- +26 IF Y=5
- Begin DoDot:2
- +27 SET %ZIS="Q"
- DO ^%ZIS
- IF POP
- QUIT
- +28 IF '$DATA(IO("Q"))
- USE IO
- DO PRINT^GECSUTIL(GECSDA)
- DO ^%ZISC
- QUIT
- +29 IF $DATA(IO("Q"))
- KILL IO("Q")
- SET ZTRTN="PRINTDQ^GECSUTIL"
- SET ZTDESC="Print Generic Code Sheet"
- SET ZTSAVE("GECSDA")=""
- SET ZTIO=ION_";"_IOST_";"_IOM_";"_IOSL
- DO ^%ZTLOAD
- End DoDot:2
- End DoDot:1
- if $GET(GECSFLAG)
- QUIT
- +30 QUIT
