source: WorldVistAEHR/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDFDE10.m@ 1801

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
RevLine 
[613]1IBDFDE10 ;ALB/AAS - AICS Data entry utility ; 5-MAR-97
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;
4SCREEN(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
20SCRNQ Q IBDY
Note: See TracBrowser for help on using the repository browser.