GECSREP0.m

GECSREP0 ;WISC/RFJ/KLD-reports                                          ;08 Nov 93

 ;;2.0;GCS;**13,14**;MAR 14, 1995

 Q

 ;

 ;

READYBAT ;  print code sheets ready for batching

 N %X,DIJ,DP,GECS

 D ^GECSSITE Q:'$G(GECS("SITE"))

 D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))

 S DIS(0)="I $P(^GECS(2100,D0,0),U,3)=GECS(""BATDA"")"

 S DIC="^GECS(2100,",L=0,(BY,FLDS)="[GECS READY FOR BATCHING]" W ! D EN1^DIP

 I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL

 D ^%ZISC

 Q

 ;

 ;

READYTRA ;  print code sheets ready for transmission

 N %X,DIJ,DP,GECS

 D ^GECSSITE Q:'$G(GECS("SITE"))

 D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))

READYTR1 ;  call to print code sheets ready for transmission with

 ;  all variables defined

 S (BY,FLDS)="[GECS READY FOR TRANSMISSION]"

 S XP="Do you want to print the code sheet",XH="'YES' will print a listing of the CODE Sheet.",XH(1)="'NO' will print a listing of the code sheet ID."

 W ! S %=$$YN^GECSUTIL(2) I %=0 Q

 I %=1 S FLDS="[GECS TRANSMIT LIST]"

 S DIS(0)="I $P(^GECS(2100,D0,0),U,3)=GECS(""BATDA""),$P(^GECS(2100,D0,0),U,6)=GECS(""SITE""),$P(^GECS(2100,D0,0),U,7)=GECS(""SITE1"")"

 S DIC="^GECS(2100,",L=0 W ! D EN1^DIP

 I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL

 D ^%ZISC

 Q

 ;

 ;

BATCHES ;  status of all batches

 N %X,DIJ,DP,GECS

 D ^GECSSITE Q:'$G(GECS("SITE"))

 D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))

 S GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")

 S DIS(0)="I $S($P(^GECS(2101.3,D0,0),""-"",1)=GECS(""SITEHLD"")&($P(^GECS(2101.3,D0,0),U,6)=GECS(""BATDA"")):1,1:0)"

 S DIC="^GECS(2101.3,",L=0,(BY,FLDS)="[GECS BATCH STATUS]" W ! D EN1^DIP

 I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL

 D ^%ZISC

 Q

 ;

 ;

WAITBAT ;  listing of batches awaiting transmission

 N %X,DIJ,DP,GECS

 D ^GECSSITE Q:'$G(GECS("SITE"))

 D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))

 S XP="Do you want a detailed listing",XH="'YES' will print the ID or actual code sheets by batch.",XH(1)="'NO' will only print the batch numbers."

 W ! S %=$$YN^GECSUTIL(2) I '% Q

 S GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")

 I %=1 D READYTR1 Q

 S DIS(0)="S %=^GECS(2101.3,D0,0) I $S($P(^GECS(2101.3,D0,0),""-"",1)=GECS(""SITEHLD"")&($P(^GECS(2101.3,D0,0),U,3)=""B"")&($P(^GECS(2101.3,D0,0),U,6)=GECS(""BATDA"")):1,1:0)"

 S DIC="^GECS(2101.3,",L=0,(BY,FLDS)="[GECS BATCHES WAITING]" D EN1^DIP

 I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL

 D ^%ZISC

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GECSREP0   2367     printed  Mar 13, 2025@21:00:59                                                                                                                                                                                                    Page 2

GECSREP0  ;WISC/RFJ/KLD-reports                                          ;08 Nov 93

 +1       ;;2.0;GCS;**13,14**;MAR 14, 1995

 +2        QUIT 

 +3       ;

 +4       ;

READYBAT  ;  print code sheets ready for batching

 +1        NEW %X,DIJ,DP,GECS

 +2        DO ^GECSSITE

           if '$GET(GECS("SITE"))

               QUIT 

 +3        DO BATNOFMS^GECSUSEL

           if '$GET(GECS("BATDA"))

               QUIT 

 +4        SET DIS(0)="I $P(^GECS(2100,D0,0),U,3)=GECS(""BATDA"")"

 +5        SET DIC="^GECS(2100,"

           SET L=0

           SET (BY,FLDS)="[GECS READY FOR BATCHING]"

           WRITE !

           DO EN1^DIP

 +6        IF $EXTRACT(IOST)="C"

               IF '$DATA(ZTSK)

                   DO R^GECSUTIL

 +7        DO ^%ZISC

 +8        QUIT 

 +9       ;

 +10      ;

READYTRA  ;  print code sheets ready for transmission

 +1        NEW %X,DIJ,DP,GECS

 +2        DO ^GECSSITE

           if '$GET(GECS("SITE"))

               QUIT 

 +3        DO BATNOFMS^GECSUSEL

           if '$GET(GECS("BATDA"))

               QUIT 

READYTR1  ;  call to print code sheets ready for transmission with

 +1       ;  all variables defined

 +2        SET (BY,FLDS)="[GECS READY FOR TRANSMISSION]"

 +3        SET XP="Do you want to print the code sheet"

           SET XH="'YES' will print a listing of the CODE Sheet."

           SET XH(1)="'NO' will print a listing of the code sheet ID."

 +4        WRITE !

           SET %=$$YN^GECSUTIL(2)

           IF %=0

               QUIT 

 +5        IF %=1

               SET FLDS="[GECS TRANSMIT LIST]"

 +6        SET DIS(0)="I $P(^GECS(2100,D0,0),U,3)=GECS(""BATDA""),$P(^GECS(2100,D0,0),U,6)=GECS(""SITE""),$P(^GECS(2100,D0,0),U,7)=GECS(""SITE1"")"

 +7        SET DIC="^GECS(2100,"

           SET L=0

           WRITE !

           DO EN1^DIP

 +8        IF $EXTRACT(IOST)="C"

               IF '$DATA(ZTSK)

                   DO R^GECSUTIL

 +9        DO ^%ZISC

 +10       QUIT 

 +11      ;

 +12      ;

BATCHES   ;  status of all batches

 +1        NEW %X,DIJ,DP,GECS

 +2        DO ^GECSSITE

           if '$GET(GECS("SITE"))

               QUIT 

 +3        DO BATNOFMS^GECSUSEL

           if '$GET(GECS("BATDA"))

               QUIT 

 +4        SET GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")

 +5        SET DIS(0)="I $S($P(^GECS(2101.3,D0,0),""-"",1)=GECS(""SITEHLD"")&($P(^GECS(2101.3,D0,0),U,6)=GECS(""BATDA"")):1,1:0)"

 +6        SET DIC="^GECS(2101.3,"

           SET L=0

           SET (BY,FLDS)="[GECS BATCH STATUS]"

           WRITE !

           DO EN1^DIP

 +7        IF $EXTRACT(IOST)="C"

               IF '$DATA(ZTSK)

                   DO R^GECSUTIL

 +8        DO ^%ZISC

 +9        QUIT 

 +10      ;

 +11      ;

WAITBAT   ;  listing of batches awaiting transmission

 +1        NEW %X,DIJ,DP,GECS

 +2        DO ^GECSSITE

           if '$GET(GECS("SITE"))

               QUIT 

 +3        DO BATNOFMS^GECSUSEL

           if '$GET(GECS("BATDA"))

               QUIT 

 +4        SET XP="Do you want a detailed listing"

           SET XH="'YES' will print the ID or actual code sheets by batch."

           SET XH(1)="'NO' will only print the batch numbers."

 +5        WRITE !

           SET %=$$YN^GECSUTIL(2)

           IF '%

               QUIT 

 +6        SET GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")

 +7        IF %=1

               DO READYTR1

               QUIT 

 +8        SET DIS(0)="S %=^GECS(2101.3,D0,0) I $S($P(^GECS(2101.3,D0,0),""-"",1)=GECS(""SITEHLD"")&($P(^GECS(2101.3,D0,0),U,3)=""B"")&($P(^GECS(2101.3,D0,0),U,6)=GECS(""BATDA"")):1,1:0)"

 +9        SET DIC="^GECS(2101.3,"

           SET L=0

           SET (BY,FLDS)="[GECS BATCHES WAITING]"

           DO EN1^DIP

 +10       IF $EXTRACT(IOST)="C"

               IF '$DATA(ZTSK)

                   DO R^GECSUTIL

 +11       DO ^%ZISC

 +12       QUIT