| 1 | GECSREP0 ;WISC/RFJ/KLD-reports ;08 Nov 93
|
|---|
| 2 | ;;2.0;GCS;**13,14**;MAR 14, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | ;
|
|---|
| 5 | ;
|
|---|
| 6 | READYBAT ; print code sheets ready for batching
|
|---|
| 7 | N %X,DIJ,DP,GECS
|
|---|
| 8 | D ^GECSSITE Q:'$G(GECS("SITE"))
|
|---|
| 9 | D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))
|
|---|
| 10 | S DIS(0)="I $P(^GECS(2100,D0,0),U,3)=GECS(""BATDA"")"
|
|---|
| 11 | S DIC="^GECS(2100,",L=0,(BY,FLDS)="[GECS READY FOR BATCHING]" W ! D EN1^DIP
|
|---|
| 12 | I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL
|
|---|
| 13 | D ^%ZISC
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | ;
|
|---|
| 17 | READYTRA ; print code sheets ready for transmission
|
|---|
| 18 | N %X,DIJ,DP,GECS
|
|---|
| 19 | D ^GECSSITE Q:'$G(GECS("SITE"))
|
|---|
| 20 | D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))
|
|---|
| 21 | READYTR1 ; call to print code sheets ready for transmission with
|
|---|
| 22 | ; all variables defined
|
|---|
| 23 | S (BY,FLDS)="[GECS READY FOR TRANSMISSION]"
|
|---|
| 24 | 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."
|
|---|
| 25 | W ! S %=$$YN^GECSUTIL(2) I %=0 Q
|
|---|
| 26 | I %=1 S FLDS="[GECS TRANSMIT LIST]"
|
|---|
| 27 | 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"")"
|
|---|
| 28 | S DIC="^GECS(2100,",L=0 W ! D EN1^DIP
|
|---|
| 29 | I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL
|
|---|
| 30 | D ^%ZISC
|
|---|
| 31 | Q
|
|---|
| 32 | ;
|
|---|
| 33 | ;
|
|---|
| 34 | BATCHES ; status of all batches
|
|---|
| 35 | N %X,DIJ,DP,GECS
|
|---|
| 36 | D ^GECSSITE Q:'$G(GECS("SITE"))
|
|---|
| 37 | D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))
|
|---|
| 38 | S GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")
|
|---|
| 39 | 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)"
|
|---|
| 40 | S DIC="^GECS(2101.3,",L=0,(BY,FLDS)="[GECS BATCH STATUS]" W ! D EN1^DIP
|
|---|
| 41 | I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL
|
|---|
| 42 | D ^%ZISC
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | ;
|
|---|
| 46 | WAITBAT ; listing of batches awaiting transmission
|
|---|
| 47 | N %X,DIJ,DP,GECS
|
|---|
| 48 | D ^GECSSITE Q:'$G(GECS("SITE"))
|
|---|
| 49 | D BATNOFMS^GECSUSEL Q:'$G(GECS("BATDA"))
|
|---|
| 50 | 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."
|
|---|
| 51 | W ! S %=$$YN^GECSUTIL(2) I '% Q
|
|---|
| 52 | S GECS("SITEHLD")=GECS("SITE")_GECS("SITE1")
|
|---|
| 53 | I %=1 D READYTR1 Q
|
|---|
| 54 | 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)"
|
|---|
| 55 | S DIC="^GECS(2101.3,",L=0,(BY,FLDS)="[GECS BATCHES WAITING]" D EN1^DIP
|
|---|
| 56 | I $E(IOST)="C",'$D(ZTSK) D R^GECSUTIL
|
|---|
| 57 | D ^%ZISC
|
|---|
| 58 | Q
|
|---|
