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 ---[H[J[2J[HGECSREP0 2367 printed Nov 22, 2024@17:06:29 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
