|
Last change
on this file since 1800 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.
