| [613] | 1 | DVBAB85 ;SPH - CAPRI REPORTS ;03/01/05
|
|---|
| 2 | ;;2.7;AMIE;**90**;Apr 10, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | RPTSTAT(Y,DVBDSTRT,DVBDBEND) ;
|
|---|
| 5 | ; REPORT FORMAT:
|
|---|
| 6 | ; PT NAME + AUTHOR + DATE/TIME ENTERED + DATE/TIME LOCKED + STATUS
|
|---|
| 7 | ; FORM 1, FORM 2, ETC.
|
|---|
| 8 | N DVBABIEN,DVBABCNT,DVBABIE2,DVBTEMP,DVBNM,DVBAUT,DVBDTE,DVBDTL,DVBST,DVBEXAMS,ST
|
|---|
| 9 | K ^TMP("DVBARPT",DUZ)
|
|---|
| 10 | S DVBABIEN=0,DVBABCNT=0,ST("P")="REVIEW PENDING",ST("N")="NOT REQUIRED",ST("S")="SENT BACK"
|
|---|
| 11 | S ST("C")="COMPLETE",ST("D")="DRAFT",ST("A")="AWAITING SIGNATURE",ST("U")="UNCOSIGNED"
|
|---|
| 12 | F S DVBABIEN=$O(^DVB(396.17,DVBABIEN)) Q:'DVBABIEN D
|
|---|
| 13 | . S DVBTEMP=$G(^DVB(396.17,DVBABIEN,0)),DVBDTE=$P(DVBTEMP,"^",3)
|
|---|
| 14 | . I DVBTEMP]"",DVBDTE>DVBDSTRT,DVBDTE-1<DVBDBEND D
|
|---|
| 15 | .. S DVBNM=$P(^DPT(+DVBTEMP,0),"^",1),DVBAUT=$P(^VA(200,$P(DVBTEMP,"^",2),0),"^",1),Y=$P(DVBTEMP,"^",3)
|
|---|
| 16 | .. X ^DD("DD") S DVBDTE=Y,Y=$P(DVBTEMP,"^",5) X ^DD("DD")
|
|---|
| 17 | .. S DVBDTL=Y,DVBEXAMS="",DVBABIE2=0,DVBST=$P(^DVB(396.17,DVBABIEN,5),"^",2)
|
|---|
| 18 | .. S:$D(ST(DVBST)) DVBST=ST(DVBST)
|
|---|
| 19 | .. F S DVBABIE2=$O(^DVB(396.17,DVBABIEN,1,DVBABIE2)) Q:'DVBABIE2 S DVBEXAMS=DVBEXAMS_"|"_$P(^DVB(396.17,DVBABIEN,1,DVBABIE2,0),"^",2)
|
|---|
| 20 | .. S ^TMP("DVBARPT",DUZ,DVBABCNT)=DVBNM_"^"_DVBAUT_"^"_DVBDTE_"^"_DVBDTL_"^"_DVBST_"^"_DVBEXAMS_$C(13)
|
|---|
| 21 | .. S DVBABCNT=DVBABCNT+1
|
|---|
| 22 | S Y=$NA(^TMP("DVBARPT",DUZ))
|
|---|
| 23 | Q
|
|---|
