Last change
on this file since 1801 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
600 bytes
|
Rev | Line | |
---|
[613] | 1 | IBDFDE10 ;ALB/AAS - AICS Data entry utility ; 5-MAR-97
|
---|
| 2 | ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
---|
| 3 | ;
|
---|
| 4 | SCREEN(Y,IBDDT) ; -- Copy of provider screen from sdutl2
|
---|
| 5 | ;
|
---|
| 6 | ; INPUT: Y = ien of file 200
|
---|
| 7 | ; IBDDT = today's date
|
---|
| 8 | ;
|
---|
| 9 | ; OUTPUT: 1 to select; 0 to not select
|
---|
| 10 | ;
|
---|
| 11 | N IBDINACT,IBDT,IBDY S IBDY=0
|
---|
| 12 | S:'+$G(IBDDT) IBDDT=DT
|
---|
| 13 | I '+$G(Y) G SCRNQ
|
---|
| 14 | ;
|
---|
| 15 | S IBDINACT=$G(^VA(200,+Y,"PS"))
|
---|
| 16 | I '$S(IBDINACT']"":1,'+$P(IBDINACT,"^",4):1,DT<+$P(IBDINACT,"^",4):1,1:0) G SCRNQ
|
---|
| 17 | S IBDT=+$P($G(^VA(200,+Y,0)),U,11)
|
---|
| 18 | I $S('IBDT:0,(IBDT<DT):1,1:0) G SCRNQ
|
---|
| 19 | I $$GET^XUA4A72(Y,IBDDT)>0 S IBDY=1
|
---|
| 20 | SCRNQ Q IBDY
|
---|
Note:
See
TracBrowser
for help on using the repository browser.