source: FOIAVistA/trunk/r/GENERIC_CODE_SHEET-GEC/GECSREP0.m@ 1549

Last change on this file since 1549 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.3 KB
Line 
1GECSREP0 ;WISC/RFJ/KLD-reports ;08 Nov 93
2 ;;2.0;GCS;**13,14**;MAR 14, 1995
3 Q
4 ;
5 ;
6READYBAT ; 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 ;
17READYTRA ; 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"))
21READYTR1 ; 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 ;
34BATCHES ; 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 ;
46WAITBAT ; 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
Note: See TracBrowser for help on using the repository browser.